’ 


OOOOQOOOOPRINTERO0175122CC EX OBJECT/KEYWORDIFILE SOURCEFILESSYMBOL/TSSMCPIEND®] OBJECT /KEYWORD 


LABEL 


SAVE REAL PROCEDURE GETSPACEC(SIZEsTYPE»sSAVEF)3 00014000 
SAVE. REAL PROCEDURE WAITIOCIODsMASK»U)S% 00018000 
PROCEDURE FRROREIXERCTYPE)} VALUE TYPES REAL TYPES FORWARDS 00019500 
SAVE PROCEDURE SLEEP CADDRESS*#MASK)3% 00020000 

SAVE PROCEDURE MCPINCS)$ VALUE Ss REAL SSFORWARD: 00024500 
SAVE PROCEDURE LOGTIMINGCMyXsB)3 VALUE MIX»Bs REAL MIxX,B3 FORWARDS 00025000 
SAVE PROCEDURE ESPBIT# COMMENT PRESENCE BJT ROUTINE FOR ESP SEGMENTS 3% 00025900 

STREAM PROCEDURE MOVE CN) "WORDS FROM"CHERE "TOM THERE 3% 00082000 

PROCEDURE STOPMS FORWARD!) 00089300 
PROCEDURE SETMONITORFILECSTOP)S VALUE STOP REAL STOPS FORWARDS 00089510 
PROCEDURE GETMONITOROW! FORWARDS 00089520 
PROCEDURE LOGDISK# FORWARD3 00089530 
PROCEDURE UINEMESSAGESCBUFF)$ VALUE BUFFS REAL BUFFS FORWARDS 00089540 
PROCEDURE WHATSGOINGONCBUFF)3 VALUE BUFFS REAL BUFFS FORWARDS 00089550 
PROCEDURE CHANGEINTRINSICFILECBUFF)S VALUE BUFFS REAL BUFFS FORWARD3 00089560 
PROCEDURE CHANGEMCP¢CBUFF)S VALUE BUFFS REAL BUFFS FORWARDS 00089570 
BROCEDURE PRINTDJRECTORYCBUFF)S VALUE BUFFS REAL BUFFS FORWARDS 00089590 
PROCEDURE MIXPRINTCBUFF)3 VALUE BUFFS REAL BUFF3 FORWARDS 00089600 

SAVE PROCEDURE FORGETSPACECLOC) 3% 00090000 
SAVE PROCEDURE LOGTIMINGCMIXeB)# VALUE MIXeBs REAL MIX2B3 00165050 

REQUESTED ADDRESS 7S UNLOCKEDs THE PROCEDURE FINDFREEADDRESS 00296380 
SAVE REAL PROCEDURE TWOCN)} VALUE N3 INTEGER NB 00306000 
PROCEDURE FORGETUSERDISKCArLISVALUE AeLSREAL As LS FORWARDS 00316000 
REAL PROCEDURE PETUSERD]SK(NeTISVALUE Ne TSREAL Ne TSFORWARD 3 00316100 
PROCEDURE DTS FORWARDS 00317000 
REAL PROCENURE EXPs FORWARD 00317010 
PROCEDURE SCHEDIOCNUMsTYPEs ADR) 00318110 
PROCEDURE ScHEDIDLECADR)? VALUE ADR3 REAL ADR} FORWARDS 00318140 
PROCEDURE USERDISKSPECTALCASE(QoRyUsJIIVALUE Qe JSREAL GeRe Jd 00336100 
PROCEDURE FORGETESPD]SK¢SEGIS VALUE SEGIREAL SEGS FORWARD 00364000 

SAVE INTEGER PROCEDURE DISKSPACECNWORDS#PYMIXeAUX)S 00365000 

PROCEDURE STATUS#& 00369000 

PROCEDURE INTERRUPTC(TYPE)S VALUE TYPES REAL TYPE FORWARDS 00370500 
REAL PROCEDURE FINDOUTPUTCMIDaFIDe TYPE oD FORMS eREEL eo CDATE sCYCLE SKINDI3& 00371000 
REAL PROCEDURE FINDINPUTCMIDeFIDsREELsCDATEs CYCLE eCOBOL »ULe OF sMODESFN)3 00374000 
PROCEDURE STARTIMINGCFNPU)S VALUE FNeUS REAL FNe UF FORWARDS 00377000 

PROCEDURE FILEOPENCXsA)3 VALUE XsA3 [NTEGER Xe A} FORWARDS %R9000379000 
PROCEDURE ENTERSYSMTRCN)S VALUE N# REAL NB FORWARD? 003790430 

SAVE PROCEDURE SAVEOPEN(CA)S VALUE AS REAL AB %R9000379100 
PROCEDURE SETNOT,NUSECU,RWL)? VALUE UsRWLS REAL UsRWLI FORWARD? 00360000 
PROCEDURE FILL BUFFERS( CURRENT eFINALsCOBOLeNRDS 00385000 

PROCEDURE REALFILECLOSECA)% VALUE A$ REAL AS FORWARDS ¥R9000389000 

SAVE PROCEDURE FILECLOSECA)4 VALUE AB REAL Ab ¥R90003869300 
REAL PROCEDURE DISKADDRESS(MIDeFIDeFPB3eAeHe JO)3 % ¢(SHM)00390000 
PROCEDURE BLASTQ(U) VALUE US REAL Us FORWARDS 00392000 
REAL PROCEDURE FILEHEADERCMIDeFIDeNROWS, SIZE eBLEN®RLEND SDSS 00393000 

PROCEDURE PURGETCU)) VALUE US INTEGER US FORWARDS 00397000 
DIRECTORYSEARCH, NSECONDs AND CLEANOUT ARE THE PROCEDURES 00418970 
PROCEDURE LOCKER¢SEGMENT)3 00422500 
PROCEDURE SELECTRUNCFJ$ VALUE FS REAL FS FORWARD? 00426900 
PROCEDURE CONTROLCARDCA)S VALUE ABREAL AS FORWARDSS 00427000 
REAL PROCEDURE DIRECTORYSEARCHCArBeCISVALUE Ap BoC ChE 00428000 
PROCEOURE NEXTDC]OF FORWARDS 004291300 

PROCEDURE ARTNCASN)# VALUE ApNS ARRAY ALC*])3 [INTEGER N3 FORWARDS 00431000 

SAVE PROCEDURE DISKWAITCCOREsSIZEsDISK)3 00431100 

PROCEDURE MAKEPRESENT(A)S VALUE AS REAL AS FORWARD? 00431500 

SAVE PROCEDURE DISKIOCLeCeSeD)# VALUE CoSeD3 REAL UI INTEGER CeSoD38% 00432000 

“PROCEDURE SPOUTITCMESSAGEs TYPE)? 00450300 
PROCEDURE SPOUTER( MESSAGE pUNI TNO, TYPED S 00451800 
PROCEDURE FILEMESSAGEC I oKeMoF eReDeCo TYPED 3 00452600 


PROCEDURE LBMESSCFNsSNe JLo l2eoEo UNIT TNOeX) 3 

PROCEDURE TERMINATECMIX)3 VALUE MIX! REAL MIX? FORWARD) 

SAVE PROCFENURE TERMINALMESSAGECN)S VALUE N3} REAL NS FORWARDS 
BOOLEAN PROCEDURE SYSTEMFILECAs+B)A VALUE AsBS REAL Ae BS FORWARD 
PROCEDURE ENTERSYSFILECN)S VALUE N$ REAL Né FORWARDS 

PROCEDURE COM53 FORWARD} 

PROCEDURE FILLSYSTATS FORWARD3 
PROCEDURE SAVESTATISTICS$S FORWARDS 

PROCEDURE ASR3$ FORWARDS S 

PROCEDURE COM11% FORWARD3% 

PROCEDURE COM{33 FORWARDS 
PROCEDURE COMMUNICATEOS FORWARDS 
PROCEDURE COMMUNYICATE13 FORWARD} 

PROCEDURE LIBRARYLOADS FORWARDS 

PROCEDURE LIBRARYZEROs FORWARD? 

PROCEDURE LIBRARYDUMPS FORWARD} 

PROCEDURE DUMPCORECB)? VALUE BS REAL BS FORWARDS 

PROCEDURE COM193 FORWARD?% 

PROCEDURE COM233 FORWARDS? 

PROCEDURE INTRINSICTABLEBUILDERCFH)3 
PROCEDURE MESSAGETABLEBUILDER’ FORWARDS 
SAVE PROCEOURE RESULT} 

SAVE PROCEDURE PUNTC(I1)3 VALUE 13 REAL 13 

PROCEDURE CREATELOGCDDD)$ VALUE DDD$ ARRAY DDDE*}5 FORWARD; 
SAVE PROCEDURE PAUSECR)3 VALUE Ri REAL Ri 


SAVE PROCEDURE CHECKLINKSCMIXeLOC)3 VALUE MIXeLOCS REAL MIXeLOC: 
SAVE PROCEDURE SWAPCSTATE,B)$ VALUE STATE,BsS REAL STATEsBE FORWARD? 


PROCEDURE SHORTCOMMUNICATESS FORWARDS 

PROCEDURE INITIALSWAPC(N)! VALUE N# REAL N3 FORWARD 
PROCEDURE BRINGBACK(MIX)3 VALUE MyJX3 REAL MIX3 FORWARD} 
PROCEDURE REENTERCSTUFF IS VALUE STUFFS REAL STUFFS FORWARDS 
PROCEDURE SWAPPERS FORWARDS 

BOOLEAN PROCEDURE OUTWAIT(B)% BOOLEAN BF FORWARDS 

SAVE REAL PROCEDURE GETAREACN)$ VALUE N35 REAL N5-~ FORWARDS 
SAVE PROCEDURE FORGETAREACQNsAJS VALUE NeAS REAL No Ad FORWARDS 
SAVE INTEGER PROCEDURE SPACE(ND} 

SAVE PROCEDURE LINKEUS FORWARDS 


SAVE PROCEDURE FORKCROUTINEs PARAMETERs PRIORITY» SIZE»e LOCATION)3 


SAVE PROCEDURE KILLCSTACK)} 

SAVE PROCEDURE SLEEPCADDRESS+ MASK)5 

SAVE PROCEDURE COMPLEXSLEFPCCODE)3 

SAVE PROCFOURE RUNCMYX)3 

SAVE PROCEDURE SAVEMIXCMIXeLOGLINE 3 

SAVE PROCEDURE HALT: 

SAVE PROCENURE ENTERLINGFQCADReLINE,PRIRTY)3 
PROCEDURE NCWRITECADRe LINE SIZED} 

BOOLEAN PROCEDURE BLASTREADCLINE ?C)3 

SAVE PROCEDURE IOREQUESTCFINAL®TLODESCeLOCATION)3 

PROCEDURE OLDWIERDHAROLD3 FORWARD3 
PROCEDURE NOTIFYCANDE(MIX)3 VALUE MIX REAL MIX$ FORWARDS 


PROCEDURE SYSDISKJOCTOeL eA VALUE [0ebeAs ARRAY AC*I]SREAL [00L3 
SAVE PROCEDURE New) 03 FORWARD} 


SAVE PROCENURE START]OCU)3 VALUE UF REAL UF FORWARDS 

SAVE PROCEDURE INITJATEDCIOCTODESC,S)3 

PROCEDURE NEXTDC]03 

SAVE PROCEDURE ENTEREADYQ(1T)3 

PROCEDURE USAS;TAPECAREAs TYPE sFROM,UsDIRI3 ZRHR 
INTEGER PROCEDURE AUXILIARYSPACEC(S]ZE)} 

- PROCEOURE FORGETAUXILIARYSPACECSIZEsLOC)I 
PROCEDURE FILLORKILLCAs STARTs SJZEe TYPE) 


00454000 
00463100 
00463200 
00463300 
00464000 
00469000 
00469100 
00469200 
00474000 
00475000 
00477000 
00478000 
00478500 
00479000 
00479500 
00480000 
004801400 
00483000 
00487000 
00489000 
00494000 
00646000 
00650000 
00750000 
00801000 
00803000 
00990000 
0099050 
00991000 
00992000 
00992100 
00992200 
00993000 
00994000 
00994500 
00995000 
00998500 
01070000 
01089000 
01099000 
01123000 
01127000 
01138000 
01150000 
01163100 
01163350 
04163410 
01163500 
01164000 
04164200 


%R6001164300 


01164500 
04165000 
01166000 
014190000 
01223000 
01250400 
01267000 
01271000 
04275000 


PROCEDURE REPORTBACKCWHYeP15P2)3 02016000 
PROCEDURE MAKELOG(MseT)3 VALUE MoTS REAL MeTé FORWARDS 02020000 
REAL PROCENURE KEYINCB)S VALUE BS BOOLEAN BS FORWARDS 02021000 
BOOLEAN PROCEDURE WHYSLEEPCMASK)$ VALUE MASKS REAL MASK$ FORWARDS 02022000 
BOOLEAN PROCEDURE OLAYCLOCoMIXX)) | 02052500 
PROCEDURE SEEKNAM(AsBoCoDsE»oN)$ VALUE A,BSREAL AsBeCeDoteoNs FORWARD 02052700 
PROCEDURE UNHOOQUECMIX)3% 02053000 
REAL PROCEDURE GETESPDISKSFORWARDS? 02111000 
PROCEDURE nIRECTORYBUILDER(CAsDDD)3 02112000 
PROCEDURE TWXOUTC(ArBeCeoD)3 VALUE AsBeCoD3 REAL ArpBeCeD$3 FORWARDS 02113200 
PROCEDURE MESSAGEWRITER?S 02114000 
PROCEDURE SPOUT; TCMESSAGE,TYPE)3 02132000 
PROCEDURE SPOUTERCMESSAGE UNI TNO,TYPE)3 02132300 
PROCEDURE ENDOFDECK(R)$ VALUE RI REAL RS FORWARD? 02177100 
PROCEDURE PB10¢A,B)3 VALUE AS REAL AeBs FORWARDS 02178500 
PROCEDURE TERMINATECMIX)# VALUE MIX3 REAL MIXIB 02180000 
REAL PROCEDURE PLACEFINDER(SpAeL)3 02187100 
PROCEDURE STOPCANDYS FORWARDS 02187600 
PROCEDURE TERMINALMESSAGACN)? VALUE NS REAL N3 02188000 
SAVE PROCEDURE TERMINALMESSAGEC(N)$ VALUE NS REAL NB 023301400 
BOOLEAN PROCEDURE READEMFROMDISK(HeIB)3 02347150 
PROCEDURE NDRAINOCUN] TsBUMPsERROR) 3 02347200 
REAL STREAM PROCEDURE UNTTINCTINUsWHAT)# VALUE WHAT3% 02348000 
REAL PROCEDURE EUFCAsBeL)3 VALUE A,Bsie REAL As Bobs FORWARDS 02379000 
INTEGER PROCEDURE CALCULATEPURGE (PURGE) #% 02380000 
PROCEDURE CHANGEDATE(BUFF)3 VALUE BUFF? REAL BUFFS FORWARD? 02393100 
REAL PROCEDURE TAPELABELCMsF eReCeoP)# VALUE MoFeReCoP3 %A102393400 
PROCEDURE PRINTCORECX)3 VALUE X} REAL X3 %10802394000 
PROCEDURE DUMPCORECBUFF)3 %A102434100 
PROCEDURE NAMFIDCAsKTR)3% 02603000 
REAL PROCEDURE TAPELABELC(MULFIDeFID»sREELNOsCYCLE» PURGE 3% 02635000 
REAL PROCEDURE LABELASCRATCH( LBL) VALUE LBLSREAL LBL3S 02659000 
PROCEDURE NSECONDS FORWARD? 2% 02692000 
BOOLEAN PROCEDURE SYSTEMFILFCA+B)3 VALUE ApBSREAL ApB$ FORWARD? 02692500 
REAL PROCEOURE PUTORTAKECMIX»WHERE» 1OsWHAT)3 02700000 
PROCEDURE NIRECTORYFULLCPASSBY)3 VALUE PASSBYS REAL PASSBY? 02722000 
PROCEDURE DCERR(R)3 02740000 

_ PROCEDURE DCBUSYCV)3 02761000 
PROCEDURE MOREAREASS 03002000 
SAVE PROCEDURE FORGETAREACNeT)3 VALUE NeTS REAL NoT3 03015000 
SAVE REAL PROCEDURE GETAREACN)S VALUE NB REAL NI 03029000 
SAVE PROCEDURE QUEVENTCT»MIX)? 03048000 
PROCEDURE COMM13 & DISK 1/0 COMMUNICATE 03053000 
PROCEDURE COMM23 % COMMAND LANGUAGE WAIT COMMUNICATE 03061000 
PROCEDURE LOGOUT? FORWARDS 03070000 
REAL PROCEDURE [NPUTSCANCMODE sSOURCE eDEST»NUMeF LAGS) $ 03074000 
REAL, PROCEDURE OUTKAN9BOCADReNUMe TYPE eLCCeB)3 03075000 
PROCEDURE GIVEAWAYCA)3 VALUE AS REAL AS FORWARD? 03079000 
REAL PROCEDURE OUTRANBIDSCADReNUMpTYPEsBeC)3 03080000 
REAL PROCEDURE OUTRANTCCADReNUMe TYPE 2 BeC)3 03080200 
PROCEDURE RUNSEPTICCBUFF)3 VALUE BUFFS REAL BUFFS FORWARD? 03081000 
SAVE PROCEDURE DISPOSAL¢LeyTeRI8 VALUE LeteR$ REAL LoteR3 FORWARDS 03081100 
PROCEQURE MAKEPRESENT(A)S VALUE A? REAL AF FORWARD} 03099000 
PROCEOURE COMM93 03100000 
PROCEDURE REPORTBACK(WHYsP1»P2)3 03111000 
PROCEDVRE TWXOUTCADR»NUMsTYPEeLL)3 03124000 
PROCEDURE CLEARTANK(LLeMCP)3 03200000 
REAL PROCENURE DCWRITECADRsLINE®SIZE)S 03214000 
PROCEDURE SPOSETCTYPEs+BUFH)S VALUE TYPEsBUFHS REAL TYPEsBUFHS FORWARDS 03245900 
PROCEDURE QU:ITTERCLINED3 03246000 


PROCEDURE DCWAJTCADRolL INE eRe MASK +CLCK)S 
REAL PROCEDURE INPUTSCANCMODE » SOURCE + DEST sNUMs FLAGS) § 
PROCEDURE COMM133 
PROCEDURE COMMS} 
PROCEDURE ENTERLINE@CADR» LINE sPRIRTY)$ 
PROCEDURE NAKQUE3 
PROCEDURE NCTIMEOUUTCR)$ VALUE R3 REAL R3 
PROCEDURE NOTIFYCANDE3 
PROCEDURE PAPERTAPETOCReSTA»FLAGSsBUFSZoMI1)$ % HANDLES END OF MESSAGE 
PROCEDURE HELLOCK)3 
PROCEDURE OLDWIERDHAROLD3 
SAVE PROCEDURE GIVEAWAYCA)3 
PROCEDURE DCTOFINISHCR)3 
SAVE PROCEDURE I[NITIATEJOCIODESCoMIXeU)F% 
SAVE PROCEDURE WA]TORSWAP(U,A)3 VALUE UsAS REAL UpAs 
SAVE PROCEDURE QUEUEUP(U)3 VALUE U i REAL USg 
SAVE PROCEDURE LINKEUS 
SAVE PROCEDURE STARTIOCU)3 VALUE Us REAL USS 
SAVE PROCEDURE PRINTERFINISHCU)$ VALUE US REAL Us% 
SAVE PROCEDURE [OREQUESTCFINAL, LODESCeLOCATION) 3% 
SAVE PROCEDURE FINISHOFFIOCU)# VALUE US REAL US% 
PROCEDURE PROGRAMRELEASE!2 
SAVE PROCEDURE NEWI033% 
PROCEDURE DISKORAUXERROR(R)? VALUE KS REAL R$ FORWARD? 
PROCEDURE ACTUALJOERR(R)$ VALUE R&S KEAL RS FORWARDS 
PROCEDURE LINKUPCTYPEsKEY)3 VALUE TYPES KEYS REAL TYPE®KEY? FORWARDSS 
PROCEDURE CHECKJOBORFILEMESSCMIXsFIBe.UI3% 
PROCEDURE LOGOUTMAINT(B)3 VALUE BS KEAL BF FORWARD? 
PROCEDURE MAINTLOGGER(B)$ VALUE Bs REAL Bi FORWARDS 
SAVE PROCEDURE [OFJNISH(CReC)$ VALUE ReC3 REAL RCI 
SAVE REAL PROCEDURE WALTLIOCLOD»MASKsU)3% 
REAL PROCEDURE TAPEPARITYRETRYCROUsKEY 23% 
PROCEDURE DISKORAUXERRORC(R)$ VALUE R3 REAL RB 
END PROCEDURE D]SKORAUXERROR? 
PROCEDURE ACTUALIOERR(R)$ VALUE RF REAL RB 
REAL PROCEQURE TAPEPARITYRETRYCR»UPKEY 32% 
REAL PROCENURE PLACEFINDERCS»AsL)3 
REAL PROCEDURE SECURITYCHECKCMIDeF IDeUSE®HEAD) 3 
PROCEDURE SHEETDIDDLERCBUFF,TYPEsSID)? VALUE BUFF» TYPE,SID3 
PROCEDURE ZIPPERCXsY)3 VALUE XeY REAL XeY# FORWARDS 
PROCEDURE DISKLOGCMIDsFIDeH)#} VALUE MID»FID»sHs ARRAY HC*]3 
PROCEDURE |INDJANBOY: 
PROCEDURE INDIANGIRL$ 
PROCEDURE COMM4{53 % INDEPENDENT STARTER FOR CANDE 
PROCEDURE SYSDISKI{OC{O,LINE PADS 
PROCEDURE LOGWARNCRC)$ VALUE RC3 REAL RC3 
PROCEDURE FORMTIMECWsT)# VALUE WeT REAL WoT 
PROCEDURE MAKELOGCMESS,TYPE)$ 
PROCEDURE STARTCANDYCESEDsPRIORITY)3 
PROCEDURE STOPCANDY3 
PROCEDURE SPREADTHEWORD? 
PROCEDURE COMM173 
BOOLEAN PROCEDURE BLASTREADCLINEsC)3 
PROCEDURE SCRATCHSORTCAsN) 3 
PROCEDURE SCRATCHDIRECTORYERRORCAeN) 3 
BOOLEAN PROCEDURE SCRATCHCHECKC]eHeS) 3 
PROCEDURE SCRATCHSPECIALCASECCNeAsNeCORADDR»sSEGADDRe] sHeSCRATCHSEG)3 
PROCEDURE SCRATCHDIRECTORYENTERCADN)D3 
PROCEDURE SCRATCHDIRECTORYDELETECAN)I 
PROCEDURE SCRATCHCLEANCARY»BCoLINK) 3 


ZUPDATES ADINFO & SENDS H/L MESSAGE TO 


03267000 
032/6800 
03292000 
03375000 
03417000 
93440000 
03458000 
03504000 
03550000 
03573000 
03608000 
03689000 
03710000 
04000000 
04014200 
04016000 
04019500 
04020000 
04035000 
04040000 
04067000 
04099000 
04115000 
04121410 
04121425 
04121450 
04121500 
04121600 
04121650 
04122000 
04240000 
04254000 
04256000 
04353000 
04353200 
04548000 
04700000 
04790000 
04798000 
04800000 


%11204800400 


05020000 
05220000 
05407000 
05423000 
05461000 
05607000 
05620000 
05655000 
05700000 
05720000 
05750000 
05756000 
05806500 
05809600 
05611170 
05811340 
05613700 
05827300 
058376800 


REAL PROCENURE PETUSERDISK(NeT)3 VALUE NeoT3 REAL NoT 2 05839400 
PROCEDURE FORGETUSERDISKCAsN)3 VALUE AsNS REAL AsN 3 058647000 
PROCEDURE KRUNCHER(H)3 ARRAY HE*J)S FORWARD? %R5005849900 
PROCEDURE SCHEDLOOKCKTR,TYPE)3 VALUE KTR» TYPES REAL KTRe TYPES 05850000 
PROCEDURE SCHEDIDLECADR)3 VALUE ADR3 REAL ADRS 05856700 
PROCEDURE SCHEDIOCNUM,TYPF,ADR)3 &¥IF FORQUED THEN ONLY 1 PARAM, 05893000 
PROCEDURE DKBUSINESS(BUFF)3 VALUE BUFFS REAL BUFF3 %¥028"05950000 
SAVE PROCEDURE DISKIOCLOCLIODs»CORE,SIZEsDISKI32 06000000 
PROCEDURE FORGETESPDISKk¢S)3 VALUE SS REAL S3 FORWARD} 06020500 
REAL PROCEDURE GETESPDISK3% 06021000 
PROCEOURE FORGETESPDISKCSEGMENT)$ VALVE SEGMENTS REAL SEGMENT3S& 06036000 
PROCEDURE DI SKBUG% 06046000 
PROCEDURE CLEANOUTCSYS)3 06057340 
ENDS & OF PROCEDURE CLEANOUT 06059820 
SAVE PROCEDURE DISKWAITCCOREsSy;ZEsDISK)3 06064500 
PROCEDURE DrSKSQUASHC(BUFF)3 06068000 
SAVE PROCEDURE INITIALIZES FORWARD 06179400 
SAVE REAL PROCEDURE COREND? FORWARDS 06179600 
PROCEDURE USERDISKSPECIALCASECQeRe UT» J) $ 06350000 
PROCEDURE GETMOREOLAYDISKCMIX)33 06400000 
REAL PROCENURE SECURITYCHECKCMIDeFIDeUSERIDe HEADER) 3 06460000 
BOOLEAN PROCEDURE OUTWAYTCB)3 BOOLEAN B3 06467000 
REAL PROCEDURE OUTRAN9BO CADReNUM, TYPE es LCCeB)3 %10906500000 
REAL PROCEDURE OUTRANBJOSCADR»NUMsTYPE 2 Be TDS 06590000 
REAL PROCEDURE OUTRANTCCADRe NUM, TYPE s+ Be C23 06640000 
REAL PROCEDURE NEXTCDNUMCUPDATE)$ VALUE UPDATE? BOOLEAN UPDATES 07004600 
PROCEDURE STARTADECK(N)$ VALUE N# REAL N! FORWARDS 07002000 
PROCEDURE ENTERCONTROLDECK(H)? VALUE H# ARRAY Hr*)s FORWARDS 07002100 
PROCEDURE COM233% . 07004000 
PROCEDURE STARTLOADNCKTR)? VALUE KTR3 REAL KTR3% 07243000 
PROCEDURE TABLEOFCONTENTS(Be COUNT) 3 07268000 
PROCEDURE REMOVEDECK(N,U)S VALUE No US REAL Nous 07298000 
PROCEDURE DECKREMOVER(CB)3 VALUE Bs REAL BS 07354000 
BOOLEAN PROCEDURE READEMFROMDISK(Hs1B)3% 07376000 
BOOLEAN PROCEDURE PRINTORPUNCHWAI[TCQ@sPNCH)S VALUE @»PNCHFREAL QePNCHS 07405100 
PROCEDURE ENDOFDECK(R)$ VALUE R} REAL R&I 07406000 
PROCEDURE STARTADECK(N)$ VALUE Ni REAL N3 07422000 
PROCEDURE RUNTHEDECK(BIIVALUE BS REAL BAY 07457000 
PROCEDURE EXTERNALEND(B)! VALUE BS REAL B3 07473100 
PROCEDURE CHANGEPRIORITYCBUFFeMIX)# VALUE BUFF eMIX$ REAL BUFF eMIXI 07485000 
PROCEDURE ENTERCONTROLDECK(H)S VALUE HS ARRAY Hl *}3 07544000 
BOOLEAN PROCEDURE MTXIN(] »UsBUFF) 3% 08000000 
PROCEDURE TAPEPURGE(BUFF)$ VALUE BUFFS REAL BUFF3S 08024000 
PROCEDURE MIXPRINTCBUFF)S VALUE BUFFS REAL BUFFS 08058000 
PROCEDURE REWINDANDLOCKCWHAT)3 VALUE WHATS REAL WHATIZ 08079000 
PROCEDURE GIMEDATE(CBe0T)3 VALUE BeDTS REAL BeOTS FORWARD ZRH 08094500 
PROCEDURE PRINTDJRECTORYCBUFF)3 %D$%08095000 
PROCEDURE PBIOCAeP)3 VALUE AS REAL AeP3 FORWARD! %P 081704100 
PROCEDURE CONTINUITYBIT?% 08171000 
BOOLEAN PROCEDURE PRINTORPUNCHWAITCQsPNCHISVALUE Q+PNCHSREAL Q@sPNCHS 08255000 
% THIS PROCEDURE IS RESPONSIBLE FOR STARTING PRNPBT/DISK, IT CHECKS 08255055 
PROCEDURE PRINTBACKUPCBUFF)3 VALUE BUFFS REAL BUFFS ZP 08282000 

% THIS PROCEOURE HANDLES THE PB MESSAGEs MAKING THE NECESSARY CHECKS 08282110 
PROCEDURE T]MEQUT (B)s VALUE BS REAL 648 08305000 
PROCEDURE GIMEDATEC(BsDT)3 VALUE BeDTs REAL BeDT3 08317000 
PROCEDURE NISKLOGCMIDeFIDeH)s VALUE MIDeFIDeHSREAL MIDeF IDS ARRAY HE*JS 08344300 
PROCEDURE SETDATECBUFF)S VALUE BUFF3 REAL BUFF3¢ 08343000 
PROCEDURE CHANGEDATE(BUFF)3 VALUE BUFF? REAL BUFF3 08376000 
PROCEDURE SET]MEC(BUFF)S VALUE BUFFS REAL BUFF? 08390000 
REAL PROCEDURE FORMESS(BUFFeH1)# VALUE BUFF eH1s REAL BUFF eHy3 08418000 


PROCEDURE SUSTATUS(AsDDD»B)3 VALUE AsDDDeBi REAL AsBs ARRAY DDDE*]5 


PROCEDURE OUTPUTLABEL(B)! VALUE Bs REAL 83% 
PROCEDURE TIMEUSED(BsX)3 VALUE BeX) REAL BoX3% 
REAL PROCEDURE ANVILCTLoZ)3 VALUE JTLeZ3 REAL ThLeZsZ 
PROCEDURE SAVETHEUNIT(B)# VALUE 8% REAL BIS 
BOOLEAN PROCEDURE WHYSLFEPCMASK)$ VALUE MASKs REAL MASK} 
END PROCEDURE WHYSLEEPS 
PROCEDURE CHANGEOPTIONCRUFFE SRS) 2% 
PROCEDURE TYPOP(KTR,PO)? VALUE KTR»POS REAL KTRePO} 
PROCEDURE PBIOCALPHAsPOINTER)S VALUE ALPHA’ REAL ALPHAsPOINTERS 
% THIS PROCEDURE HANDLES 10 FOR THE CREATION OF BACK@UP FILES, 
PROCEDURE TIMFRELAXERCKTRe TYPE sMIX)32% 


PROCEDURE CHANGEFACTOR(BUFFsTF)S VALUE BUFFsTF3 REAL BUFFS BOOLEAN TF3 


PROCEDURE SHEETDIDOLERCBUFF + TYPE»S10)# VALUE BUFF eo TYPEr SIDS 
PROCEDURE LOGOUTS 

PROCEDURE LOGDISK3 

PROCEDURE LINEMESSAGES(BUFH)3 VALVE BUFH3 REAL BUFH3 


PROCEDURE CALLCANDECBUFHeTYPE2% VALUE BUFH» TYPES REAL BUFHe TYPES 


REAL PROCEDURE NEXTAUXMEMWORD(HEADERsF ILEPARAMsDISKADDRESS) I 
IF DISKADDRESS = O THEN & FIRST CALL ON PROCEDURE 
EX}T$ END PROCEDURE NEXTAUXMEMWORDS 


PROCEDURE TRANSFERMCPTOAUXMEMCHDRADRSeMAXLOC)S VALUE HDRADRSsMAXLOCS 


END PROCEDURE TRANSFERMCPTOAUXMEME 
PROCEDURE SETMONITORFILECSTOP)$ VALUE STOP3 REAL STOPS 
END PROCEDURE SETMONITORFILES 
PROCEDURE GETMON]TOROWS 
END PROCEDURE GETMON]TOROWS 

PROCEDURE ENTERSYSMTR(N)3 VALUE NS REAL NG 
QXiT! END PROCEDURE ENTERSYSMTR} 
PROCEOURE CHANGEAUXFILESCBUFF »WA)S 
PROCEDURE WHATINTRNSIC(B)3 VALUE B3 REAL 83 FORWARD: 
PROCEDURE INTRINSICTABLEBUILDER(FH)# VALUE FHS REAL FHS 
BOOLEAN PROCEDURE SYSTEMFILECA+B)s VALUE AsBs3 REAL Ao BS FORWARD!) 

PROCEOURE CHANGEINIRINSICFILECBUFF)S VALUE BUFFS REAL BUFFS 
PROCEDURE CHANGEMCP(BUFF)3 VALUE BUFF? REAL BUFFS 

BOOLEAN PROCEDURE SYSTEMFILECA,B)3 VALUE AsBS REAL ApBSE 

PROCEDURE WHATSGOINGON(CBUFH)S VALUE BUFHS REAL BUFH? 

PROCEDURE FENCEMOVER(Bs BUFF )3 

PROCEDURE LINECLEARCKTR)3 
REAL STREAM PROCEDURE GNCCB)32 
BOOLEAN STREAM PROCEDURE TANCE) § VALUE C 3% 

REAL PROCEDURE EXP3 

STREAM PROCEDURE FRMILCQeT»MeWB)$ VALUE Qe TeM3% 

PROCEDURE DT 
REAL PROCEDURE PRNPBTSPECASF1(2)3 


& THIS PROCEDURE HANDLES THE FOLLOWING FUNCTIONS FOR COM19» DEPENDING 


PROCEDURE PRNPBTSPECASF2¢(Z7)3 


% THIS PROCEDURE HANDLES ADDITIONAL THINGS FOR COM19, VALUES OF Z ARES 


PROCEDURE COM193 
PROCEDURE SPOSETC(TYPE»BUFH)3 
REAL PROCEDURE ANALYSIS32% 

SAVE INTEGER PROCEDURE ACTUALOVERLAYADDRESS(TYPEs MIX» LOC)3 

PROCEDURE AUXILTARYMEMORYCASUALTYRECOVERY? 

PROCEDURE AUXILTARYTABLEINITIALIZE3 
PROCEDURE MAKEPRESENT(C)$ VALUE C3 REAL C38 

PROCEDURE COM53% 

PROCEDURE ZIPPERCW1eWN2)3 VALUE WieW2? REAL Wi eW2e% 
REAL PROCEDURE EUFCAsBoL)$ VALUE AeBeL} REAL Ar Bol’ 
PROCEDURE COM113 COMMENT ALGOL [7/0 COMMUNICATE3® 

PROCEDURE DISPLAYCX)3 VALUE X3 REAL X3% 


06436900 
08439000 
08525000 
08546000 
08575000 
08599000 
08623000 
08624000 
08679000 
08700000 
08700940 
08730000 
08800000 
08850000 
09000000 
09050000 
09100000 
09300000 
09400100 
09404300 
09404300 
09404400 
09410000 
09410200 
09423600 
09423900 
09428800 
09428900 
09433500 
09433600 
09491000 
09500000 
09550000 
09600000 
09679100 
09700000 


%08%09800000 


09900000 
09955000 
10001000 
10007000 
10012000 
10047000 
10082000 
12500000 
12500110 
12800000 
12800110 
13000000 
13200000 
14000000 
14105000 
14420000 
14122000 
14155000 
14343000 
14531000 
14543000 
14623000 
15019000 


PROCEDURE ¢cOM13 3% 
PROCEDURE WHATSITCBUFH)? VALUE BUFH3 REAL BUFHS 
BOOLFAN PROCEDURE CONQUER(CaNelLoSeG)3 

REAL PROCEDURE BATCHSELECTCFeNsBelh)s VALUE FoeNS 
PROCEDURE COREPRINTCQ)3 


BOOLEAN PROCEDURE PRIGAMESC( BUFF sMIX)$3 VALUE BUFF eMIXS KEAL BUFF eMIX} 


PROCEDURE SPOUTMCPCBUFF)$ VALUE BUFFS REAL BUFF: 
PROCEDURE WHATINTRNSICC(BUFF)3 VALUE BUFF# REAL BUFF3 
REAL PROCEDURE AUXPRINT(Q)3 VALUE @3 REAL Q3 
END PROCEQURE AUXPRINTS 
REAL PROCEDURE KEYINSCANCKTReMIX)$ REAL KTRe MIX 
END PROCEDURE KEYINSCANS 
PROCEDURE KEY[NOCB,KTRX)3 VALUE BeKTRX3 REAL Bs kTRX3 
END PROCEDURE KEYINO3 
PROCEDURE KEYINiCBeKTRX)3 VALUE BekKTRXI REAL Ba kTRXI 
END PROCEDURE KEYINI3 
PROCEDURE KEYIN2CKTRX)3 VALUE KTRX3$ REAL KTRX3 
Z AUXILIARY PROCEDURE TO "KEYIN®, 
® THIS PROCEDURE IS CALLED AS AN INDEPENDENT RUNNER FROM 
% PROCEDURE "KEYIN"} 
END PROCEDURE KEYIN23 
REAL PROCEDURE KEYIN(B)3 VALUE Bs REAL Bs 
% THIS PROCEDURE FUNCTIONS AS A ORIVER FOR AUXILIARY PROCEDURES 
% THIS PROCEDURE FUNCTIONS AS A DRIVER FOR AUXILIARY PROCEDURES 
Z "KEYINO™,"KEYINI® AND "KEYIN2", PROCEDURES "KEYINO™ AND *KEYING" 
% ARE CALLED DIRECTLY» AND PROCEDURE "KEYIN2" IS FORKED AS AN 
END PROCEDURE KEYINS 
PROCEDURE LBMESSCFNeSNe lie 122be UNI TNOeX) 3 
PROCEDURE STOPMS 
PROCEDURE FILEHOLDC As Be TOGeLOCeHOLD)3 
REAL PROCEDURE DIRECTORYSEARCH(ArBe OPTN) 5% 
PROCEDURE COMMUNICATELS3 
PROCEDURE COMMUNICATEOS 
PROCEDURE SHORTCOMMUNICATESS 
PROCEDURE FRONTEND(MIX)3 
PROCEDURE SELECTRUNI3 
B2¥X THOSE DECLARED IN PROCEDURE SELECTRUN, 
THIS PROCEDURE WILL BFE EXECUTED, THIS PROCEDURE CAN ALSO 
THIS PROCEDURE WILL BE EXECUTED, THIS PROCEDURE CAN ALSO 
RETURNING TO THAT PROCEDURE, 
% PROCEDURE ONLY 
END PROCEDURE SELECTRUNLS 
PROCEDURE SELECTRUN23 
B2%% THOSE DECLARED IN PROCEDURE SELECTRUN, 
END PROCEDURE SELECTRUN23 
PROCEDURE SELECTRUNCF)S VALUE FS REAL FS 
$3%% VARIABLES DECLARED IN THyS PROCEDURE, 
PROCEDURES "SELECTRUNI™ AND/OR “"SELECTRUN2® WILL BE EXECUTED, 
PROCEDURE “"SELECTRUNI® AND "SELECTRUN2™ MAYs IN TURN» SPECIFY 
%% SEE ALSO "SEGMENT ZERO" SECTION IN PROCEDURE "SELECTRUN2" FOR 
PROCEDURE PRINTTHECOVERCCARDs UNI TNOePS)3 
PROCEDURE FETCHCUNTTNOsCARDLOC, SOURCE )3 
REAL PROCEDURE SCNCUNITNOsCARDLOCa SOURCE se ACCUMs KOUNTsLASTSCANg 
PROCEDURE SEEKNAM(ArBeCoDeEaN)3 VALUE AeBs REAL AeBoCoDeEoNI 
REAL PROCEDURE PPC 
PROCEDURE SECURLITYMAINT¢ TYPEeSMIDeSFI[D»CMMeSFHeCARD)? 
**#e* ALSO SEE PROCEDURE "SELECTRUNI® (SEQ,N0, 20055600) FOR 
REAL PROCEDURE LIBCC3 
END? & LIBCC PROCEDURE 
REAL PROCEDURE CCSET? FORWARDS 


15060000 


%$0$%15106500 


15168000 
15200000 
15300000 
15400000 
15500000 
15534000 
15605000 
15609600 
16029000 
16037900 
16038000 
16360000 
16361000 
16609000 
16610000 
16611000 
16612000 
16613000 
16950000 
16951000 
16951100 
16951100 
16951200 
16951300 
16971000 
17000000 
17900000 
18000000 
18155000 
16500000 
18700000 
19500000 


#R7519991008 


20011200 
20016400 
20018200 
20018200 
20018500 
20023000 
20080200 
20080500 
20085600 
20140300 
20140800 
20146000 
20147200 
20147300 
20176200 
20289010 
20292000 
20314000 
20382010 
20383000 
20511100 
20542600 
20566000 
20580350 
20580400 


PROCEDURE CCFINISH3 20580800 


REAL PROCEDURE CCCOMPILE3 20583800 
REAL PROCEDURE INITIALIZEIT3 20586700 
REAL PROCEDURE CCUNIT3 20589700 
REAL PROCEDURE CCSECMAINTS 20590850 
REAL PROCENURE CCLABEL} 20594850 
PROCEDURE CONTROLCARDCCARD)$ VALUE CARDS REAL CARD3 20597558 
REAL PROCEDURE CCSET3 20700000 
SAVE PROCEDURE SWAPCSTATE,B)$ VALUE STATEsBS REAL STATE,BS 21000100 
PROCEDURE REENTERCSTUFF)3 VALUE STUFFS REAL STUFFS 21005000 
PROCEOQURE BRINGBACKCMIX)3 VALUE MIX3 REAL MIX} 21012100 
SAVE PROCEDURE MCPINCS)$ VALUE S$ REAL S3 21013000 
PROCEDURE EXPANDERCMIX»R)3 21026500 
BOQLEAN PROCEDURE UNHOOKANDWAITCMIX»eMCP)$ VALUE MIXeMCPE REAL MIXsMCPE 21027000 
PROCEDURE HOOKUPMCP(MIX)$ VALUE Myxs REAL MIX 21100000 
PROCEDURE SWAPINGIOCMIXe#R)3 VALUE MIXeRS REAL MEXR} 21112000 
STREAM PROCEDURE MOVECNeHeT)3 VALUE Note TS 21116100 
PROCEDURE SWAPPER} 21200000 
PROCEDURE INITTALSWAPCN)S VALUE N$ REAL NB 24265000 
PROCEDURE FRONTEND(M1X)3 21293000 
PROCEDURE FXPANDERCMIX,eR)3 21313000 
PROCEDURE FINDFREEADDRESSCNIIVALUE NSREAL NIFORWARDS 22000500 
PROCEDURE NSECOND!% 22001000 
PROCEDURE STATUS3Y 22055000 
BOOLEAN PROCEDURE OLAYCLOC»MIXX)3 22228000 
SAVE PROCEDURE FORGETSPACEC(LOC) 32 24000000 
SAVE REAL PROCEDURE ACTSPACECSIZEsSAVEF eMIX)3 24032000 
SAVE INTEGER PROCEDURE DISKSPACECWORDSeMIX»AUX)3 24101000 
SAVE REAL PROCEDURE GETSPACECSIZEs TYPE» SAVEF)3 24300000 
PROCEDURE FINDFREEADDRESS(N)$ VALUE N3 REAL N3 24600000 
IF CFINDFREECTRisF INOFREECTR41) GE@® 32 THEN THIS PROCEDURE [S$ 24610000 

% CALLED FREQUENTLY SO MAKE 1T A SAVE PROCEDURE 24611000 

SAVE PROCEDURE DISPOSALcLetIeR)3 26000000 
PROCEDURE RUNSEPTICCBUFF)! 26060000 
BOOLEAN PROCEDURE B6500FORMATTER(CTo I »X*XXsBCheHe OPTION) $ 27990100 
PROCEDURE LIBRARYLOADSPECTALCASE(Z)3 VALUE Z3 REAL Z3 27997600 
PROCEDURE DOES INITIAL SET™UP AND OTHER SPECIAL FUNCTIONS 27997615 

PROCEDURE LIBRARYLOADS 28000000 
END! & OF LIBRARY LOAD PROCEDURE 28399000 
PROCEDURE LYBRARYDUMP? 28400000 
END} & LIBRARY MAINT, PROCEDURE 28730000 
PROCEDURE LIBRARYZEROS 28800000 
PROCEDURE FILLORKILLCAs STARTe SIZE» TYPE)3 29000000 
INTEGER PROCEDURE AUXILIARYSPACE(SIZE)3 29100000 
PROCEDURE FORGETAUXILIARYSPACECSIZEeL0C)3 29300000 
PROCEDURE AUXILIARYTABLEINITIALIZE3 29400000 
PROCEDURE AUXILIARYMEMORYCASUALTYRECOVERYS 29500000 
PROCEDURE FRRORMESSER¢(TYPE)$ VALUE TYPE# REAL TYPES 30903000 
PROCEDURE ERRORFIXERCTYPE)$ VALUE TYPES INTEGER TYPE3 34000000 
PROCEDURE SKIPFILECUsD)$ VALUE UsDs REAL UsD3 31100000 


REAL PROCEDURE FINDOUTPUT(MIDoF IDs TYPE eFORMSpREEL »COATES CYCLE KIND) 3% 37000000 
REAL, PROCEDURE FINDINPUTCMIDsF ID PREEL oCDATE SCYCLE sCOBOL®UL»OF eMODEsFN)# 37177000 


BROCEDURE STARTIMINGCFNeSU)S VALUE FNeUS REAL FNDUSS 37271000 
REAL PROCEDURE DISKADDRESS(CMIDeF IDs FPB3rArHe T0)3 % (SHM) 37286000 
BROCEDURE SETNOTINUSECU,RWL)S VALUE UsRWLS REAL UeRWL3 37302000 
PROCEDURE BLASTQC(U)3 37320000 
PROCEDURE BUILOLABELCLABLE eMIDeFID»REEL»CDATEsCYCLE®PFACTePTNeBLKODE +S 37337000 
PROCEDURE FILEMESSAGECI sKeMoF eRe Oo Ceo TYPE)? 37357000 
PROCEDURE FILLBUFFERSCCURRENTe FINAL» COBOLeNR) 3 37385000 


REAL PROCEDURE FILEHEADER(MID» FIDse NROWS, SIZE» BLENe RLENs S)3 37418000 


PROCEDURE PURGEITCU)S VALUE US INTEGER USS 37449000 
PROCEDURE KRUNCHERCH)3 ARRAY H(*)3 ¥R1737500000 
PROCEDURE NISKFILEOPENCALPHA)S VALUE ALPHAS INTEGER ALPHAES %R9038000000 
PROCEDURE OTHERFILEOPENINCALPHA)$ VALUE ALPHAS {NTEGER ALPHAS 36302000 
PROCEDURE OTHERFTLEOPENOUTCALPHA)# VALUE ALPHAS INTEGER ALPHAS 38200000 
PROCEDURE DYSKCLOSECALPHA)’ VALUE ALPHA’ INTEGER ALPHAS% %R9038355000 
PROCEDURE BACKCLOSECALPHA)$ VALUE ALPHA’ INTEGER ALPHA3SS ZR9038540000 
PROCEDURE OTHERCLOSECALFHA)$ VALUE ALPHA! JNTEGER ALPHA? ¥R9038648000 
PROCEDURE FILEOPENCXTRA,ALPHA)S %R9039000000 
PROCEDURE CREATELOGC(DDD)% VALUE DDDS ARRAY DDDE*]3 39500000 
PROCEDURE SUSTATUSCAsDDD»B)3 VALUE AsDDDeBS REAL AeBs ARRAY DODE*)3 39900000 
PROCEDURE DyRECTORYBUILDERCAsDDD)3 40000000 
PROCEDURE REALFILECLOSECALPHA)’ VALUE ALPHAS INTEGER ALPHASS %R9041000000 
PROCEDURE LINKUPCTYPEs®KEY)3 VALUE TYPE*KEYs REAL TYPES KEY 41310100 
PROCEDURE CHECKJOBORFILEMESSCMIXOFIBe)3 41312000 
PROCEDURE LOGOUTMAINT(B)3 VALUE Bs REAL B3 41316000 
PROCEDURE MAINTLOGGER(B)$ VALUE B% REAL B3 41327000 
PROCEDURE MESSAGETABLEBUILDERS 41430000 
(2436 ] = = KEYIN PROCEDURE TO BE CALLED = 41450900 

OQ = PROCEDURE KEYINO (¢ DIRECT CALL ) 41451000 

1 = PROCEDURE KEYING € DIRECT CALL ) 41451100 

2 © PROCEDURE KEYIN2 € INDEPENDENT RUNNER ) 41451200 

(36812) = LABEL NUMBER (€ SWITCH LOCATION IN PROCEDURE ) 41451900 

Lae 7 7 mals BeeB END OF FIRST KEYIN PROCEDURE CALLS 41459900 

“Lan 7 7Tau”, Ze*% END OF SECOND KEYIN PROCEDURES 41469900 
PROCEDURE ENTERSYSFILECN)S VALUE N3 REAL N3 41600000 
PROCEDURE ARTN(CAsN)} VALUE AsN3 ARRAY AC*J3 INTEGER N3 42474000 
PROCEDURE ASR3 BEGIN INTEGER IeBCNTRS ARRAY AITL*#]$ REAL TEMP3S% 42482000 
SAVE REAL PROCEDURE COREND! FORWARD; 42509000 
PROCEDURE INTERRUPTCTYPE)$ VALUE TYPES REAL TYPE? 42510000 
PROCEDURE FILLSYSTATS 42600000 
PROCEDURE SAVESTATISTICS3 42700000 
PROCEDURE INTFINISHS FORWARDS 44008998 
SAVE PROCEDURE INITIALIZES 44009000 
+ (T « % FIXEX PROCEDURES 44152500 

SAVE REAL PROCEDURE CORENDS% 44441000 
PROCEDURE INTFINISH 45000000 
PROCEDURE AND EXPECT IT TO RETURN WITH THE SAME VALUES 45997000 


pee 


ee 


LABEL OOQOOOOOOPRINTEROO175122CC EX OBVECT/READIFILE SOURCEFILE*SSYMBOL/TSSMCPSEND®} OBJECT /READ 


ae Teen ibn a _ ao wk pie a aS ae 
ever tar nn a See eS a on ere ere 
Boies seta. Sc hat ac a a ee Daa Se ees ee a ee 
eae ne — et ne ee = _ ir ae 

ios Oe 
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a ie 
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' 


% 
: B5700 TS*>MCP MARK XV,3,00 O2/07/74 
$ SET OMIT = NOTCDEBUGGING) 
$ SET CHECKLINK DUMP SAVERESULTS 
$ POP OMIT 
$ SET OMIT = DFX 
$ RESET DKBNODFX 
$ POP OMIT 
BEGIN 
COMMENTS * TITLE? B5500/B5700 MARK XV SYSTEM RELEASE 
* FILE I1D% SYMBOL/TSSMCP TAPE ID! SYMBOL1/FILE000 
* THIS MATERTAL IS PROPRIETARY TO BURROUGHS CORPORATION 
* AND 1S NOT TO BE REPRODUCED» USEDe OR DISCLOSED 
* EXPECT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 
* WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF 
* BURROUGHS CORPORATION» DETROIT» MICHIGAN 48232 
* 
* COPYRIGHT (¢) 19715 19726 1973 BURROUGHS CORPORATION 
* AA320206 AA393160 


DEFINE MIXMAX#®298; 

DFFINE MAXLMAX246#;3 

REAL LMAX) 

$ SET OMIT = TWXONLY 

REAL STAMAX}3 

$ POP OMIT 

$ SET OMIT = NOTCTWXONLY) 
DEFINE STAMAX=LMAX#E3 

$ POP OMIT 


DEFINE FREG#5#; REMEMBER TO CHANGE THIS DAMN THING IF MORE BED STUFF 


DEFINE MARKLEVELS % MARK LEVEL IN ALPHA 
"xXvV,3" 
#» PATCHLEVEL= 2 PATCH RELEASE LEVEL IN ALPHA 
"oor 
#»e LOCALEVEL# *# LOCAL LEVEL IN ALPHA 
e w 
#3} 
DEF INE MCPTYPE = 638» 
DCINTYPE = 628» 
TSSINTYPE = 6143 


COMMENT THE ESPOL COMPILER APPROPRIATELY TYPES THE MCP & 
INTRINSTICS FYLE HEADERS SO THAT A VALIDITY CHECK MAY BE MADE 
DURING INITIALIZATION AND AT Cr AND CM TIME, HEADERK[4]),(3696] 
1S THE FIELD USED TO CONTAIN THE TYPES 

DEFINE ESAD w (13815)8, 

UNUM = (1635)#, 
BYBYCBYBY1eBYBY2) «& 
BEGIN STREAMCASSSPACE(10)3 3 
BEGIN DII2A3 DSteBYBY2 LIT BYBY13 END} 
PUNTCO)3 
END#3 
DEFINE RESERVEDISKSIZE=200083 
DEFINE TRACESIZE*308#3% 
$ SET OMIT = NOTCSAVERESULTS OR DEBUGGING) 


ARRAY RESULTHOLDER(*]$ INTEGER LASTRESULT# % HOLDS LAST DC RESULT DESC 


DEF INE 
RESLTMAX=128#, % MUST BE A POWER OF TWO 


eee RHR HE HE EH 


=e 


00000010 
00001000 
00002000 
00002100 
00002110 
00002120 
00002160 
00002170 
00002180 
00003000 
00003010 
00003011 
00003012 
00003013 
00003014 
00003015 
00003016 
00003017 
00003018 
00003019 


%R1300004000 
2R1300004500 
%R1300004600 


00004699 
00004700 
00004701 
00004799 
00004800 
00004801 
00005000 
00005010 
00005020 
00005030 
00005040 
00005050 
00005060 
00005070 
00005100 
00005120 
00005140 
00005160 
000051860 
00005185 
00005190 
00005200 
00005210 
00005220 
00005230 
00005240 
00005250 
00005260 
00005300 
00006000 
00006299 
00006300 
00006400 
00006500 


BS oe coe eno eney mot eme ene eU Eee AND CRESLTMAX"1)1#300006600 


 $ POP OMIT 
REAL JUNK=53% 


00006601 
00007000 


4 2 
= or a = aa on 


COMMENT TO ADJUST THE PRIORITYs COKE ESTIMATEs AND STACK SIZE 
OF LIBMAIN/DISKs SEE SEQUENCE NUMBER 395990003 
LABEL GOGOGOsNORMALERROR»P2BUSYeTIMERP EXTERNAL e INQUEST» 
PROCSWITsP2FAKE sKEYBOARDREQUE ST»®RETURNe COMINI Tp MEMORYPARITY 
} 
DEFINE MARK = "0"#} 
DEFINE LEFTARROWS* «#3 
DEFINE SHEETMAX=9#} 
DEFINE GETUSERDISKCGETUSERDISK1L)SPETUSERDISKCGETUSERDISK120) 83% 
$ SET OMIT = NOTCOUMP OR DEBUGGING) 
DEFINE DUMPNOWCDUMPNOW]) & 
DUMPCORE CDUMPNOW1&8(SPACE(22)4190153332815))83 
$ POP OMIT 
INTEGER RRRMECH#O@2013% 
DEFINE 
$ SET OMIT = AUXMEM 
SPACESTACKSIZE = 8083 
$ SET OMIT = NOT AUXMEM 
SPACESTACKSIZE = 100#3 
$ POP OMIT OMIT 
SAVE REAL PROCEDURE GETSPACE(CSIZEsTYPEsSAVEF)3 
VALUE SIZEs TYPE sSAVEF 32 
INTEGER SIZEe TYPES 
BOOLEAN SAVEF$ FORWARD 3% 
SAVE REAL PROCEQURE WAITIOCIOD*MASKeU)3% 
VALUE JODeMASKsUS REAL [OD*MASKoU3 FORWARD? 
PROCEDURE ERRORFIXERCTYPE)$ VALUE TYPES REAL TYPE? FORWARD? 
SAVE PROCEDURE SLEEPCADDRESS# MASK) 3% 
VALUE ADDRESS»MASKS NAME ADDRESS$ ARRAY MASK[4*]3 FORWARD3S2 
REAL PAIMIXeP2MIX3 & SEF 01061500 
LABEL SLATESTARTER} 
REAL LOGLINE3 
REAL LOGLINE23 


REAL NTIBOLGOONT2RO161 NT 3=@1629°NTOPOLO3IPNT SEO LEAINTOSO@LOS ONT 7301663 


COMMENT NTL THRU NT7 ARE USED BY THE MCP FOR TEMPORARY STORAGEs 


WF 


00007200 
00007210 
00008000 
00009000 
00010000 
00011000 


30800011500 


ALL PROCESSES THAT USE THESE VARIABLES ASSUME THAT IF CONTROL 


1S LOST» THEIR CONTENT MAY HAVE BEEN CHANGED BY THE TIME 
THAT CONTROL 1S REGAINED, 

END COMMENTS 

REAL MCPBASE3 

COMMENT MCPBASE CONTAINS THE DISK ADDRESS COCTAL) UF THE BEGINNING 


OF THE MCP THAT 1S CURRENTLY IN USE, THIS ADDRESS JIS PASSED TO 
THE MCP BY THE LOADER ROUTINE AT EACH HALT/LOAD IN MC0],(18%30),00024220 


WHEN THE ESPBIT ROUTINE IS CALCULATING THE DISK ADDRESS 
OF AN MCP SEGMENT, IT ADDS MCPBASE 10 THE ADDRESS THAT 
IS CONTAINED IN THE PRT CELL FOR THAT SEGMENT, 
END COMMENTS 
LABEL NOTHINGTODOSINITIATEs START sSTACKOVERFLOWs J OBUSY3 
SAVE PROCEDURE MCPINCS)3 VALUE S# REAL SSFORWARDS 
$ SET OMIT = NOTCNEWLOGGING) 


SAVE PROCEDURE LOGTIMINGCMIXeB)* VALUE MIXsB? REAL MTXeBs FORWARDIS 


DEFINE STARTLOGSLOGTIMING#, 
— —— STOPLOGCSTOPLOG1 »sSTOPLOG2)SLOGTIMINGCSTOPLOG1»*C(STOPLOG2))#3 
$ POP OM|T 
&$ SET OMIT s&s NEWLOGGING 
DEFINE STARTLOGCSTARTLOG{sSTARTLOG2)s 
PROCTIMELSTARTLOGI J] «C*#PC( DUP) )*CLOCK*®PCRTR)#, 
STOPLOGCSTOPLOG!] ¢STOPLOG2)= 
al cakes PROCTIMEELSTOPLOG!] «CmP( DUP) )#+CLOCK4+PCRIR) #3 
$ POP OMIT 


00012000 
00012001 
00012159 
00012160 
00012165 
00012166 
00013000 
00013850 
00013860 
00013870 
00013880 
00013890 
00013900 
00014000 
00015000 
00016000 
00017000 
00018000 
00019000 
00019500 
00020000 
00021000 
00021700 
00022000 
00023000 
00023500 
00024000 
00024010 
00024020 
00024030 
00024040 
00024050 
00024100 
00024200 
00024210 


00024230 
00024240 
00024250 
00024260 
00024270 
00024500 
00024999 
00025000 
00025100 
00025200 
00025201 
00025299 
00025300 
00025400 
00025500 
00025600 
00025601 


SAVE PROCEDURE ESPBIT3 


COMMENT PRESENCE BIT ROUTINE FOR ESP SEGMENTS 3% 00025900 


BEGIN REAL PRTLOCsSYLLABLE3 00026000 

REAL RCWE403 00029000 

00030000 

$ SET OMIT # NOTCNEWLOGGING) 00030099 
BOOLEAN LOGTURNEDOFFS 00030100 
STOPLOGCPIMIX01)3 LOGTURNEDOFFePS 00030200 

$ POP OMIT 00030201 
PRTLOC#CRCW INX O)V&RCWL3081082)3% 00031000 

STREAMCRSLT#£ SYLLABLE J»CLePRTLOC) 3% 00032000 

BEGIN S]#CLs SI*Sl°2s DIeRSLT3 DieDI +63 DSe2 CHR £€NDI00033000 

PRTLOC * JF SYLLABLE THEN NT43% 00034000 

ELSE SYLLABLE,(36!10]3% 00035000 

MCPINCPRTLOC)$ 00036000 

$ SET OMIT = NOTCNEWLOGGING) 00053099 
IF LOGTURNEDOFF THEN STARTLOGC(PIMIX#0)3 00053100 

£ POP OMIT 00053101 
POLISHCO*#RDF eO0eXCHeFCXeSTS) 3% 00054000 

GO TO POLISHCMEMORYEPRTLGCI)3% 00055000 

GO TO START# % PLACE DESC,.IN PRT FOR MCP TO AUXMEM TRANSFER 00055100 

END ESPBIT3% 00056000 

LABEL FINDIT; 00057100 
REAL RESULT1#12 eRESULT2813 sRESULT3#14 eRESULT4315 33% 00058000 
00059000 

DEFINE SIJZES( 8110) #> FILEBITECisS i J #eOWNBITS(224)#0% 00060000 
DIMENSTONS#( 385] #eBLKCNTR=C6i10)#sMOME(18515] #eCURBLKCNTR2=1649% 00061000 
ALTNDXS68ePBITS(211)]#3% 00062000 

DEFINE Frajdsi5ee% 00063000 
MSFF & (i631) #- 00063100 
CFe33¢15#0% 00064000 
CTFR16833815e9% 00065000 

FTF SLBt16s158ek 00066000 
CTCH33833115H0% 00067000 
FTCH338188158> #PB00067100 
DELTAR11#3% 00068000 

REAL CLICKS 00069000 
ARRAY TARC#)]3; BCONTAINS TOGLE BITS SET BY EACH 0B 00079100 
DEFINE LOCKTOGCLOCKT0G1)= BEGIN TOGLEtsTOGLE AND NOT LOCKT0G13 00079200 
TARCPIMIXJ&STARELPIMIX) OR LOCKTOGIS ENDS 00079300 

DEFINE UNLOCKTOGCUNLOCKTOG1)® BEGIN TOGLES*TOGLE OR UNLOCKTOG13 00079400 
TARECPIMIXJ#STARCPIMIX) AND NOT UNLOCKTOG13 END#3 00079500 

REAL TOGLE3 00080000 
DEFINE HP2TOG = TOGLE,C4781J#2 HP2MASK = e@1# 00080100 
»STATUSBIT ® TOGLE,(4681)]#* STATUSMASK = e@2# 00080200 
»SHEETFREE ® TOGLE+(4581)#» SHEETMASK = e4t 00080300 
eSTACKUSE ® TOGLE,(C4481)#» STACKMASK =z 8108 00080400 
P#USERDISKREADY® TOGLEe(42tiJ#e USERDISKMASK= @408 00080600 
»HOLDFREE = TOGLEs(4191)#» HOLDMASK = ©1004 00080700 
*NSECONDREADY *® TOGLE,(4081)#» NSECONDMASK = ©2008 00080800 
»SYSDISKTOG & TOGLEs(3981]#» SYSDISKMASK = @400# 00080900 
eNEEDSELECT = TOGLEs( 368134 00080950 
eKEYBOARDREADY *® TOGLEs(37¢1)#e KEYBOARDMASK =@2000# 00081000 
»NOBACKTALK = TOGLEs[3681]#» NOBACKTALKMASK=@400048 000861100 

e INTFREE ® TOGLEsC3481)]#0 FREEMASK Fe200008 00081300 
»WORKING © TOGLE,(3381]# 00081400 
eCANDEINPUTREADY= TOGLE»(32%1)# % WONT WORK FOR MULTIPLE C&ES 00081410 
»AREARDY = TOGLE,(2681]#* AREARDYMASK = @10000000#8 00081500 
»AREASNEEDED = TOGLE,(25#1)# 00081600 
oMCPFREERTOGLE, [C2481 )#» MCPMASK@400000008 00081670 

% USED TO PROTECT DISK SEGMENT ZERO 00081675 


eSCRATCHDIRECTORYREADY = TOGLE.C2331)#e 

SCRATCHDIRECTORYMASK = ®100000000# 
% USED TO PROTECT THE SCRATCHDIRECTORY 

#FINDINGADDRESS#TOGLE, £2201] 2 


® SET TRUE WHENEVER THE INDEPENDENT RUNNING ROUTINE 
2 "FINDFREEADDRESS”® JS STARTED SO THAT ONLY ONE COPY 


% WILL BE RUN AT ONE TIME, 
PCDFREE=TOGLE,L2181]#e CDMASK=@4000000008 
% SET TRUE WHEN CONTROL DECK QUEVE IS FREE 


»sNOMEMTOG 
»NOMEM 


= TOGLE,(2031)# %& ON IF NOMEM SINCE LAST NSECOND 
% 16:2 = COUNTER FOR NSECOND 


= [18s3)# 


#SEPTICTANKING = TOGLE.C1331)# 
*DIRECTORYTOG = TOGLE,[i2si)# 


sDIRECTORYMASK 


= #@4000000000008 


$ SET OMIT ® NOTCSTATISTICS) 
oPBUSY = TOGLEL4ti)s 


$ POP OMIT 


5 
STREAM PROCEDURE MOVECN)*WORDS FROM*CHERE "TO" C THERE 23% 


COMMENT 


VALUE NeHEREs THERES 


BEGIN LOCAL NOIV643% 


ST*LOc NS DI*LOC NDIV64s ST*#S1+63 DleDI+73 DS*t CHR; 


SI*HERES 


DI*THERES% 


WILL MOVE O TO 4095 WORDS3% 


NDIV64(DS#"32 WHOS DS*32 WDS)S DS#N WSs 


END MOVE$% 


PROCEDURE STOPM3 FORWARD$ 
LABEL DIFFCOMS 
$ SET OMIT = NOTCAUXMEM OR MONITOR) 


PROCEDURE SETMONITORFILECSTOP)S VALUE STOP; 


PROCEDURE GETMONITOROWS FORWARD} 
$ POP OMIT 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


FORWARDS % 


LOGDISKs FORWARD: 


REAL STOPS FORWARD; 


LINEMESSAGESC(BUFF)3 VALUE BUFFS REAL BUFFS FORWARDS 
VALUE BUFFS REAL BUFFS FORWARD? 


WHATSGOINGONCBUFF )3 


CHANGE INTRINSICFILE (BUFF )3 


VALUE BUFFS 


CHANGEMCPCBUFF)3 VALUE BUFFs REAL BUFFS FORWARDS) 


PRINTDIRECTORYCBUFFIS VALUE BUFF 


REAL BUFFS FORWARDS 


MIXPRINTCBUFF)S VALUE BUFF? REAL BUFFS FORWARDS 
SAVE PROCEDURE FORGETSPACECLOC) 3% 
VALUE LOCESZ 
REAL LOC#S 


DEFINE WAITSTORECWAITSTORE 1 )& 

IF NOT MEMCWAITSTORE1,0),01731] THEN 
SLEEPCEMEMEWAITSTOREL©O) e081 01784781) ) #3 

DEFINE STOREDYCSTOREDY1JSMEMESTOREDYI 0) ,Ci7 si jes 

ARRAY UVROWE*)3 


ARRAY UV 


= UVROW( ¥e%)3 


ARRAY UV3 # UVROW( eeueuds 


COMMENT THE FOLLOWING ARE ALL DEFINES FOR CONTENTS OF UV ARRAY 
DEFINE ELAPSEDLIMITECELAPSEDLIMIT1) 
PROCLIMITCPROCLIMITL) 


JOCOUNTELIOCOUNT)) 
TOPSKLTOPSK1] 
VSERCODELCUSERCODE1) 


CELAPSEDLIMIT1+e OJ#» 
CPROCLIMITL» 1J]#> 
CIOCOUNT1»® 218. 
[TOPSK1s 3) #> 
CUSERCODEL» 4) ke 


PRYORCPRYOR)) UV CPRYOR1>. 5Sjé#e 
FSROWCFSROW1) UV CFSROW1s 638s 
FSEFS1eFS2) UVIEF SIL e60FS2) 4» 
FPBOCFPBD1) UV CFPBD1e 7)#e 


REAL BUFFS FORWARD; 


3 


00081680 
00081690 
00081695 
00081700 
00081705 
00081706 
00081707 
00081710 
00081711 
00061720 
00081725 
00081972 
00081974 
00081976 
00081979 
00081980 
00081981 
00081999 
00082000 
00083000 
00084000 
00085000 
00086000 
00087000 
00088000 
00089000 
00089100 
00089200 
00089509 
00089510 
00089520 
00089521 
00089530 
00089540 
00089550 
00089560 
00089570 
00089590 
00089600 
00090000 
00094000 
00092000 
00093000 
00093100 
00093200 
00093300 
00093400 
00095000 
00095100 
00095200 
00095300 
00095400 
00095500 
00095600 
00095700 
00095800 
00095900 
00096000 
00096100 
00096200 


SEGDCSEGD1) 
SINFOCSINFO!) 
DALOCROWLDALOCROW1 J 
DALOCCDALOCL»DALOC2) 
JOTIMECIOTIMEL) 
INTABLEROWCINTABLEROW1 J 
INTABLECINTABLE1*+INTABLEQJ 
PROCTIMELPROCTIME? ) 
EVENTCEVENT) 
LOGSTOPPEDLLOGSTOPPED1) 
NEXTICNEXTI1) 
NEXT2CNEXT21) 
OLAYCTREOLAYCTR1) 
MCPROCTIMECMCPROCTIME1) 
MCPIOTIMEEMCPIOTIME!S]) 
UVMAX & 2183 


$ SET OMIT @ STATISTICS 
DEFINE UVSIZE = UVMAX#; 
$ POP OMIT 


$ SET OMIT #* NOTCSTATISTICS) 


DEFINE UVSIZE & 35#3 
DEFINE SWAPS(SWAPS1) 


SWAPOUTSLSWAPOUTS1 J 
CODEPBITSCCODEPBITS1) 
DATAPBITSEDATAPBITS1] 
CODEQOLAYSCCODEOLAYS1) 
DATAOLAYSCDATAOLAYS1) 
CORETIMELCORETIME1) 
TIMINGCTIMING1] 
MORECPBITSCMORECPBITS1) 
READYQUETIMELREADYQUETIME1 J 
QUETIMINGCQUETIMING) 


INITIALROTIMECINITIALRGTIMEL] 


MOREDPBITS(CMOREDPBITS1) 
QLAYUSEDLOLAYUSED1) 
STATUVMAX & UVMAX4 (483 


$ POP OMIT 


REAL DATE=@1673 
COMMENT DATE CONTAINS TODAYS DATE3% 
REAL CLOCKs@1703 
REAW XCLOCK#@1713 


COMMENT CLOCK CONTAINS THE NUMBER OF TIME INTERVAL INTERRUPTS2 


Huu HRKH AH RAN HEH ROU 


Huan th a Rane he HH HOW 


UV CSEGD1» 8)#» 

UV LSINFOL* 9]ke 

UV COALOCROW1» 10) #>» 
UV3EDALOCL &#109DALOC2) 4» 
UV CIOTIMEL>® 11) 86 

UV LEINTABLEROWL® 12)#>9 
UV3CINTABLE1912*INTABLE2J]#> 
UV CPROCTIME1> 13]#e 

UV CEVENTL«o 14)#. 

UV CLOGSTOPPEDis 15]8, 
UV CNEXTIilLe 16]8 e 

UV CNEXT21>6 17) #. 

UV COLAYCTR1ie 18) #>» 

UV CMCPROCTIME1*® 19) #» 
UV CMCPIOTIME1L*® 20) 8s 


UV CSWAPS1+e 21] #>» 

UV CSWAPOUTS1» 22) 8. 

UV [CODEPBITSt+» 23]#e 

UV CDATAPBITS1» 24]4, 

UV LCODEOLAYS1» 2518. 

UV [LDATAOQLAYS1» 26) #,» 

UV CCORETIME1Ls 27)#» 

UV CTIMINGL» 28)8> 

UV EMORECPBITS1* 29) #, 
UV CREADYQUETIMELe 30)#» 
UV CQUETIMING1» 31) #, 

UV CINITIALRQTIMELe 32)8. 
UV [MOREDPBITS1» 33)#. 
UV COLAYUSED1» 34)#> 


PROCESSED SINCE HALT*LOAD IN 9°413% 
REAL READY*@41723 


COMMENT READY CONTAINS THE CONTENTS OF THE READY REGISTER ONS 


THE LAST READ3I2& 


COMMENT STATUSBIT IS FALSE IF THE STATUS ROUTINE 


00096300 
00096400 
00096500 
00096600 
00096709 
00096800 
00096900 
00097000 
00097100 
00097200 
00097300 
00097400 
00097500 
00097600 
00097700 
00099000 
00099999 
00100000 
00100001 
00400099 
00400100 
00100200 
00100300 
00100400 
00100500 
00400600 
00100700 
00100800 
00100900 
00101000 
00101100 
00101200 
00101300 
00101400 
00101500 
00102000 
00102001 
004111000 
00112000 
00113000 
00114000 
00115000 
00116000 
00121000 
00422000 
00123000 
00124000 


1S RUNNING ANBOO125000 


TRUE OTHERWISE, THIS PREVENTS TWO COPIES OF STATUS FROM% 00126000 


RUNNING TOGETHERS4 


ARRAY PRICL#¥o4¥J]3% 
COMMENT PRTICITe*) CONTAINS A DATA DESCRIPTOR WITH PROPER SIZES 


FIELD POINTING AT PRT FOR JOB WITH MIX INDEX # [38 


ARRAY PRTROWSPRIL*)3 


B MIXMAX413 


COMMENT PRTROW IS DOPE VECTORS FOR PRT3% 


ARRAY JAR(¥a¥)3% 


JAR HOLDS INFO OF JOBS IN PROCESS 
ARRAY INTRNSC(#)3 REAL INTSIZE3% 


RE*ENTRANT INTRINSICS ON USER DISK 


._ DEFINE REENTRANTINTABLEMAPCREENTRANTINTABLEMAP 1) 
BCPCREENTRANTINTABLEMAPL*®DUP) AND 15)" (PCACH)82)x283 


00127000 
00328000 
00129000 
00130000 
00131000 
00132000 
00133000 
00134000 
00135000 
00135300 
00135310 


Sean eenn nae ten et ae ene A ea a ane et ee ened 


fate eae Ie ete ree Meee 


COMMENT THIS DEFINE MAPS THE VALUES 29@21°@24 INTO OU THRU 4. 
IF USED FOR NON*REENTRANT INTRINSICS IT MAY DO STRANGE THINGS, 
IT MUST BE CHANGEN IF OTHER INTRINSICS ARE DESIGNATED AS 
REENTRANTs 3 


& THE INTABLEROW FOR JOBS ABOVE THE FENCE IS NOW AS FOLLOWS: 
% WORDS O AND 1 ENTRIES FOR REENTRANT INTRINSICSe AS IN 
% BATCH MCPs» EXCEPT FOR ABOVE MAPPING. 

% WORDS 2 THRU N ENTRIES FOR PRESENT TYPE 13 INTRINSICS3 


& CFF) = INTRINSIC NUMBER 
rs [CF] = CORE ADDRESS 
DEFINE INTI3SIZE * S#» BSIZE OF TYPE 13 INTABLE PORTION 


INTI3START © 2#3 ZFIRST ENTRY IN TYPE 13 INTABLE PORTION 
ARRAY SHEET(#]3 & 5% 
’ TOGGLES FOR INTEGERLOCKING THE CLOSET & SHEETS 
ARRAY JARROWRJARL*)3 Bo MIXMAX41% 


DEFINE TARCNTETABCNT1) = JARROW(CTABCNTLIGCFFI#S 
COMMENT TABCNT IS THE NUMBER OF PROCESSES WHICH HAVE CHECKED 
YARROW AND ARE CURRENTLY ACCESSING MIX TABLES, IT ASSURES 
THAT THE TABLES DONT VANISH BENEATH THOSE PROCESSESS 


00135320 
00135325 
00135330 
00135335 
00135340 
00135350 
00135360 
00135370 
001353860 
00135390 
00135400 
00135500 
00136000 
00137000 
00138000 
00138100 
00138110 
00138120 
00136130 
00151000 


COMMENT STACKUSE [S$ TRUE IF THE INDEPEDENT STACK IS NOT IN US£*e00152000 


OTHERWISE FALSES% 
BOOLEAN NOPROCESSTOG32 
COMMENT NOPROCESSTOG IS TRUE IF NORMAL STATE PROCESSING IS% 


00153000 
00154000 
00155000 


ALLOWEDse OTHERWISE IT IS FALSE. IT IS USED BY OVERLAY AND00156000 


OTHERS TO PREVENT CONFUSION; 
REAL WITCHINGHOUR® WORDOFEASES 
COMMENT THESE USED TO BE CONSTANTS IN THE OUTER BLOCK BUT WERE 
MOVED HERE SO EVERYONE COULD USE THEM, THEY CONTAIN? 
WITCHINGHOUR 5184000 
WORDOFEASE @2525292525252525 


5 
ARRAY JSTACKE*)3 
COMMENT THE INDEPENDENT STACK3% 
$ SET OMIT & NOTCNEWLOGGING) 
BOOLEAN LOGTURNEDOFF#473 % FOR NOTHINGIODO TO USE 
SAVE PROCEDURE LOGTIMINGCMIXeB)3 VALUE MIX*sBs REAL MIXeB3 
BEGIN | 
COMMENT THE CONTENTS OF THE PARAMETERS ARE AS FOLLOWSS 
MIX | MIX INDEX OF PROCESS 


] 1=STOPLOGGING O#STARTLOGGING 
1] 1#RTN O=XIT 


- co © 


IF MIX30 THEN 
IF 8 THEN PCOeRTN)D ELSE PCXIT)3 
IF Belitl1) THEN 
BEGIN % STOPLOGGING 
IF LOGSTOPPEDEC MIX) THEN 
BEGIN 
i B THEN PCOeRTN) ELSE PCXIT)3 
ENDS 
PROCTIMECMIXJ «CPC DUP) )+CLOCKSPCRTR)S & OFF 
LOGSTOPPEDC(MIX]e13 


IF B THEN PCieRTN) ELSE PCXIT)3 
END ELSE 
BEGIN % STARTLOGGING 
IF NOT LOGSTOPPED( MIX] THEN 
BEGIN 
PCXIT)$ 


00157000 
00157500 
00157600 
00157700 
00157800 
00157900 
00158000 
00159000 
00160000 
00165009 
00165030 
00165050 
001465070 
00165090 
00165130 
00165150 
00165160 
00165170 
00165190 
00165210 
00165230 
00165250 
00165270 
00165310 
00165330 
00165350 
00165370 
00165390 
00165410 
00165430 
00165450 
00165470 
00165490 
00165510 
00165530 


ENDS 00165550 
LOGSTOPPEDLMIXJ«O3 00165570 
PROCTIMELMIX]«(#P(DUP))*CLOCK*PCRTR)$ % ON 00165590 

END} 00165610 

END LOGTIMINGS 00165630 
$ POP OMIT 00165651 
DEFINE EUIOHOLDERSDIRECTORYTOP"S#e 00165800 
EUTAPER®, 984 00165810 
DISKAVAILTABLEMAX™1 3083 00165820 
INTEGER NEUPs ARRAY EUIOP x33 ARRAY PEULOC®) 5 00166000 
$ SET OMIT & NOTCSHAREDISK ) 00166002 
INTEGER AVS 3 00166003 
$ POP OMIT 00166004 
$ SET OMIT & SHAREDISK 00166005 
ARRAY AVTABLEL*] 3 00166006 
$ POP OMIT 00166007 
COMMENT NEUP)LCF) CONTAINS THE NUMBER OF EUS ON OKA, 00166010 


NEUPsNEUF CONTAINS THE TOTAL NUMBER OF EUS ON THE SYSTEM, 00166025 
EUIO AND PEUIO CONTAIN THE [*0 TIME USED BY A GIVEN EU, 00166030 
THIS INFORMATION IS USED BY GETUSERDISK IN AN ATTEMPT TO 00166040 


MINIMIZE EU CONFLICT 00166050 

ARRAY CHANIOC#]3 %R5900169000 
ARRAY CHANNEL(C#)3 & 5% 00170000 
COMMENT CHANNELETJ CONTAINS LOGICAL UNIT OF LAST DESCRIPTORS 00171000 

SENT QUT ON CHANNEL 13% 00172000 

ARRAY FINALQUE(*]3 & 324 00173000 
ARRAY LOCATQUE(*J3 & 32% 00174000 


COMMENT JOQUEsFINALQUEs AND LOCATQUE TOGETHER WITH UNIT FORMS 00175000 


THE 1°0 QUEUE, AN IO REQUEST FOR LOGICAL UNIT U REQUIRESO0176000 
THREE WORDS OF SPACE IN THE I1™0 QUEUE, IF THE REQUESTS 00177000 
OCCUPIES POSITION S IN THE 1"0 QUEUE» THEN JOQUE[S] )% 00178000 
1™0 DESCRIPTOR FOR THIS REQUESTe FINALES) = 170 DESCRIPTORO0179000 
SKELETON TO BE USED AT 170 COMPLETE TIME TO REBUILDS 00180000 
1°70 DESCRIPTOR» LOCATQUELSJ ® LOCATION OF I*0 DESCRIPTORS 00181000 
AT TIME OF REQUEST, LOCATQ@UELS) CONTAINS SOME ADDITIONAL 00182000 


INFORMATION, IN PARTICULARS3 00183000 
O- 2 = 58 00184000 
3” 7 = MIX INDEX OF REQUESTERS 00185000 

8 = 1/0 IS READ LOCK WHICH HAD ERROR (SHAREDISK),00165100 

9 = OLAY 1/0 CJOFINISH PLACES RESULT ON ERROR), 00185500 

10 = CANDE 170 OR NO MEM MESSAGE, 00186000 

11 & ERROR RECOVERY IN PROCESS ON THIS 1*0 00186100 
12°17 = LOGICAL UNJT NUMBER 00187000 
16™32 = INDEX OF NEXT REQUEST TO BE DONE ON THIS UNITO0188000 
OR @77777 IF NO NEXT REQUESTS 00189000 

33°47 = ORIGINAL LOCATION OF I*70 DESCRIPTOR,% 00190000 

UNITCU CONTAINS INFORMATION ABOUT LOGICAL UNIT Ugh 00191000 
i> 4 = TYPE OF 1/0 DEVISES 00192000 
5°12 = ERROR FIELD OF LAST [70 DONE ON THIS UNITS 00193000 

13 = UNIT NOT READY BITS. 00194000 

14 * ERROR BIT CON IF ERROR)’ 00195000 

15 = WAIT BIT CON IF UNIT IS WAITING FOR A CHANNELO0196000 
16°17 = PROCESS BITS CUSUALLY BOTH ON JF UNIT IS IN% 00197000 
PROCESS OR BOTH OFF. WITH PRINTERS THES 00198000 

170 FINISH SETS OFF 16 AND THE PRINTERS 00199000 

FINISH SETS OFF 17)% 00200000 

18"32 #8 INDEX OF FIRST I"0 REQUEST FOR WHICH SERVICE 00201000 
1S NOT COMPLETES 00202000 

33°47 m INDEX OF LAST UNSERVICED 1°90 REQUEST,& 00203000 


THE SPACES NOT USED IN THE 1°0 QUEUE ARE LINKED TOGETHERS 00204000 


THROUGH IOQUE, THE FIRST AVAILABLE IS IN IOQUEAVAILSS 


REAL LOQUESLOTSs ]OQUEAVAIL: 
ARRAY [0QUE[*]3 
DEFINE RETURNIOSPACECRETURNIOSPACE1) & 


BEGIN IOQUESLOTS&*10QUESLOTS#413 


TOQLECRETURNIOSPACELIIFZIOQUEAVAIL: 
LOQUEAVAIL#®RETURNIOSFACELS 


END#3 


ARRAY UNIT(32) «3% 


CO40Q00TTT7777777» 
POQDQ00077T7T7777777T» 
CORQOQD0077T777°7 777% 
@CO40000777777777T» 
CO4GQ0007777777777» 
@CO4000077777777778 
@CO400007777777777» 
PO4OO007TT77777775 
CO400007777777777» 
COMOQO0077T7T7T777777» 
CO4O00007777777777% 
CO400007777777777» 
PONMOOO00TI777777778 
CPONOQOO7TT7 7777777» 
CO4LO00TTITTITTIT® 
PO4O000077T77777777>% 
CQO600007777777777» 
CO6000077T77777777»" 
CLOOQOO7TT777777778 
CLO00007777777777» 
COZ00007777777777» 
CO2Z0000TTT7777777 5 
@LAQQ000777 7777777 
CQOO00007777777777>» 
COQ00007777777777» 
@1L200007777777777» 
@2000007777777777» 
@22000077 77777777» 
@22000077 777777775 
@2000007777T7TTTTT» 
@2400007777777777s 
@36000077777777773 


$ SET OMIT & SHAREDISK 


ARRAY TINUC37) 


$ POP OMIT 


$ SET OMIT = NOTCSHAREDISK) 


ARRAY TINUC 41] 


 $ POP OMIT 


CODEC DD BWDP PD ® 


O2Z20010040446321e 
060020040446322s 
120040040446323» 
160110040446324» 
2201200404463258 
2601400404463268 
3202100404463308 
360220040446341 0 
420240040446342s 
460310040446343» 
5203200404463448 
560340040446345» 
6204100404463470 


COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


MTA 
MTB 
MTC 
MTD 
MED 
MEF 
MEH 
MEW 
MEK 
MEL 
MEM 
MEN 
MEP 
MER 
LES 
MET 
DRA 
DRB 
DKA 
DKB 
LPA 
LPB 
CPA 
CRA 
CRB 
SPQ 
PPA 
PRA 
PRB 
PPB 
DCA 


ce ee ee ee es ee | se | | | 


COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


032 
133 
23% 
33% 
43% 
53% 
63% 
73% 
83% 
93% 
103% 
113% 
125% 
133% 
143% 
1532 
1634 


“173% 


183% 
191% 
203% 
213% 
223% 
233% 
243% 


253% 


263% 
eT3s 
283% 
293% 
304523 
313% 


MTA} 

MTB3% 
MTC}& 
MTD34 
MTE3% 
MTF 33 
MTH3% 
MTJ38 
MTK 34 
MTL3% 
MIMS% 
MTN33 
MTP3% 


00205000 
00205500 
00206000 
00206500 
00207000 
00207500 
00208000 
00208500 
00209000 
00210000 
00211000 
00212000 
00213000 
00214000 
00215000 
00216000 
00217000 
00218000 
00219000 
00220000 
00221000 
00222000 
00223000 
OUd2Z4UNY 
00225000 
00226000 
00227000 
00228000 
00229000 
00230000 
00231000 
00232000 
00233000 
00234000 
00235000 
00236000 
00237000 
00238000 
00239000 
00240000 
00241000 
00241600 
00241700 
00241701 
00241800 
00241900 
00241901 
00242000 
00243000 
00244000 
00245000 
00246000 
00247000 
00248000 
00249000 
00250000 
00251000 
00252000 
00253000 
00254000 


COMMENT 


@ 660420040446351> MTR3Z 
@ 7204400404463622 COMMENT MTS}3% 
@ 7605100404463635 COMMENT MTT3& 
@ 100520040245121+ COMMENT DRA3Z4% 
@ 2005400402451222 COMMENT DRB}S 
@ 140610040244221» COMMENT pKa;% 
@ 3006200402442222 COMMENT DKB3% 
© 54064000043472145 COMMENT LPAZS 
@ 6407100004347220 COMMENT LPB 3S 
@ 240720000234721» COMMENT CPA;% 
@ 2407400402351212 COMMENT CRA3Z% 
@ 3410100402351225 COMMENT CRB34 
@ 741020000624746» COMMENT SPO34% 
@ 4410400004747215» COMMENT PPA;S 
@ 4411100004751212 COMMENT PRA}4 
@ 501120000475122 COMMENT PRB}% 
@ 5011400004747222 COMMENT PPB}S 
@ 4012100002423218 COMMENT DCA3% 
@ 001220000713147» COMMENT ZIP34 
@ 001240000232421+ COMMENT CDAS% 
@ 004310000232422+ COMMENT CDB3% 
@ 001320000232423» COMMENT CDC}% 
@ 001340000232424» COMMENT CDD3 
% 
$ SET OMIT © NOTCSHAREDISK) 
@ 000000000627021»5 COMMENT SYA; 
® 000000000627022» COMMENT SYB3 
@ 000000000627023% COMMENT SYC3 
@ 000000000627024» COMMENT SYD} 
$ POP OMIT 
@ 0000000004463673 COMMENT MTX» ALL SCRATCH TAPES} 


ARRAY WAJTQUEL#®]); 


REAL NEXTWAITe#FIRSTWAITS® 
COMMENT WAITQUE IS A QUEUE OF UNITS FOR WHICH THERE ARES 
REQUESTS BUT NO CHANNEL IS AVAILABLE. 
FIRSTWAIT ARE POINTERS AT THE WAJTQUE, 
NEXT AVAILABLE SLOT JN WAITQUE AND FIRSTWAIT POINTS ATS 

NEXT UNIT TO BE USED WHEN A CHANNEL 1S AVAJLABLE FS 


B 8B 


NEXTWAIT AND 


NEXTWAIT IS THES 


ARRAY LABFELTABLEC*)]3 %’ 32% 
ARRAY MULTITABLEL*)3 % 32% 
ARRAY ROCTABLE(*]3 % 32% 


ARRAY PRNTABLE( #133 
ARRAY REPLY(#J3% 
COMMENT LABELTABLE» MULTITABLE» AND RDCTABLE CONTAIN LABEL INFORMATIONS 
BY LOGICAL UNIT NUMBER AS FOLLOWS?% 
LABELTABLELI) CONTAINS THE FILE ID FOR LOGICAL UNIT I,% 
MULTITABLECI] CONTAINS THE CORRESPONDING MULTI"FILE [De® 


00255000 
00256000 
00257000 
00258000 
00259000 
00260000 
00261000 
00262000 
00263000 
00264000 
00265000 
00266000 
00267000 
00268000 
00269000 
00270000 
00271000 
00272000 
00273000 
00274000 
00275000 
00276000 
00277000 
00277100 
00277987 
00277986 
00277990 
00277992 
00277994 
00277995 
00277998 
00278000 
00279000 
00280000 
00281000 
00282000 
00283000 
00284000 
00285000 
00286000 
00287000 
00288000 
00289000 
00290000 
00291000 
00292000 
00293000 


RDCTABLELIJ CONTAINS THE CORRESPONDING REEL NUMBER CIN £14210]) 200294000 


CREATION DATE CIN [24817])» AND CYCLE CIN [4187))33 
$ SET OMIT = NOTCSHAREDISK) 
DEFINE LQ@MAX#20#; % SIZE OF THE LQUE ARRAY 
ARRAY LQUEC#)3 
REAL LOAVAILS 
COMMENT LQUE CONTAINS ONE ENTRY FOR EACH 10 THAT IS WAITING FOR 
A LOCKED DISK SFGMENT, 


LQUVEENI,£8940] CONTAINS THE DISK ADDRESS (BCD) 
LQUECNI,€187) CONTAINS AN INDEX INTO THE IQQUE, 
LQAVAIL 18 AN INDEX POTNTING TO THE FIRST EMPTY WORD IN LQUE, 


00295000 
00295999 
00296000 
00296100 
00296200 
00296300 
00296310 
00296315 
00296320 
00296330 
00296340 
00296345 


REAL OPTION32 


BQ a BQ Be 


Be Be DE DE 


ag 


WHEN A LOCKED SEGMENT RESULT DESCRIPTOR IS ENCOUNTERED? 
THE [OQUE ENTRY FOR THAT 10 IS DISCONNECTED FROM THE 
IS MADE FOR IT IN LQUEe WHEN THE 


UNTT TABLE AND AN ENTRY 
REQUESTED ADDRESS 1S UNLOCKED?» 
REMOVES THE ENTRY FROM L@UE AND RECONNECTS JT TO THE UNIT TABLE, 
END COMMENTS 


S$ POP OMIT 


REAL SYSDISK*SYSDISKADRS 


ARRAY LINETABLEL#3 
LOCKEDELOCKEDLIBLINETABLELLOCKEDL IJ, Cisilée 


LINEDISCCLINEDISCLI&LINETABLECLINEDISC1) .C3t3l]#e 
® THE LINE DISCIPLINES ARE! 


READYQ@ED 


WRB 
POLLING 
SELECT 
ACKING 
NAKING 
ACK INGENG 
NAKINGENQ 
WRBUSY 
IDL 
IDLPOLLING 
WAITING 
WAITINGENQ 
NOTUSED 
NOTUSED 
NOTUSED 
NOTUSED 
NORMAL 
FIRSTIME 
SELECTANS 
EN@READ 
BROKEN 


POLLTIMEOUT 


TIMEDOUT 
EQTREAD 
RRA 
MSGANSWER 
NOTUSED 


DEFINE 
DIRECTUINE = [2t11]#» 
LINEDIS = [(383)#> 
TTY @ Os 
CONTENTION = ihe 
MULTIPOINT = 28> 
SCHED * 78s 
BUFSIZE = (6:2) #e 
PINGPING = (8siJ#e 
[9:4] 
C1381) 
C1434) 
(18:2) 


Se L261) #, 
(2745) 


[33815] 


O#, 
1#,s 
ve a) 
34>» 
Ot, 
5#e 
OF» 
7H. 
B#, 
YE, 
108» 
11%. 
12 
13 
14 
15 
168, 
1728. 
15#¢ 
198. 
20k 
rae 2) 
22s 
23. 
244o 
258k, 
26 


a auennhuunn aoa 


MULTI] = MULTIPOINT#e 


BUFFER SIZE = O*26> 


THE PROCEDURE FINDFREEADDRESS 


% LMAX LONG * USED TO KEEP INFO ABOUT LINES 


% LOCK BIT FOR DCWAIT 
2 DIRECT CONNECT FLAG (ALSO SCHEDBUSY) 


1=56» 22112 


ON IF BUFFERS ARE PINGPING 


GROUPMARK FLAG 
BUFFER NUMBER 
ZX ADAPTER TYPE O0=960» 


% 
% 
% TERMINAL UNIT 
& 
% 


1*SAS 


THROWAWAYE THROWAWAY) JELINETABLELTHROWAWAY1), [2031 ]#e 


LSTATUSCLSTATUSII] = LINETABLELLSTATUSI) .C21t5)#> % SEE BELOW 


% LINE IS IN READY@ FOR OUTPUT, 


% NOT USED 


LONGCARRIAGELLONGCARRIAGELISLINETABLECLONGCARRIAGELIJ,C3I2¢1)#» 


% SUPPRESSES LINE FOLDING FOR TWX 
2 HEAD OF INPUT @ * ADDRESS FOR RD IF LC600297500 


% THE STATUSES ARE? 
% WRITING STATUSES 


% IDLE STATI 


2 READING STATI 


00296350 
00296360 
00296370 
00296380 
00296390 
00296400 
00296501 
00297000 
00297050 
00297100 
00297120 
00297140 
00297160 
00297180 
00297200 
00297220 
00297240 
00297260 
00297280 
00297300 
00297320 
00297340 
00297360 
00297380 
00297400 
00297420 
00297425 
00297430 
00297440 
00297460 
00297480 


00297540 
00297560 
00297580 
00297600 
00297620 
00297640 
06297660 
00297680 
00297700 
00297720 
00297740 
00297760 
00297780 
00297800 
00297620 
00297840 
00297860 
00297880 
00297900 
00297920 
00297940 
00297960 
00297988 
00298000 
00298020 
00298040 
00298060 
00296080 


ae Be ae ac 


Be BE ae ae 


NOTUSED 27 00298100 

NOTUSED 28 00298120 

NOTUSED 29 00298140 

NOTUSED 30 00298160 

DISCON = 3143 %¥ END OF LINETABLE DEFINES 00298180 

ARRAY STATABLEL*])3 % STATIONMAX LONG * KEEPS INFO ABOUT STATIONS 00298200 
DEFINE 00298220 
PAPERTAPELPAPERTAPEL)®STATABLELPAPERTAPELIJ] +[1i81]#» 00298240 
ACTIVITY = L2t1)#» % SET ON SWAP OR DC10» RESET BY NSECOND 00298260 
SWAPPED = C3si lee % ON WHENEVER ATTACHED JOB IS SWAPPED 0400298280 
CANDEFLAG me (ati jee % ON MEANS JNPUT GOES TO CANDE 00296300 
MIXNR = C5:5]te % MIX NUMBER OF JOB TO WHICH LINE 00298320 
MIXFLAG = C416] 8» % IS ATTACHED 00298340 
STATIONTYPE = CLO93) #e % THE STATION TYPES ARE? 00298360 

TWX = Of, 00298380 
CONRAC = its 00298400 

Tc500 = 24» 00298420 

BIDS ® 3t» 00298440 
OWHTHROWOUT e CAZIL)#e % HARRY IS DISCARDING INPUT ON THIS LINE00298460 
BREAKLBREAKI} #& STATABLECBREAK1),(14¢1]#» %& BREAK HAS OCCURRED 00298489 

DI ALEDUP B £1581). 2 ON IF STATION JS ALIVE 00298500 
DISCONNECTINGLDISCONNECTINGIJSSTATABLELDISCONNECTING1) ,(16411]) 208, 00298520 

% % OFF IF QUITTER OR YOB IS STILL RUNNINGO0298540 
QUITNCQUITNiJ = STATABLECQUITNIJ,LI781]#- & INTERLOCK FOR QUITTER 00298560 

2 (1843) % NOT USED 002985860 
NAKKER = C2i0t]#e % OWH WILL RETKIEVE LAST TANK ADDRESS 00298581 

% (2291) % TEXT BIT FOR PREVIOUS OUTPUT BUFFER 00298582 
z C2304) % TEXT BIT FOR CURRENT OUTPUT BUFFER 00298584 
OUTPUTANKING = C2411)» 00296590 
LEENKER = (25:8)]#» ® READY QUEUE LINK IF STA LEQ@ LINEMAX 00298600 

% LINE NUMBER IF STA GE@ LINEMAX 00298620 

a (33815) ® HEAD OF OUTPUT QUEUE 00298640 
ENDOFSTATABLE #& #3 00298670 
ARRAY SEQARRAY(#]3 % STATIONMAX LONG = CONTENTS DEPEND ON LINEDISC 00298680 
% % TWX 00298700 
% C181] % FLAG FOR SEQUENCING 00298720 
% 12819) % INCREMENT 00298740 
% [21127] % CURRENT SEQUENCE NUMBER 00298760 
DEF INE 00298780 
% MULTIPOINT OR CONTENTION 00298800 

SELECTED e Cisidée ® SELECTED OR ENQ*ED 002968820 
TANKOKCTANKOK1] * SEQARRAYECTANKOKi).,C2:i)#2 % ON IF FULL INPUTANK 002988660 

% C334) % STATION IS NOT IN POLLING LIST 00298880 
% [4t2] & TIME OUT COUNT _ 00298900 
NAKMAX = [6:3]8- % MAXIMUM NUMBER OF NAK®S BEFORE ABORT 00298920 
NAKCNT S (98318. % NUMBER OF NAK#S ON CURRENT 10 00298940 

% £12812] % ADORESS CHARACTERS 00298960 
% (2411) % # BEFORE FIRST CHARACTER 00298980 
% (2591) % # BEFORE SECOND CHARACTER 00299000 
% [2636] % INDEX TO TNAQG 00299020 
% MULTIPOINT ONLY 00299040 

LINELINK = (32:8) 8» ® CIRCULAR LINK TO ALL STATIONS ON LINE00299060 
C4038) ® STATION IN READY QUEVE CMASTER ONLY) 00299080 

00299100 

% SCHEDULE LINES 00299120 

Citi) % ON JF CE JS READY FOR INPUT FROM LINE00299140 

SCHENDESCHEND1] * SEQARRAYCSCHENDIJ,C281]#2 %& SCHEDULE TERMINATING 00299160 

% £33415) % ADDRESS OF 80 WORD BUFFER ARRAY 00299180 
ENDOFSFQARRAY «= #3 00299200 


REAL LUNRS ZKEEPS LOGICAL LINE NR OF AN [0 WHILE IT [8S ACTUALLY DONE, 00299300 


REAL BASEDISKADRS % BASE ADDRESS OF C&E"S CURRENT TANK CHUNK 


00299400 


REAL WORKERSTACKS3ADDRESS OF OLDWJERDHAROLDS STACKeGOTTEN @ INI TIALIZE00299500 


REAL WORKERINQ$ 
REAL DISKADReLASTOFFSETeFIRSTOFFSETS 
% MUST BE ARRAY FOR MULTIPLE C&E"S, 
DEFINE WORKER & QOLDWIERDHAROLDS; 
ARRAY LASTSEGL*JeFIRSTSEG(#I3 
% THESE ARRAYS ARE THE BUFFER SEGMENT NOW BEING FILLED FOR C&Es 
% AND THE BUFFER NEXT TO BE PASSED TO C&E. THEY MAY POINT TO THE 
% SAME AREA IN CORE OR NOT, 
% BOTH MUST BE 2"D FOR MULTIPLE CB&E"S, 
DEFINE STARTWORKING ® 
IF NOT WORKING THEN 
BEGIN WORKING 38% TRUES 
FORKC PC, WORKER) eO02"220eWORKERSTACK)3 
END #3 
INTEGER INTRGATCTR3 
ARRAY TRANSACTIONE*]3 & 32% 
DEFINE ETRLNG = 5#3 % LENGTH OF ENTRY IN FILE BLOCKS 
SAVE REAL PROCEDURE TWOCN)$ VALUE N3 INTEGER NS 
BEGIN REAL T#4+13 
STREAMCNSENIS47"Ne TILT] )3 
BEGIN SKIP N DBs DS#8SETS END? 
END TWO3% 
REAL SYLLABLE34 
$ SET OMIT = NOTCSHAREDISK) 
REAL SYSNO*#SYSMAXS 
COMMENT SYSNO CONTAINS THE HARDWARE SYSTEM NUMBER 
SYSMAX CONTAINS THE MAXIMUM NUMBER OF SYSTEMS THAT CAN 
BE CONNECTED TOGETHER IN THIS CONFIGURATION, 
BOTH OF THESE PARAMETERS ARE PASSED TO THE MCP BY THE 
MCP LOADER AT HALT/LOAD TIME} 
SYSNO JN Mf0J,£16%2] AND 
SYSMAX IN M(L03,(1432] 
END COMMENTS) 
$ POP OMIT 
$ SET OMIT = SHAREDISK 
DEFINE SYSNOSO0#s SYSMAX=1 #3 
$ POP OMIT 


COMMENT ANALYSIS PLACES THE SYLLABLE THAT CAUSED THE INTERRUPT 
IN SYLLABLE, THIS IS USED BY PRESENCE BIT» FLAG BIT» AND 


VARIOUS ERRORS#% 

PROCEDURE FORGETUSERDISK(AsLISVALUE A» L3REAL ArL3FORWARDSS 
REAL PROCEDURE PETUSERDISKCNeT)FVALUE NeTSREAL NeTSFORWARD 3 
$ SET OMIT ® NOTCDEBUGGING) 
PROCEDURE DTIFORWARDS 
REAL PROCEDURE EXP$ FORWARDS 
$ POP OMIT 
REAL SCHEDWRDS 
PROCEDURE SCHEDIOCNUMseTYPESADR)S 

VALUE NUM» TYPEsADRE 

REAL NUM» TYPEs ADR FORWARD; 
PROCEDURE SCHEDIDLECADR)$ VALUE ADRS REAL ADRS FORWARDS 

DEFINE 


SCHEDNUM SSCHEDWRD «(CF IJ#s 

~FRSTSCHED =SCHEDWRD (I FFI#> 

LSTSCHED FSCHEDWRD,C3I15)#s 

SCHEDTOG BCNOTCSCHEDWRDe C1913) 24> 

TYPEINFO 10%, &C8E FILE TYPE FOR SCHEOULE OUTPUT FILE 


SCHESCH1) ® (SCHIC4I,C3It3SIESCHED Dé» 


00299600 
00299700 
00299800 
00299900 
00300000 
00300100 
00300200 
00300400 
00300500 
00300600 
00300700 
00300800 
00300900 
00301000 
00302000 
00304000 
00305000 
00306000 
00307000 
00308000 
00308500 
00309000 
00310000 
00310099 
00310100 
00310110 
00310120 
00310130 
00310140 
00310150 
00310160 
00310170 
00310180 
00310191 
00310199 
00310200 
00310201 
00311000 
00312000 
00313000 
00316000 
00316100 
00316999 
00317000 
00317010 
003170141 
00318100 
00318110 
00318120 
00318130 
00316140 
00319100 
00319140 
00319150 
00319160 
00319170 
00319180 
00319200 


SCHEDBUSY[E SCHEDBUSYIJ=LINETABLELCSCHEDBUSY1) (231) 4» 00319250 
SCHEDLINECSCHEDLINELJSCLINEDISCISCHEDLINE1)*SCHED) #e 00319300 
TANKNDIAL = 2714286 es 00319350 
CONNECTCCONNECTILDSSTATABLECCONNECTIJS#®(#P(C DUP) 81015247381] 00319500 
RCCANDEMIXCCONNECTIJ +32) (4:42:6)#, 00319600 

FIOADR = (FIRSTSEG,CCE)] = 2)4e 00320000 

IOADR = (LASTSEG,(CFI] * 2)#- 00320600 

L INENR = £1038) #. 00320950 

LINKER = £1088) ea 00321000 

LINEMAX & LMAX#» 00321050 

MESSEND = (Salle 00321100 

NOSABLE = (78ilé#> 00321300 

OFFSET = (316]#, 00321400 

ROWNR = (1088s 00322300 
STATIONMAX wz STAMAX#,s 00323000 
SYSDISKRL e SYSDISK, £1214) #» 00324000 
SYSDISKRPB = SYSDISK,£308121] 4, 00324050 

TAILOUT = TANKSCO], CCF I#» 00324500 

HEADOUT = TANKS(O),C2:8J)4#> 00324670 
TANKCHUNKSIZE = 256#3 00324700 
ARRAY INPUTANK(E#)3 % STATIONMAX LONG * KEEPS TRACK OF JNPUT TANKS 00326000 
DEFINE 00326100 
% C191] %’ LOCK BIT 00326200 
% (2:8) %® NEXT CHARACTER TO BE DETANKED 00326300 
INPUTL = (1018) #» % OLDEST SEGMENT JIN TANK 00326400 

3 (18915) 2 HEAD OF QUEUE OF 30 WORD AREAS 00326500 
INPUTREADY = C3381) #» % ON IF JOB SWAPPED TO WAIT FOR INPUT 00326600 
SLOWDOWN we [34t1)4,s %® ON [TF TANKS ARE ALMOST FULL 00326700 
FIRSTBUF = (3591) 8>» B® ETX IN PREVIOUS INPUT BUFFER 00326800 

% (3681) % NOT USED 00326900 
& (38:2) ® MODE BITS FOR COMM13 00327000 
INPUTN = [4038] 4» &’ NUMBER OF SEGMENTS IN TANK 00327100 

% 00327200 
CLUMPSIZE = 3283 % EACH LINE HAS 1 CLUMP OF DISK FOR INP00327300 
REAL PROGTANK3 % BASE ADDRESS FOR INPUT TANKS 00327400 
ARRAY TANKS(#]3 % STATINMAX LONG * HANOLES OUTPUT TANKS 00327500 
DEFINE 00327510 
% Ci#i] % TANK JNTERLOCK BIT 00327515 
TANKLINEL TANKLINE1 J®TANKSETANKLINES Je C2t6)#s. & DETANKING QUEUE 00327520 

% (10914) % CANDE SHUT*UP FLAG 00327525 
TANKFULETANKFULL J®TANKSCTANKFULS],Cilti Jas % TANK FULL BIT 00327530 

3’ C1291] % SOH BIT ON®SOH OFF®ETX 00327535 
% C4391) % LAST MSG NAKKED WHEN ON 00327540 
TANKL = £1405) #, % NEXT SEG TO DETANK 00327545 

4 £19405] % NEXT WORD OF SEG 00327550 
& (2413) ® NEXT CHAR OF WORD 00327555 
SOUSE = 2716 #e % NO OF SEGS IN USE 00327560 
TANKN © [2726] #e 00327565 
TANKALCTANKALJETANKS(TANKAL],C33815J#:3 % CORE ADDRESS OF TANK 00327600 

ry 00327700 
GLOMS]ZE ® 328} 00327800 
REAL TANKADDRESS3 % BASE ADDRESS FOR OUTPUT TANKS 00327900 
$ SET OMIT = TWXONLY 00328990 
ARRAY TNAOG(*]3 % TRANSMISSION NUMBERS AND OTHER GOODIES 00329000 
® USE DEPENDS ON STATION TYPE 00329800 

£1913) & LAST TANK POINTER (FOR NAKS) 00329850 

® Tc¢500 00329900 

£14314] % NOT USED 00330000 

(284310) % INPUT TRANSMISSION NUMBER 00330100 

(36:10) % QUTPUT TRANSMISSION NUMBER 00330200 


De BR BE BC BC aK 


% % PAGED SCREEN DEVICES 
& C1436) % NUMBER OF LINES PER PAGE 
% (2038) % NUMBER OF CHARACTERS PER LINE 
% (2818) ® NUM OF CHARS SENT ON CURRENT LINE 
3% (3616) % NUM OF LINES ON PREVIOUS PAGE 
% (4236) ®B NUM OF LINES ON CURRENT PAGE 
£ POP OMIT 


$ SET OMIT = NOTCDEBUGGING) 
REAL OTCALL & DT3% 

DEFINE DDT = PCDTCALLeDELsZPi des 
_$ POP OMIT 

$ SET OMIT = NOTCAUXMEM OR MONITOR) 

ARRAY CTABLEL#J3 % 10 LONG» AUXERRORTOG IN CTABLECS8) 

DEFINE AWUXERRORTOG * CTABLE(&)#}3 
REAL SYSMTRI © 64 WORD AREA FOR MONITORING SYSTEM FUNCTIONS 

§ SET OMIT = NOTCAUXMEM) 

DEFINE FTABLECFTABLE1] = CTABLEL2+(FTABLEL) IJ #e 

AUXMEMDSK # MCPNAMESEG#S &% CONTAINS MCP & INT FILE IDS 

$ RESET OMIT 

DEFINE MCPNAMESEG & (DIRECTORYTOP*7)#3 

COMMENT MCPNAMESEG CURRENTLY CONTAINS THE FOLLOWING? 

WORDLE OJ*WORDLI5] * FILE IDS OF THE AUXDATA FILES FOR MCP & INTRINCS, 
WORDL16)"WORDEL19) = CONTAIN THE WORD "AUXMEM * AS A MARKER, 
WORDE20]*WORDL27] = FILE IDS OF THE MCP"S AT HALT/LOAD, 

WORDL28]) * USED BY DISKSQUASH FOR COMM, BETWEEN SHAREDISK SYSTEMS, 


; 

REAL OLAYMASK32 FOR LOCKING OUT GETMOREQLAYDISK BY MIX INDEX 

PROCEDURE USERDISKSPECIALCASECQsReUeJIIVALUE Qe JSREAL QeRo Ji 
ARRAY UC#]$ FORWARD 3 


PROCEDURE FORGETESPDISK(SEG)SVALUE SEGSREAL SEG?FORWARD3 
SAVE INTEGER PROCEDURE DISKSPACECNWORDS@PIMIXsAUX)S 
VALUE NWORDS*#PIMIXeAUX3 
INTEGER NWORDS*PIMIX3 REAL AUX} 
FORWARDS 
PROCEDURE STATUS3% 
FORWARDS ® 
PROCEDURE INTERRUPTCTYPE)$ VALUE TYPES REAL TYPE FORWARD? 
REAL PROCEDURE FINDOUTPUTCMIDOFIDe TYPE ® FORMS e®REELPCDATEPCYCLEs KIND) 3% 
VALUE MIDeFIDs TYPE s FORMS REELPCDATE ®CYCLE SKINDS® 
REAL MIDeFIDe TYPEsFORMSe@REELOCDATESCYCLE*sKINDS FORWARDS 


REAL PROCEDURE FINDINPUTCMIDoF IDsREELeCDATE » CYCLE #COBOL® ULs OF » MODE + FN) 3 


VALUE MIDs FIDsREELeCDATE CYCLE sCOBOL®UL + OF sMODE OFNES 


00330300 
00330500 
00330600 
00330700 
003306800 
00330900 
00330901 
00330999 
00331000 
00332000 
00332001 
00335000 
00335100 
00335105 
00335110 
00335120 
00335150 
00335200 
00335201 
00335400 
00335500 
00335600 
00335700 
003358600 
00335810 
00335900 
00336000 
00336100 
00336110 
00363000 
00364000 
00365000 
00366000 
00367000 
00368000 
00369000 
00370000 
00370500 
00371000 
00372000 
00373000 
00374000 
00375000 


REAL MIDeFIDeREEL*CDATE CYCLE ®COBOLSULs OF sMODE FNS FORWARD? 00376000 


PROCEDURE STARTIMINGC(FNeU)S VALUE FNeU$ REAL FNeUS FORWARDS 00377000 
PROCEDURE FILEOPENCXsA)$ VALUE XeAS INTEGER Xe A FORWARDS %R9I000379000 
$ SET OM[T = NOTCAUXMEM OR MON] TOR) 00379009 

PROCEDURE ENTERSYSMTRC(NDS VALUE N3 REAL Ns FORWARDS 00379010 
$ POP OMIT 00379011 

DEFINE AUXTRACECAUXTRACE Ls AUXTRACE2 BFF CTABLEL4),£(181] THEN 00379020 

ENTERSYSMTR(NFLAGCAUXTRACE2 BAUXTRACE1( 3342136) ) #3 00379030 

SAVE PROCEDURE SAVEOPENCA)S VALUE AS REAL A} %R9000379400 
BEGIN FILEOPENC2sA) ENDS R9000379200 
PROCEDURE SETNOT]NUSECU,RWL)3 VALUE UeRWLS REAL UeRWLS FORWARDS 00380000 
00381000 

DEFINE STOPTIMINGRSTARTIMINGE#S 00382000 
PROCEDURE FILLBUFFERS(CURRENTeF ENAL COBOL SNR) § 00385000 
VALUE CURRENTe FINAL, COBOLeNRI REAL CURRENT» FINAL» COBOL »NRI 00385500 

_ FORWARDS 00386000 
DEFINE GETRUFFERS=FILLBUFFERS#S 00387000 


00388000 

PROCEDURE REALFILECLOSE(A)$ VALUE AS REAL AF FORWARD %RI000389000 
SAVE PROCEDURE FILECLOSECA)3 VALUE AS REAL AB %R9000389100 
BEGIN REALFILECLOSECA) ENDS %R9000389200 

REAL PROCEDURE DISKADDRESS(CMIDeFIDsFPB3eArHe 1093 % ¢(SHM}00390000 
VALUE MIDeFIDeFPB3eAnHe IO} % (SHM)00390300 
REAL MIDeFIDeFPB3eAe{03 ARRAY HLE*)3 % (SHM900390200 
FORWARDS 00394000 
PROCEDURE BLASTQ(U)$ VALUE Us REAL US FORWARDS 00392000 
REAL PROCEDURE FILEHEADERCMIDsFID»sNROWSsS]ZEeBLENeRLEND S38 00393000 
VALUE MIDeFI1DeNROWSs SIZE sBLENPRLENG 93 00394000 

REAL MIDeFIDSS 00395000 

INTEGER NROWSs SIZE eBLENeRLENs OF FORWARDSS 00396000 

PROCEDURE PURGEITCU)2 VALUE UF INTEGER UF FORWARDSS 00397000 
REAL ESPTAR,ESPCOUNT: 00399000 
REAL DIRDSKmw@1773 00400500 
REAL ESPDISKBOTTOMS & LOWEST ADDRESS OF ESPDISK 00401000 
REAL ESPD]SKTOPs & HIGHEST ADDRESS OF ESPDISK 00404400 
REAL MESSAGEHOLDER32 00402000 
DEFINE USEDRA = OPTION, £4731)4,% 00403000 
USEDRB = OPTION, (4631) #,% 00404000 

BOJMESS ZOPTION, (4531) 4% 00405000 

EOJMESS =OPTION, (44t1)#.% 00406000 

OPNMESS SOPTION, C4331) #03 00407000 

TERMGO SOPTION, C4281) be 00408000 

GIVEDATE = OPTION (4181) #0% 00409000 

GIVETIME = OPTION, C4081] #0% 00410000 

Z39CUSED BY DCMCP) 00411000 
AUTOPRINTBOPTION C3881) & 00412000 

B3I7CUSED BY DCMCP) 00413000 

%36CUSED BY DCMCP) 00414000 
COPNMESSEOPTION, (3531 ]#o% 00415000 
CLOSEMESSSOPTION, (34511803 00416000 
ERRORMSGFOPTION, £3331) #> 00416050 
RETMSGROPTION, C3291) # 00416100 
LIBMSGFOPTION, [3131] #» 00416200 
SCHEDMSG=OPTIONs (C3031) #8 00416300 
SECMSGROPTIONs (2981) #e 00416400 
DSKTOGEOPTION, C2831) #> 00416500 
RELTOGEOPTION, (C2731) #> 00416520 
PBDREL#OPTION, C2681] #e 00416550 

CHECK © OPTION, [2511] #> 00416560 

DISKMSG & OPTION, (24:1) #> 00416570 

DKLOG * OPTJON,C23:1)] #e 00416580 
LIBERR®OPTION, C2281) #» 00416590 
USEPBD®OPTIONs [2181] #03 %D800416600 

SVPBT GCOPTION, L2081 J #0% 00416610 

RSTOGROPTION, C1981) #e 00416620 
AUTOUNLD#®OPTION, (1681 J#e 00416630 
RNALL®OPTION,LI7¢1)#e 00416640 
CODEOLAY®OPTIONsL1681]#:2 00416650 

ZLSCUSED BY DCMCP) 00416660 
DATAOLAYSOPTIONsCi4ttigs 00416670 
HALTSETSOPTION,LI3IL) # 00416680 
REMOTEFOPTIONSLi2ti)#> 00416690 
CANDYMESSwOPTION,£1181)#> 00416700 
BATCHTOGROPTIONsCi081I8» 00416710 
BACKGROUND&(NOT OPTION, L991) ) #2 00416720 
STOPTESTSOPTION, COIL I #s 00416730 
PUNCHLCKSOPTION L711) 0 00416740 


CDONLYFOPTION, (681) 4. 
PKTONLYSOPTION, (5S8idée 
SEPARATESOPTION, C481) #s 
AUTOCESOPTION, (381) #s 
MODIIOSBOPTION, C281) #» 
AUTOMESS = OPTION, Citilée 
XXXXXX# OPTION, COMO] 43% 
REAL USERDISKBOTTOM3 
% DISK ADDRESS OF USER DISK AVAILABLE TABLE 
REAL DIRECTORYTOP3 
-® DISK ADDRESS OF DIRECTORYTOP SEGMENT@"*STORED IN ML) 
% BY MCP LOADER 
REAL DISKBOTTOM$ 
% DISK ADDRESS OF TOP OF BYPASS DIRECTORY, USED IN SCRAMBLE+ 
$ SET OMIT = NOTCSHAREDISK) 
DEFINE DIRECTORYSEG = (NIRECTORYTOP+2)43 
$ SET OMJT & NOT STATISTICS OR OMIT 
REAL BYPASSBOTTOMS 
$ POP OMIT OMIT 
$ SET OMIT ® SHAREDISK 
REAL HOLDER*#sNEXTSLOT*e BYPASS? 
$ SET OMIT = NOT STATISTICS OR OMIT 
DEFINE BYPASSBOTTOM © BYPASS, (CF]& 
$ POP OMIT OM]T 
DEFINE HOLOMAX = 3083 % MAXIMUM NUMBER OF ENTRIES IN HOLDLIST 
COMMENT THE HOLDLIST CONTAINS A ONE WORD ENTRY FOR EACH PROCESS 
THAT 1S WAITING TO USE A FILE THAT IS ALREADY IN USE, 
HOLDLISTLCII,£FF ISTHE CORE ADDRESS OF THE WORD THAT THE 
WAITING PROCESS 1S SLEEPING ON, 
HOLDLISTCIJ,(CFIETHE DISK ADDRESS OF THE FILE HEADER 
THAT 1S BEING WAITED FOR, 
HOLDLISTEIJ,£1088]eM1X INDEX OF THE PROCESS THAT MADE THE 
ENTRY, CTSSMCP ONLY) 
HOLDLIST£EIJ,C2I2]8THE SYSTEM NUMBER (SYSNO) OF THE SYSTEM 
THAT MADE THE ENTRY (SHAREDISK ONLY), 
HOLDLISTCIJ,Cisid IS SET BY A SYSTEM TO NOTIFY ANOTHER 
SYSTEM TO AWAKEN THE PROCESS THAT MADE THE ENTRY, 
THE NSECOND ROUTINE EXAMINES THE HOLDLIST IN 
ORDER TO CHECK FOR THIS CONDITION CSHAREDISK ONLY), 
DIRECTORYSEARCHs NSECONDs AND CLEANOUT ARE THE PROCEDURES 
THAT MANIPULATE THE HOLDLIST, 


THE WORDS ASSOCIATED WITH DIRECTORY HANDLING ARE? 
HOLDER,ICF] = DISK ADDRESS OF HOLDLIST, 
e{FF)] = NUMBER OF ENTRIES IN HOLDLIST, 
NEXTSLOT = DISK ADDRESS OF FIRST HEADER IN QUEUE OF 
EMPTY SPOTS IN DIRECTORY CNEXTSLOT QUEUE), 
BYPASS,(CF) = LOWEST ADDRESS OF THE BYPASS DIRECTORY, 
s{FF) © HIGHEST ADDRESS OF THE MAIN DIRECTORY, 


ON SHAREDISK»s HOLDERse NEXTSLOT AND BYPASS ARE KEPT IN THE FIRST 


THREE WORDS OF THE DISK SEGMENT LOCATED AT DIRECTORYTOP#2, A 


00416780 
00416790 
00416800 
00416810 
00416990 
00416992 
00417000 
00418000 
00418010 
00418050 
00418060 
00418070 
00418100 
00418200 
OO418799 
00418600 
00418605 
00418810 
004188611 
00418849 
00418850 
00416859 
00418860 
0041886} 
00418900 
00418910 
00418915 
00418920 
00418929 
00418930 
00416935 
00418937 
004189386 
00418940 
00418945 
00418950 
00418955 
00418960 
00418965 
00418970 
00418975 
00418980 
00418985 
00418990 
00418995 
00419000 
00419005 
00419010 
00419015 
00419020 
00419025 


REAn LOCK MUST BE DONE BEFORE ACCESSING THE HOLDLIST OR NEXTSLOTO0419030 


. .. QUEUE OR EXPANDING EITHER THE MAIN OR BYPASS DIKECTORIES, 00419035 
END COMMENTS 00419040 
DEFINE SCRAMBLE CSCRAMBLE 1¢SCRAMBLE2)=( "2x %10400419100 


CCOSCRAMBLE1,£C6816)+SCRAMBLE1,£C24824]) MOD MODULUS x MODULUS + %10400419200 


CSCRAMBLE2,CO818J4+SCRAMBLE2.£24824]) MOD MODULUS)+ 10800419300 
DISKBOTTOM) #e %10400419400 

_ .. MODPULUS#13#s DIRMODF169#; 210400419500 
COMMENT 00419600 


THE RELATIONSHIP BETWEEN MODULUS AND DIRMOD IS3 00419610 

DIRMOD 4= MODULUS x MODULUS» WHERE MODULUS IS A LOW 00419620 

ODD PRIME. CTHE RECOMMENDED VALUE OF MODULUS I$ 13), 00419630 

FOR SYSTEMS WITH FEWER THAN 6 MEMORY MODSe MODULUS MUST BE 00419640 

SET TO A SMALLER VALUE SO THAT DIRECTORYBUILDER WILL 00419650 

NOT GET A NO*MEMe MAKING IT IMPOSSIBLE TO HALT/LOAD, 00419660 

IT 1S SUGGESTED THAT MODULUS BE SET TO 11+5 DIRMOD TO 121 00419670 

FOR A SYSTEM WITH FEWER THAN 6 MODS, IT MAY BE NECESSARY 00419680 

TO SET JT SMALLER» DEPENDING ON THE DISK CONFIGURATION 00419690 

AND THE NUMBER OF MODS3 00419700 

$ SET OMIT = NOTCDEBUGGING) 00419999 

ARRAY DBARRAYE*J3 00420000 
REAL DBADR3% 00421000 

£ POP. OMIT 00421001 

$ SET OMIT # SHAREDISK 00421099 

DEFINE LOCKDIRECTORY # 00421100 


BEGIN IF NOT DIRECTORYTOG THEN SLEEPCCTOGLE) *DIRECTORYMASK ) 300421200 


LOCKTOGCDIRECTORYMASK )3 00421300 

END#» 00421400 
UNLOCKDIRECTORY «= 00421500 

BEGIN 00421600 
UNLOCKTOG(DIRECTORYMASK)3 00421700 

END#3 00421600 

$ POP OMIT 00421801 
$ SET OMIT = NOT SHAREDISK 00422490 
PROCEDURE LOCKER(SEGMENT)3 00422500 
VALUE SEGMENTS & CURRENTLYe ONLY UNLOCKS ARE 00422600 
SEGMENT3 ® DONE, IF LOCKS ARE REQUIRED» 00422700 


% ADD A SECOND PARAMETER® *LOCK'2# 00422800 


REAL T3 % AS IN THE DCMCP, 00422900 

IF LOCK THEN DSSKWAITCNABS( ET] INX 1)°"O0eSEGMENT) ELSE 00423000 

BEGIN 00423100 
STREAMCSEGMENTs D&sCTJ)3 00423200 

BEGIN SI%=*LOc SEGMENTs DSt®8 DEC’ END3 00423300 

T3=T OR @20603 00423400 

PCWAITIOCE TI) INX @100000000>0918)sDEL)3 00423500 

END3 00423600 

END LOCKING AND UNLOCKING DISK SEGMENTS; 00423700 
DEFINE LOCKCLOCK1) & LOCKERCLOCK1L el) #s 00424000 
UNLOCKCUNLOCK1) = LOCKERCUNLOCK1)#3 % ADD A ZERO IF LOCK IS USED00424100 

_ $& POP OMIT 00424110 
REAL ITOMASK»SAVEWORDS 00425000 
REAL CORE3 ZUSED FOR SELECTION PURPOSES 00426000 
COMMENT 00426100 
CORE.C4#14) * MULTIPROCESSING FACTOR (x100) 00426200 
CORE,C18:15) = SUM OF CORE ESTIMATES FOR ALL JOBS 00426300 

NOW ACTIVE IN THE MIX (DIV 64) 00426400 

CORE,£33215) = AMOUNT OF CORE MEMORY INITIALLY AVAILABLE FOR 00426500 
PROCESSING NORMAL STATE JOBS (DIV 64)3 00426600 

DEFINE CCSTACK#2248$3 & CHANGE THIS IF CONTROLCARD NEEDS MORE STACK 00426650 
DEFINE SELECTION # FORKCPC,SELECTRUN) 200%10196,0)#, 00426700 
FREECARDCFREECARD! )s 00426780 

FORKCPC »CONTROLCARD ) sFREECARDI a1 oe CCSTACK 00) Be 00426790 
CCARD(CCARDI)& 00426800 
FORKCPC,CONTROLCARD) OR @100000xLOGLINE #CCARDI 9 "4 eCCSTACK 20) #300426810 

PROCEDURE SELECTRUN(F)S VALUE Fs REAL FS FORWARDS 00426900 
PROCEDURE CONTROLCARDCA)SVALUE AJREAL AX FORWARDSS 00427000 
REAL PROCEDURE DIRECTORYSEARCH(ArBeC)IVALUE As BrC3S 00428000 
psa! athe REAL AeBeCS FORWARD3% 00429000 
PROCEDURE NEXTDCIOSFORWARDS 00429100 


DEFINE HEANERUNLOCKEHUS. 
HUCHUL*HU22HU3)= 
PCMKS#HU3*HULPHUZ eS eDIRECTORYSEARC®DEL) #3 
REAL DIRECTORYSEARC&®DIRECTORYSEARCHS 
RSHEADERUNLOCK CAN BE USED TO WRITE IN THE DIRECTORY A CHANGED 
2% HEADER» TURN OFF THE INTERLOCK BIT AND DO THE FORGETSPACE 
2% IT MAY BE CALLED ONLY AFTER A DIRECTORYSEARCHC AGB 24) 
3 THE PARAMETERS PASSED MUST BE CA*BeDS)} 
%% WHERE AeB ARE THE SAME AS PASSED TO THE DIRECTORYSEARCH 
4% AND 0S IS THE RESULT OF THAT DIRECTORYSEARCH 
PROCEDURE ARTNCA®N)3 VALUE AeNS ARRAY AL*]2 INTEGER NS FORWARDSS 
SAVE PROCEDURE DISKWAITCCORE sSIZEsDISK)3 
VALUE COREsSIZEs,DySKS5 
REAL COREsSIZEsDISKS 
FORWARDS 
PROCEDURE MAKEPRESENT(A)$ VALUE AS REAL AS FORWARDS 
SAVE PROCENURE DISKIOCLeCoSeD)% VALUE CeSeDs REAL Ld INTEGER CoSeD3h 
FORWARDIS 
ARRAY MESSAGETABLE(*]3 
DEFINE MESSAGETABLESIZE = 5#3 % NUMBER OF MESSAGETABLE ENTRIES 
DEFINE 
OPTIONSZ s (MESSAGETABLE(CO), (8310) )#, 
TERMSGSZ = CMESSAGETABLEL1).¢9910] 0#, 
KEYMSGSZ = (MESSAGETABLEL2],(6310] 04, 
CCTABLSZ = CMESSAGETABLE(L3),(8410) #3 
$ SET OMIT = PACKETS 
DEFINE 
SPOUTCSPOUTI1ISSPOUTITCSPOUTI a1) #s 
SPOUTERCSPOUTERL »s SPOUTER2»SPOUTER3) #SPOUTITCSPOUTERL se SPOUTERS) #3 
PROCEDURE SPOUTITCMESSAGE*TYPE)3 
VALUE MESSAGE? TYPES 
REAL MESSAGErTYPES 
FORWARDS 
$ POP OMIT 
$ SET OMIT = NOTCPACKETS) 
DEF INE 
SPOUTCSPOUT1 )®SPOUTERCSPOUTI +001) #0 
SPOUTITCSPOUTI Tie SPOUTI TZ) =SPOUTERCSPOUTIT1+0eSPOUTIT2) #3 
PROCEDURE SPOUTERCMESSAGE se UNITNOs TYPE) 3 
VALUE MESSAGE* UNI TNOe TYPES 
REAL MESSAGE®UNITNOe TYPE? 
FORWARD} 
$ POP OMIT 
DEFINE 
FILEMESS@FMS#>» 
FMSCFMS1 eo FMS2eFMS3eFMS4eFMSSeEMSOeFMST Dm 
FILEMESSAGECFMSieFMS2eFMS3eFMSMeFMSSeFMS6OFMS7 a1 DES 
PROCEDURE FILEMESSAGE CI] eKeMeFaReDeCe TYPE) 3 
VALUE TeKoMeFeReDeCe TYPES 
REAL [eKeMoFeReDeCoTYPE3 
FORWARD} 
PROCEDURE LBMESSCFNeSNe lis l2eEe UNI TNOOX)3 
VALUE FNeSNo Tie l2eEe UNI TNO*X3 
REAL FNeSNelTisel2eEe UNI TNO®X3 
FORWARD} 

PROCEDURE TERMINATECMIX)$ VALUE MyJX3 REAL MIX$ FORWARD? 

SAVE PROCEDURE TERMINALMESSAGECN)$ VALUE NS REAL NS FORWARDS 
BOOLEAN PROCEDURE SYSTEMFILECArB)SVALUE AeB3 REAL AeBs FORWARDS 
REAL FENCES ARRAY MEMROW(30)3 
PROCEDURE ENTERSYSFILECN)3 VALUE N3 REAL N3 FORWARDS 


00430000 
00430100 
00430200 
00430225 
00430250 
00430275 
00430300 
00430400 
00430500 
00430600 
00434000 
00431190 
00431200 
00431300 
00431400 
00431500 
00432000 
00433000 
00435000 
00436000 
00437000 
00436000 
00439000 
00440000 
00441000 
00449999 
00450000 
00450100 
00450200 
00450300 
00450400 
00450500 
00450600 
00450601 
00451499 
00451500 
00451600 
00451700 
00451800 
00451900 
00452000 
00452100 
00452101 
00452200 
00452300 
00452400 
00452500 
00452600 
00452700 
00452800 
00452900 
00454000 
00454100 
00454200 
00454300 
00463100 
00463200 
00463300 
00463400 
00464000 


PROCEDURE ¢OM53 FORWARD? 

£ SET OMYT w» NOTCSTATISTICS) 
PROCEDURE FILLSYSTAT? FORWARDS 
PROCEDURE SAVESTATISTICS$S FORWARD 


DEFINE COUNTUPCCOUNTUP1,COUNTUP2)#BEGIN COUNTUPBY(CCOUNTUP151)3 
COUNTUPBYC CCOUNTUP] )+30sCOUNTUP2) END#, 
COUNTUPBY (COUNTUPBY1 sCOUNTUPBY2) aC OUNTARRAY(CCOUNTUPBY1 J $= 


*P (DUP) +(COUNTUPBY2) 4&3 
ARRAY COUNTARRAYL#)3 
Real MCPTOP) 
REAL SYSTATBASE3 
ARRAY SWAPNELAYE*]3 
ARRAY DISKWAITIMEL*)3 
REAL LEFTHALF13 Z OR1(2384731) = 
REAL JOBNUMS 
REAL INTERVALS 


$ POP OMIT 

PROCEDURE ASR} FORWARD3% 
PROCEDURE COM113 FORWARD;3 
PROCEDURE COM13; FORWARD3% 


PROCEDURE COMMUNICATEO$ FORWARD} 

PROCEDURE COMMUNICATE13 FORWARD? 

PROCEDURE LIBRARYLOADS FORWARDS 

PROCEDURE LIBRARYZERO? FORWARD3 

PROCEDURE LIBRARYOUMPS FORWARD} 

$ SET OMIT s NOTCOUMP OR DEBUGGING) 
PROCEDURE DUMPCORE(B)3 VALUE BS REAL BS FORWARDS 


$ 


POP OMIT 


PROCEDURE COM1I93 
PROCEDURE COM233 FORWARD} 
PROCEDURE INTRINSICTABLEBUILDERC(CFH)3 
VALUE FHS REAL FHS FORWARDS 
PROCEDURE MESSAGETABLEBUILDER? FORWARD} 
ARRAY PUNTERE#]3 


FORWARD3% 


00469000 
00469099 
00469100 
00469200 
004708600 
00470900 
00471000 
00471100 
00471200 
00471300 
00471400 
00471600 
00471700 


IN PRT SINCE IT OCCURS IN OUTER BL0G00471750 


00471800 
00471900 
00471901 
00474000 
00475000 
00477000 
00478000 
00478500 
00479000 
00479500 
00480000 
00480099 
00480100 
00480101 
00483000 
00487000 
00489000 
00490000 
00491000 
00643000 
00643100 
00643200 
00643300 
00643400 
00643500 
00643600 
00643700 
00644000 
00644100 
00644200 
00644300 
00644350 
00644400 
00644500 
00644600 
00644700 


TELLS ANALYZER ALL 1/0 RES ARE 0K00645010 


00645020 
00645030 
00645040 
00645050 


006450860 


DEFINE PUNTSIZE # 8 
$ SET OMIT & NOT SHAREDISK 
+ 2 % LQUE OVERFLOW 
$ SET OMIT = NOT AUTODUMP 
+ 19 % DUMP CARD 
$ POP OMIT OMIT 
a} 
$ SET OMIT = NOT AUTODUMP 
$ SET OMIT = NOT SHAREDISK OR OMIT 
DEFJNE DUMPCRD = 108,» 
DUMPADR = 2383 
$ POP OMIT 
~§ SET OMIT =* SHAREDISK OR OMIT 
DEFINE OUMPCRD = 6fe 
DUMPADR & 2183 
$ POP OMIT 
COMMENT THIS IS THE CODE ON THE DUMP CARD CALL NUMBERS ARE OCTAL) 100645000 
$20$ 20220»#NOPeNOP 
1218 STOeSeBFW BRANCH TO 23 
$22% INI *OeLFU TIMER = LOOP UNTIL INTERRUPTED 
$238 10°LODe219STD SAVE M(8J, RESTORED BY 2ND CARD 
$248 25e110e2eLBU START 170 THEN WAIT AT TIMER 
t25t 0140000007700035 1/0 DESC FOR 77 SEG WRITE FROM 3500645060 
126% 01400000467400157 1/0 DESC ROR 74 SEG READ OF CODE 00645070 
$271 OPDC 14°DIA 26010°BFW 1/0 1 ™ PICK UP RES DESCe 
130! OPDC 159DIA 2606°BFW 


1/0 2 7 DIAL TO ERR FIELDe 


00645090 


$318 OPDC 16°DIA 2692-BFW 1/0 3 = BRANCH INTO I/0 4 
$321 OPDC 179DIA 268 1/0 4 

DESC 24sCBD 7 BRANCH TQ 24 FOR RETRY IF ERRORS 
$333 DESC 37eBFW GO TO 37 1ST TIMtse SEE 41 FOR 2NB 
$348 INT 2 OeLFU DATACOM = LOOP UNTIL INTERRUPTED 
+353 000000000000050) DISK ADDRESS FOR WRITE 
$368 INTs OsLFU FREEADDRESS * LOOP ON INTERRUPT 
$378 2000157+SND2240 STORE DISK ADR FOR READ. SET 240 


TO OPERAND FOR DESC AT 41 
1408 STD*OPDC 26925eSTO PUT 1/0 DESC INTO 25 


$413 DESC 240¢37*STD*NOP SET 37 FOR BRANCH TO 240 FROM 33 
142% 166LBU BRANCH TO 24 TO START THE READS 
SAVE PROCEDURE RESULTS 
BEGIN 
GO TO P¢C16])5 %’ TIMER IS A LOOP ON INTERRUPTS 
END3 
$ POP OMIT 


SAVE PROCEDURE PUNTCI)$ VALUE I REAL I3 
BEGIN REAL Ts"33 
SSET OM]T = NOT AUTODUMP 


$ POP OMIT 


REAL TMB» RSLT#®RESULTS 
LABEL HAsHBS 


TeeqF [30 THEN T ELSE PUNTER INX J3 

IF MEMROWEPiIMIX],CCF) GE@ FENCE THEN 

BEGIN TERMINATECPIMIX)3 
TERMINALMESSAGEC PC 121003 & THE 1 1S THE FROMPUNT FLAG 

END: 

STREAMCQtePCOeRDF)S Ie 


$ SET OMIT = NOT AUTODUMP 


At=1Bs Dt=]IsSPUNTER [NX 0); 


$ SET OMIT & AUTODUMP 


PUNTER)3 


$ POP OMIT OMIT 


BEGIN DSt#1{3 LIT™**"SYS HANGe Fo"3 
SIssLOC Q3 SIteS}4+33 
5(O0S:23 RESET; 
3(C1F SB THEN DStsSET ELSE DSS*RESETS SKIP SB))3 
DSs*2 LIT®s “3 SIs#]3 
6G3CIF Sc#™e" THEN OSS®CHR)3 DSteLI Te; 


§ SET OMIT = NOT AUTODUMP 


HA! 


HB! 


DIsFAs DSB LIT" 292904 II"%3 % INIeo INI e4e¢BBW 


SI:SA3 DSt844 WOS3 
DISSA8 DIt#D1 +8) 2 FOBUSY= 
DSt#4 LIT*OO2Q(%3 % O*RTN 
D1s"01 +283 % ITOCOMPLETE*LOD ReRTN 
DSs32 LIT™O Ass 2COUFAFEZCOY HAGE ZC OF FATIO(™S 
ENDS 
PCHP2)3 


IMBtz][&60L384226)} 

PCCTMBJeIIO)3 

DO IF CTMBS#PCMKSeRSLT)) © O THEN &% [0 BUSY 

BEGIN PCMKSeRSLT*DEL)3 GO HA END 

UNTIL TMB,£386)2603 

IF TMB,CCFI<? THEN GO TO HB3 

IF TMB,CFFIJ#0 THEN GO TO HA3 

IF NOT HALTSET AND PUNTEREDUMPADR)=@501 THEN 

BEGIN 
STREAMCStS(PUNTER(CDUMPCRDJ J+ 2t8@20)3 
BEGIN SIt#S3 DSt#19 WOS3 END3 


00645100 
00645110 
00645120 
00645130 
00645140 
00645150 
00645160 
00645170 
00645180 
00645190 
00645200 
00645210 
00646000 
00647000 
00648000 
00649000 
00649100 
00650000 
00650250 
00650450 
00650500 
00650750 
00650800 
00651000 
00651300 
00651400 
00651500 
00651600 
00651800 
00651900 
00652000 
00652100 
00652200 
00652300 
00652400 
00652600 
00652800 
00653000 
00653200 
00653400 
00653500 
00653600 
00653800 
00654000 
00654200 
00654400 
00654600 
00654800 
00655000 
00655200 
00655400 
00655600 
00655800 
00656000 
00656200 
00656400 
00656600 
00656800 


00657000. 


00657200 


$ SET OMIT = 


END3 


GO TO PCO#STS+OeSTF re (ML @20)))3 


DO UNTIL FALSE) 


AUTODUMP 
ENDS 


WHILE HALTSET DO3 
PCWAITIOCPUNTER INX 0#0225))3 


SLEEP CO20)3 


$ POP OMIT OMIT 


END} 


® MAKE IT EASY FOR ANALYZER TO FIND STACK 


PROCEDURE CREATELOG(DDD)$ VALUE DOOS ARRAY ODDE*]$ FORWARD} 
REAL CANDYINX = CREATELOG} 

DEFINE CANDEMIXCCANDEMIXLIJSCANDYINX#? 

ARRAY MEM@MEMROW[ #9 *]3 


DEFINE 


PUN$ 


DSW 
BOJW 
IGNORE 
REMOVED 
CHANGED 
SECURED 
ZIPER 
NOTIN 
NOTX 
WWWW 


LABEL PUNS 


PCME1])3 


e 
= 
= 
* 
s 
® 


38, 
4k, 
5de 
68» 
Th» 
B#e 
ot, 


m10#> 
Flt, 
=99#} 
$ SET OMIT ® NOTCOEBUGGING) 
REAL PAUSEVALUE=1273 
SAVE PROCEQURE PAUSECR)3 
BEGIN IF R2PAUSEVALUE THEN PCReZPL»sDpELJs ENDS 
$ POP OMIT 
$ SET OMIT = NOTCCHECKLINK OR DEBUGGING) 

SAVE PROCEDURE CHECKLINKSC(MEXeLOC)$ VALUE MIXeLOC$S REAL MIXeL0C3 

BEGIN REAL BeSeFeleMSeTsC3 


VALUE R3 REAL R3 


BeMCS*MS*CMEMEMIX*eOI]),CCFIICFF I: 
WHILE CF*CLeMES1),£ECFJ)#MS DO 

BEGIN IF PCyLeLOD)efFFI NEQ B THEN 
BEGIN Ct#®13 GO TO PUNS END3 


IF FSS THEN 


END3 


BEGIN C#223 GO TO PUN’ END3 
IF S#LOc THEN LOCe*1;3 
BeSs SeFs 


IF SSLOC THEN LOC3#"13 


C+33 


IF *1#L0C THEN GO TO PUN$ 

BeoM( (S#MSeS41)41)3 

WHILE CFeCLeMES]),€CFI)#MS DO 

BEGIN IF MC€S41)#B THEN 

BEGIN Ct#43 GO TO PUN’ END} 
IF S¥MS THEN 


BEGIN 


IF (T#MES"1))20 THEN 

BEGIN C8m53 GO TO PUN’ END3 
IF TeCCFIS914#L,CFF] THEN 

BEGIN Cim63 


END3 


BS} 


END3 


SoF3 


PUNTC4)3 


® INVALIO LINK 


00657400 
00657600 
00657800 
00657900 
00658000 
00659000 
00660000 
00661000 
00661010 
00662000 
00750000 
00750100 
00751000 
00753000 
00754000 
00755000 
00756000 
00757000 
00758000 
00759000 
00760000 
00761000 
00762000 
00799000 
00799999 
00800000 
00801000 
00802000 
00602001 
00802999 
00803000 
00804000 
00804050 
00804100 
00805000 
00806000 
00807000 
00808000 
00809000 
00810000 
00810500 
00811000 
00812000 
00812500 
00813000 
00813500 
00814000 
00815000 
00816000 
00817000 
00817100 
00817200 
00818000 
00819000 
00820000 
00821000 
00621100 
00821200 
00821500 
00822000 


END3 


END3 


$ POP OMIT 

ARRAY CT[*]) 
ARRAY SQ(*]3 
ARRAY DATC#)3 


ARRAY LOGARRAY(E «J3 

DEFINE STASUSCSTASUS1 JBSQLSTASUSII,£[16:6]#3 
ARRAY STASUSC#)% COMMENT STASUSEI] GIVES STATUS WITH RESPECT TO SWAP 
SYSTEM OF JOB WITH MIX#I3 

COMMENT POSSIBLE STATES FOR STASUS; 


DEF INE 


TIMEND 
WAITSWAP 
BOJSTATE 
SATISFY 
EQUSTATE 


FORCESWAP 


TRANSIT 


WAITSTATE 


READYSTATE® 


ROYRPT 
READYBOJ 
STABLE 
RUNNING 


SELECTING 
REAL READYEND»FORCENDe RDYRPTEND sSWAPENDS 
COMMENT READYENDe 
JTEM IN THETR RESPECTIVE QUEUES} 
DEFINE LINKCLINKLJ*eSQCLINKIJ, (4206) #3 


O#> 
1#>s 
Che 
3h 
Q#»e 
5#e 
68a 


B¢e 

Gt» 
108. 
118. 
568s 
16%>5 
3283 


ARRAY LINKE*)]$ COMMENT 


DEFINE 


DEFINE 
DEFINE 


DEFINE. 
DEFINE 


DEFINE 
DEFINE. 


LINK(T) 
WITH MIX], 
HEAD OF SWAP QUEUE} 
DEFINE SCCSCL1IFSOCSC1I, C3636) #3 

ARRAY SCC*)s COMMENT 
DEFINE LOCLCLIFSQLLC1), (3016143 
ARRAY LCC#*#]3 COMMENT 
DEFINE COUNTCCOUNTIISSQ(COUNTII,C2486183 
ARRAY COUNT(C*]3 COMMENT COUNTCIJ®CNUMBER OF CHUNKS "POSSESSED" (OR 
ASSIGNED) TO JOB WITH MIX#])" 1, 
TO BE UNDERSTOOD DYNAMICALLY3 
SUNCSLNIJESQCSLNII, C158 3a)#3 

COMMENT SUNCI] IS SLICE NUMBER FOR JOB WITH MIX®]}3 
NLSENLSLIFSOLCNLS1), (834) 83 
EXPANDCEXPANDI J RSQOCEXPANDI).C1332)#3 

COMMENT EXPAND CONTAINS INFORMATION TO ALLOW AREAS TO EXPAND} 
CANTEXPANDICANTEXPANDIIFSQ(CANTEXPANDIIJ,C781I]43 

COMMENT MAY BE DUF TO COUNT®CHUNKMAX OR MISSING MEMORY MODS3 
MAXCORECMAXCORE1 J SSQCMAXCORELI.( 6811 #3 

COMMENT SET BY MAXIMUM CORE CARD} 
DONTEXPANDBITSLDONTEXPANDBITS1 J#SOCDONTEXPANDBITS1],(682) #3 
TOTALCTOTALIISCTETOTALIJ C4286) 83 


SC£I] IS FIRST CHUNK NUMBER FOR JOB WITH MIX8]3 


LCC] 


ARRAY TOTALE*]3 COMMENT 


ARRAY ACTIVEL*®] 5 COMMENT 


AND RDYRPTEND POINT TO LAST 


LINK CONTAINS LINKS FOR READY AND SWAP QUEUES, 
IS MIX OF NEXT JOB IN QUEUE FOLLOWING JOB 
LINKCOJ#HEAD OF READY QUEUE? 


IS LAST CHUNK NUMBER FOR JOB WITH MIX#I3 


THIS POSSESSION [5S 


TOTALCIJ 3S TOTAL NUMBER OF JOBS USING THE 
I TH CHUNK 

DEFINE ACTIVELACTIVELIFCTOCACTIVELI £3636) 83 
ACTIVECT) 1S NUMBER OF JOBS READY TO RUN 
USING THE I TH CHUNKS 

. DEFINE POSSESSCPOSSESSIISCTIPOSSESS1 ef 3086) #3 
ARRAY POSSESSC#]S COMMENT POSSESS(]) 


00823000 
00824000 
00824001 
00896000 
00897000 
00898000 
00898100 
00899900 
00900000 
00901000 
00902000 
00903000 
00904000 
00905000 
00906000 
00907000 
00908000 
00909000 
00910000 
00911000 
00912000 
00913000 
00914000 
00915000 
00919000 
00920000 
00921000 
00921500 
00922000 
00922900 
00923000 
00924000 
00925000 
00926000 
00926900 
00927000 
00929900 
00930000 
00930900 
00931000 
00932000 
00933000 
00933100 
00933200 
00933210 
00933300 
00933400 
00933500 
00933600 
00933650 
00933700 
00933750 
00933900 
00934000 
00935000 
00935900 
00936000 
00937000 


COMMENT 00937900 
1S MIX INDEX OF JOB WHICH POSSESSES00938000 


THE I TH CHUNK? 00939000 

REAL CHUNKMAX3 COMMENT CHUNKMAX IS MAXIMUM ALLOWABLE CHUNK NUMBER3 00940000 
DEFINE CHUNKZIZE®1024#3 COMMENT CHUNKSIZE IS LENGTH OF ONE CHUNK? 00941000 
DEFINE DISKSTORECDISKSTORELI#DATLCDISKSTORE1).£ 8825) 43 COMMENT 00941900 
ARRAY DISKSTOREL*)3 COMMENT OJSKSTORECI) IS ADDRESS ON DISK OF 00942000 
SWAP AREA FOR JOB WITH MIX#]3 00943000 

DEFINE ACTLENEACTLENL JSDATCACTLENI I ¢£ 33815143 COMMENT 00943900 
ARRAY ACTLENDC*)$ COMMENT ACTLENC IT) JS ACTUAL LENGTH OF STUFF SWAPPED 00944000 
FOR JOB WITH MIX®I3 00945000 

COMMENT MEMCIe#) TS AN ARRAY WHICH POINTS TO MEMORY 00954000 

SYSTEM VARIABLES CAVAILeLEFTOFFsETC) FOR JOB WITH 00955000 

MIX=]3 00956000 

DEFINE BATCHED(C BATCHED! J®CTEBATCHEDII.Citl jee 00956200 
BATCHJOBLBATCHJOBLIJFUVROW[BATCHJOBI J » (781) 83 00956300 
DEFINE MLINKY = Of, 00957000 
LEFTLIT * 1#> 00958000 

AVAIL = 28» 00959000 
ADDRESSES = 383 00960000 

COMMENT SPACE ALLOCATED BELOW THE FENCE IS NOT SUBJECT 00961000 

TO SWAPPINGs WHILE THAT ABOVE THE FENCE IS SUBJECT 00962000 

TO SWAPPINGS 00963000 

DEFINE UPOLAYCUPOLAY1) SCORE, C4214)x40xUPOLAYI#> 00973000 
COMMENT & CFACTORX100)/400 x CUPOLAYX16000) 00973100 

= FACTOR/4 x (CUPOLAY1 IN MICROSECS)3 00973200 

DOWNOLAYCOOWNOLAY1 )S*PC DUP) *DOWNOLAY1x80"20000#83 %R 3800974000 
COMMENT DECREASES BY AVERAGE MICROSECONDS REQUIRED 00974100 

FOR A DISK I/0 OF DOWNOLAY! SEGMENTS? 00974200 

SAVE PROCEDURE SWAPC(STATE*B)3 VALUE STATE*®BS REAL STATE®BS FORWARDS? 00990000 
PROCEDURE SHORTCOMMUNICATESI FORWARDS 00990501 
PROCEDURE INITIALSWAPC(N)$ VALUE N$ REAL N3 FORWARDS 00991000 
PROCEDURE BRINGBACKC(MIX)S VALUE MIX# REAL MIX3 FORWARD? 00992000 
PROCEDURE REENTERCSTUFF)3 VALUE STUFF? REAL STUFFS FORWARDS 009921400 
PROCEDURE SWAPPERS FORWARD} 00992200 
BOOLEAN PROCEDURE OUTWAITCB)} BOOLEAN BS FORWARD? 00993000 
SAVE REAL PROCEDURE GETARFACN)$ VabLUE Nt REAL N$ FORWARDS 00994000 
SAVE PROCENURE FORGETARFACNsA)# VALUE NoAS REAL NeoAS FORWARDS 00994500 
SAVE INTEGER PROCEDURE SPACEC(N)3 00995000 
VALUE NB INTEGER NS 00996000 
BEGIN SPACE?2GETSPACE(Ne005)+25 END? 00997000 

$ SET OMIT = NOTCDFX) 00998000 
ARRAY EUQL{O) « ZOFX00998030 
CL777777777777777 4 00998020 
CL777.7777777777775 00998030 
@1777777777777777>» 00998040 
@LT777777777777776 00998050 
@CLTT7777777777777> 00998060 
@L777777777777777>» 00998070 
@L77T7777777777777 8 00998080 

@LTT 7777777777777 6 00998090 
@I777777777777777>» 00998100 
@LT77777777777777;3 00998110 


COMMENT EUQ IS USED WITH THE REST OF THE 10 QUEUE STRUCTURE FOR %0FX00998120 


HANDLING AN EXCHANGE IN THE DISK*@FILE SUBSYSTEM, IN THIS 


¥OF X00998130 


CASE*® DISK 10 REQUESTS ARE HANDLED SPECIALLY» AFTER FINDING3DFX00996140 


AN 100 SLOT»s THE EU NUMBER IS RETRIEVED FROM THE DISK 


BOF X00998150 


ADDRESS WORD AND USED AS AN INDEX INTO EUQs WHICH INDICATESZDFX00998160 


THE QUEUEING STATUS OF THE EU, BDF X00998170 
BZEXZ EVQ(N) CONTAINS THE FOLLOWING FOR EU #N} 2422E% 2DFX00998160 
(33915) © TF 181 = 4 THEN LU OF CONTROL CURRENTLY HANDLING EU 00998190 

IF O THEN TAIL OF QUEUE (C100 INDEX) FOR THIS EU 00996200 


ais 


(18:15) = HEAD OF QUEUE CI10Q INDEX), 
C 3815] = NEXT EU WAITING FOR A CU CEUQ INDEX), 


ZDFX00996210 
BDF X009968220 


{ 2¢ 1) = IF OF EU TS ACTIVE BUT FURTHER I10"S ARE BEING QUEVED 00998222 

SQ THAT A DIFFERENT EU CAN USE THE CONTROL, 00998224 

{ 12 1) =» TRUE IFF THIS EV 1S IN OPERATIONS ZDFX00998230 

REAL EUWS COMMENT EUW QUEUES UP EUS WAITING FOR CUS3 BDF X00998240 
(33815) = TAIL OF WAITING™EU SUEUE CEUQ INDEX) ZDFX00998250 

(18:15) = Head " * " , is " i ZOFX00998260 

INTEGER DISKOUNTS COMMENT NUMBER OF READY CUS} DF X00998270 
SAVE PROCEDURE LINKEUS FORWARDS 00998500 
$ POP OMIT 00998999 
ARRAY FORKQUEL#]3 01000000 
COMMENT THE FORKQUE IS A QUEUE OF KEQUESTS TO RUN INDEPENDENT 01001000 
PROCESSES, ENTRIES ARE PUT IN THE QUEUE BY FORK» AND 01002000 

ARE INITIATED BY THE CONTROL SECTION OF THE MCP NEAR 01003000 

THE LABELS NOTHINGTODO AND SLATESTARTERs» THE FORMAT 01004000 

OF THE FORKQUE IS! 01005000 

01006000 

FORKQUE: @500777 xxxxx xxxxx 01007000 

THE F FIELD CONTAINS THE ADDRESS OF THE 01008000 

FIRST WORD OF THE LAST REQUEST IN THE QUEUE, 01009000 

THE C FIELD CONTAINS THE ADORESS OF THE 01010000 

FIRST WORD OF THE FIRST REQUEST IN THE QUEUE, 01011000 

WHEN THERE ARE NO CURRENT REQUESTS» BOTH OF THESE 01012000 

FIELDS POINT AT THE FORKQUE, 01043000 

THE FORMAT OF A FORKQUE ENTRY [53 01014000 

01015000 

WORDLE @POOOPPP BBBRBB FFFFt 01016000 

PPP IS PRIORITY +64 *" USED IN LINKING IN NEW 01017000 

ENTRIES WITH A LINK*®LIST™LOOKUP, IT 01018000 

ALSO DEFINES THE INITIAL PRIORITY FOR 01019000 

THE NEW PROCESS, 01020000 

BBBBB IS THE LINK BACK TO THE PRECEDING ENTRY, 01021000 

FFFFF 1S THE LINK FORWARD TO THE NEXT ENTRY, 01022000 

WORD 213 ADDRESS OF DESCRIPTOR OF ROUTINE TO BE RUN, 01023000 

WORD 33 A PARAMETER TO THIS ROUTINE, 01024000 

WORD 43 SIZE OF STACK NEEDED, ZERO IF STACK 01025000 

ALREADY OBTAINEDe OR WILL USE ISTACK, 01026000 

WORD 953 ADDRESS OF STACKe IF ALREADY OBTAINED, 01027000 

=0 => STACK SPACE NEEDED 01027100 

m1 0 => USE STACK@ TO GET SPACE IF AVAILABLE 01027200 

CIN PARAMETER TO FORK ONLY) 01027300 

END FORKQUE COMMENTS 01028000 

a 01029000 
REAL BEDs 01030000 
ARRAY BEDIC#); 01031000 
COMMENT THE BED IS A LINKED LIST OF CONTROL LINES THAT ARE 01032000 
AWAITING SOMETHING. BED POINTS TO THE FIRST ENTRY 01033000 

AND BED1 POINTS TO THE LAST ENTRY IN THE UIST. 01034000 

(NOTES BEDI MUST BE THE NEXT PRT CELL AFTER BED.) 01035000 

THE LINKS ARE STRUCTURED SO THAT THEY MAY BE 01036000 

MANTPULATFD AS ARRAYS, CONSIDERED AS AN ARRAY! 01037000 

. 01038000 

WORD O CONTAINS THE LINK FORWARD TO THE NEXT ENTRY, 01039000 

WORD 1 CONTAINS THE LINK BACK TO THIS ENTRY, 01040000 

WORD 2 CONTAINS THE MIX INDEX ASSOCIATED WITH THIS ENTRY 01041000 

WORD 3. CONTAINS THE TIME OUT VALUE 01042000 

WORD 4 CONTAINS A LOGICAL LINE NUMBER (FOR DATACOM) 01043000 

WHICH IS ASSOCIATED WITH THE ENTRY, 01044000 

WORD 5 CONTAINS THE F®REGISTER SETTING OF THE 01045000 


REAL 


BED AND ALL FORWARD LINKS LOOK LIKE @100777PPPPPxxxxx 
WHERE PPPPP IS THE PRIORITY+64 FOR THIS ENTRY 
AND THE BACK LINK LOOKS LIKE @500777xxxxxx xxx x 


SLEEP ROUTINE CWHICH MADE THE ENTRY), 


END BED COMMENT$ 


PRIORTY3 


COMMENT PRIORTY JS THE PRIORITY ASSOCIATED WITH THE "JOB* 


CURRENTLY BEING RUN ON PROCESSOR 1, 


USED HERE» A "JOB" IS EITHER A USER PROGRAM OR AN 


IN THE 


INDEPENDENT LINE OF CONTROL WITHIN THE MCP; 


COMMENT PIMIXeP2MIX NOW DECLARED AT 00021700 ; 

COMMENT P1iMIX IS THE MIX INDEX ASSOCIATED WITH THE "JOB* 
RUNNING ON PROCESSOR 1, 
ROUTINE 1S CURRENTLY RUNNING, 


P2MI[X» SIMILARLY IS THE MIX INDEX ASSOCIATED WITH THE 
JOB RUNNING ON PROCESSOR 2, 
ONLY OPERATE IN NORMAL STATE == 
AND IS NOT PRESENT COR SICK) 


REAL STACKQ3 


VALUE 
REAL 
ARRAY 


BEGIN COMMENT FORK QUEVES A REQUEST TO INITIATE AN INDEPENDENT 
PROCESS IN THE LIST OF REQUESTS POINTED TO BY FORKQUE, 
REQUESTS ARE ORDERED ACCORDING TO PRIORITY» AND ARE 
FIRST*OUT AMONG EQUAL™PRIOKITY REQUESTS, 


ROUTINE s 


PRIORITY» SIZE3 


PARAMETER(*Js 


FIRST*INe 
SEE ALSO COMMENT AT FORKQUE DECLARATION} 
Te FRONTLINK® BACKLINKS 
IF LOCATION®!1 THEN 


REAL 


TF CLOCATIONS=STACKQ) NEG O THEN STACKQ2=M([STACKQ]3 


LOCATIONE *J3 


T © GETAREACO)3 


BACKLINK « PCFORKQUE> O&8(PRIORITY+65)(983939]» LbLbe 
METI © FRONTLINK&BACKLINK(CTFI&CPRIORITY4+649(933919)3 


Qe INXe 


MCFRONTLINK) CFF] «© T3 
MCT#1] © ROUTINES 
M(T#3) «+ SIZE3 

END INDEPENDENT RUNNER QUEVEING3 


SAVE PROCEDURE KILLCSTACK)3 


VALUE 
ARRAY 


BEGIN COMMENT KILL RETURNS THE STACK FOR A COMPLETED INDEPENDENT 


STACKS 
STACK(#)3 


PIMIX*0 MEANS 


eFRONTLINKs 


+“) CFF IJ3 


SENSE 


THAT AN MCP 


PROCESSOR 2 "= WHICH CAN 
IS IDLE IF P2MIX=0. 
IF P2MIXee43 


DEFINE STANDARDSTACK #128#3 % T0 INCREASE FOR INDEP RUNNERS 
SAVE PROCEDURE FORKCROUTINEs® PARAMETER® PRIORITYe 
ROUTINEs PAKAMETER® 


SIZE* LOCATION); 
PRIORITYs SIZE* LOCATIONS 


MCBACKLINKJs(CF] © TS 
MCT+2) © PARAMETERS 
MCT+#4] © LOCATION,(CF)3 


PROCESS» AND REMOVES IT FROM THE SYSTEMS 
REAL S=NT33 
PC64eSTS)3 
IF CS*STACK,(CFI)<PRT CCF) THEN 
FORGETSPACE(S) 


ELSE BEGIN MLS@iJeSTACKQS STACKQeS"1 END3 
GO TO NOTHINGTODO3 
END INDEPENDENT RUNNER TERMINATIONS 


SAVE PROCEDURE SLEEPCADDRESS* MASK)3 


VALUE 
NAME 


ADDRESS» 
ANDRESS3 


MASK} 


01046000 
01047000 
01048000 
01048100 
01049000 
01050000 
01051000 
01055000 
01056000 
01057000 
01058000 
01059000 
01060000 
01061500 
01062000 
01063000 
01064000 
01065000 
01066000 
01067000 
01068000 
01069000 


%R5601069100 


01070000 
01071000 
01072000 
01073000 
01074000 
01075000 
01076000 
01077000 
01078000 
01079000 
01079100 
041079200 
01080000 
01081000 
01082000 
01083000 
01084000 
01085000 
01086000 
01087000 
01088000 
01089000 
01090000 
01091000 
01092000 
01093000 
01093100 
01094000 
01095000 
01095100 
01095200 
01096000 
01097000 
01098000 
01099000 
01100000 
01101000 
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ARRAY MASKE 
BEGIN COMM 


REAL 
ARRAY 


$ SET OMIT = 


BOOLE 
$ POP OMIT 
END WAIT F 


SAVE PROCEDUR 
REAL CODE} 
BEGIN 


SAVE PROCEDUR 

VALUE MIX3 

RF AL MIX} 
BEGIN COMM 


*)3 
ENT SLEEP MAKES AN ENTRY IN THE BEDs IT IS USED TO WAIT 
FOR AN EXOGENOUS EVENT TO OCCUR == AN ["0 OPERATION 
TO FINISH» OR A TOGGLE TO BE RELEASEDe FOR EXAMPLE, IT 
CAN ALSO BE USED TO CLEAR INTERRUPTS C(SLEEPC121)>) OR TO 
SUSPEND A PROCESS FOREVER CSLEEP(020)), FHROUGH CALLS 
ON COMPLEXSLEEPs IT 1S POSSIBLE TO WAIT FOR ONE OR MORE 
OF A VARIETY OF CONDITIONS TO BE SATISFIED} 

LINK} 

BACK = 42(%J]> 

BAC F +2(¥e%)3 
NOTCNEWLOGGING) 
AN LOGTURNEDOFFe+73 & TESTED IN NOTHINGTODO 


PCBEDe (PRIORTY+6598PCE7777777700000eXCHILCCTF I »LLLeXCHeDELe 
LeXCHe INXeLOD)3 

PCPIMIX+CLICK*LOGLINE D3 

PCO*RDF )3 

LINK © BACKCOJ&CPRIORTY+64)( CTF )3 

BACCOe1) « FLAGCBACKCO] ©« CePCDUP))&CLINKICCTC))3 

CLICK «© @7777777777773 

STOPLOGCPIMIX#1)3 

GO TO NOTHINGTODO3 

OR EXTERNAL CONDITIONS 


E COMPLEXSLEEPCCODE); 
SLEEP C1**P¢eCODE)) ENDS 
E RUNCMIX)3 


ENT RUN IS THE BUSINESS END OF SAVEMIX, IT RESTARTS 
THE JOB WHICH SAVEMIX SAVED; 


PRIORTY © PRYOREPIM]X ©« MIX]} 


$ SET OMIT = 
START 

$ POP OMIT 
TOGLE 
GO TO 
END REINIT 


NEWLOGGING 
LOGCMIXs0)3 


* TOGLE OR STACKMASK3 
EXTERNALS 
LATING SAVED JOB 


SAVE PROCEDURE SAVEMIX(MIXsLOGLINE)3 


VALUE MyXe 


LOGLINEs 


REAL MIXeLOGLINE3 
BEGIN COMMENT SAVEMIX I[S USED TO KEEP A NORMAL STATE JOB IN THE 


WORKS, JIT IS CALLED BY SELECTION TO INITIATE A NORMAL® 
STATE JOB FOR THE FIRST TIME» AND IS USED BY HALT AND 
THE P2BUSY SOFTWARE TO HANDLE THE PROBLEMS OF STOPPING 


PROCESSOR 25 AND NON@EXISTENT PROCESSOR 23 
FORKC@L0O0000XLOGLINE OR PC,RUN) eM[X2"25000)3 
$ SET OMIT & NEWLOGGING 
STOPLOG(MIX20)3 
$ POP OMIT 
END MIX INDEX SAVER3 


SAVE PROCEDURE HALT! 
BEGIN COMMENT IF ANYONE IS RUNNING ON PROCESSOR 2° HALT WILL 


STOP HIM, HALT ALSO ALLOWS FOR THE POSSIBILITY OF 
A NON@ACKNOWLEDGED PROCESSOR 2 INTERRUPT BEING FOUNDe 


01102000 
01103000 
01104000 
01105000 
01106000 
01107000 
01108000 
01109000 
01110000 
01111000 
01112000 
01112099 
01112100 
01112101 
01113000 
01113100 
01114000 
01115000 
01116000 
01117000 
01116000 
01119000 
01120000 
01121000 
01122000 
01123000 
01124000 
01125000 
01126000 
01127000 
01128000 
01129000 
01130000 
01131000 
01132000 
01132999 
04133000 
01133001 
01134000 
01135000 
01136000 
01137000 
01138000 
01439000 
01140000 
01141000 
01142000 
01143000 
01144000 
01145000 
01146000 
01146999 
01147000 
01147001 
01148000 
01149000 
01150000 
01151000 
01152000 
01153000 


AND PERFORMS THE ESSENTIAL OPERATIONS IF NONE WAS3 01154000 

NOPROCESSTOG + NOPROCESSTOG+e13 01155000 

IF P2M]X>0 THEN 01156000 

BEGIN PCHP2)3; 01157000 

$ SET OMIT = NOTCNEWLOGGING) 01157099 
STOPLOGCP2MIX00)3 01157100 

£ POP OMIT 01157101 
PCPRIORTY)3 PRIORTY « #53 01158000 

SLEEPC 10193 PRIORTY « POLISH3 01159000 

IF P2MIX>0 THEN 01160000 

BEGIN SAVEMIX(P2MIXeLOGLINE2)% P2MIX « O03 01161000 

TOGLE «© TOGLE AND NOT HP2MASK3 01162000 

END END END STOPPING SECOND PROCESSOR; 01163000 
SAVE PROCEDURE ENTERLINEQCADReLINEsPRIRTY)} 01163100 
VALUE ADReLINEsPRIRTY$ REAL ADReLINE®PRIRTYS FORWARD? 01163200 

$ SET OMIT = TWXONLY 01163290 
REAW 01163300 
$ POP OMIT 01163310 
PROCEDURE DCWRITECADReLINE?SIZE)3 01163350 
VALUE ADReLINEsSIZES REAL ADReLINEr SIZE} FORWARD} 01163400 
BOOLEAN PROCEDURE BLASTREADCLINEC)3 01163410 
VALUE LINEsC3 REAL LINEeC3 FORWARD) 01163420 
SAVE PROCEDURE IOREQUESTCFINALSLODESCeLOCATION)3 01163500 
VALUE FINAL*® LODESCeLOCATIONS 01163600 

ARRAY FINAL®LOCATION(C *#J3 REAL ILODESC; FORWARD? 01163700 
PROCEDURE OLOWIERDHAROLDS FORWARDS 01164000 
PROCEDURE NOTIFYCANDECMIX)3 VALUE MIX REAL MIX3 FORWARD3 01164200 
PROCEDURE SYSDISKIOC1TOseLsA)$ VALUE TOebLeA$S ARRAY AL*ISREAL [O*eL3 %R6001164300 
FORWARD} ®R6001164301 
SAVE PROCEDURE NEWIO3 FORWARD} 01164500 
SAVE PROCEDURE STARTIOCU)S VALUE Us REAL U3 FORWARD? 01165000 
SAVE PROCEDURE INITIATEDCIOCIODESC®S)3 01166000 
VALUE [10ODESC#S3 01167000 
REAL JONESC#Ss3 01168000 
BEGIN 04169000 

$ SET OMIT = NOTCSAVERESULTS OR DEBUGGING) 01169499 
STORAWAYt= 01169500 

$ POP OMIT 01169501 
ITOQUECS] #2] ODESC; 01169600 
CHANNELCPCTIO)) «© 303 & 01170000 
CHANIOCPC TIO) J) se&CLOCK+PCRTR)3 %R5904170100 
PCCIODESCI]»110)3 01171000 
UNIT£L3I0],016:2) « 33 01172000 

END INJTIATEDCIO3 01173000 
REAL INTERROGATEMASK3 01189000 
PROCEDURE NEXTDCIOS 04190000 
SIF AN INTERROGATE 13S.T0 BE DONE IT IS HANDLED FIRSTSELSE CHECK FOR 01191000 
ZREADY QUEVE ENTRIES WAITING FOR DTTU AVAILABILITY, CDCREQUEST[0] 01192000 

% CONTAINS HEAD OF READY QUEUE IN CF) ALSO IF THERE 1S NO SLOT IN 041193000 

% 10QUVE FOR DC STUFF WILL GET ONE AND WAIT FOR A CHANNEL AS NEGES™ 01194000 

® SARY, CHANNEL AVAILABILITY 18 GOTTEN BY OUTERBLOCK CODE WHEN THE 01195000 

® 1ST INTERROGATE 3S DONESTT MAY BE GOTTEN HERE ALSO WHEN A NEW 10 01196000 

® 1S PLACED IN THE READYQUE, yOQUE SPACE IS GIVEN BACK BY [OF IN]SH01497000 

% WHENEVER THERE 1S NOTHING ELSE T0 SEND To DC, 01198000 
BEGIN 01199000 
LABEL DOT: 01199600 

REAL 10DeVeS3 01200000 
PCPIMyX)3 03200100 

PiMIX «© OF 01200200 

IF UNIT(30),(15%3) < 3 THEN 01201000 


IF INTRGATCTR > O THEN 01202000 

BEGIN 3% 01203000 
INTRGATCTR © INTRGATCTR © 13 01204000 

LLNK « 05 01205090 

LOD t= INTERROGATEMASK3 %R8601206000 

GO TO DOTT: 01206500 

END ELSE 01207000 

IF CLLUNR©CS*STATABLELO))e£CF])#0 THEN 01208000 

BEGIN 01208500 
STATABLELO]+S&(S*STATABLELLLNRI)£4082546]3 01209000 
STATABLELLLNR]+S&0(2514016]3 01209500 
SteLINETABLELLLNR] ta(#P(OUP))80L2614781]5 % RESET READY@ED01210000 

$ SET OMIT = TWXONLY 01210495 
IF SC2135)=POLLING THEN IF POLLINGs KILL WITH ACT INT, 01210500 
LODSEINTERROGATEMASK&S(91929] ELSE 01211000 

$ POP OMIT 01211005 
BEGIN 01211500 
1ODHECCVERSTATABLEL 01212000 

$ SET OMIT = TWXONLY 01212995 
IF S,0323]*MULTI THEN SEQARRAYELLLNRI,(4098) ELSE 01213000 

$ POP OMIT 01213005 
LLNRJ) INX @0400000000000001)8S193919) 01214000 
RCVERMEVIDEITBtSeL)aVC24sond as 01215000 

IF V,05s2]50 THEN LINETABLECLLNRI##S&VL213585]3 01215500 

ENDS 01216000 

DOITS 01216500 
IF (S¢UNIT£E303,CFF]) GTR 1023 THEN 01217000 
1OREQUEST(0»10D+0&830(1234286]) 01217500 

ELSE INITIATEDCIOCIOD#S)3 01218000 

ENDS 01218500 

PIMIX © POLISHS 01221500 

END NEXTDCIO$ 01222000 
SAVE PROCEDURE ENTEREADYQC(T)3 01223000 
VALUE TS REAL T3 01223500 
BEGIN 01224000 
LABEL ENDIT>sBELOW: 01224100 
REAL UsS} 01224200 

$ SET OMIT = NOT TWXONLY 01224495 
REAL LINE®T} 01224500 

IF CS#*UINETABLECLINE])oC2292]=1 THEN 01224800 
BEGIN 01224900 
$ SET OMIT © TWXONLY 01224995 
REAL LINE®XoV3 01225000 

IF CS$aLINETABLECLINEtSIF T GTR LMAX THEN 01225500 
STATABLELT2,LEENKER ELSE 1)),f2182)©1 THEN 01226000 

BEGIN 01226500 

IF S,»LINEDIS = MULTI THEN 01227000 

IF STATABLELT#=SEG@ARRAY(LINE) o(4038))4(CFJ#0 THEN 01227500 

IF Sel21t5) # WAITING THEN &STATION NOT WAITING TO DO MORE 170 01228000 

BEGIN 01228500 

UreTs 01229000 

WHILE CT#SSEQARRAYITI,LINELINK)#U DO 01229500 

IF STATABLECTIJaCCFI#O THEN SANOTHER STAT.ON LINE HAS I/0, 01230000 

BEGIN 01230500 
SEGARRAYCLINE] .(4018)85T3 01231000 

GO TO BELOW 04231500 

END} 01232000 
Xte(ViSGETAREACS,BUFSIZE)) 415 01232500 

PC1)3 SINITIALIZE TEST FOR ACTIVE STATIONS 01233000 

DO IF CUtSSEQARRAY(UJ),(2!2)30 THEN 01233500 


BEGIN 

PCDEL*®0)3 SINDICATE ACTIVE STATION ON LINE, 
STREAMCX8UrStexssuU, CO9st dows eu, C2531 J eV8ePCDUP)#X)3 
BEGIN 

D1isexy) 

DSt=LIT "S$"3SC(CDStELIT "#")3 

SIseLOC UsS]seS]+2;3 

DStSCHRIWCOSSSLIT “#*)3 

DSSeCHRIVCIDSteL IT #3 


DSte2 LIT *PE"3Xs=D13 BSAVE DI FOR MOR STATIONS 


DSte2 LIT t"#e"3 
END3 
XesP}3 
END UNTIL (CUSBU,LINELINK)&T3 
IF P THEN ZNO ACTIVE STATIONS» DONT DO POLL 
BEGIN 
FORGETAREACMEV), L282] 0V)3 
GO TO ENDIT3 
END} 
MEVJteC#PC DUP) SPOLLINGLOS4385 IR CUSESTATABLECLTJILCTC)3 
STATABLELTI&sUaVECTC)$ SLINK POLL INTO LINE QUEUE 
END ELSE GO TO ENDITS 
$ POP OMIT OMIT 
IF STATABLECTJ.CCF) # 0 THEN 
TF NOT SeREADYQ@ED THEN 
we Ee EST ATABLELOLSCCETEO THEN ®PUT LINE INTO READY QUEUE 
EG! 
STATABLELOJ¢SURLINECCIFI3 
STATABLELU.CFFIJsLEENKER#ELINES 


BELOWS 


01234000 
01234500 
01235000 
01235500 
01236000 
01236500 
01237000 
01237500 
01238000 
01238500 
01239000 
01239500 
01240000 
01240500 
01241000 
01241500 
01242000 
01242500 
01243000 
01243500 
01244000 
01244500 
01244505 
01245000 
01245250 
01245500 
01246000 
01246500 
01247000 


END ELSE STATABLELOJtSuaLINE(CTCISLINELCTF) ELSE & ALREADY IN Q01247250 


ELSE GO TO ENDIT? 
WINETABLECLINE ]%aS&¢ 
$ SET OMIT = TWXONLY 
CPCDUP),C2185J=IDLPOLLING) +P (DUP) + 
$ POP OMIT 
1)£21:4236)3 % SETS READY@ED 
ENDS 
ENDIT? 
NEXTDCIO3 
END ENTEREADYQ3 
PROCEDURE USASITAPECAREAs TYPE ®FROMPUPDIR) 3 . %RHR 
VALUE AREAsFROM*USDIRE REAL AREA®TYPE *FROMeUSDIRS 
BEGIN REAL PTNeY$ 
ARRAY ULABL#J3 
LABEL EXITsERROR* VOL»BADeWAITe TIPE TIPS 
SUBROUTINE LABELSPACE3 
BEGIN ULABS®CM(SPACE(11)11810(8838310)3 
MOVECIO®PULABeCCFI"1eULABSLCFI)3 
END LABELSPACES 
SUBROUTINE VOLIFILLS3 
BEGIN STREAMCAREA+ULAB)3 
BEGIN DSt#6 LIT " LABEL "3 DISMDI41s SISBAREAL 
SleST+1i31F Sew” “ THEN DS*7LIT"0" ELSE DS*7CHRI} 
Dl*D]+373 EMID 
SISeAREAS S1teS1453 DSte5 CHRIS ZPHYSICAL TAPE NO, 
END} 
END VOLIFILL3 
SUBROUTINE HDRICHK’s 
BEGIN STREAMCYt#08AREA»Xt20)3 
BEGIN DItsLOC X$ DSte4 LIT *"HDRI"S 


% NOTHING RDY 


01247500 
01248000 
012468050 
01248400 
01248150 
01246200 
01248500 
01249000 
01249500 
01250000 
01250100 
01250200 
01250300 
01250400 
01250500 
01250600 
01250700 
01250600 
01250900 
01251000 
01251100 
01251200 
01251300 
01251310 
01251400 
01251500 
01251600 
01251700 
01251600 
01251900 


STS#AREAS DI seLOc x3 
IF 4 SC®DC THEN TALLYs=13 
YIsTALLyY3 
END3 
YsuP; 
END HDRiICHK3 
SUBROUTINE HDRIFILL3 
BEGIN STREAMCAREAsULAB)3 
BEGIN SIS#*AREAS SlteS]+43 
DIiteDI+i73 DSte7 CHR: SFIOD 
SIs*#S14173 0St=3 CHR} *REEL 
SP:eSl4113 DSi:5 CHR SCDATE 
SI:eS1"8s OSt=2 CHR} BCYCLE 
Sl:#S1473 DS3s5 CHR} SPPDATE 
Dir:eD14¢13 STeaeS1e23 
DSt#5 CHRS SBLOCK COUNT 
DSis? CHR ZRECORD COUNT 
END} 
END HDRIFILLS 
SUBROUTINE HARDFILL;3 
BEGIN PIN? #®PRNTABLECUJ.,£30318J3 
STREAMCPTNsAREA®ULAB)3 
BEGIN SIs*Loc PTN3 DIs#bD1+533 
DS:#5 DECS DItSULAB? &ZPHYSICAL TAPE NO. 
DSts8 LIT " LABEL "3 
END3 
ULABELISeMULTITABLECUIT3 
END HARDFILL3 
LABELSPACE3 
IF FROM#1 THEN 
BEGIN VOLIF ILL 
: PCWAITI0(C@140000005,@377+U)eDEL)} 
PCWAITIOCAREA INX @120540000000:03772U)eDEL)3 
HORICHK3 
IF Y THEN HDRIFILL ELSE GO TO ERROR; 
PCWAITION(C@340000005,@559U) »DEL)3 
PCWAITION(C@340000005+@55*U)sDEL)3 
GO TO WAITS 
END} 
IF FROM a2 THEN 
BEGIN JF TYPEs4{ THEN 
BEGIN VOLIFILL3 
VOL?8 PCWAITTIOCAREA JINX @1205400000005@377eU)»sDEL): 
HDRICHK3 
IF ¥Y THEN HDRIFILL ELSE GO TO ERROR: 
PCWAITIOC63400000050@3779U) DEL); 
GO TO WAIT: 
ENDS 
IF TYPE=2 THEN 
BEGIN HORIF ILLS 
HARDFILLE 
GO TO EXIT3 
END} 
ENDS 
IF FROM&3 OR FROM&4 THEN 
BEGIN IF TYPE#1 THEN 
BEGIN VOLIFILLS 
GO T0 VOL3 
ENO} 
IF TYPE®2 OR TYPE*4 THEN 


01252000 
01252100 
01252200 
01252300 
01252350 
01252400 
01252500 
01252600 
01252700 
01252800 
01252900 
01253000 
01253100 
01253200 
01253300 
01253400 
01253500 
01253600 
01253700 
01253800 
01253900 
01254000 
01254100 
01254200 
01254300 
01254600 
01254650 
01254700 
01254800 
01254900 
01255000 
04255100 
01255200 
01255300 
01255400 
01255450 
01255500 
01255600 
01255700 
01255800 
01255900 
01256000 
01256100 
01256200 
01256300 
01256400 
01256500 
01256600 
01256700 
01256890 
01256900 
01257000 
01257100 
04257200 
01257300 
01257400 
01257500 
01257600 
01257700 
01257600 


BEGIN HDRIFILLS 01257900 
HARDF ILLS 01258000 
GO TO EXITS 01258100 
ENDS 01258200 
IF TYPE=3 OR TYPE®5 THEN 01258300 
BEGIN IF DIR=0 THEN 01258400 
BEGIN PCWAITI0(@340000005+@3779U) eDEL)3 01258500 
PCWAITI0C@3400000059@377»U)eDEL)3 01258600 
PCWAITIOCAREA INX @1205400000005@377»U)eDEL)$ 01258700 
END ELSE 01258800 
PCWAITIOCAREA INX @120740000000°@37/7»U)»DEL)$ 01258900 
HDRICHK$ 01259000 
IF Y THEN HDRIFILL ELSE GO TO ERROR; 01259100 
HAROFILLS 01259200 
GO TO WAITS 01259300 
ENDS 01259400 
IF TYPES6 THEN 01259500 
BEGIN HDRIFILLS 01259600 
HARDFILUS 01259700 
STREAMCULAB) 3 01259800 
BEGIN DIt=ULABS DIt=D1+395 01259900 
DSte1 LIT "4"3 01260000 
END} 01260100 0 
GO TO EXITS 01260200 
ENDS 01260300 
END 01260400 
WAITS PTNt&O} 01260425 
TIP3 IFCCTWOCU) AND PCRRR)) #0) THEN 01260450 
GO TO EXIT ELSE SLEEPCECLOCK]» NOT CLOCK)s 01260455 
PTNSSPTN#}3 01260460 
IFCPTN>120)THEN GO TO EXIT ELSE GO TO TIP: 01260465 
ERRORS PCWAITI0(@4200000000+@377»U) »DEL)3 01260500 
STREAMCTIsTINUCUJ+UL AB) 01260600 
BEGIN SIt#LOc Ty SIt#S1453 01260700 
DSteLIT "#"; DS#S3 CHR; 01260800 
DSte22 LIT ™ INVALID USASI» RW/Le"; 01260900 
END3 01261000 
SPOUTITCULAB®1)# LABELTABLE(UJ+@3143 01261100 
TYPE*O% PTN#O3 01261150 
ETIPS IFCCTWOCU) AND PCRRR)) #0) THEN 01261160 
GO TO BAD ELSE SLEEPCCCLOCK]+ NOT CLOCK): 01261170 _ 
PTNGPTNGL$ 01261180 
IFCPTN>120) THEN GO TO BAD ELSE GO TO ETIP3 01261200 
EXITS MOVECLO+ULAB, LCF J*AREA, (CFI) 5 01261300 ; 
FORGETSPACECULABs(CFI1)3 01261400 
BADt 01261450 
END USASITAPES ZRHR 01261500 
$ SET OMIT = NOTCAUXMEM) 01261999 
ARRAY AUXDATAL*]»* AUXCODEL*]3 01262000 
COMMENT AUXDATA AND AUXCODE KEEP TRACK OF HOW MUCH 01263000 
AUXILIARY MEMORY IS ASSIGNED TO A JOB, IN LEAGUE 01264000 
WITH AUXLIMITs THEY CONTROL THE AMOUNT USED, THEY 01265000 
ALSO ALLOW THE RETURN OF THIS SPACE AFTER PROBLEMS3 01266000 - 
INTEGER PROCEDURE AUXILIARYSPACE(SIZE)3 01267000 
VALUE SIZES 01268000 
INTEGER  SIZE3 01269000 
FORWARD} 01270000 
PROCEDURE FORGETAUXILIARYSPACECSIZEsLOC)3 01271000 
VALUE S[ZEe LOC 01272000 
INTEGER SIZE» LOGS 01273000 


FORWARD} 
PROCEDURE FILLORKILLC As STARTe SIZE» TYPE); 
VALUE Ae START» SIZE» TYPES 
ARRAY AClw]3 
INTEGER START» SIZES 
BOOLEAN TYPES 
FORWARD3 
$ POP OMIT 
REAL SCHEDULEFIDS3 
PROCEDURE REPORTBACKCWHYsP19P2)}3 
VALUE WHYePi1eP23 
REAL WHY eP19P23 
FORWARDS3 
PROCEDURE MAKELOG(MeT)3 VALUE MeoTs REAL MeT$ FORWARD? 
REAL KEYBOARDCOUNTERS 
REAL PROCENURE KEYINCB)S VALUE B83 BOOLEAN BS FORWARDS% 
DEFINE ® KEYIN TABLE DEFINE VALUES FOR “REPLY" 


VAX &= O1#? 
VIL = O28» 
VUL = O38 
VQT = O48» 
VOU & O5#» 
VWY & O68» 
VOK & 218. 
VFM & 228» 
VFR © 23> 
VOF & 24ake 
VCC & 108» 
VIF ® 25#» 
VCT & 324. 
VTL = 3483 


BOQLEAN PROCEDURE WHYSLEEPCMASK)? VALUE MASK$ REAL MASK} FORWARD3% 
LABEL PiPROCESS3 
LABEL P2PROCESS} 
REAL ONEQHONE = @101,0NE0HTWO = @10233% 
REAL NUMESS3 
REAL PBCOUNT3 
BOOLEAN PROCEDURE OLAYCLOC#MIXX})3 
VALUE LOCeMIXX$ REAL LOC#eMIXX; FORWARD] 
PROCEDURE SEEKNAMCAsBeCoDeEeN)$ VALUE Ae BSREAL ApBeCeDeEeN3 FORWARD) 
PROCEDURE UNHOOQUECMIX) 33% 
VALUE MIX3% 
INTEGER MIX3% 
BEGIN2 
REAL UeSeSNoToXele PROCESS 
NAME OLDQ#X} 
LABEL DOLP»DELINKITS 
FOR UeO STEP 4 UNTIL 31 DOS 
BEGINS 
JFCS*UNI TCU), CFF I)#@77777 THEN 
BEGIN2 
WHILE (SN*LOCATQUECSJ CRF FI)#077777 POX 


BEGIN IF CT*NFLAGCLOCATQUEESNIJ)), £385] =% 


MIX THEN? 


IF LOCATQUECSNJ C1191) THEN S*SN ELSE 


BEGINS 


LOCATQUELSJ*LOCATQUELSIJ&TCFIFI3% 


IF UNITCUJ¢CCF) © SN THEN 
UNITCUJe CCF IS; 
RETURNIOSPACECSN)3 


01274000 
01275000 
01275100 
01275150 
01275200 
01275300 
01275400 
01275401 
02015000 
02016000 
02017000 
02018000 
02019000 
02020000 
02020500 
02021000 
02021200 
02021210 
02021220 
02021230 
02021240 
02021250 
02021260 
02021270 
02021280 
02021290 
02021300 
02021310 
02021320 
02021330 
02021340 
02022000 
02023000 
02023100 
02024000 
02052100 
02052200 
02052500 
02052600 
02052700 
02053000 
02054000 
02055000 
02056000 
02057000 
02057500 
02058000 
02059000 
02060000 
02061000 
02062000 
02063000 
02064000 
02065000 
02065100 
02066000 
02067000 
02067100 
02067200 
02068000 


END ELSES 02070000 


S*SN33 02071000 

ENDS 02072000 

END 02072100 

END3 02072200 

$ SET OMIT = NOT DFX3 02072490 
FOR Ut*eO0 STEP 1 UNTIL 9 DO 02072500 

IF EUQLU)>0 THEN %’ EU IS NOT ACTIVE 02072600 

BEGIN 2 DELETE THIS JOBS 10"802072700 
OLDQssLEUQLUII3 02072800 

WHILE CSt#sOLDQ(0J,0FF])<1023 pa 02072900 

IF LOCATQUELSJ «C3%5)=MIX THEN 02073000 

BEGIN OLDQLOJs=CeP (DUP) RLOCATQUELSJCFTF Js 02073100 

RETURNIOSPACE(S)3 02073200 

END ELSE 02073400 

OLDQt#=(LOCATQUELSI)]3 02073500 

ENDS 02073600 

IF CUbeTtsSteEUW, CFF 19<1023 THEN & CHECK FOR QUE EMPTIED02073700 

DO ’ BY 10"S DELETED ABOVE02073800 

IF CSNIt=EUQ(SJ)CFFI271023 THEN 02073900 

BEGIN 02074000 

EUQLS)ssSN&CNOT 0)£3833415)3 02074100 

IF UST THEN EUWSSEUW&SN(1843815) ELSE 02074200 

EVQCU)§=CeP( DUP) I&8SNC333215]3 02074300 

END ELSE 02074400 

Urss 02074500 

UNTIL (CSt@SN,€32:15]) > 10233 02074600 
$ POP OMIT 02074610 
DOLP?: FOR Used STEP 1 UNTIL 31 DOS 02075000 
BEGINS 02076000 

IF (CSeCTeUNITOCUJ) CRF J2#@77777 THEN 02077000 

BEGIN? 02078000 

IF LOCATQUECS),£3#5)=M1X THENS 02079000 

BEGIN 02080000 

IF (XeT,£1385))*0 OR X16 OR X#31 THENO2081000 

GO DELINKIT; 02082000 

IF X*4 THEN 02087000 

BEGIN2 02088000 

IF LOCATQUELSJ,CFFI®@77777 THENS 02089000 

BEGINS 02090000 

leFIRSTWAIT3I3& 02091000 

WHILE WAITQUECIJ#4U% 02092000 

DO | * I41 AND 343% 02093000 

WAILTQUELI] Je% 02094000 

WAITQUECNEXTWAIT*NEXTWAITS 02095000 

+31 AND 31333 02096000 

UNITCUJ©T8@77777(13828320)s 02097000 

END ELSE 02097200 

DELINKITS UNITCUJS=TALOCATQUECSICFTF Js 02097400 
$ SET OMJT » NOT DFX 02097590 
IF CU AND @©76)2#18 THEN 02097608 

IF UNITCUJefCFFI>1023 THEN 02097800 

BEGIN 02098000 


IF EVQLNT4teM( JOQUECSI},£[616)1<0 02098208 
THEN EVQENT4)2*ABS(NOT 0) ELSE 02098400 


BEGIN 02098600 
IF EVQENT4),CFFIJ<1023 THEN 02098800 
LINKEU3 02099000 
PCCEUQ(INTOI] Je JOR): 02099200 


END3 02099400 


& POP 


STARTIOCUD3 
ENDS 
OMIT 
RETURNIOSPACE(S)3 
END ELSE 
PROCE*(CU#23 AND U#24) OR X#3) 
AND X#25 OR PROCES 
END® 
ENDS 
END 3% 
IF PROCE THEN® 
BEGINS 
SLEEPCL e123 PROCE*O3GO TO DOLP2 
ENDs3 


END UNHOOQUEs2 
DEFINE PSF # 3154#3 
DEFINE TERMSETCTERMSET1)*PRTROWETERMSETLI,CPSFJ=1#3 
DEFINE NOTERMSETCNOTERMSETLI®PRTROWLNOTERMSETIIJ.CPSF J #4143 
REAL PROCEOURE GETESPOISKSFORWARD3& 
PROCEDURE DIRECTORYBUILDERCAeDDD)3 


VALUE 


AsDDD3 REAL As’ ARRAY DDDC*)3 FORWARDS 


REAL READERA+READERBS 
REAL CCTBLWORD & DIRECTORYBUILDERS 


DEF INE 
3 SET 


CCCOUNT ® CCTBLWORKD, (FF IR. 
CCTBLADDR = CCTBLWORD,(CF IRS 
OMIT = NOTCPACKETS) 


ARRAY PSEUDOL*#IJ5 BPSEUDOMAX! 
ARRAY PSEUDOMIXE*¥J» NYLONZIPPERE¥J3 ®MIXMAX 


DEF INE 
DEFINE 
DEFINE 
DEFINE 
DEF INE 
DEFINE 
DEF INE 

$ POP 


PACKETPAGELPACKETPAGE1 JSPSEUDOLPACKETPAGE LI) ¢L22126]#;3 
PACKETRECCPACKETREC1 J=PSEUDOLPACKETRECII,(C18:3) #3 
PACKETPBDCPACKETPBD1JSPSEUDO(CPACKETPBD1),€8310) #3 
PACKETACTEPACKETACTIJSPSEUDOLPACKETACT1),Let6)#3 
PACKETERREPACKETERRIJSPSEUDOCPACKETERRIIJ »Cisiles 

PAGESIZE=90083 ® SAME AS PBDROWSZ AT 08699100 
PAGEFULLSCPAGESIZE DIV 3)x5"40#3 & ALLOW FOR & INFO RECORDS 
OMIT 


REAL SPOWORD3 
PROCEDURE TWXOUTCA*BeCeD)$ VALUE ArBeCeD$ REAL AsBeCoD3 FORWARDS 
PROCEDURE MESSAGEWRITERS 


BEGIN REAL RCWH4+032% 
REAL 13 
LABEL Liss 


Lis 
IF REMOTE AND SPOWORD¥0O THEN 
BEGIN 
TWXOUTCMESSAGEHOLDER JINX 1023001 OR Me ABSCSPOWORD))3 
ENDS 
IF SPOWORD20 THEN 
BEGIN 
PCWAITIOCMESSAGEHOLDER INX 120025))3 
PCDELJ 3% 
END 3 
NUMESS # NUMESS*13% 
T © MEOMESSAGEHOLDERI,£18315]); 
FORGETSPACECMESSAGEHOLDER INK 1)3 
IF T # 0 THENS 
BEGIN MESSAGEHOLDERe(33915] «© T3% 
GO TO L& 


02099600 
02099800 
02099810 
02100000 
02100400 
02101000 
02101100 
02102000 
02103000 
02104000 
02105000 
02106000 
02107000 
02108000 
02109000 
02110000 
02110100 
02110200 
02111000 
02112000 
02112100 
02112200 
02112300 
02112400 
02112500 
02113079 
02113080 
02113065 
02113086 
02113087 
02113088 
02113089 
02113090 
02113091 
02113092 
02113099 
02113100 
02113200 
02114000 
02115000 
02116000 
02117000 
02118000 
02119000 
02119010 
02119015 
02119020 
02119200 
02119300 
02119400 
02119500 
02120000 
02121000 
02121010 
02122000 
02123000 
02124500 
02125000 
02126000 
02127000 


$ SET 


ENDS 
MESSAGEHOLDER + 033% 
KILLCCRCWJ] INX NOT 2)3 

END 3% 
OMIT = PACKETS 


PROCEDURE SPOUTITCMESSAGFeTYPE)3 
VALUE MESSAGEs TYPES 
REAL MESSAGE TYPES 


$ POP 
$ SET 


OMIT 
OMIT & NOTCPACKETS) 


PROCEDURE SPOUTERCMESSAGE PUNT TNOSTYPE)3 
VALUE MESSAGE*UNITNOsTYPES 
REAL MESSAGE®UNITNOPTYPES 


$ POP 


$ SET 


$ POP 
$ SET 


$ POP 


$ SET 
$ POP 
$ SET 
$ POP 


$ SET 


$ POP 


OMIT 
BEGIN REAL MKSCWEMESSAGE"1 3 
REAL SeTeMIX3 

OMIT # NOTCPACKETS) 


DEFINE PACKETFREESPSEUDOLCUNITNOJ (C2121) és 


PACKETMASKs@40000000083 
REAL PSDePSWs¥eZ*BB3 
INTEGER NT1LeRS$ ARRAY BUFL#I3 
ReeUNITNO$3 UNITNO? 803 


IF R30 THEN ITF PIMIX#0 THEN Rt =PSEUDOMIXCPIMIX)3 


: IF R>31 AND R<36 THEN UNITNOS2R3 
OMI 
MESSAGE SPC »MESSAGE LOD) £33815] "13 
OMIT * NOTCPACKETS) 
IF TYPE#64 THEN 
BEGIN 
OMIT 
STREAMCAEROSBE=MESSAGE +1) 3 
BEGIN S]s#Bs IF SC#"%e" THEN TALLY?=13 
AUBTALLY; 
END? 
IF P THEN MAKELOGC MESSAGE» TYPE)3 
OMIT = NOTCPACKETS) 
END3 
IF TYPE OR UNITNO#0 THEN 
OMIT 


OMIT = PACKETS 
IF TYPE THEN 
OM{T 
BEGIN 
MIX 8* MEMESSAGE™1],(996]3 
IF MESSAGE>FENCE THEN 
BEGIN S*M(CMESSAGE"1), CCF I™MESSAGE3 
-TEBGETSPACE (CS? 1 26425)413 
MOVE (CS»MESSAGET)3 
FORGETSPACECMESSAGE+1)3 
MESSAGE¢T3 
ENDS 
OMIT = NOTCPACKETS) 
IF TYPE THEN 
BEGIN 
OMIT 


IF MESSAGEHOLDER * 0 THENS 


% CHECK FOR «+ IN 
& FIRST POSITION 


BEGIN MESSAGEHOLDER + MESSAGES2 
FORKCP( ,MESSAGEWRITER) 200029001 )3 


ENDS 


ELSE MCOMESSAGEHOLDER,(£18315)),018215] + MESSAGES 


02128000 
02129000 
02130000 
02131000 
02131999 
02132000 
02132100 
02132200 
02132201 
02132299 
02132300 
02132400 
02132500 
02132504 
02133000 
02133010 
02133129 
02133130 
02133140 
92133150 
02133200 
02133300 
02133350 
02133380 
02133381 
02133500 
02133509 
02133510 
02133520 
02133521 
02133600 
02133700 
02133800 
02133900 
02134000 
02134004 
02134005 
02134006 
02134007 
02134009 
02134010 
02134011 
02134020 
02134030 
02134100 
02134200 
02134300 
02134400 
02134500 
02134600 
02134700 
02134799 
02134600 
02134900 
02134901 
02135000 
02136000 
02137000 
02138000 
02139000 


$ SET OMIT @ 


$ POP OMIT 


$ SET OMIT = 


MCMESSAGE] $$ O&MIX£424385])3 
MESSAGEHOLDER.(18415) © MESSAGES 
NOTCPACKETS) 

ENDS 


MUMESSAGE@1).[986] © QO3% 

IF PCMKSCW,(633815])+DUP) * O THENS 

BEGIN } 

STREAMON©OSX*MESSAGES1)3 

BEGIN SJ] « X3% 
Ls IF SC # "e” THENS 
BEGIN IF SC ™ * THENS 
Bi BEGIN SI « S[413% 
IF $C = * ™ THEN GO TO B33 
IF SC ® ALPHA THENS 
BEGIN SI] # Sy 713% 
DS * CHRSS 


END ELSE GO TO Les 
END 3% 
IF SC * @14 THEN? 
BEGIN DS + CHR3% 
Qs IF SC = @14 THENS 
BEGIN SI « SI+15% 


GO TO Q3% 
END3&% 
GO TO L3s 
END34 
DS ¢ CHRs4 
GO TO Lss 
ENDI% 
DS ¢ CHR3& 
N + DI 
END3% 
NOTCPACKETS) 


NTL*#PS NTL]CONTLo LCF I*C MESSAGE +1) )xB4NT1.63013))x63 
END ELSE NT1*Px63 

IF UNITNO#O THEN JF PACKETPAGECUNITNO"™32]>1 THEN 
BEGIN UNITNOS SUN] TNO@323 


02140000 
02141000 
02141099 
02141100 
02141101 
02142000 
02143000 
02143050 
02144500 
02145000 
02146000 
02147000 
02148000 
02149000 
02150000 
02151000 
02152000 
02153000 
02154000 
02155000 
02156000 
02157000 
02158000 
02159000 
02160000 
02161000 
02162000 
02163000 
02164000 
02165000 
02166000 
02167000 
02168000 
02169000 
02170000 
02171000 
02172000 
02173069 
02173070 
02173072 
02173075 
02173080 


IF NOT PACKETFREE THEN SLEEPCCPSEUDOLCUNITNO) ] »PACKETMASK) 302173085 


IF CPSD&S®PACKETPAGELUNITNOJ)>41 THEN 
BEGIN & JUST TO BE SURE 
PACKETFREE t#FALSE3 
ZtelF CPSWEePACKETRECCTUNITNO]) THEN 60 FLSE 303 
Ste(CYtalr NT1>725 THEN 120 ELSE NT1 DIV 6347) DIV 83 
BUF SSCM( TSR GETSPACE(Z4+826405)42))]&Z(8338210)3 
MCBUF"2),(986)]3803 
STREAMCNS Se AAP@MESSAGE +1 +BUFSeBUF INX Z)3 
BEGIN SIt*AAs DStaN WDS END} 
DISKWAITC@TeZsPSD4*PSW DIV 2)3 
Rss(PSWx18) MOD 303 
IF (BBS=BUFCR+17),0CF 1) GE@® PAGEFULL THEN 
BEGIN STREAMCBUF SSC BUFERI]I)3 
BEGIN DS#e12LIT" "3 
DSte26LIT*ALL FURTHER MESSAGES LOST ba 
2CDLIMDI446)3 DS8e6LIT§x5906"3 
END} 


02173087 
02173088 
02173090 
02173095 
02173100 
02173110 
02173120 
02173150 
02173160 
02173210 
02173220 
02173230 
02173240 
02173245 
02173250 
02173255 
02173260 


PACKETPAGECUNITNOJ8#15 % 70 MAKK OVERFLOW 02173265 

END 02173270 

ELSE BEGIN P(@15400050001000008(BB41)(CTCI)$ % PBDSTOPPER 02173275 

IF PSW30 THEN 02173280 

BEGIN PCBUFL29)+XCH)3 02173282 

PCLBUFL29]JeSTD)3 02173284 

DISKWAITCT»300PSD45)3 02173286 

PCCBUFL29)]»#STD)3 02173288 

END ELSE 02173290 
PCLBUFLR*1))eSTDDS 02173292 
BUFER4+17]15@1540000104000000&BBICTCI& 021732948 

CS+i4(MCBUF INX Z],0C185)#%>"))(8'38310)3 02173296 
STREAMCNE@S"1eCLEsSxB"YeAAS=BUF INX ZeBUF teCBUFLRJ])302173300 

BEGIN 16CDS#SLIT™ ")3 SItsAas 024173305 

IF SC#">" THEN pSt#8 CHR ELSE 02173310 

BEGIN DIsepi=6s BCIF SC#">" THEN DSSSCHR ELSE 02173315 

BEGIN DIt=DIi4+13 SrseS]e13 END); 02173320 

END NCOSt*8 CHR)$ DIFSDI"CLs AA=DI3 02173325 

SISSAAS STtsSI913 02173330 

IF Sc=e**" THEN BEGIN DIseDI"1s DSseLIT™ "3; ENDS 02173335 

CLCDStaeLIT™ ")3 02173340 

ENDSENDS 02173345 
DISKWAITCT+#ZePSD4+PSW DIV 2)3 02173350 

IF PACKETPAGELUNITNOJ>1 THEN 02173360 

IF PSW®O THEN 02173362 

BEGIN PACKETPAGELUNITNO) $#PSp+33 02173364 
PACKETRECLUNITNO] 8243 02173366 

END ELSE 02173368 
PACKETRECCUNI TNO] $=PSW=143 02173370 

PACKETFREE& *TRUES 02173375 
FORGETSPACECBUF)3 02173380 

END’ & JUST TO BE SURE 02173383 

ENDS 02173385 

IF NOT TYPE THEN BEGIN FORGETSPACECMESSAGE INX 1)8PCXIT)302173389 

END3 02173390 

$ POP OMIT 02173391 
$ SET OMIT = PACKETS 02173999 
END3 02174000 

$ POP OMIT 02174001 
IF CNUMESS « NUMESS#1) > 0 THEN 02175000 
SLEEPCCONUMESSJs=0)3% 02176000 

END ELSE FORGETSPACE(MESSAGE+) )3 02176100 

END3% 02177000 
PROCEDURE ENDOFDECKC(R)$ VALUE R3 REAL RS FORWABDS 02177100 
PROCEDURE PBIOCA,B)3 VALUE AS REAL AeBt FORWARDS 02178500 
PROCEOURE TERMINATECMIX)#$ VALUE MIX} REAL MIX3 02180000 
BEGIN IF MIX LE@ O THEN BYBYC "MCP DS#EDets10)3 02181000 

IF PRTROWCM]X) # O THEN 02181500 

BEGIN 02182000 

IF NOTERMSETOCMIX) THEN 02183000 

BEGIN 02184000 

PRTROWEMIX) CFF IEMIX, CFF JS 02185000 

END33 02186000 
PRTROWEMIX],CPSFIJ©13 02186100 
BRINGBACK(MIX,{CF))3 02186200 

END} 02186300 

ENDS 02187000 

REAL PROCEDURE PLACEFINDER(S#AeL)} 02187100 
VALVE SeA3 02187200 

REAL SeAeLs 02187300 


FORWARDS 


ARRAY CIDROW(*J]eCIDTABLE=CIDROW( *e%)3 

PROCEDURE STOPCANDY$ FORWARDS 

PROCEDURE TERMINALMESSAGAC(N)$ VALUE NS REAL NI 
BEGIN LABEL FOUNDsDOIT»OWTe TOIT 


REAL AsTeSsADR3S 
NAME B3% 

REAL MSTART3 
ARRAY FIB(*]3 
REAL BLEN»NBUFS 


REAL MIXER» TOPIOsLUNe LSS 


INTEGER I®S3 LABEL Q23% 


LABEL STT3% 
SUBROUTINE SLAPITOFF 3% 
IF LUN GE@ 32 THEN 


$ SET OMIT = 


PACKETS 


ENDOFDECKCLUN"32) 


$ POP OMIT 
ELSE 


BEGIN SLEEPCCTOGLE J + STATUSMASK)3 


ENDs% 


READY « NOT CI * TWOCLUN)) AND READY32 

RRRMECH © NOT I AND RRRMECH OR [I AND SAVEWORDIS 
LABELTABLECLUN] + @11432 

MULTITABLECLUN] © ROCTABLECLUNI © 03% 


LABEL LBeL BI 3% 


$ SET OMIT « 


$ POP OMIT 


LABEL SK1eSK20SK3} 
BOOLEAN FROMPUNT & 953 
REAL MIXX=P{MIXePIMIX3 
NOTCNEWLOGGING) 
STARTLOGEMIXX20)3 


PIMIXS*MIXX3 

IF FROMPUNT THEN MIXX3=03 
UNLOCKTOGCTAREPIMIXJ)$ 
REPLYCPIMIXJ¢INTABLEROWELPUMIX) «03 
PRTROWCPIMIXI,CPSFIe43 
PRIORTY*#PRYOREPIMIXJen13 
MSTART*MEMEPIMIXoMLINKL J CCF I3 

IF N#35 THEN 


IF JARCPIMIX+O]8"CANDE AND JAREPLIMIX+1}@"TSHARER™ THEN 


STOPCANDY3 
IF FROMPUNT THEN 
BEGIN STREAM(Ne AS BAS RSPACE(15))3 

BEGIN DSteLIT*™"; Sirens 


63ICIF SC#"%*" THEN JUMP OUT ELSE DSI*®CHR)3 


DS#F2 LIT se"3 

END3 

Ns=03 

GO TO SKi3 
END} 
A « IF N «< 0 THEN ABS(N) ELSE SPACE(C1095% 
Bo» PRICPUMIXe4JI13 
IF PCMCLePRTICPIMIXe8)] CCF IJ] eTOPeXCHeDEL) THEN 
S#ADReO ELSE 


% GET SPACE BELOW THE FENCE 


% PICK UP PUNT MESSAGE 


02187400 
02187500 
02187600 
02188000 
02189000 
02190000 
02191000 
02191100 
02191500 
02191600 
02192000 
02193000 
02194000 
02195009 
02195100 
02195199 
02195200 
02195201 
02195300 
02196000 
02197000 
02198000 
02199000 
02200000 
02201000 
02202000 
02202100 
02202150 
02202200 
02202249 
02202250 
02202251 
02202300 
02202400 
02202500 
02203000 
02205000 
02205100 
02205200 
02205290 
02205300 
02205400 
02205500 
02205550 
02205600 
02205650 
02205700 
02205750 
02205500 
02205650 
02205900 
02206000 
02207000 


ZTRO2208000 
%TRO2209000 


NO BEGIN IF PCMELJ+TOPaXCHs Oe INX» gADRe®) THENS OVERLAID RCWTRO2210000 


BEGIN ITF NOT MCLJ,03341) THENSNOT TYPE 13 [NT 


BEGIN S#ADR} &BSEGNO IN RCW 
T*OPADReM(M(L) MOM) CCFIs &® AND THE MSCW 
END ELSE Se*13 


02211000 
02211010 


%TRO2212000 


02212100 


SKit 


TeT+23 


END UNTIL 


FOUND$ 


ADR « 
TePLA 
IF N 
BEGIN 
Be [ 
DISKW 
END E 
STREA 


Ls 


L2as 


END ELSE % ITS PRESENTS WEVE GOT TO WORK %TRO2213000 
BEGIN TieIF ADR>FENCE THEN MSTART ELSE O03 02214000 
WHILE CSteM(T],CCFJ) LSS ADR DO 02215000 
IF S GTR T THEN TteS ELSE PUNTCEPUNTEREOII)3 02215500 
SeIF MET],€C3¢6]"1 THEN MET+19,0CF) ELSE OF %TRO2216000 
END$ BTRO2216100 
IF PRTICPIMIXe8),CCFIJ#L OR MEL*L1],MSFFRESTACK IS MARKEB02216200 
THEN DO LeMELJ,MOM UNTIL NOT MEL J gMSFFXSGET LAST MSCW02216300 


LeMfLJ,MOMSZPOINT L TO NEXT RCWeJUST IN CASEs BTRO2Z216400 
CIF S#0 THEN IF SweC"l) THEN O ELSE 02216500 
(BLO]<S OR NOT BESJ,PBII) 02216510 

ELSE PCMET"2),03t6]*DUP)#7 AND PCXCH) #13 02216600 
) OR L=03 02216610 
ADR#T3% 02217000 
CEFINDERCS*#ADReS)3 02217100 
GTR O THEN 02217200 
02217300 

MESPACE(CTERMSGSZ)1)3 02218000 
AITC"(B INX O)*TERMSGSZ»MESSAGETABLEL1).(22826))3 02219000 
LSE N?=03 02220000 
MCZIMNEOOXteT oe Ts e6e It S(JARLPIMIXe0O) Je 02221000 
PAMIXeINOX*PRTICPIMIXe8) [NX NOT 2 JINX Oe 02222000 
DSZE*IF PCMEPCOUP)4+1]0TOP) THEN P ELSE P,l8810]>» 02222200 
TOGSSC(NB7) 0 QtSCBINJ Je PFESCNOT FROMPUNT).(4781]s A)302223000 
BEGIN CI «* CIl4#Z3 GO TO L132 02224000 
DStsL1T "="3 Syasas 02225000 
S]ieS]4+13 02226000 

IF SC = "8" THEN SIteSl¢4 ELSE 02227000 
BEGIN At®DIs DI'sloc T3 02228000 
OSt#®OCTs DIIFA3 02229000 

END3 02230000 
DSteT CHR} 02231000 

IF TOGGLE THEN GO TO L3 02232000 
OSteLIT"™:"%3 Go TO La; 02234000 

S] # Asse 02235000 

IF SC # Me™ THENS 02236000 
BEGIN SI « ST#i1s A © Sy3s 02237000 

GO TO Liss 02238000 

END3S% 02239000 

DI © ASS 02240000 
02241000 

SI] * Js Sf * SI+13 DS © 7 CHRS DS © LIT "73% 02242000 

St © SI+13 0S © 7 CHRs DS © LIT "H%3¢ 02243000 
SleLOC PIMIX$ DS#2DEC3 AeDI3 02244000 
DIl*#D1°23 DSeFILL3 DleA3 02244500 
PFCSTtwX3 DSte20 CHRE AteDI)3 02245000 
TOGCDI#A3 DSe2 LIT "p 3 AeDIs STeINDX3 02251010 

SKIP SBS IF SB THEN BEGIN DI«INDX3 02251020 

SKIP DBI DS*RESETS DIeAs TOGeTALLY3 02251030 

DS¢12 LIT "EFF JINX JS =*3  END3 02251040 

A*DIS SI*INDX$ DreLOc Qs DS#8 DEC} 02251050 

SleLOc Q: 7CIF SC>*"0" THEN JUMP OUT3 02251060 
TALLY*TALLY4+15 SiewS}*1)3 pleas 02251070 

TeTALLYS D0S¢8 CHR} ODlepDI"T3 02251080 

TCDS*LIT " "23 DieDI@Ts AeDI)s 02251090 
TOGCST*LOC DSZE3 DIeLOc @s DS#4 DEC 02251100 
DI*As DS*5 LIT ™ GE@ "3 SIe#LOc a3 02251110 

TALLY©O3 3CI1F SC>"O" THEN JUMP OUT? 02251120 
TALLY*TALLY+13 SleSI+4)3 02251130 


TeTALLYS DSe4 CHR DleDIeT3 02251140 


SK23 


TCOSeLIT " ")3 DleDI@T3 
DI * AS DS * LIT “e"3% 
END3s% 
IF N#0 THEN FORGETSPACE(B)3 
IF S20 THEN S*S&ADRECTFJ: 
IF LOGLINE,C3387] NE@ O THEN 
BEGIN BREAKELOGLINE.£4086)]8=03 
REPORTBACKCDSWrS&NEBt3B810] 0A); 
END3 
S*A} 
IF FROMPUNT THEN GO TO SK23 
FORGETSPACE(T): 
STREAM(C BRS eAteAS@SPACE(17))3 


BEGIN 17€DS#8 LIT*#*) 3 SleBsDLeAs DI *©D[4+830S"2 LIT" 3% 
17C8cTF SC#™6" THEN DS*CHR ELSE JUMP OUT 2 TO L1)) 3 


List pSe2 LIT" "3% 

ENDs% 

SPOUT(S)3 

IF NOT TERMGO THEN BEGIN HALT34& 
COMPLEXSLEEPC*100=NUMESS) 3% 
DO UNTIL KEYINCQ)#13 


NOPROCESSTOG * NOPROCESSTOG*13 END3% 


JARCPIMIXe1) eM JARCPIMIXO1LI5% 

IF CLOGARRAYE31] AND JOMASK)=Q THEN 
SLEEPCELOGARRAY( 34)43* TOMASK)3 

UNHOOQUECPIMIX)3% 


IF FROMPUNT THEN BEGIN MIXX$=PiMIX$ GO TO SK3 END? 


MIXER® @3004PIMIX3% 


AeD]); 


IF Ne35 THEN % ES*ED 
IF CJARECPIMIX*eO)] EQV "PRNPBT ") = NOT O THEN 


IF CJARCPIMIXel) EQV C@CMDISK "))) = NOT O THEN 


IF CLasPRTCPIMJX*@25)) # 0 THEN 


BEGIN IF CLUNS®L,038:5))9<16 THEN SLAPITOFF3 


LUNGeLe(4385]3 
SLAPITOFF3 
END$ % PRNPBT/DISK ESED: TO CLEAR UNITS, 
STTs TisMEMSTARTI3 
WHILE CLeT,CCFIJI#MSTART DO 
IF CTOMELIESSL2TSMIXER AND T>0% 
THENS 
BEGIN LUN + (TOPIO © NFLAGCMEL42])).C1i2:6)3 
IF LUN 232 THEN 
BEGIN 
FILECLOSECTOPIO INX 0)3 
GO TO STT3 
END3 
IF UNITCLUN),£1385) = @20 
THEN BEGIN? 
QZt% 
SLAPITOFFS 


UNTTCLUN],C13¢5J#=@203% MARK JT NOT READY ANYWAYS 


FORGETSPACECL INX 2)3% 
GO TO STTs&% 
END ELSE 
BEGIN T « 03 
FIB * MCTOPIO INX NOT 2)3 
ADR « NBUF « FIBL13),01991713 
IF PCMETOPIO],£385) eOUP)=22 OR PCXCH)*26 THEN 
BEGIN FOR S « 1 STEP 1 UNTIL ADR DO 
TOIT’ IF NOT METOPIO INX 5]),01921] THEN 


02251150 
02252000 
02253000 
02253050 
02253100 
02253150 
02253200 
02253300 
02253400 
02254000 
02254050 
02254100 
02255000 
02255100 
02255200 
02255500 
02256000 
02256500 
02257000 
02258000 
02258100 
02258200 
02259000 
02259100 
02259200 
02260000 
02260050 
02261000 
02261058 
02261100 
02261150 
02261200 
02261300 
02261400 
02261500 
02261750 
02262000 
02263000 
02264000 
02265000 
02266000 
02266100 
02266200 
02266300 
02266400 
02266500 
02267000 
02268000 
02269000 
02270000 
02270500 
02271000 
02272000 
02273000 
02274000 
02275000 
02275100 
02275150 
02275200 
02275250 


DOIT’ FF LUNS18 THEN 
BEGIN M{TOPIO INX 8],€2081] «+ 03 


02275300 
02275350 


MCMCTOPIO INX SJ) INX 17] © METOPIO INX $102275400 


& FIBCS] CFIC)3 
FIBES) * PCDUPeLODsOoleChXo+)3 
IF NOT PRIROWCPIMIX],€731] THEN 
IF FIBLI4),CCRISFIBC14), CFF] THEN 
BEGIN PBIOCTOPIO INX SeFIB(14))3 


02275450 
02275500 
02275550 
02275600 
02275650 


SLEEPCEMETOPIO INX SJ)J*TOMASK)102275700 


END ELSE 
BEGIN STREAMCC*METOPIO INX SJ 
Z*FIBC14),CFFI)3 


02275750 
02275600 
02275650 


BEGIN SI * C3 DS © 18 WDS3 END502275900 
FIBCI4), CFF] « PCDUP), CFF I7183 02275950 


END3 
END ELSE 


02276000 
02276050 


BEGIN IF WAITIOCMETOPIO INX S]*@3579LUN) .64541102276100 


THEN GO OWT 
FIB[6] « *PCDUP) 413 
END3 
IF AODR<O THEN 
BEGIN IF ADR THEN FIBCE17] © BLEN3 GO OWT? 
END} 
S$ « 03 
IF FIBC17) < CBLEN*F1IB618),£34115]) THEN 
BEGIN IF NOT FIB(13]) THEN 
FIBC17) © *PCDUP)*CFIBL5],£4612)53)3 
MCTOPIO) «© FLAGCFIB(16])3 
STREAMCN*F IBC I7] *+DeMETOPIOJ I CFIJ)3 
BEGIN NCDS « 8 LIT ™ *)3 END; 
ADR « #13 GO DOIT3 
END ELSE ADR « %23 
GO TOIT3 
END ELSE 
OWT$ FOR NT © O STEP 1 UNTIL NBUF DO 
METOPIO INX NT1) © *#PCDUP) OR IOMASK3% 
IF LUNS22 AND LUN2>20 OR CLUNS18 AND 
SERNOT CRI Late e me OURIeee OR PCXCH)#10)) 
HEN 
BEGIN IF LUN < 48 THEN & UNIT IS BACKUP 
BEGIN Se#173% 
STREAMCAsDeLl+4)3 
BEGIN SI*as DS¢17 WDS ENDS& 
NT4*#M(TOPTO INX NOT 2) INX O38 
NTLeMEINT4S414] 3% 
NTZeNTISCFFIE NTLONTie (CF IIZ 
JF MCTOPIOJ,C3#*S)J#22 THEN 
IF NTYANT2°72 THENS 
BEGIN NTYL*#MCENT44+51,0F F138 
MONTO*5S] ¢ CFF JeNTI 413% 
MENT241473¢ @1540004002000000 &NTICCTC)s% 
MINTS4+1 4), CFF J eNT2°1832 
END ELSE 
IF MONT24¢35),£2796]20 THEN MENT2435), 02681) ¢13 
FIBE17) © "13 
MCTOPIO) © FLAGCFIBL16)&80[208478118S(8238310));3 
END ELSE % 
BEGIN Te#CA INX @540000000000000) &(LUN#4#22)(3284731)% 
817068838810) 3% 
IF LUN#22 THEN SIF PUNCH FILE® IGNORE 


02276150 
02276200 
02276250 
02276260 
02276270 
02276280 
02276290 
02276300 
02276350 
02276360 
02276370 
02276400 
02276450 
02276500 
02276550 
02276600 
02276700 
02276750 
02277000 
02278000 
02278100 
02278500 
02279000 
02280000 
02281000 
02282000 
02283000 
02284000 
02285000 
02285100 
02286008 
02287000 
02287100 
02287110 
02287120 
02287130 
02287148 
02287200 
02287210 
02287230 
02287240 
02287250 
02287254 


ENDS 


END ELSE% 


IF WAITIO(@40020000002@3575LUN),£45%!1]) THEN GO Q2Z3 
TeWATTIOC Te @357e¢ LUN) SS 
IF 1.04581) THEN GO TO Q23% 


IF LUN®23 OR LUN®24 THEN’ 
BEGIN ADReL4+43% 


LB: fFCT*UNITCLUN) .01385)=25 THEN’ 


BEGIN ADReT,{(CF]3 


STREAM CAe"END"SADR)3 BEGIN SI ©« ADRES 


LtSt ¢ SI #13 IF SC = * * THEN GO TO LIS 
$ SET OMIT = PACKETS 
DI] « LOC As’ DI * DI+5s IF 3 SC # DC THEN TALLY « 13 A o8 


$ POP OMIT 
$ SET OMIT = NOTCPACKETS) 

DIssLOc AsDIseDl+53 IF 3SC#D0C THEN TALLY!##®0 ELSE 
BEGIN DI*LOC At DS#4 LIT "PACK" DleLOCc A$ 


SieSI*33 


$ POP OMIT 
TALLY END} 


END} 


SK39 


IF 4S8CsDC THEN TALLY*O ELSE 
TALLYt#1 ENDS Ate 


IF P THEN. BEGINS 


UNITCLUN] ©@77777777773% 
END 


ELSE BEGIN MC TOPJOJ*M[TOPLOJOR@2004000000F TH03% 


MEMETOPIOJJ©"END, 


ENDS 


"ROL40164395)8 ENDIS 


IF T#0 THEN’ 
BEGINZ 
LBIITeWALTIOC@40000000+ADRe @367eLUN) 3% 


IF T,04581] THEN GO TO Q23% 


END 


IF Tef4281] THEN GO TO LB ELSES 
GO TO LBIS& 
END3% 


IF T®0 THEN 


IF FIBCS),£4231) 
THEN FORGETSPACE(L INX 2) 
ELSE FILECLOSECTOPIO INX 0)3 


GO TO STT 


ENDS 


FORGETSPACECA)3% 
THEeMCMSTARTI3 

MIXERS ®@4004P1MI X34 

WHILE CLeTs€CFI)*#MSTART DO 


IFCTeMELI)e038L2)@MIXER AND T>O THEN’ 
TF MOMEL+4) CCR I+5) ¢L4is1] THEN FILECLOSE(L47)3 


TSeMUMSTART]3 
MIXERS ®@6004P1MI1X3 
WHILE ClLeT,CCFII#MSTART DO 


IFCTeMELI)¢£3812)2MIXER AND T>0 THENS 
IF MECL4+7),04181) THEN FILECLOSECMEL41] INX 3)3% 


FOR LUNt#0 STEP 1 UNTIL 314 DO 


PRTICPIMIXe9 J) 853 


IF RDCTABLECLLUN},£8%6] = P{MIX THENS 
SLAPITOFF3% 
RSET FOR GETSPACE 


PC,COM5)$ GO TO DIFFCOMS 


END3% 


SAVE PROCEQURE TERMINALMESSAGE(N)3 VALUE N3 REAL NB 
BEGIN NT ©¢ NB 


02287255 
02267260 
02287270 
02287280 
02290000 
02291000 
02292000 
02293000 
02294000 
02295008 
02296000 
02296999 
02297000 
02297001 
02297009 
02297010 
02297100 
02297200 
02297308 
02297301 
02298000 
02299000 
02300000 
02301000 
02302000 
02303000 
02304000 
02305000 
02306000 
02307000 
02308000 
02309000 
02310000 
02311000 
02312000 
02313000 
02313500 
02313600 
02314000 
02315000 
02316000 
02317000 
02318000 
02318050 
02319000 
02320000 
02321000 
02322000 
02322050 
02323000 
02324000 
02325000 
02326000 
02327000 
02328000 
02328500 
02329000 
02330000 
02330100 
02330200 


PCOsSTF)3 
TERMINALMESSAGA(NT1)3 
ENDS 
ARRAY UNITCODEC#)3 
BOOLEAN PROCEDURE READEMFROMDISKCHeIB)3 
VALUE HeIlBs ARRAY HE *) IBC *)2 FORWARDS 
$ SET OMIT = NOTCPACKETS) 
PROCEDURE DRAINOCUNI Te BUMPsERROR)3 
VALUE UNITsBUMPsERROR? REAL UNITS BOOLEAN BUMPsERRORS 
BEGIN REAL T3 
LABEL NEXTS 
UNIT*UNIT*323 
IF BUMP THEN 
PACKETACTCUNITJ$3PACKETACTCUNITJ)"13 
IF ERROR THEN PACKETERREUNITI]S&TRUES 
IF PACKETACTCUNITJ®0O THEN 
1F LABEL TABLELUNIT+32]20 THEN 
IF CIOTABLECUNTTs3)<CIDTABLECUNIT+7) THEN 
BEGIN 
LABEL TABLECUNIT#32]«¢"@143 
TEBGETSPACE(1326495)443 
NEXTS DO UNTIL READEMFROMDISK(CIDROWCUNITI>» 
CMCTIIRL10C8s38810))5 
IF PACKETERRC UNIT] THEN BEGINS 
STREAMCE*"END™$ Qe@14eDeT)$ 
BEGIN SIeLOC Q3 SleSI473 IF SC#DC THEN DI*DI 413 
QeDLi SleQs 
Ls IF SCw* " THEN BEGIN SIleSI413 GO TO L END: 
DieLOC ES DieDI+53 IF 3 SC#DC THEN TALLYe13 
E*TALLYs END3 
IF P THEN GO TO NEXT3 ENDS 
MET INX 10) *UNITCODECUNIT+9)3 
FREECARDCT&CUNIT4+32)(2:42:6]8ERRORCIt193))3 
END ELSE 
ENDOFDECKCUNIT&ERROREC 1419193 
END DRAINQ3 


$ POP OMIT 
REAL STREAM PROCEDURE UNITINCTINU+WHAT)# VALUE WHAT? 
BEGIN3’ 


SI © WHATS 
Ls IF SC =" ™ THENS 
BEGIN SI © Sl#is GO TO L ENODS2 
DI # TINU3% 
$ SET OMIT = SHAREDISK 
37(D1 « Dy+53 
$ POP OMIT | 
£ SET OMIT # NOTCSHAREDISK) 
SiCD] sep] 453 
$ POP OMIT 
IF 3 SC &® DC THEN JUMP OUT3% 
TALLY « TALLY4133% 
S] © Sy"33)5% 
UNI TIN # TALLY22 
END3% 

DEFINE ENTERUSERFILECENTERUSERF ILE’ eENTERUSERFILE2eENTERUSERFILE3) = 
PCEUF CENTERUSERF ILE 1» ENTERUSERF JLE2*ENTERUSERF ILE3) 0 DEL) #3 
REAL PROCENURE EUFCArBol.d) VALUE AeBelLsS REAL AeBebs FORWARD} 
INTEGER PROCEDURE CALCULATEPURGECPURGE)#2& 
VALUE PURGES REAL PURGES 

BEGIN REAL YeD 3% 


02330300 
02330400 
02330500 
02347100 
02347150 
02347160 
02347199 
02347200 
02347210 
02347220 
02347222 
02347230 
02347240 
02347250 
02347260 
02347280 
02347290 
02347300 
02347310 
02347315 
02347320 
02347330 
02347335 
02347340 
02347350 
02347360 
02347370 
02347380 
02347390 
02347400 
02347410 
02347420 
02347430 
02347440 
02347450 
02347460 
02347461 
02348000 
02349000 
02350000 
02351000 
02352000 
02353000 
02353999 
02354000 
02354001 
02354099 
02354100 
02354101 
02355000 
02356000 
02357000 
02358000 
02359000 
02378000 
02378500 
02379000 
023680000 
02381000 
02382000 


ENDS 


DEFINE MIDNIGHT = BEGIN XCLOCKtsx 


REAL MeFseReCeP$ FORWARD? 


$ SET OMIT = 


& POP OMIT 
$ SET OMIT «& 


$ POP OMIT 
Lit 


NWS 


REAL J32 02383000 
REAL C¥+133% 02384000 
STREAMCAS( DATE) BeLY))33% . 02385000 
BEGIN SI*As SI*SI+#33 DS «© 2 OCT DS © 3 OCT END3S 02386000 

Je (0D © € Y#3) DIV 4x14614(Y4#3) MOD 4&4 x 365 *D4PURGE"% 02387000 
1) DIV 14613% 02388000 

IF CY « (CD « D MOD 1461) DIV 365) = 4 THEN3 02389000 
BEGIN Y « 33 D « 365 END ELSE D « D MOD 3653% 02390000 
CALCULATEPURGE © C4xJ4Y¥"3)x100040413% 02391000 
STREAM(C*E£C])$ BEGIN SI*C3s DS «© 8 DEC ENDS 02392000 
02393000 

PROCEDURE CHANGEDATECBUFF)3 VALUE BUFFS REAL BUFF) FORWARDS 02393100 
CLOCK*WITCHINGHOUR? 02393200 

DATES *®CALCULATEPURGE(C1L)3 02393225 
CHANGEDATECSPACEC10))3 02393250 

END#3 02393300 

REAL PROCEDURE TAPELABEL(MoFeReCoP)3 VALUE MeFeRoCoP3 %¥A1023934600 
%A102393500 

S$ SET OMIT #& NOTCDUMP OR DEBUGGING) 02393999 
PROCEDURE PRINTCORECX)3 VALUE X3 REAL XI %10302394009 
BEGIN REAL BeSeNelTe Ks ARRAY Tl¥I9% 02395000 
LABEL Lisb23 %A102395050 
REAL UeMS) %10302395100 
LABEL NWePReSK3 02395159 
DO UNTIL €( U & 02395200 
IF LABELTABLEC20)] = 0 THEN 20 ELSE 02395300 
IF LABELTABLEC21) = 0 THEN 21 ELSE 02395400 
IF PCRRR),£L278#1] THEN 20 ELSE 02395500 
IF PCRRR),(2631) THEN 21 ELSE 0) # OF 02395600 
02396000 

S «+ 03 02396100 
HALTS 02396110 
WAITSTORECO)3 02396120 
STOREDY(OJ«O3 02396130 
WHILE (S * MES)),€33815] ¥* 0 DO 02396200 
IF MCS),.01817] = @1000 THEN 02396300 

B « OLAY(S,[33415]s0)3 02396400 

STOREDYLOJe143 02396500 
NOTCDEBUGGING) OR OMIT 02396599 
Be(DBARRAY INX 2)815[8:38210]3 02397000 
02397001 

DEBUGGING OR OMIT 02397499 
Bt#SPACE(309815(6238:10)3 02397500 
02397501 

IF PCWAITI0C@4000100000049U)),04531) THEN GO TO Li3 ®a102397800 
IF X GTR MJXMAX OR X LSS O THEN XtHO3 %10302398000 
MSteStmeMEMROWE XI, (CFS %10302398100 
IF STASUSEXJ#RUNNING OR SHO THEN %10302398200 
02398500 

DO BEGIN NezIF CT##MCS)]) GTR O AND TelCFJ] NEQ MS 210302399000 
THEN 210302399100 

NOT S INX T INX 1 ELSE 35% 02400000 

IF €S AND @7777) ® ©7777 AND (CT AND @7777) * O THENS 02401000 

N «@ 13% 02402000 
STREAMC(N© IF N>6 THEN 6 ELSE NoSsB)38 02403000 
BEGIN 60(0§ « 2 LIT ™ ")3% 02404000 

DI « BR SI * LOC St SKIP 33 SB3% 02405000 

5(DS*3RESETS 3C]F SB THENS 02406000 

DS ¢ SET ELSE DS © RESETS SKIP SB))3% 02407000 

OS « LIT ™ "3% 02408000 


SI « S3% 


02409000 


NCDS # LIT " "B 2CDSeLIT"™ "3 BCOS*3RESET3% 02410000 


3C1F SB THEN DS*SET ELSE DS « RESET32 
SKIP SB))))3% 
END3% 
K « 43% 
PR! I © WAITIOCB&CCN>6)41)02784682]28640U)3 
IF 1.04281) THEN’ 
I © WAITIOC@4Q0001L0000024eU)3 
If 1.04581) THEN GO TO PR3% 
SK1t S$ ¢ S+63 N © N*63% 
IF N 2 6 THEN’ 
BEGIN? STREAMC AS "63S8)3% 


02411000 
02412000 
02413000 
02414000 
02415000 
02416000 
02417000 
02418000 
02419000 
02420000 
02421000 


BEGIN SI * At IF 48 SC = DC THEN TALLY # 1302422000 


A © TALLY3% 
END3% 
IF P THENS% 
BEGIN IF K THEN BEGINS 
STREAM(B)3 60CDS*2L1T%#") 33 
K * O82 
GO TO PR3% 
END ELSE GO TO SK ENDSEND3S 
IF N > 0 THEN GO TO NW3% 
S * T,03301513% 
END UNTIL S=MS}3 
NOPROCESSTOG «+ NOPROCESSTOG"153 
L2' JF PCWAITION€C@4000100000240U)),(4534] THEN GO TO Leas 
ENDS 
REAL MEMOD3 
PROCEDURE DUMPCORECBUFF 3 
VALUE BUFFS REAL BUFFS 
BEGIN REAL BeSeNsTMeTAeUeD3 
INTEGER [3 
ARRAY TPC#¥}# ARRAY TLE*I]3 
LABEL Xells 
BOOLEAN SUBROUTINE CHKMOD; 
BEGINS 
STREAMCNSMM*MEMOD) $ 
BEGIN SI*LOC MM$ SKIP 40 SBS SKIP N SB3 
IF SB THEN TALLY*13 NeTALLY3 


END3 
CHKMOD ©« P3 
ENDS 
FOR Uss0 STEP 1 UNTIL 15 DO 
IF CMULTITABLECUJ™"MEMORY ") AND 
CLABELTABLECUJ,£5¢25]5"10UMP") THEN GO TO Lis 
FOR UeO STEP 1 UNTIL 15 DO IF LABELTABLE(CUJ#0 
AND PRNTABLECU),(€181) THEN GO TO L13 
BUFF SSBUFFACIS&tiS)913 
STREAMC BUFF )3 
OSte17LIT*#NO MEMDUMP TAPE*"3 
GO TO X} 
Lit MULTITABLECUJ&="MEMORY "3 


LABELTABLECU],C1829]1 501024644447; 

STREAMCAIS"001"sBseCLABELTABLECUIJ))3 

BEGIN SI ¢™ LOC AS SIT 8= ST + 53 
DISsDI+5s DSt23ADD3 

END3 

RRRMECH t® TWOCU) OR RRRMECHS 

BI=GETSPACE(200000)+23 


02423000 
02424000 
02425000 
02426000 
02427000 
02428000 
02429000 
02430000 
02431000 
02432000 
210302433000 
02433100 
A102433500 
02434000 
%A102434050 
0102434100 
2A102434110 
%A102434120 
%A102434125 
%A102434430 
%$A102434135 
%¥A102434140 
ZAIO2434142 
2A10243414a 
02434146 
BAL02434146 
%2A102434150 
¥A102434155 
%¥A102434160 
2A102434170 
$A102434180 
$A102434190 
$A102434200 
%A102434210 
$A102434215 
%BA102434220 
£A102434230 
%A102434240 
01024342590 
$A102434260 
2A102434270 
ZA102434280 
$A192434290 
%2A102434300 
A102434310 
$A102434320 


STREAMCLTT*BUFF,(L33219)<100eBUFF «BUFF .L33315]9B)3 02434330 
BEGIN $A102434340 
DSteBLIT" "3 SItsBs DSte19wDSs; %0102434350 
DI ¢ BS 02434360 
LTTCSI] * LOC BUFFS DS © 2 DECs YUMP OUT 1 TO 49302434365 (9000 
SI « BUFFS; 02434367 
20C8CIF SC#"«" THEN DS*CHR ELSE JUMP OUT 2 $A102434370 
TO L))3 L3 %A102434380 
ENDS %A102434390 
LABELTABLEC(UJ],(115]%e@203 $A102434400 
TLESECMETAPELABELC™MEMORY “eLABELTABLELUJ,(L6842]» %A102434410 
101°10)13810(82368310]; %A102434420 
STREAMCA*PRNTABLECUJ,(0 30816] 5TL)3 02434424 
BEGIN SI*LOC A% Dl*D1+533 DS*5 DEC END3 $A102434426 
TPisCMCTAS=GETSPACE(5132020)42)18513(8838:10)3 %A1024346430 
TMEWOR@I7T37C183781393 ®A102434440 
PCWAITIOCTL&@O5000(CCTFJ200U) sDEL)3 ZA102434450 
PCWAITTIOCL TM) 2@400U) eDEL)} $A102434460 
S203 %$A102434470 
HALTS WAITSTORECO)3 ZA102434480 Bh etteee 8. eee safe 12 de tan eile teak 
STOREDY(0)©03 A102434490 
WHILE (St@MCS)),(33315] NEQ@ 0 DO %A102434500 
IF MCS),01417)"@1000 THEN %A102434510 a Sas neste Ta aig eet, Mee ee oe 
DtSOLAY(SeL£33815]00)3 ¥A102434520 
STOREDY(OJ#13 %$A102434530 
$8203 %A102434540 
DO BEGIN %A102434550 
NeeS,(3383)3 %$A102434560 
IF CHKMOD THEN S 88 &S %$AJ1024634570 
ELSE MOVE(5129SsTA41)3 %A102434580 
TPCO) te S; %A4102434590 
PCWAITIOCTP&@OSOOO[CTF J] 20°U) DEL) %A4102434600 
IF S$ LSS 0 THEN S 35 3584 = S3 BA102Z434619 
END UNTIL (€S1854512),018815)3 %A102434620 
PCWAITIOCB& 20083 388103850 2124583)00°U)eDEL)} $A102434630 
PCWAITIOCEL TM) 2@409U) eDEL)3 $A102434640 
PCWAITIOCTL&@O5000(CTFI+00U) sDEL)S %4102434650 
PCWAITIOCEL TM] 0@400U) sDEL)3 02434652 
PCWAITI06@4740000020003779U) re DELS 02434654 
FORGETSPACECTP)3 3A102434660 
FORGETSPACECTL)3 ®A102434670 OIA Bese ots eee ee 
FORGETSPACECB)3 %A102434680 
LABELTABLELU),0C135)+@013 4102434690 
BUFF SeBUFF,CISti5)°413 %$A102434695 ee ae eee: 
STREAMCUeTINUCU] oLeLABELTABLELU) eBUFF)S %A102434700 
BEGIN %A102434710 
S{!=LOC US ST te S] + 53 #4102434720 7 = ste 
DSte1LIT™ "3 DS2s3CHR}3 %$A102434730 
SleLOC L3 SIleSIl+#13; DS* 1 LIT " "3 DS*7 CHRS %A102434735 
DSte7LIT" DPTEDe"; BALOZ434740 ; : 
ENDS %A102434750 
NOPROCESST0G&*NOPROCESSTOG#13 %A102434760 
X4 SPOUTCBUFF)3 : BAJO2434770 RO, Oe ee ee 
END DUMPCORE3 %A102434780 
$ POP OMIT 02434781 
PROCEDURE NAMEIDCASKTR)3% 02603000 as 7 _ 
REAL AsKTR}S% 02604000 
BEGIN} 02605000 
STREAMCASCAISKTR) 33 02606000 coasts Pry Diora eee 9 ate Soe Bl 
BEGIN DI * A$ DS « 8 LIT "0 "3% 02607000 


DI + DI*7$ SI « KTR3SS 
Lt IF SC & " * THENS 
BEGIN SI] © SI+13 GO TO L END3% 
IF SC = "8 THENS 
BEGIN SI © SI4i3% 
7CIF SC = "eo" THEN JUMP OUT TO EXIT3S% 
DS « CHRIS 
IF $C = *"* THEN JUMP OUT TO LQ3)38 
Las St © SI+13% 
GO TO EXITs% 
END} 
IF SC © ALPHA THENS 
BEGIN 7(€DS © CHR}Z 
IF SC = ALPHA THEN GO TO LASS 
JUMP OUT TO EXITS 
LAt 13% 
LE’ IF SC ® ALPHA THEN & 
BEGIN SI*SI#13 GO TO LES END3s & 
GO TO EXIT3s3% 
END3% 
IF SC & "e* THEN? 
BEGIN DS » CHR SI © SI™4s GO TO EXIT END32 
IF SC & "a" THEN 
BEGIN DS#2 LIT%ee"s SyTeSf+13 GO TO EXIT END3 
DS + CHRSS% 
EXITSA «© SITES 
END3% 
KTR © PCXCH)3% 
ENDS% 
REAL PROCEDURE TAPELABELCMULFID*FIDsREELNO# CYCLE #PURGE)3% 
VALUE MULFIDeFIDeREELNOe CYCLE» PURGES 
REAL MULFIDeF IDs REELNO* CYCLE PURGE 3% 
BEGIN REAL LBL3% 
LBL #® SPACEC(10)3 
STREAM(S 


DATE® MULFIDeFID»*REELNOPCYCLE sPUSCALCULATEPURGE (PURGE) e% 


LBLIS& 
BEGINS 
DS*8 LIT”™ LABEL "3% 
ST*LOC MULFID34 
DS+#WOS33 
OS«WDS33 
OS*3 DECI 
SJ] © LOC DATES SI ©¢« S14+33% 
DS * 5 CHR3% 
ST*LOC CYCLEs3 
DS* 2 DECI 
SI*LOC PUR SIeS1I+33% 
DS*+5 CHRS DSel LIT*ON2% 
5¢pS¢8 LIT"00000000")z 
END3% 
TAPELABEL+LBL3IS% 
_ ENDIS 
REAL ee agt ote eee VALUE LBLSREAL LBL32 
EGIN 

REAL LUNeTMeREELe T3 

LBL © PC,LBLeLOD).C33815)32% 

STREAMCL*LBL43eReCREEL) 3 

BEGIN SIeLs DS#3 OCT ENDS 

LUN*FINDOUTPUTCMELBL 41) eMC LBL42) ¢20e0»REELe On Oe TM)3 


02608000 
02609000 
02610000 
02611000 
02612000 
02613000 
02614000 
02615000 
02616000 
02617000 
02618000 
02619000 
02620000 
02621000 
02622000 
02623000 
02623500 
02623501 
02624000 
02625000 
02626000 
02627000 
02628000 
02629000 
02630000 
02631000 
02632000 
02633000 
02634000 
02635000 
02636000 
02637000 
02638000 
02639000 
02640000 
02641000 
02642000 
02643000 
02644000 
02645000 
02646000 
02647000 
02648000 
02649000 
02650000 
02651000 
02652000 
02653000 
02654000 
02655000 
02656000 
02657000 
02658000 
02659000 
02660000 
02661000 
02662000 
02662100 
02662200 
02663000 


= oo be = 


ne ne Ne I etre Mo ee 


IF LUN20 THEN 


02663100 


BEGIN} 02663200 
STREAMCAPRNTABLECLUN) -C30818) >Te( Tl eLeLBL+6)3 02664000 
BEGIN DI*DI+*#53 SIleLoc As DS*5DEC3 SleSie8s DleTs 02664100 
DS*A8DECs DI*DI"73 DS*6FILL3 END3 02665000 
ROCTABLELLUN) C616) ¢P1MIX;3 02665100 

MUL TITABLECLUNJ*M{LBL41)? 02665150 
RRRMECH*TWOCLUN) OR RRRMECH: 02665200 
PEWAITIOCLBL OR @120500000000s0sLUN) ®DELIS& 02666000 
TMeORP2eMC 18 37311I93% 02667000 
PCWAITIOC OTM] *0e#LUN) + DELI 34 02668000 
FILEMESSAGEC™ OUT"&TINULLUNIC62308186)9T» 02668500 
MELBL+1 J eMC LBL+2) ¢REEL*® Or Oe OPNMESS)3 02668600 

END3 02668800 
LABELASCRATCHeLUNS 02669000 

END LABELASCRATCH3% 02670000 
PROCEDURE NSECONDSFORWARD?IS 02692000 
BOOLEAN PROCEDURE SYSTEMFILECA®B)$ VALUE AeBSREAL Ar Bs FORWARD? 02692500 
DEFINE CHECKSTACKSPACEFIF PCPRICPIMIXe*®] INX 0)"FCOsRDS) LSS 02693000 
6O3RCCANDYINX NEQ@ PIMIXI(4134781) 02693500 

THEN BEGIN P(64eSTS)3 GO TO STACKOVERFLOW$ END#3 BWF 02694000 

REAL PROCEDURE PUTORTAKECMIX»s WHERE s IOeWHAT)3 02700000 
VALUE MIXsWHEREs lOeWHAT3 02701000 
REAL MIX#WHERE® LOeWHAT3 02702000 
COMMENT THIS ROUTINE IS USED TO GET OR RETURN ONE OR MORE 02702100 
WORDS FROM A (PERHAPS) SWAPPED AREAe THIS 02702200 

ROUTINE IS SMART ENOUGH TO NOT OO DISK ACCESSES 02702300 

UNLESS IT NEEDS TOse TOO, IF ONE WORD IS GOTTEN? 02702400 

IT IS RETURNED AS THE VALUEe IF MORE THAN ONE 02702500 

WORD IS GOTTEN» THE VALUE RETURNED IS A POINTER 02702600 

TO THE AREA CONTAINING THE WORDS, THE ROUTINE 02702700 

DOES GETSPACE/FORGETSPACE ACTION ON MULTIPLE*WORD 02702800 

AREAS, OF COURSE JNPUT VERSUS OUTPUT DECIDESS 02702900 

BEGIN INTEGER SeCOUNT*SIZE3 02703000 
DAs TeNORTH3 02704000 

IF CSTASUSEMIX] AND STABLE) © O THEN 02704100 
BEGIN IF 10,f281]) THEN CLICKtsCLOCK4PC(RTR) 41803 02704120 
SLEEPCESQEIMIXI] sO&STABLEL18142%6])3 02704140 

IF CSTASUSEMIX) AND STABLE)®0 THEN PCO*sNOT*RIN)3 02704160 

ENDS 02704180 
SQLIMIX]«meP COUP); 02704200 
COUNT «+ ABSCIO)+C1I080)3 02704300 

10 « [0>0} 02704400 

IF NORTH#(SeC WHERE], (CF IJI2ZFENCE ANDCCT#STASUSE MIX] )5 02705000 
READYSTATE OR TeRDYRPT OR TaeWAITSTATE) 02706000 

THEN BEGIN T #8 SPACECSIZE 38 JOKCCCOUNT+58) DIV 30))3 02707000 
DASDISKSTORECMIXJ] 4(Se*(LMEMEMIXeMLINK1]] 02708000 

INX 1)4#S) DIV 303 02709000 

S¢«S MOD 303 02710000 
DISKWAITC™T*®SIZE*DA)3 02711000 
WHERE*CMET#SI])3 02712000 

END} 02713000 

IF COUNT®41 THEN 02714000 
BEGIN PUTORTAKE*NFLAGCWHERE)3 02714100 

IF NOT JO THEN MEEWHEREJ)] © WHAT? 02714200 

END ELSE BEGIN 02714300 

IF 10 THEN WHAT $e SPACECCOUNT)5 02715000 

PCCWHERE ) »WHAT)3 02715100 

IF NOT 10 THEN PCXCH)3 02715200 
STREAMCS*#PeDePES}ZE*COUNT)3 02716000 


BEGIN Sf*Ss DleDs DS*SIZE wWOSs END} 
PCDELeDEL)$ 
PUTORTAKE*WHAT3 

ENDS 

IF NORTH THEN 

BEGIN IF NOT [0 THEN DISKWAITCT»SI[ZE*DA)3 
FORGETSPACECT)3 

END3 

IF NOT 10 THEN IF COUNT#1 THEN FORGETSPACECWHAT)3 

SQCMIXJeewP (DUP) 3 

END) 


PROCEDURE DIRECTORYFULLC(CPASSBY)3 VALUF PASSBY3 REAL PASSBY3 


BEGIN REAL T3 
STREAMCLOSTS3PASSBY#0+ PIMIXe Ts*Tt*SPACE(10))3 


02716100 
02716200 
02716300 
02717000 


— 02718000 


02719000 
02719100 
02719200 
02720000 
02720100 
02721000 
02722000 
02723000 
02724000 


BEGIN NS¢34 LIT “xe SHOULD H/LE DISK DIRCTRY FULL#"302725000 


SI*LOC PIMIX3 DS*2 DEC 
PIMIX¢DI) DieDI*23 OSe*FILLs DIePIMIX;3 
LOSTCDI«DI™33DSe17 LIT"sSOME FILES LUST=")3 
DSeLIT "eo; 
END} 
SPOUTC(T)3 
TseSPACE(30)3 
MCT+28)+@1143 
IF PASSBY#0 THEN DISKWAITCT#30°PASSBY.[CFJ)3 
FORGETSPACE(T)3 
IF CMEMEPIMIXeOJ]),CCFJ2FENCE THEN 
SWAPCWATTSWAP?1) 
ELSE SLEEP(0+0)3 
ENDS 


PROCEDURE DCERRCR)$ 

VALUE RS REAL R$ 

BEGIN REAL RCWH40;3 
LABEL EOsELeE2rE3eE Ge NEXT» SEARCH® FOUND ENDITS 
REAL AeBeC3 
SWITCH ERREFEOSELSE2PE 39E 4S 
IF (Bt#R,0484))215 THEN GO SEARCHS 
AtZSPACE(10)3 
STREAMCREPREOL HSAs AsVieR C9t4] ee ZtER LIAs4)eAd3 
BEGIN SI&#sLOc R$ 

DStisi4 LIT"#DCA ERR = ROB} 


16(pSt=3 RESETS 3CIF SB THEN DSteSET ELSE DSt#RESETS 


SKIP 1 SR))3 Syt#LOc Y3 


DSSSBLIT*™sTU/BUFE"S DSItS2DECIDOSSELIT"/"3DSts2DEC3 


Rs=ep]3 
ENDs CemP3 
GO TO ERRCBI3 
EQ: STREAMCRERC)3 
DS#®15 LIT ""BAD TU/BU NUM}; 
GO TO NEXTS 
Els STREAMCRE#C)3 
DS#s14 LIT ""BAD RES DESCe"3 
GO TO NEXT3 
E23 STREAMCRERC)3 
DS##15 LIT "*BAD INPUT ADRe"3 
GO TO NEXT3 
E33 STREAMCRESC)3 
DSt#19 LIT “*READ BOUNCED BACK+«"3 
GO TO NEXT3 
Eas STREAMCRESC)3 
DSt#29 LIT™"BUSY INTERRUPT DURING WRITES"? 


02726000 
02727000 
02728000 
02729000 
02730000 
02731000 


®R7102731100 


02732000 
02733000 
02734000 
02735000 


02736000 


02737000 
02738000 
02740000 
02741000 
02742000 
02742500 
02743000 
02743500 
02743900 
02744000 
02745000 
02746000 
02747000 
02748000 
02749000 


%R9502749100 


02750000 
02751000 
02751100 
02751200 
02751300 
02751400 
02751500 
02751600 
02751700 
02751800 
02751900 
02752000 
02752100 
02752200 
02752210 
02752220 
02752230 


a 


NEXT 


SEARCH! 


FOUNDS 


SPOUTITCA®35)3 

AteR,(989]3 

IF B#0 AND B#4 THEN 

FOR Bist STEP 1 UNTIL LMAX DO 

TF ASLINETABLECB),(929] THEN GO FOUND3 
GO ENDIT3 

IF BLASTREAD(Bs3) THEN 


$ SET OMIT = TWXONLY 


IF LINEDISC(CBISMULTI THEN 
BEGIN At®SEGARRAYIB).£4096])3 
STATABLELAI]#=(C#P (DUP) QPCOUP) (23822011810 2484781) 
81(2184731)3 
IF TANKLINECAJ=0 THEN 
IF TAILOUT#A THEN 
BEGIN TANKLINECTAILOUTI]8=A3 


TAILOUTteA; 
STARTWORKINGS 
END} 
ENTEREADYQCB)3 
ENDS 
$ POP OMIT 


ENDITt 


} 
KILLCORCW] INX NOT 2)3 


END OF FUNNY DC RESULT DESCRIPTOR HANDLING 
PROCEDURE DCBUSY(V)3 

VALUE V3 

REAL V3 


BEGIN 


REAL RCWe+03 
REAL A} 
AT=SPACE(5)3 
IF VelCFIJ & 0 THEN 
BEGIN 
STREAMCA)!S DSt329 LIT"*##PREVIOUS INPUTCS) LOST# met 
END 
ELSE 
BEGIN 
STREAMCVESV, CCF] 410A)3 
BEGIN SItsv3 
OStei7 GIT*=*4L INE STARTING "2 DOSteLI TH; 
OSt#19 CHR: 
OStsLIT""") OSsaB LIT * LOST#™ 83 
END} 
FORGETAREACM(VJ,C2t2]9V)3 
END} 
TWXOUTCALS7T*ORSLLN4612) eV, (FF I)3 
FORGETSPACECA)3 
KILLCORCW) INX NOT 2)3 


END BUSY INTERRUPT HANDLER? 
ARRAY SPACER[*]3 
REAL BIGUNS3 
DEFINE BIGUNMIN © 4#;3 
PROCEDURE MOREAREAS} 


BEGIN REAL [eds 
REAL RCW#403 
TeeCJreGETSPACE(1620505)41)4+3 AND NOT 33 


MOVEC 1620 JeJ41)3 
JeTe1593 


02752300 
02752400 
02753000 
02754000 
02755000 
02756000 
02757000 
02758000 
02758090 
02758100 
02758200 
02758300 
02758400 
02758500 
02758600 
02758700 
02758800 
02758900 
02759000 
02759100 
02759200 
02759210 
02759400 
02759500 
02760000 
02761000 
02762000 
02763000 
02764000 
02765000 
02766000 
02767000 
02768000 
02769000 
02770000 
02771000 
02772000 
02773000 
02774000 
02775000 
02776000 
02777000 
02778000 
02779000 
02760000 
02781000 
02783000 
02784000 
02785000 
02786009 
03000000 
03001000 
03001100 
03002000 
03003000 
03003100 
03004000 
03005000 
03006000 
03007000 


ee 


ENO: 


FOR Ie! 


FORGETAREAC291)3 


STEP 20 UNTIL J DO 


AREARDY«TRUE3 


KILLCCRCW) INX NOT 2)3 


SAVE PROCEDURE FORGETAREACNeT)% VALUE NeT$ REAL NoT$ 
BEGIN REAL ReS3 
$ SET OMIT # NOTCCHECKLINK OR DEBUGGING) 


$ POP OMIT 


DO UNTIL T#O3 


PUNE 


REAL SPeMEeMS3 LABEL PUN? 


TePCeTeLOD),CCFI3 


WHILE N#2 AND (SeMER*CIF N THEN 108701346381) ELSE 


SeTCL847813) +TI2.CLb3IeENe4 DO 


BEGIN MES,CFFII.CCF)¢S3 
MCS] ,CFFIJ¢S,CFFI3 
IF T>R THEN TeR$ 


NeN+13 


END3 


IF N&2 THEN BIGUNS+BIGUNS#+13 


MES*MCER*PCMESPACEREIN) JsO&TECTF J eLLUeDEL) aEFFII,CFF II 


eC CF eT} 
MOMCTJ**R&SCCTFIGN( 284682) 1, CFE J] ¢T3 
$ SET OMIT © NOTCCHECKLINK OR DEBUGGING) 
IF CHECK THEN 
FOR Ns30 STEP 1 UNTIL 2 DO 
BEGIN TeeRtsSPACEREIN] CCF ]3 
SPseSteCSPACER(NII,(CF)3 
MSt3M(0),CCFI]3 
MESSPRT,CCEI3 
DO BEGIN 
IF MCR),CFFI#S THEN GO TO FUN} 


IF R#SP 


THEN 


IF MCRJ,C2:2]#N OR MER] GE@ O THEN GO TO PUN} 


St=R} 


IF CRE®MERIJ,CCFJ) LEQ MS OR (R GEQ ME AND R#SP) THEN 


PUNTC3)3 


END UNTIL ReT3 


END3 
$ POP OMIT 
END3 


® DATACOM INVALID LINK 


SAVE REAL PROCEDURE GETAREACN)$ VALUE N# REAL N3 
BEGIN REAL Teelel3 


ENDS# 


LN} 


WHILE CT*SPACERC IJ eCCFIFCSPACERLCIIJI,(CFI DO 


le] 


+13 


DO UNTIL I<23 
MOCSPACERE I IUssTaMeTysT CFF IICRTFI) CFF I] 
eCCFISSCSPACERCIII3% USE LIL AREAS FRM END 


MCTI$BOR8N(224632)323 


IF [#2 THEN 

IF (BIGUNSS#BIGUNS=1) LSS BIGUNMIN THEN 

IF AREARDY THEN TOGLE,(C2532]t23 

WHILE I#N DO 
FORGETAREACT#I"1eCIF I THEN 10 ELSE 9)4T)3 


SAVE PROCEDURE QUEVENTCTeMIX)3 
VALUE TeMIX3 


REAL TeMIX3 


03008000 
03009000 
03010000 
03011000 
03012000 
03013000 
03014000 
03015000 
03016000 
03016009 
03016010 
03016011 
03016500 
03016600 
03017000 
03018000 
03019000 
03021000 
03022000 
03023000 
03024000 
03025000 
03026000 
03026100 
03027000 
03027004 
03027005 
03027010 
03027020 
03027030 
03027040 
03027050 
03027060 
03027070 
03027080 
03027090 
03027100 
03027110 
03027120 
03027130 
03027140 
03027141 
03028000 
03029000 
03030000 
03031000 
03032000 
03033000 
03033100 


®R7#03034000 
£R7FO03035000 
%R7703036000 


03037000 
03038000 
03039000 
03043000 
03044000 
03046000 
03048000 
03049000 


BEGIN MCEVENTECMIXIJ CF FIIeCCFI*T3 
EVENTEMIX), CFF I¢T3 
MUTI ,CCFJ+«O3 
END! 
PROCEDURE COMM13 %&% DISK 170 COMMUNICATE 
BEGIN REAL DA®"5eSZa"6eFer7s LOa"FsRESHO10$ 
ARRAY As"8[%]3 


REAL SeT3 
MET * GETAREACO)J,CFF) « RES3 
IF 10 THEN 


BEGIN IF NOT Ael281] THEN MAKEPRESENTCCIOJ INX 1)! 
MCT#2] © MES © MCAGCFR I] eC OF J*2)8PCSe XCHIC28281)3 
MCT+3)¢MES441)3 PCEMESJ]eIORIS Se*CA INX F)3 


END ELSE 
BEGIN Sta#SPACE(SZ)3 
MOVECSZ»AsS)3 MET#2) + NABS(S)3 
END3 
TSSCMET#1I)3 
DISKIOCTe®NOT O INX S#SZeil2:47s1)eDAa)s 
GO TO RETURN 


ENDS 
PROCEDURE COMM23 % COMMAND LANGUAGE WAIT COMMUNICATE 
BEGIN ARRAY A®"60¥#J3 
NAME CLKE@7eWT#"B$ 
REAL TeS$ 
LABEL X3 
SeAgCFFUS 
IF CTeA,CCFII#0 THEN 
BEGIN MES],CCFJ+«03 
FORGETAREACM{T],C2%2)eT)3 
ENDS 
WHILE EVENTCPIMIX], [CF J#0 DO 
BEGIN IF NOT WTELO) THEN GO TO X35 
CLICK*#CLOCK+P(RTR) +2563 
SLEEPCLEVENTEPIMIXI]+CNOT ODECFI)3 
IF TERMSETCPIMIX) THEN GO TO RETURNS 
END} 


IF CTe#(SeeC(M(SJ@CA&CT©EVENTEPIMIXJIECTCJ) OR M))&TEFTF)),. 


[CF JmO THEN Ty CFF I*CEVENTCPIMIXI)3 
EVENTEPIMIXJ«T3 
LOGLINE®S,CFFI3 
WTLOJeL3 
XP CLKCOJ©PROCTIMELPIMIXJ+CLOCK+PCRTR) 3 
GO TO RETURN 
ENDS 
PROCEDURE LOGOUTS FORWARDS 
REAL PROCEDURE INPUTSCANCMODE* SOURCE #DEST*#NUM*FLAGS)$ 


VALUE NUM* FLAGS 
REAL MODE ® SOURCE ®DEST*#NUMP FLAGS; 
_ FORWARD} 
REAL PROCEDURE OUTRAN9BOCADReNUM* TYPE PLCC eB)3 
VALUE ADReNUMe TYPE eLCC3 
REAL ADReNUMs TYPE s LCC eB3 
FORWARD} 


PROCEDURE GIVEAWAYCA)3 VALUE AS’ REAL As FORWARD? 
$ SET OMIT = TWXONLY 
REAL PROCEDURE OUTRANBIDSCADR*#NUMs TYPE» BoC )3 


VALUE ADReNUM*s TYPES REAL ADR»NUMPTYPE®BeCs FORWARDS 


_ REAL PROCEQDURE OUTRANTCCADReNUMPTYPE ® BoC D3 


VALUE ADReNUMe TYPES REAL ADReNUM*TYPE® Be C$ FORWARDS 


03050000 
03051000 
03051100 
03052000 
03053000 
03054000 
03055000 
03056000 
03056500 
03057000 
03057100 
03057200 
03057300 
03057500 
030568000 
03058100 
03058200 
03056500 
03058600 
03059000 
03060000 
03061000 
03062000 
03062100 
03062200 
03062300 
03062400 
03063000 
03063500 
03064000 
03064500 
03065000 
03065500 
03065600 
03066000 
03066200 
03066500 
03067000 
03067100 
03067200 
03067300 
03067400 
03067500 
03068000 
03069000 
03070000 
03071000 
03072000 
03073000 
03074000 
03075000 
03076000 
03077000 
03078000 
03079000 
03079990 
03080000 
03080100 
03080200 
03080300 


$ POP OMJT 
$ SET OMIT = NOT SEPTICTANK 
PROCEDURE RUNSEPTICCBUFF )3 
SAVE PROCEDURE DISPOSAL(LoeleR)S 
ARRAY ARGHE*]} 
DEFINE SEPTICSIZE © 5008, 
SEPTICEOF * 2498) 
$ POP OMIT 
PROCEDURE MAKEPRESENTCA)$3 VALUE AS REAL A$ FORWARD? 
PROCEDURE COMM9) 
BEGIN REAL 1*?53 
REAL L="7}3 
REAL ARRAY A®"6[%)3 
LOGLINEeL? 
TisGETSPACEC CLS 3A,f82101)+406405) 443 
IF NOT AsC2t2] THEN MAKEPRESENTCEL)J INX 1)3 
MOVECLaAr tl)! 
CCARDC1&26(£384355))3 
GO TO RETURN} 
END3 
PROCEDURE REPORTBACKCWHYs»P1sP2)3 
VALUE WHYeP1eP23 
REAL WHY ePi1eP23 
BEGIN REAL T3 
IF LOGLINE.€33t7)]#0 THEN 
BEGIN MUT#GETAREAC(P220)x2)1,0FFJ+LOGLINES 
MUI T+] eWHY3 
MET#2]¢XCLOCK+PCRTIR)3 
ML T+#3) «P13 
IF P2>0 THEN MOVEC10eP2eT+4) ELSE M(T4+4)¢P23 
QUEVENTCTeCANDEMIX(CLOGLINE,(40%8)))3 


VALUE BUFFS 
VALUE LeleR3 


REAL BUFFS 
REAL LeleR3 


END 
END? 
PROCEDURE TWXOUTCADReNUMs TYPE eLL 
VALUE ADReNUM* TYPE se LL 
REAL ADReNUMPTYPEeLL 
BEGIN LABEL START#EXITS 
$ SET OMIT #® TWXONLY 
LABEL BYEBYE3 
REAL OOP3 
$ POP OMIT 
REAL AeBelLoNoToCoD} 
DEFINE TANKINGSSTATABLELLLJ,OUTPUTANKING#3 
SUBROUTINE RITES 
BEGIN DISKWAIT(CAs 30eGLOMS/ZEXLL4C(L4N) AND NOT GLOMSIZE) 
+TANKADDRESS)3 
NiaNel3 
$ SET OMIT # NOTCSTATISTICS) 
COUNTUPC1601)3 
$ POP OMIT 
MCAJ3#03 
END} 
IF Chisel AND (€"255)) LE@ O THEN 
BEGIN BeSPACEC(CNUM,[3916]+2)3 
STREAMCNGL*NUM, L3I6L6] eN2eNUM* ADR? B)} 
BEGIN SI*ADR? NICDS*32 CHR} DS©#32 CHR} 
DSeN2 CHR DSeLIT %e"3 
END3 
SPOUT(B)3 
PCXIT)3 


FORWARDS 
FORWARD3 


® SEPTICSIZE MUST BE A MULTIPLE OF 2 
% AND SEPTICEOF ® SEPTICSIZE/2 = 1 


03080301 
03080990 
03081000 
03081100 
03081200 
03081300 
03081400 
03081910 
03099000 
03100000 
03101000 
03102000 
03103000 
03104000 
03105000 
03106000 
03107000 
03108000 
03109000 
03110000 
03111000 
03112000 
03113000 
03114000 
03115000 
03116000 
03117000 
03118000 
03119000 
03120000 
03121000 
03122000 
03123000 
03124000 
03125000 
03126000 
03127000 
03127099 
03127100 
03127200 
03127201 
03128000 
03128100 
03129000 
03130000 
03131000 
03131100 
03131199 
03131200 
03131201 
03131500 
03132000 
03133200 
03133300 
03133400 
03133500 
03133600 
03133700 
03133800 
03133900 


STARTS 


$ SET OMIT & 


$ POP OMIT 


$ POP OMIT 


% 


AT THIS POINT DATA™COMM DROPPINGS COHERE TO FORM A MIGHTY EXTRUSION 
$ SET OMIT = TWXONLY 


END} 


IF TERMSETCPIMIX) AND LL#ABSC(SPOWORD) THEN GO TO RETURNS 


IF BREAKELL) OR DISCONNECTINGECLLI OR 
NOT STATABLECLLJ,OIALEDUP THEN PCXIT)3 


03134000 
03134100 
03134110 
03134120 


IF NUM GTR 184 THEN NUM$5184; % & 1 SEG AFTER LINE FOLDINGO3134130 


IF Ub LE@ LMAX THEN 

IF SCHEDLINECLLI THEN 

BEGIN IF STATABLECLLIDIALEDUP THEN 
SCHEDIOCNUM*s TYPE ® CADR&LLEICTFI))3 
PCXIT)3 

END} 

IF NOT REMOTE THEN PCAIT)3 

IF NOTCTANKSCLLJ).C121] THEN 

SLEFPCLTANKS{ LL IJ e70)3 

TIBTANKSCLLIISABSC HPC DUP) )3 

AeT, CCF I]3 

DesTs»aCSOUSE)3 

tale TANKL+D3 

TWXONLY 

IF STATABLECLLJ]gSTATIONTYPE NEQ@ TWX THEN 


BEGIN DteTe CI4tSJ"TNAOGESEQARRAYVELLI,[2686)),0195)3 


03134140 
03434150 
03134200 
03134250 
03134300 
03134400 
03134500 
03135000 
03136000 
03136300 
03137000 
03140000 
03141000 
03141099 
03141100 
03141200 


DtsCIF D < 0 THEN GLOMSIZE ELSE 0)4+D+T,CSOUSEI+N503141300 


END3 


IF D*9 GEQ@ GLOMSIZE THEN 
BEGIN IF D+6 GEQ@ GLOMSIZE THEN 
IF NOT T,C1081] THEN 
BEGIN ME(B*GETAREACO)) 4116103 
MEBIORLOCIB+Ais7JaLLC2524038)3 
TESTANKS(LL] seTRl1C10sa7sids 
QUEVENTCBeCANDEMIXELINE))3 
END3 
IF PCOseRDS)>FENCE THEN 
BEGIN TANKSCLLISSNABSCT)Q101104791)3 
SWAPCWAITSWAP #4 )3 
GO TO START 
END} 
IF D GEQ@ GLOMSIZE THEN 
BEGIN CLICKESCLOCK+10233 TANKSCLLISFNABSC#PCDUP) 3 
SLEEPCCTANKS(LLED J sO8C NOT 1901491435))3 
IF TANKSCLLI,CL481998T, 014819) THEN 
BEGIN TANKS(LLJtSNABSC#PCDUP) )&80(019319814)} 


$ SET OMIT © TWXONLY 


STATABLECLL) §¥C#P (DUP) )80[ 233233113 


PCXIT)3 
ENDS 
GO TO START 
END3 
END3 


IFCDS@STATABLECLLI,STATIONTYPE) * TC500 THEN 
ITF CNUMESOUTRANTCCADReNUM® TYPE sBeC)) LSS 2 THEN 
GO BYEBYE 
ELSE ELSE 
IF D0 NE@ TWX THEN 
IF CNUMSSOUTRANBIDSCADRe NUM TYPE» BeC)) LSS 2 THEN 
GO BYEBYE 
ELSE ELSE 


03142000 
03142001 
03142100 
03142200 
03143000 
03143100 
03343200 
03143300 
03143400 
03143500 
03143600 
03144000 
03145000 
03146000 
03147000 
03148000 
03148100 
03148110 
03148120 
03148330 
03148139 
03446340 
03148141 
03148150 
03148160 
03148200 
03148300 
03149000 
03150000 
03169999 
03170000 
03170100 
03170200 
03470300 
03170400 
03170500 
03170600 
03170700 


POP OMIT 


SET OMIT 
POP OMIT 


SET OMIT 


SET OMIT 


POP OMIT 


SET OMIT 
POP OMIT 


SET OMIT 
POP OMIT 


SET OMJT 
POP OMIT 


SET OMIT 


POP OMIT 
SET OMIT 


POP OMIT 


SET OMIT 
BYEBYE! 


NUMS®QUTRANOBOCADR#NUM@ TYPE ®LONGCARRIAGECLLIJ2B)3 
IF NOT TANKING THEN 
IF CSTATABLECLLIJ.LCF I #0 
TWXONLY 
AND D&TWX) OR (D#TWX AND NOTCSEQARRAYELL), SELECTED) 


? THEN 
BEGIN IF NOT AREARDY THEN 
SLEEPCETOGLE J] *AREARDYMASK)3 

NOTCTWXONLY) 
DCWRITECBeLLeNUM)$ 
GO TO EXITS 

END3 

TANKINGSSTRUES 

TWXONLY 
QOPt=ENCWRITECBelLLeNUM™(DFTWX) D3 
IF D#TWX THEN C,CA7¢1)951 ELSE GO TO EXIT: 


OMIT 


END: 
TANKINGS ®NOTCOOP)S 
IF A®0 OR STATABLELLLJ+SWAPPED THEN 
BEGIN MCA«B@1)eNUM913 RITE END ELSE 
BEGIN IF CTISMCAJ,CCFIX+NUM GTR 232 THEN 
BEGIN 

TWXONLY 

MCAJSSABS(*PCDUP))3 

RITES 

TsRO3 


END$ 
STREAMCNIt5T oe C45¢3) eBeN3tSNUMPN2t BPC DUP el 408210 
TWXONLY 
XrePseECMCA), Lisl) AND Cel2zhdde 


AteT,L3916]+A41)3 
BFGIN DIt=DI4N13 S18sB3 
TWXONLY 
XCSTteST+43 DOL esDyr1)3 


N2(DS1832 CHR} 0S1%32 CHR} 
OSt®N3 CHR 
END STREAMS 
NOTCTWXONLY) 
MCAJSST¢NUM™ 13 


TWXONLY 
MCA] 2=T+NUM*1°D#D3 
IF c OR (C.04521] AND MCAJ,CCFI] NEQ 0) THEN 
BEGIN RITE3 
END ELSE MCA) feCePCDUP)I&CCLI8181)3 


END? 
TWXONLY 
IF Cef4581] THEN EWE R GION DISCONECT Y 
BEGIN IF A®0O OR STATABLECLLJ,SWAPPED THEN AS#BR13 
STATABLEILLI.[(1681]1203 
STREAMCANBA41)3 O0S382 LIT LEFTARROW: 
MCA] 313 RITE3 
TANKING? ® TRUE} 


03170701 
03170800 
03178000 
03179000 
03179090 
03179100 
03179101 
03179900 
03180000 
03180100 
03180190 
03180200 
03180225 
03160259 
03180275 
03180290 
03180300 
03160350 
03180400 
03161000 
03181010 
03182000 
03183000 
03184000 
03185000 
03185090 
03185100 
03185101 
03185500 
03186000 
03187000 
03188000 
03188390 
03188400 
03186401 
03188500 
03189000 
03189090 
03190000 
03190001 
03191000 
03192000 
93193000 
03193490 
03193500 
03193501 
03193990 
03194000 
03194100 
03194200 
03194500 
03194501 


* 03195000 


03195090 
03195100 
03495150 
03195200 
03195300 
93195400 
03195500 


IF STATABLECLLIJ,STATIONTYPE THEN 


TNAOGESEQARRAYILL 1] (2686) ]S8C#PCDOUP)IEIC4284236)3 


END? 
$ POP OMIT 
EXIT! FORGETSPACE(B"1)3 
TANKSCLLIStSNABSC#P(C DUP) IAC PC DUP)» LSOUSE J+N 
$ SET OMIT = TWXONLY 
*00P 
$ POP OMIT 
)€27:42:6)3 
END TWXOQUT$ 
PROCEDURE CLEARTANKCLL»MCP)3 
VALUE LLoMCP3 REAL LLeMCP3 
BEGIN REAL T3 
IF CLisebLi.£4088]) LEG UMAX THEN 
IF LLeO OR SCHEDLINECLL] THEN PCXIT)3 
$ SET OMIT = TWXONLY 
IF STATABLECLLIJ»STATIONTYPESTWX THEN 
$ POP OMIT 
IF MCP THEN 
IF TANKS(CLL],CSOUSEJ & O THEN 
BEGIN STREAMCASE7*CLOCK C4082) eo TSC TiSGETAREACO))41)3 
BEGIN ACDS#eLIT "<")3 DSFELIT "#"3 ENDS 
MOCTIJeSCH#PC DUP) RLLO1034038)3 
ENTERLINEQC(TeLUsQ)3 
ENO} 
1F NOT TANKS(CLLIJ.C181) THEN 
SLEEPCCTANKSCLLIJJ9"0)3 
TtaTANKSCLL IS eABSC*PC DUP) )3 
IF T,CCFI#0 THEN 
IF MCTI#0O THEN 
BEGIN 
& SET OMIT #* TWXONLY 
METI SeABSC*PCDUP))3 
$ POP OMIT 
DISKWAITCT, CCF Je 300eGLOMS] ZEXLL4( (CT, TANKL+T, TANKN) 
AND NOT GLOMSIZE)+TANKADDRESS)3 
$ SET OMIT = NOTCSTATISTICS) 
COUNTUPC 160193 
$ POP OMIT 
MCTI3=03 
STATABLELLL I eOUTPUTANKINGS #43 
Tt313 
END ELSE Ts#03 
TANKSCLL IS =NABSC*#PCDUP)I&CPC DUP), CSOUSEJ+T EC TANKNDIAL)3 
ENDS 
REAL PROCEDURE DCWRITECADReLINE*SIZE)3 
VALUE ADRe LINEs SIZE} 
REAL ADRe LINEs SIZES 
BEGIN 
$ SET OMIT # NOT TWXONLY 
REAL LBAUFsF BUF: 
REAL BUFENTI»BUPSZANT2s ARNT 3} 
IF NOT CPAPERTAPECLINE) OR LOCKEDECLINE]) AND 
STATABLECLINEJ,OIALEDUP THEN 
BEGIN 
BUF IZIF SIZE<28 THEN O ELSE 
CLINETABLECLINE),(613)41),C45t273 
BUFSZ8s(BUF OR PCDUP),(4631))x28 + 283 
po 


03195600 
03195700 
03195900 
03195901 
03196000 
03197008 
03197090 
03197100 
03197110 
03197200 
03196008 
03200000 
03201000 
03202000 
03202600 
03202700 
03202799 
032026800 
03202801 
03203100 
03203200 
03203300 
03203400 
03203450 
03203500 
03203600 
03203900 
03204000 
03205000 
03206000 
03207000 
03207500 
03207599 
03207600 
03207601 
03208000 
03209000 
03209099 
03209100 
03209101 
03210000 


03210100 


03210200 
03211000 
03212000 
03213000 
03214000 
03214100 
03214200 
03214300 
03214900 
03215000 
03215100 
03215200 
03215250 
03215300 
03215400 
03215500 
03215600 
03215700 


BEGIN 


STREAMCADRS X#=]F SIZE>BUFS4 THEN BUFSZ ELSE SIZE» 


XLt@PCOUP)>635 ZI=CALEGETAREACBUF))41)3 
BEGIN SIt#apDR} 
X1CDS#%32 CHR NS#832 CHR)# DSIFX CHR} 
ADRtss]3 
ENDS 
ADRtE#P}3 


IF LBUF#0O THEN MELBUF J tsCe#ePCDUP)@ACCTC) ELSE FBUF3A3 
MCLBUF S@A)taCePCDUP)IELINECLOS4OSBIJRLBUFCCTEIJ3 


END UNTIL (SIZEt#SIZE*BUFSZ) LE@ 03 
MCLBUF ]t=¢*PCDUP))81(46478173 
ENTERLINEQCF BUF eLINE® 0) 3 

END3 


$ SET OMIT # TWXONLY 


03215800 
03215900 
03216000 
03216100 
03216200 
03216300 
03216400 
03216500 
03216600 
03216700 
03216600 
03216900 
03217000 
03217100 
03217300 


REAL BUFENTL + NRENT2Ze ASNT 3eDENTAADISCENTS@CCNTSNTOOLTINGNTZ@L BUF SABCIO3217400 


REAL STYPseTeTNePMePCeoL MeL Ce TEXTMDo LF CeNFCANT7 ¢ SePME 
LABEL LINKEMIN®GNCePNCeDOTCePOPsPOLs SEND} 
LABEL IGNOREOQUTPUT+sGETANUTHERBUF 3 
IF PAPERTAPECLINEI OR LOCKEDILINE] OR 
NOT STATABLECLINE], ,DIALEDUP THEN GO IGNOREQUTPUT? 


BUF PeCCLTINGSLINETABLECIF LINE GTR LMAX THEN STATABLECLINE] sLEENKER 


ELSE LINE]),£683) + 1),045:2)3 
IF SIZEat THEN BUFE=O3 
BUF teBUFRCCPCDUP) OR PCDUP),(4681]) X 28 + 2B)CCTFII 
IF CSTYPYSSTATABLELLINE) sSTATIONTYPE?) NEQ TWX THEN 
BEGIN 


TNSBTNAOGECTISSTANKSCLINED&(SHSSEQARRAY(CLINE) 1£4212636)),£4216))3 


CCONTIATSC1998)3 
END ELSE 
CCNTS203 DISCt=t3 
DO 
BEGIN 


GETANUTHERBUF IF DISC GTR 2 THEN BUF S#O08&28( CTF]: 


DIFCASeGETAREACBUF,CCFI))413 
TF ONRteABCSeBUF,£FF I) GTR SIZE THEN NRESSIZE3 
IF STYP = TWX THEN ZSPITWX JT Qui 
BEGIN} 
STREAMCALSEADRE XteNRe NRSSPCDUP),£4121]*2 D3 
BEGIN SI#3A13 NRCDS1832 CHRS OS#a32 CHR)? 
OSt#X CHR} ALt#es]3 
END STREAM} 
ADRisP3 
GO LINKEMIN3 
ENO ELSE NRIF03 
IF DISC#7 THEN GO POP! 
IF SIZE * 1 THEN 
BEGINS 
STREAMCDISC8SOLADReHBITS=T»L1i2tile 


EOTBIT#sCPC(DUP)#0) AND (DISC LSS 29)0D)3 


BEGIN SIs*ADR$ IF SC#LEFTARROW THEN 
SlesSl¢is IF SC#LEFTARROW THEN 
BEGIN TALLY1=283 | 
EOTBITCDSS2LIT "$"s TALLYt#29)3 
HBITCOS#eLIT "#3 TALLYI#5)3 
DSt#LIT LEFTARROWS 
ENDS 
DISCIETALLYS 
END STREAM} 
IF(DISC#®P) GTR O THEN 


03217500 
03217600 
03217700 
03217800 
03217820 
03217900 
03218000 
03218100 
03218200 
03218300 
03218400 
03218500 
03218600 
03218700 
03218800 
03218900 
03219000 
03219050 
03219100 
03219200 
03219300 
03219400 
03219500 
03219600 
03219700 
03219800 
03219900 
03219950 
03220000 
03220100 
03220200 
03220300 
03220400 
03220450 
03220500 
03220600 
03220700 
03220750 
03220800 
03220900 
03221000 
03221100 
03221200 
03221300 


NOSELS8 


ITN3 


NEX% 


NEWPGS 
PYLONS 


BEGIN Teli2sl]ssFaLSE3 
GO LINKEMIN3 


END ENDJ 
IF DISC # 3 THEN 
BEGINS 


STREAMCD)3 

DSts2 LIT “Hes 
DISCi*#2}3 
GO LINKEMIN} 


END3 
IF NOT T.f12%1) THEN ZTIME TOO 
BEGINS GET AHEAD 


IF NOT T.C€13t1] THEN 
BEGIN MELMSsGETAREACO) I] tF08LINECI1084016)82(554335)3 
LBUF s@LM&LMCCTF]3 
EFND3 
STREAMCTNs SIN, C38t10] eBOP SBC TEXTMDER 
CIN, £2888] OR TNel4286))80)3 
STAD@eSeCLiePCDUP) C24tileC2t*S,f2531)» 
C32eCPCOUPI4AS, C24th))»+ 
MFHSeCLTIN,LINEDIS#MULTI)» 
EOLEBCTN, C2888)415TN,[ 2088) )2 
ERASURT CASIL »BIDIFCSTYP2BIDS De 
TCHESCSTYPSTC5O0)« 
TXTESTEXTMDSBCSTATABLECLINE J ,L2381)29De 
SELISsLMsei)3 
BEGIN 
ERASC JUMP OUT TO NOSEL) 
MFHCSLeeLoc STAD3 SI[t#S[+23 
DSasLIT “"S%s CICOS#eLIT "#"%)s DSTSECHR} 
C2CDSHSLIT "#"%)3 OSIEFCHRS C3CDSteLIT "#")3 
DSteLIT "0")}3 % SELECT MULTI 
DSte2 LIT “Ke % OR CONTENTION 
DIteD) 
MFHCSIt#LOC STADS SI3s8SI¢23 
DOSteLIT "2"3 CLICDSHELIT "#"93 DSSSCHRI 
C2CDOSteLIT "#")3 OSSECHRS 
C3CTCCUUMP OUT 2 TO JTNI3 DStaLIT “"#")>3 
TCCSYtRLOC TNS DS8a3 DEC} 
IF TOGGLE THEN TALLY#s0 ELSE TALLY# 313 
TNEMTALLYS OS2"LIT "#") 93 
DSseLIT "3 
TCC JUMP OUT TO PYLON)S3 
ERASCBIDCDS##3 LIT "» “s JUMP OUT 2 TO NEX)3 
BOPCJUMP OUT 2 TO NEX)3 DS#"3 LIT "1 "93 
BOP(OS:#2 LIT “mes JUMP OUT TO NEWPG)3 
BIOCJUMP OUT TO NEWPG)S DONT DO BACKSPACE FOR BIDS 
DSis3 LIT "C "3 
EQLCOSts3 LIT "3 "93 
TXTCDSteL IT *#")3 
BOP teDy) 
END HEADING STREAMS 
OrePs PMreP3 
IF STYP*®TCSO0 THEN 4UP TRANSMISSION NUMBER 
TNAOGET, C42:6)] ]s eC uP CDUPJIACIF PM THEN 4 ELSE 
PCDUP) ¢638210)41)(36:38110)3 
TeeT&201284612]3 
ABC EBABC7(D.0630983)8(CD9A%1)030833815))3 


ENDS | SHEADINGOUT FOR RETAILNG 
If STYP NEQ TC500 THEN %BID FOR CONRAC 


03221350 
03221400 
03221500 
03221600 
03221700 
03221800 
03222000 
03222100 
03222200 
03222300 
03222400 
03222500 
03222510 
03222520 
03222530 
03222540 
03222600 
03222620 
03222700 
03222750 
03222800 
03222850 
03222900 
03223000 
03223200 
03223250 
03223300 
03223350 
03223400 
03223500 
03223600 
03223700 
032238600 
03223850 
03223900 
03224000 
03224100 
03224200 
03224300 
03224400 
03224500 
03224600 
03224800 
03224900 
03224950 
03225000 
03225040 
03225050 
03225060 
03225100 
03225200 
03225300 
03225400 
03225500 
03225600 
03225700 
03225800 
03226000 
03226200 
03226300 


GNC 3 


LASTC! 


PNCS 


BEGIN 


NR#303 


IFCPMS®TN¢f1436))50 THEN GO DOTCS %MAX LINES/PAGE 


IFCUME#®TNSC2088))980 THEN GO DOTCS SMAX CHAR/LINE 


IFCPCS®TN.(4216)) GE@ PM THEN GO POPS SLINES/PAGE 


IFCLC8*®TNef2826]) GEO LM THEN GO POLS BCHAR/LINE 
IF DISCONNECTING&LINE) THEN PCt#13 
IF CONT + NR GEQ SIZE THEN GO SEND3 
IF TEXTMD THEN 
BEGIN 
STREAMCNCEBOSALIFADR® 


03226400 
03226450 
03226500 
03226600 
03226700 
03226600 
03227000 
03227300 
03227200 
03227300 
03227400 


MC3*CIF LM*LC LE@ ABC*NR THEN LMWLC ELSE ABC#NR)03227500 


a 
MWtSPCDUP),C4131) x 2eFCTIELFCeDLI50893 
BEGIN DfseD13 S13"8A13 
FCTCIF Sca*#" THEN JUMP OUT TO LASTC)3 
TALLY3 803 FCTESTALLY3 
MWC32CIF ScHt#" THEN 


BEGIN MCSSTALLYS TALLY##03 MWSeTALLY3 


JUMP OUT 2 TO LASTC3 
END ELSE DSt#CHRI TALLYtaTALLY+1))3 
MCCIF SCe"#" THEN JUMP OUT ELSE 
DStaCHR3s TALLYSsTALLY+1)3 
MCI@TALLYS 
DiseO13 DiseLOc NCS DNlsaDl +73 
DSIt®CHRS ALSESIS 
END STREAM} 
DisPs IFCLFCt#P) THEN PCDELe DEL) 
ELSE NRERPCI2exe ee DUP er L Coe sb CeSTDeNRe edi 
END ELSE 
STREAMCNC2 S02 ALE ZADRE D3 
BEGIN SYs7A13 OLtRLOC NC3 
OLr=DI4+73 OStBCHRS ALteS]3 
END STREAMS 
ADRIEP} 
IF CNFC8#P) * 31 THEN GO SEND3 %GROUP MARK 
IF TEXTMD THEN 
BEGIN 
IF NFC#®60 THEN TEXTMDSSFALSES SCHANGE MODE 
GO PNC) 
END ELSE 
IF CNFC@43 OR NFC#44) THEN LF OR CRLF 
IF DISCONNECTINGELINE)] THEN 
BEGIN IF NFC#43 THEN NFC8#483 GO PNC END 
ELSE BEGIN IF STYP®BIDS THEN 
BEGIN LC8803 NFC8#433 END ELSE 
IF NFC#44 THEN LO3803 
PCs=PCel3 
END 
ELSE IF NFC#®60 THEN TEXTMDS®TRUE SCHANGE MODE 
ELSE IFCNFC#®4 OR NFCB58) THEN LC8#PC820 SHOMER 
ELSE IF NFC#®29 THEN LCISLC"l ZBACKSPACE 
ELSE IF NFC#3 THEN PCtsPC=4 ZREV LF 
ELSE IF NFC#2 THEN LC#abhCei3 ®NON DES SPACE 
STREAMCNCt@NFCESD)3 
BEGIN Sft#LOC NCS SIteS]4735 
DS#teCHRs NCSBO]3 
END STREAM 
DIP; 
IF NFC#60 THEN LOSaLce+LFc 


03227550 
032276090 
03227650 
03227700 
032278600 
03227900 
03228000 
03228100 
03228200 
03228300 
03228400 
03228500 
03228550 
032268600 
03228650 
03228700 
03228750 
03228800 
03228900 
03229000 
03229100 
03229200 
03229300 
03229400 
03229500 
03229600 
03229700 
032296800 
03229900 
03230000 
03230100 
03230200 
03230500 
03230600 
03230700 
03230800 
03230900 
03231000 
03231100 
03231200 
03231300 
03231400 
03231500 
03231600 
03231700 
03231800 
03231900 
03232000 


POP: 


NEWPG? 


FIRES 


PAN! 


POLS 


SENDS 


END ELSE 


FLSE LCOssLC+#TEXTMD; 


NREENR+LI 


JF LC GEQ@ LM OR PC GEQ PM THEN 


BEGIN 


BEGIN PC%#PM3 


BTHERE TS A LINE FULLOFIT 
JF DISCONNECTINGCLINEJ THEN PCiwl3 
IFCPCiePC4t) 


GEG PM 


THEN ND A PAGE 


SFULLSOFIT 


IF NRSABC THEN GO LINKEMIN 


END END ELSE 


LC! 
ENDS 


ELSE 
BEGIN} 


BEGIN 


IFCDISC8*P)%2 THEN 
IF LC GE@ LM THEN 


BSTUFF A BUFF TE, CETXIT) 
STREAMCF1tsCABC*NR GEQ CTEXTMD45))3 


FesSeTEXTMDe 
F4teC(PC GEQ PM)eD)s 


TALLY$#73 


FiC FACDS#HsLIT "#");3 
FACDSt#3 LIT "4 M3 
JUMP OUT TO NEWPG)$ 
DSt#3 LIT "1 3 
DSteLIT "#3 TALLY#22)3 
OStsLIT LEFTARROWS FISeTALLY3 
END STREAMS 


RSTUFFED AND BUFFED 


BEGIN? STREAMCALS#ADReFRYSSTEXTMDS D3 
BEGIN SJtsA1# TALLY#2t3 


IF SCBLEFTARROW THEN 


03232100 
03232200 
03232300 
03232400 
03232500 
03232600 
03232700 
03232600 
03232900 
03233000 
03233100 
03233200 
03233300 
03233400 
03233450 
03233500 
03233600 
03233700 
03233600 
03233900 
03234000 
03234100 
03234200 
03234300 
03234400 
03234500 
03234600 


BEGIN ALSRTALLY? TALLYta04 FRYtSTALLY &—ND#03234700 


FRYCIF ScR"#" THEN 


BEGIN SIt®Sfe13 TALLY3a23 


IF SC®LEFTARROW THEN JUMP OUT TO FIRE 


ELSE 


IF ScB"#™ THEN 


BEGIN TALLYtais FRYCTALLY3*80)3 
FRYt#TALLYS SIls#S]ed3 


END 


GO TO PAN3 
ELSE TALLY&#*13 
END ELSE BEGIN TALLY#=03 FRY3*TALLY END3 


ALteTALLY? TALLY#=13 


FRYCTALLY##0)3 


FRYte TALLY) 3 
END STREAMS 
TEXTMDEsP3 
CCNTSSCCNT#PS 
END ELSE IFCSIZE*NR*CCNT) LE@ 3 THEN 


CONTSSSIZEPNRE 


GO LINKEMINS 
BPAGE NOT FULL 


BLCO*LM3 


LFCHESCIF LFC THEN O ELSE CNFC®60))3 
IF NR LSS ABC THEN GO GNC 
ELSE IF CCNT#NR GE@ SIZE AND NFC®60 THEN 


DISCt#73 


CCNTt#SIZE*NRS 
IF T.CSOUSE) GTR 1 THEN 
BEGINS STREAM(CD)3 DSSeLIT LEFTARROWS 
END ELSE 
GO POP) 


2106500 


GO LINKEMINE 


03234800 
03234900 
03235000 
032351300 
03235200 
03235300 
03235400 
03235500 
03235600 
03235700 
03235800 
03235900 
03236000 
03236100 
03236200 
03236300 
03236400 
03236500 
03236800 
03236900 
03237200 
03237300 
03237400 
03237500 
03237600 
03237650 
03237700 
03237600 
03237900 
03238000 
03238100 
03238300 


DOTC! BEGIN IFCNR$#ABC) GTR SIZE*CCNT THEN NR&SSIZE*CCNTS 
STREAMCDISCHSLeALE@ADRE 
XPZNReNRSBPCDUP), C4191)» 
LASTBSeCCCCNT+NR) GEG SIZE)» 
BUNGIT##CABC"l GTR NR)o 
CRAMITS*®CABC GTR NR)*D)3 
BEGIN SIseAq) 
NR(DS1%32 CHRS DSt#32 CHR)} 
DSteX CHR3 
LASTBCTALLY3#33 
CRAMITC(OS#aLIT "#"3 
BUNGITCDS#3LI17T LEFTARROW)$ TALLY!=2)3 
DISCSFTALLY)S 
AlteSt: 
END STREAM! 
ADRt#®P3 DISCEEP3 
END TC5003 
LINKEMINGS 
MEAIS=C*#PCDUP)IRLINECLOS4OLSJRLBUFCCTF)3 
IF LBUF NE@ O THEN MELBUF)+=(«PCDUP))R&ALCTC) 
ELSE LBUF LFF JseA3 
CCNTEMCCNT4+NR} 
IF STYP THEN 
INGSBINGLCL26& A408 8IRPCL4234226)3 
IF DISC GE@ 12 THEN MCLBUF ] eC #PC DUP) )&8DISCL724333)3 
IFCDISC GEQ@ 3 AND DISC) THEN GO GETANUTHERBUF 3 
END UNTIL CCNT GE® SIZE OR DISC GTR 13 
MCLBUF J 8aCe#PC DUP) )QDISCL 42473193 
IF STYP NEQ@ TWX THEN 
BEGIN 
IF CCNT LSS SIZE THEN 
Te@TQCCNTL19$40:6) 
ELSE 
TESTACT,CSOUSEIS CPC DUP) #0) )C194834314]8 
CTe61495)41)901434335]3 
IF MCLBUF,CFFI),€515)%2 THEN SEQARRAYCLINE JS =NABSC#PCDUP))3 
TANKSCLINE]82C*PCDUP) 870138138 20)8 
D0ISC(128473133 
IF STYP THEN 
BEGIN TNAOG(T,C42:6) ) te C*PCOUP)I&LCLC2684OsBaPce42r4aar6)) 
STATABLECLINEJ&3(#P( DUP) I&TEXTMDC2384731)3 
END3 
END3 
ENTERLINEQ(LBUF CFF) »LINE?0)3 
IGNOREOUTPUT} 
DCWRITES®TANKSCLINE).<£19814]80 AND STYP#TWX3 
$ POP OMIT OMIT 
END DCWRITING3 
PROCEDURE SPOSETCTYPEsBUFH)S VALUE TYPEsBUFHS REAL TYPE*BUFH: FORWARDS 
PROCEDURE QUITTERCLINE)3 
VALUE LINES REAL LINE} 
BEGIN REAL RCWF403 
REAL MIXeTeleSTAeS3 
ARRAY Al#]}3 
LABEL EX[T*BSBeNRDONES 
STA*LINE LFF IS 
IF LOCKEDCLINESSLINE.CCFI) THEN COMPLEXSLEEPCNOT LOCKEDILINE))3 
TE CS*STATABLECSTA))e017812 THEN GO TO EXIT; 
SSET QUITN * QUITTER INTERLOCK 


03238400 
03238500 
03238600 
03238700 
03238750 
03238800 
03238850 
03238900 
03239000 
03239100 
03239200 
03239300 
03239400 
03239450 
03239500 
03239600 
03239700 
03239900 
03240000 
03240100 
03240200 
03240250 
03240300 
03240340 
03240360 
03240380 
03240400 
03240600 
03240650 
03240700 
03240800 
03240900 
03241000 
03241100 
03241200 
03241300 
03241350 
03241400 
03241500 
03241530 
03241540 
03241550 
03241560 
03241600 
03241700 
03241800 
03241870 
03241890 
03241900 
03245900 
03246000 
03246050 
03246100 
03246120 
03246140 
03246168 
03247050 
03247200 
03247350 
03247500 


She eo te PE. eee ater ed 


SeS&1li7:478433 
IF C}eS.CCFJ)#0 THEN 
BEGIN Z3THROWAWAY THE LINE QUEUE 
DO FORGETAREACCT#ME II) C2:2)91) 
UNTIL CleTefCF]) #08 
S+SaOCcTCc)s 
END} 
IF CLESLINETABLECLINEJ2eCCF) # O THEN 
BEGIN STHROWAWAY INPUT QUEUE 
LINETABLECLINE J @eTaOCCTCc)s 
DO FORGETAREACCTS3MC1)),0282)91) 
UNTIL C191, CFF ))803 
END} 
METESGETAREACO)  EeCePCDUPIISSTALIOP4OSB RL Hs 4734)3 
GJVEAWAYCT)$ ZQUEUE INPUTANK DELETE 
IF CTOaLINETABLECLINE)),€2195) = DISCON THEN 
IF CANDEMIXESTA) * 0 THEN ELSE 
BEGIN 
MCT#GETAREACO) J © CePC( DUP) QSTALIOS 403 BI83(534632])3 
STREAMC 
SET OMIT & TWXONLY 
Atal LINEDIS#TWXs 
POP OMIT 
TtisTe1)3 
BEGIN SQUEUE A BYE TO CANDE 
SET OMIT = TWXONLY 
ACOSSELIT@* "sOStaLITM# ys 
POP OMIT 
DS3:#3 LIT “BYE"3 
SET OMIT = TWXONLY 
ACOSt#2 LIT “##")3 


POP OMIT 
DStBLIT "a3 
ENDS 
GIVEAWAYCT)3 
END ELSE 


SET OMIT = TWXONLY 
IF CLlbal,LINEDIS) # MULT] THEN 
POP OM]T 
BEGIN 
SesSaCTesGETAREACOD (CTC); 
SET OMIT = TWXONLY 
IF | = TWX THEN 
BEGIN #SEND OUT CARR, RET AND LINE FEED 
POP OMIT 
STREAMC(T&2eT41)3 OS8e4 LIT "Seto? 
MCTI¢C4¢11]:#STA 4 ABSCSPOWORD)3 
SET OMIT & TWXONLY 
END ELSE 
BEGIN % CONTENTION SEND OUT EOT 
STREAMCTSeT41)3 DSte2 LIT “Se"3 
MCTIeC5Ss5Je#POLLING; 
_.. €NDs 
POP OMIT 
END} 
MIXe(STATABLECSTA]©S) gMIXNR3 
eet eee OR CTeeLSTATUSCLINEJSBROKEN) THEN 
EGIN 
IF CANDEMIXCSTAJ#MIX AND MI[X¥0 THEN 
BEGIN BREAK(STA)Ia1; 


03247650 
03247800 
03247950 
03248100 
03248250 
03248400 
03248550 
03248700 
03248850 
03249000 
03249150 
03249300 
03249450 
03249500 
03249550 
03249600 
03249750 
03249900 
03250058 
03250200 
03250345 
03250350 
03250355 
03250500 
03250650 
03250795 
03250800 
03250805 
03250950 
03251095 
03251100 
03251105 
03251250 
03251400 
03251550 
03251700 
03251845 
03251650 
032518655 
03252000 
03252150 
03252295 
03252300 
03252450 
03252455 
03252600 
03252750 
03252895 
03252900 
03253050 
03253200 
03253350 
03253500 
03253505 
03253650 
03253600 
03253950 
03254100 
03254250 
03254300 


IF TANKFULLSTA) OR [NPUTANK(STAJ,INPUTREADY THEN 
BRINGBACK(MIX)3 
IF T THEN 
BEGIN 
IF NOT INPUTANKECSTAJ £19142 THEN 
SLEEPCLINPUTANK(STAJI»9="0)3 


INPUTANKESTAJI®C#PCDUP))ROL1084028JR80(40840r8)3 


END ELSE 
IF PAPERTAPELSTA] THEN % QUEUE QUEST MARK 
BEGIN MU TteGETAREA(O) JesC#PCDUP))&STA(1014036) 
81605#4741)3 
STREAMC 


SET OMIT = TWXONLY 


POP OMIT 


APSLINEDISCECLINEJ#TWXe 


TaeTei1)3 
BEGIN 


SET OMIT = TWXONLY 


POP OMIT 


ACDSHELITPMMZDSsSL ITM #3 


DSteLIT MARK; 


SET OMIT = TWXONLY 


POP OMIT 
END 
END ELSE 


ACDS1s2 LIT "##");3 


OSteLIT “eo 
END} 
GIVEAWAYCT)3 
ENDS 


TERMINATECMIX & 61CCTFIDS 
IF STASABSCSPOWORD) AND LSTATUSCLINEJ®BROKEN THEN 


BEGIN 


GO TO BSB3 


END} 


IF STATABLECSTA),OUTPUTANKING THEN 


BEGIN 


WHILE NOT TANKS(STAJ,€1:1) DO 
SLEEPCETANKSCSTAJJ2*0)3 

STATABLELSTA] ,OUTPUTANKING 8 O3 

IF TANKSECSTAJ],£228] NEQ@ O OR TAILOUT © STA THEN 


BEGIN 


END} 


T + Q3 

PO JIFT UNTIL CTSsTANKS(CTI,£6C24¢8)) «STAI 
TANKSECI], £288 sSTANKSCSTAI.(2:8)3 

IF STABTAILOUT THEN TAILOUTS&]3 


IF TANKSCSTA),£1081) THEN 
BEGIN MCCI*©GETAREACO) 41) 603 


END} 


ENDS 


MCL IsSORSTACCTFISIOLIBsAls7]3 
QUEVENTCITeCANDEMIX(STAIJ)3 


TES TANKS(STA] $8P (DUP »LODs O09 SSNeINX)3 
IF T#O AND NOT CSTATABLECSTA),SWAPPED) THEN METJ)$203 


$ SET OMJT = TWXONLY 


IF STATABLELSTA),»STATIONTYPE = TC500 THEN 
TNAOGCSEQARRAYESTA), (C2616) J 8 eC #PC DUP) 806141813) 


_... ELSE ITF OCSTATABLEESTAI,STATIONTYPE #* CONRAC OR 


STATABLELCSTAI],STATIONTYPE = BIDS) THEN: 


03254400 
03254550 
03254700 
03254850 
032550098 
03255050 
03255150 
03255200 
03255300 
03255450 
03255600 
03255750 
03255895 
03255900 
03255905 
03256050 
03256200 
03256345 
03256350 
03256355 
03256500 
03256645 
03256650 
03256655 
03256800 
03256950 
03257100 
03257250 
03257400 
03257550 
03257700 
03257720 
03257740 
03257780 
03257808 
032576850 
03258000 
03256150 
03256300 
03258450 
03258600 
03258750 
03258900 
03259050 
03259200 
03259350 
03259500 
03259650 
03259800 
03259950 
03260100 
03260250 
03260400 
03260550 
03260600 
03260695 
03260700 
032608650 
03264000 
03261150 


Eiep a a na iN Sa n li SE aty hier mid ania RE AOUEED Re Be See AS 


BEGIN 


TNAOGESEQARRAY(ISTAI C2626) Ji aCaePC DUP) IAPCOeXCHILI4E14114)3 


STATABLELSTAJ&#(#P( DUP) )&0f22246382)3 
END3 
$ POP OMIT 


$ SET OMIT © TWXONLY 
IF LINEDISCELINEI#TWX THEN SEQARRAYCSTAJeC£131]:80 ELSE 
$ POP OMIT 
IF LSTATUS(LINEJ#BROKEN THEN SEQARRAY(STA)3&03 
IF LSTATUSCLINE] # DISCON THEN 
BEGIN 
STATABLELSTAJ#@¢#P (DUP) &1(1684741)% BDISCONNECTING 
QUITNESTAJ##03 
IF ABSCSPOWORD) = STA THEN GO TO NRDONES 
METERGETAREACO)]¢=CePC DUP) )& (STAR 
CCLSTATUSCLINE J8BROKEN) 41) ( 36446820 0CTFJ3 
QUEVENTCT ®CANDEMIXELINEJ)3 
END ELSE 
BEGIN 
A + [CMEGETAREAC1) +1] J@SYSDISKRL(8438310)3 3<9 WORDS LONG 
SYSDISKIOC3e*STAGADS 
ACO] sDIALEDUP*AL1] #03 
SYSDISKIOCO#*STASA)} 
FORGETAREACL#A,(CFI*1)3 
$ SET OMIT = TWXONLY 
IF LINEDISCCLINEJSMULTI THEN SE@ARRAYECSTA),(381)3213 
8 POP OMIT 
STATABLELSTAJ tC #PC(DUP)ROCIG#47I1I8 
% RESET BREAK AND DISCONNECTING 
COMIX$=P (DUP) @MIXNR)SO OR MIXSCANDYINX)(16347¢L]3 
IF STARABS(SPOWORD) THEN SPOSET(NABS(0)sSTA)S 
END} 
NRDONES 
LINETABLECLINEJ $=(#P( DUP) )&C 
S$ SET OMIT 5 TWXONLY 
IF PCDUP),LINEDISRCONTENTION THEN WAITINGENG ELSE 
$ POP OMIT 
10L)021943:5)5 
ENTEREADYQC(STA)3 
QUITNESTAJ 3503 
EXIT! 
KILLCLRCW) INX NOT 2)3 
END QUITTERS 
PROCEDURE DCWAITCADReLINE*ReMASKeCLCK) 5 
VALUE ADReLINE*MASKeCLCKS 
REAL ADReLINE »MASKsCLCKS 


REAL R3 
z 

% MASK »(4731] WAIT FOR AN INTERRUPT AFTER I/0 COMPLETE. 
% £4631) LOCK THE LINE FIRST» 

% (45:1) WAIT FOR AN IDLE STATUS BEFORE LOCKING, 

% Cist) UNLOCK THE LINE WHEN DONE, 

% 

BEGIN REAL AsB3 


LABEL TRYAGAINS 

IF LINE GTR LMAX THEN PCXIT)S 

IF MASK,£46814]) THEN IF LOCKEDCLINEJ THEN 
TRYAGAING COMPLEXSLEEP(NOT LOCKEDILINEJ)3 

IF NOT LOCKEDCLINE) THEN 


% XMIT NEW DATAr START A POLL FOR MULTIPOINT 


03261300 
03261450 
03261600 
03261750 
03261755 
03261800 
03261695 
03261900 
03261905 
03262050 
03262200 
03262350 
03262500 
03262580 
03262600 
03262650 
03262800 
03262950 
03263100 
03263250 
03263400 
03263550 
03263700 
03263650 
03264000 
03264149 
03264150 
03264151 
03264300 
03264450 
03264600 
03265400 
03265450 
03265500 
03265550 
03265599 
03265600 
03265601 
03265650 
03265700 
03265750 
03265600 
03265950 
03266000 
03267000 
03267200 
03267400 
03267600 
03267700 
03267710 
03267720 
03267730 
03267740 
03267750 
03267600 
03268000 
03268200 
03268300 
03266408 
03268500 


BEGIN 
IF MASK,£4581]) THEN 
IF LINETABLELLINEJ,C2122)#1 THEN 
BEGIN CLICK&*#CLOCK+PCRTR) +3203 2 WAIT FOR IDL 
COMPLEXSLEEPCLINETABLECLINE J .C2182]"1)3 
IF LOCKEDCLINE] THEN GO TRYAGAINS 
ENDS 
LOCKED(CLINEJ##15 
$ SET OMIT = TWXONLY 
IF LINEDISCCLINEJ#TTY THEN SE@ARRAYCLINE] SELECTED? #13 
$ POP OMIT 
IF (Bt®STATABLECLINE J) .{CFJ#0 THEN 
BEGIN STATABLEILINE J s=Ba0CCTCJ3 
DO FORGETAREACCATSM(B)),0292)°B) UNTIL (Bisa, (CF I)=03 
ENDS 
MCBESGETAREACO)] 2 oP COUP) QILGS47s1IR8LINELCL084028);3 
GIVEAWAY(B)# SQUEUE INPUT DELETE TO OLDWIERDHAROLD 
IF CBESLINETABLECLINEJ),CCRI#0 THEN % THROW AWAY INPUT QUEUE 
BEGIN LINETABLECLINE J 2=BaOCCTC): 
DO FORGETAREACCAISMCB)),C2:2)¢B) UNTIL (BSFaA CFF I)S08 


% THROW AWAY OUTPUT QUEUE 


END ENDS 


R##Q) 
LSTATUSELINEJ#eIDLs 
LINETABLECLINEJ ,CCFJtePC,ReLOD)s 
ENTERLINEQCADR* LINE * 193 
CLICKSSCLOCK+PCRTR) +603 
SLEEPCPC,Re LOD) 2"0)3 
JF MASK THEN 
IF ReCCFJFADR+1 THEN 
JF ReflCF) # O THEN 
BEGIN Ris0; 
IF CLCK#0 THEN CLICKI4CLOCK+PCRTRI+CLCKS 
SLEEPC PC aReLOD)e™0)3 


® SET 1 SECOND 1/0 MAX 


B WAIT FOR INTERRUPT 
% UNLESS 170 BOUNCED OR 
21T 1S ALREADY BACK 


END} 


IF MASKeC1#1] THEN %® UNLOCK THE LINE 
BEGIN ® RESET LOCKEDs LSTATUSe INPUT QUEUE 
$ SET OMIT & NOTCTWXONLY) 
LINETABLECLINE Js 8ABSC#PC DUP) BOLCCTCIRIDLI2184345])3 
& POP OMIT 
$ SET OMIT = TWXONLY 
IF CLINETABLECLINE] §®ABSC#PCOUP) &OCCTCJ&CIF PCDUP),LINEDIS 
SCONTENTION THEN WAITINGENQ ELSE 10L)02114315)) 
eLINEDIS#TWX THEN SEQARRAYC LINE]. G184) 9803 
$ POP OMIT 
ENDS 
STATABLECLINE] CCF] 2803 
END3 
REAL PROCEDURE INPUTSCANCMODE + SOURCE + DEST #NUM*FLAGS)3 
VALUE NUM» FLAGS) 
REAL MODE» SOURCE #DESTsNUMe FLAGS} 
BEGIN INTEGER [eJdeNt 
REAL U3 
REAL DATARUFTLONOTEQRDATA+I®ASCIIENOTEQ+1 ¢BS®DATAS 
REAL INPTSCRelL3 
LABEL AUT3 


_INPUTSCANI®DESTS 
JEFNUM MOD 633 


03268600 
03268700 
03268809 
03269000 
03269200 
03269400 
03270000 
03270200 
03270399 
03270400 
03270401 
03270600 
03270600 
03271000 
03271100 
03271200 
03271300 
03271400 
03271600 
03271800 
03272000 
03272200 
03272400 
03272600 
03272800 
03273000 
03273100 
03273200 
03273400 
03273600 
03273800 
03274000 
03274200 
03274400 
03274600 
03274800 
03275000 
03275200 
03275399 
03275400 
03275401 
03275599 
03275600 
03275800 
03276000 
03276001 
03276200 
03276400 
03276600 
03276600 
03277000 
Q3277200 
03277400 
03277600 
03277800 
03278000 
03278200 
03278400 
03278600 
03278800 


$ SET OMIT = TWXONLY 
IF FLAGS¢£3393]#TWX THEN 
PCMODE*PCDUP) pL 3481] ePCXCH) CSRS L IO FLAGS C4701 J"1) ELSE 
$ POP OMIT 
P(FLAGS,£FFJ)3 
UtSFLAGS,(4631)3 
FOR J$aNUM DIV 63 STEP #41 UNTIL O DO 
BEGIN 
IF C(NS20F 150 THEN J ELSE 63) ® 0 THEN GO AUT} 
$ SET OMIT # TWXONLY 
IF FLAGS,C3333) 8 TWX THEN 
$ POP OMIT 
STREAMCSOURCE® DESTe MODEt#4t Ne BSe U)3 
BEGIN SItSSOURCES DIt=DEST3 
NCIF SC ® *S" THEN 
BEGIN DEST#sDI3 OL1s#LOc BS3 
SOURCES #SI# SI¢sLOC DEST? 
IF 8 SC#eDC THEN DIsS*DEST ELSE 
BEGIN DI&tsDESTs DIsaDI*1 END: 
SIteSOURCES SI teStel3 
END ELSE 
IF SC = "oe" THEN 
BEGIN SI#eSlel3 UCDSteLIT%e")}3 
TALLYte1$ MODESSTALLYS 
JUMP OUT TO EXITS 
END ELSE DSt®CHR)3 
EXIT DEST##013 SOURCES®SI]} 
$ SET OMIT = TWXONLY 
END 
ELSE 
BEGIN 
STREAMCSOURCE?® DEST» MODE1%4* DATAr NOTEQ! ASCII* Us N)3 
BEGIN SIt#SOURCES DI seDEST3 
NCNOTEQCTALLY##03 NOTEQ##TALLYS 
IF Scs"#" THEN JUMP QUT TO DSIT3 
DATACJUMP QUT TO L1)3 TALLY#=13 
Lit DATAt=STALLYS JUMP OUT TO L2)3 
IF Sc = "#"THEN 
BEGIN TALLYS=13 NOTEQSSTALLYS SIseSIlei3 
ASCIICOS#tsLIT*#")3 GO To La 
END3 
L2t DATACJUMP OUT TO DSIT)} 
IF Sc = "#" THEN TALLY ts 1 ELSE 
JF Sc = “e™ THEN TALLY s& §{ ELSE 
BEGIN ASCIICJUMP OUT TO DSIT)3 
IF SC#""" THEN BEGIN SIssSI4+13 GO TO L END 
ELSE TALLYs#23 
END? 
JUMP OUT TO SETALLY3 
DSITS OSEECHRE 
Lt )' GO TO L3) 
SETALLYs SisaSle19 MODES*TALLYS UCOSteLIT*%«%)3 
L3: SOQURCER®SI3 DESTI#013 


ENDS 
NOTEQt=Ps 
PCDATAS#PePRPE 3484731 JRNOTEQL3384711))3 
$ POP OMIT 
END3 


PCEMODE)*STD)3 
PCCDESTI*STD)3 


03278999 
03279000 
03279200 
03279201 
03279400 
03279600 
03279600 
03280000 
032860200 
03280399 
03280400 
03280401 
03280600 
03260800 
03281000 
03281200 
03281480 
03281600 
03281800 
03282000 
03282200 
03282400 
03282600 
03282800 
03283000 
03283200 
03283400 
03283599 
03283600 
03283800 
03284000 
03284200 
03284400 
03284600 
03284800 
03285000 
03285200 
03285400 
03285608 
03285800 
03286000 
03286200 
03286400 
03286600 
03266800 
03287000 
03287200 
03287400 
03287600 
03287600 
03288000 
03288200 
03288400 
03288600 
03288800 
03289008 
03289001 
03289200 
03289400 
03289600 


PCCSOURCEJ»STO)3 03289800 

IF MODE,£45%84] THEN ELSE GO AUT: 03290000 

END} 03290200 
AUTt 03290400 
INPUTSCANS ®( DEST, £308 3)8DEST(30833815]) = CINPTSC,.(3083)8 03290600 
INPTSC(030833315))3 03290800 

ENDS 03291000 
PROCEDURE COMM133 03292000 
BEGIN % INPUT TO NORMAL STATE JOBS ABOVE THE FENCE 03292200 
ARRAY Aa"5(4]} 03292600 
REAL Ne*62DeTeXeAleA2e Ase SORCONI se N23 03292800 
REAL MONE» FLAGS) 03292900 
LABEL STARTeNEXTSEGeREADI TO EXITS 03293000 
DEFINE COUNTEND = £45381) #3 03293200 

% 03293400 
% INPUTANKS IS NOT LOCKED = DONT LOSE CONTROL WHILE UPDATING IT 032936060 
% 03293800 
SUBROUTINE UPDATE INPUTANK3 03294000 
BEGIN 03294200 
WHILE NOT (XSS7NPUTANKETJ),0C1312 DO SLEEPCLINPUTANK( TJ Je*0)3 03294400 

IF MEALI CFF] LEQ CA38*SORC, 6308338 CSORC7AI71)9030833:15)) 03294600 

OR (MODE AND NOT MEZAI)],£241)) THEN % SEG IS EMPTY 03294700 
XseXBOlCSs2sBJacX,INPUTN@1)(4O8G08B8JRC CX, INPUTLE1) 03295000 

AND NOT CLUMPSIZE)£1084038] 03295200 

ELSE Xt#x&A3(2340t8)3 03295400 

$ SET OMIT = TWXONLY 03295599 
INPUTANKCT J] S$ sX&MODE(38233382)3 03295600 

$ POP OMIT 03295601 
$ SET OMIT = NOTCTWXONLY) 03295799 
INPUTANKE TJ] 8X3 03295808 

$ POP OMIT 03295801 
END: 03296000 

% 03296209 
STARTS 03296400 
IF TERMSETCPIMIX) THEN GO TO RETURN3 03296600 

IF LINEDISCE 03296758 

$ SET OMIT = TWXONLY 03296775 
DtslF CTSFLOGLINE, (4026) >LMAX THEN STATABLELTJ,LEENKER ELSE T 03296800 

$ SET OMIT = NOT TWXONLY 03296825 
TtaLOGLINE .£40:8) 03296850 

$ POP OMIT OMIT 03296875 
J = SCHED THEN 03296900 

BEGIN SCHEDIOCN® Oe CPOaTCCTFIRCAVLCCTCI))$ PCXITI$ END3 03297000 

JF (X#eINPUTANK(T)),INPUTN = 0 THEN % NOTHING IN TANK 03297200 
BEGIN BREAKCLTJ «803 03297400 

IF N GTR O THEN % SEND OUT @M IF NOT PT OR READINO3297600 

$ SET OMIT # TWXONLY 03297799 
IF NOTCPAPERTAPECT] OR PCLINETABLECOJ] +DUP).LINEDIS#MULTI AND 03297800 
PCXCH),-£C2181)) THEN 03298000 

$ POP OMIT 03298001 
$ SET OMIT * NOTCTWXONLY) 03298199 
-IF NOT CPAPERTAPECT] OR LINETABLECTIJ,€C2181]) THEN 03296200 

-$ POP OMIT 03296201 
BEGIN 03298400 
STREAMCX8e (Xs SGETAREACO))41)3 03298600 

BEGIN DSteLIT*#"s DStsLIT MARK? ENDS 03298700 

TWXOUTC X41 e207 0eLOGLINE) 3 03298800 
FORGETAREACOsX)3 03299000 

IF JNPUTANKET),J]NPUTN#0 THEN GO TQ START3 03299200 

END? 032994090 


ea 


Srnec 


INPUTANKEC TJs INPUTREADY#=13 
SWAPCWAITSWAP#1)3 
GO TO START? 

END3 


N2Z2t® CNG #ABSCON) x83 
DIFAe(CFI)3 
STREAMCNSEN@L9A)S % BLANK OUT BUFFER 
BEGIN DSte#8 LIT” "8 StswAs DSteN WDS? END? 
SORCHERECALESSPACE(30))4X,C2t5) XC 308783) 413 
ASERAZL=SPACE(30)3 

$ SET OMIT * TWXONLY 
FLAGS#*®1&STATABLELTIC3I311083I&DATCPIMIXICG6: 781 IRASECTE Is 
MODE ##®08&X[3333832]3 

& POP OMIT 

$ SET OMIT &© NOTCTWXONLY) 
FLAGS#EPLRDATECPAMIXICS6I7TSLIBA2LCTF I 

& POP OMIT 

NEXTSEGS 
$ SET OMIT # NOTCSTATISTICS) 
COUNTUPC1601)3 

$ POP OMIT 
DISKWAITC*AL® 30ePROGTANKS+CLUMPSI[ZEXT4+X,INPUTLDOS 
NLPEINPUTSCANCMODE*SORCOAS*# (ML ALI,CFFI"X,C288) )sFLAGS)3 
XSBIF N1 GTR N2 THEN N2 ELSE N13 


STREAMCMESX ef 3786) Nt FX, C4385] 2#A20D)3 ® MOVE DATA INTO 
BEGIN SI13#A23 %2 PROGRAM BUFFER 
MCDS8®32 CHR)3 DSS8®N CHR} 
MiaDl} 
ENO) 
DIFP} % SAVE WHERE WE ARE IN 
UPDATEINPUTANK3 % CASE WE NEED MORE 
IF MODE,.COUNTEND THEN % SCAN STOPPED BY COUNT 
IF CN2¢eN2"N1) GTR O THEN % MORE INPUT REQUIRED 
BEGIN SORC8RAL+13 
A3teA23 
GO TO NEXTSEG3 
END ELSE 
BEGIN % SCAN TO END OF MESSAGE 


READIT# DISKWAITC*A1s30»PROGTANK#CLUMPS I ZEXT#X, INPUTL) 3 
& SET OMIT # NOTCSTATISTICS) 
COUNTUP(1601)3 
$ POP OMIT 
—$ SET OMIT © THXONLY 
IF STATABLELT),STATIONTYPESTWX THEN 


$ POP OMIT 
BEGIN SORC##A141003 ® FORCES UPDATEJNPUTANK TO 
1F NOT MCA1],MESSEND THEN % GO TO THE NEXT SEGMENT 
BEGIN UPDATEINPUTANKS 
GO READITS % NO END HERE * TRY NEXT 
ENDS ® WE DO HAVE AN END 
TF NOT MCA17,0291) THEN % IF NOT PAPERTAPE SET 
BEGIN UPDATEINPUTANKS % POINTERS TQ NEXT SEGMENT 
GO TO EXITS 2 ELSE SCAN FOR « 
END ENDS 
SORCHRALSIS % RESET PARAMETERS TO 
AIIFA2} % SCAN FOR CR OR © 
NiteINPUTSCANCMODE ®SORCsA3ZeMCALISCFF J eFLAGS)3 
_ UPDATEINPUTANKS 


IF MODE,COUNTEND THEN GO READITS % TRY AGAIN 


03299600 
03299800 
03300000 
03300200 
03300400 
03300600 
03300800 
03301000 
03301200 
03301400 
03301600 
03301799 
03301800 
03302000 
03302006 
03302199 
03302200 
03302201 
03302400 
03302599 
03302600 
03302601 
03302800 
03307000 
03307200 
03307400 
03307600 
03307800 
03308000 
03308200 
03306400 
03308600 
03306800 
03309000 
03309200 
03309400 
03309600 
03309800 
03310000 
03310200 
03310399 
03310400 
03310401 
03310599 
03310600 
03310601 
03310800 
03311000 
03311200 
03311400 
03311600 
03312200 
03312400 
03312600 
03312800 
03313000 
03313200 
03313400 
03313600 
03313800 


END OF HANDLING COUNTENDS 03314000 
EXIT 03314200 
IF XsSLOWDOWN THEN 03314400 

IF XeINPUTN LSS »5xCLUMPSIZE THEN 03314600 

$ SET OMIT = TWXONLY 03314799 
BEGIN 03314600 

IF STATABLECTJ,STATIONTYPE = TWX THEN 03315000 

$ POP OMIT 03315001 
BEGIN STREAMCA2)3 03315200 

DS##15 LIT"CONTINUE TYPING"3 03315400 
TWXOUTCA2#1591°LOGLINE DS 03315600 

$ SET OMIT = TWXONLY 03315999 
END ELSE TANKOKET]3#038 03316000 

$ POP OMIT 03316001 
INPUTANKET) ,SLOWDOWNE 03 03316800 

ENO} 03317000 
FORGETSPACECAL)S 03317200 
FORGETSPACE(A2)3 03317400 
END COMM133 03317600 
% 03333950 
PROCEDURE COMMS; 03375000 
BDATACOMM INPUT COMMUNICATE FOR C&Ee 03375050 
ZFORMAT OF DISK BUFFER WHICH OLOWIERDHAROLD WRITES ON DISK WHEN FULO3375100 

® LASTSEG = 2 = WORD SET BY TOFINISH WHEN DISK WRITE COMPLETE, 03375200 

% LASTSEG = 1 ® DISK ADDRESS (DEKIMAL) 03375300 

® LASTSEG[O] = INFORMATION WORD WRITTEN ON DISK 03375400 

% C3 $15] © RELATIVE DISK ADDRESS WITHIN THIS DISK CHUNK 03375600 

% (18315) = LINK TO NEXT BUFFER 03375700 

% [4018] & NUMBER OF VALID WORDS IN THIS BUFFER SEGMENT 03375900 

% LASTSEGLII THRU LASTSEGC29)] CONTAIN JNPUT MESSAGES, 03375950 
BEGIN 03377000 
ARRAY A®*6[#])} 03378000 

REAL Tels 03379000 

ARRAY S ® T(#)3 03360000 
DEFINE FLOADR#T*2#s2THIS [TS DIFFERENT FROM GLOBAL ONE OF SAME NAMO03380100 

LABEL LOUPEND$ 03380200 

IF CT*FIRSTSEG,CCFI) = LASTSEG.ECFI THEN 03381000 

BEGIN 03382000 
CANDEINPUTREADY © FIRSTOFFSET * LASTOFFSETS$ 03383000 

IF CANDEINPUTREADY THEN 03384000 

BEGIN 03385000 

FOR Utsi STEP 1 UNTIL LMAX DO 03385015 

IF SCHEDLINELU) THEN 033865028 

BEGIN IF STATABLECU).DIALEDUP THEN 03385025 

IF SEQ@ARRAYCLU] LSS O THEN 03385030 

BEGIN SEQARRAYCUJS#ABS( *PC(DUP))3 03385040 

FORKCPC ,SCHEDIO. oe CU 00212601 )3 03385050 

60 TO LOOPEND; 03385060 

END} 03385070 

END ELSE GO TO LOOPEND3 03385080 

LOOPEND: 03385090 
IFCUeA,CCFII®T THEN GO TO RETURNS 03385100 

IF U > 1023 THEN FORGETSPACE(U"2)3 03385200 
MECASCFFJJ+(*#P(DUP)I&TECTC) OR M3 03385300 

GO TO RETURNS 03385400 

END} 03385500 

ENDS 03385600 

IF T # (CT*A INX 0) THEN 03393000 

BEGIN 03394000 

IF Ael2s4] THEN 03395000 


TOITS 


BEGIN 


REAL EeloSeTeVeRCWE403 


BEGIN 


IF CMCFIOADR] AND IOMASK) # 0 THEN 
SLEEPCEMCFIOADRI Je [OMASK)3 
FORGE TSPACE(T*2)3 


END3 
MCAeCFFI] © CA & PCaFIRSTSEG*#LODIECCTC]) OR M3 


END; 


FORKCPC »pNOTIFYCANDE )@PiMIX20912601);3 
GO TO RETURN: 

END COMMS$ 
PROCEDURE ENTERLINEGCADR»sLINE*PRIRTY)3 

VALUE ADReLINE*PRIRTYS 

REAL ADReLINEePRIRTY3 

BEGIN 
REAL AeBeS3 
LABEL TOIT; 
SeSTATABLECLINEI3 


A*ADR3 


IF PRIRTY THEN 

BEGIN SLINKINFRONT 
WHILE PCMCADRI*DUP).CCFIJ#0 DO ADReP$ 
MCADRIJ*PCXCH)ASECTCI); 
GO TOIT 

END? NEXT IS LINK AT END 

IF SeCCFJ#0 THEN 


BEGIN 


WHILE PCMES)*+DUP),CCFI#0 DO SeP3 
MESJ@PCXCHIRALCTCI3 


END ELSE 


STATABLECLINEJ*S&ACCTCI3 
ENTEREADYQC(LINE)$ 

END ENTERLINEQS 
$ SET OMIT & TWXONLY 

PROCEDURE NAKQUES 

B THIS STACK IS 64 WORDS LONG BE CAREFUL 


LABEL LOOP 


WHILE CTS#SEQARRAY(CO)).018230]) # 0 pO 
BEGIN 


WHILE C1&3T,€FF 1) # 0 DO 


BEGIN 


BPLACE ENTRIES IN QUEUE IN WAKEUP TIME ORDER 


TsaTAMCIICCTFIS 
IF STATABLECVS*MC 141) ),STATIONTYPESTC500 THEN 
BEGIN %1C500 NAK RETRANSMIT TIME JS NOW 1/2 SECOND 


MEL+2) eC #PCDUP) +303 
ESC TNAOGCSEQARRAY(V],C2696) ) 85( #PCDUP)&CIF 
CSt#PCDUP),C38110])#0 THEN S*1 ELSE 9999038838810) )3 


END ELSE %FOR 89352 NAK RETRANSMIT TIME INCREASES IN 


BEGIN 


SINCREMENTS OF 3 SEC, FOR EACH SUCCESIVE NAK, 
MET#2)] CSP C DUP) +CESBCSSESEQARRAYLVI) 
eC983) # 12)*1803 
IF E#8 THEN SEQARRAY(L VJ eeS&8E6994533)3 
Et®CTNAOG(S, C2686} 3) eC #PC DUR) )&0( 26326320) )3 


END? ZNEXT »* RESET TANK TO POINT TO THE NAKKED MESSAGE 
EtsMC 042): SteCT],CCRJ]% ZINSERT STA IN TIME LIST 
WHILE (VEeMCS),0CFJ2#0 AND MEV4+2) LSS E DO Stsv3 
MOT], CCR] ewve MES),LCR 3313 
END’ SEND PUTTING IN LIST NOW TAKE OUT 
StacLock # PCRTR)3 
SEQARRAY(COJ&8aT3 


03396000 
03397000 
03398000 
03399000 
03400000 
03401000 
03403000 
03414000 
03415000 
03416000 
03417000 
03418000 
03419000 
03420000 
03421000 
03422000 
03423000 
03424000 
03425000 
03426000 
03427000 
03428000 
03429000 
03430000 
03431000 
03432000 
03433000 
03434000 
03435000 
03436000 
03437000 
03438000 
03439000 
03439995 
03440000 
03441000 
03441500 
03442000 
03442500 
03443000 
03443500 
03444000 
03444500 
03445000 
03445300 
03445400 
03445500 
03445600 
03445700 
03445800 
03445900 
03446000 
03446100 
03446200 
03448000 
03448500 
03449000 
03449500 
03450000 
03450500 


LOOPS 


END3 
KILL 


END REMOV 
PROCEDURE 


BEGIN 3% 
LABEL 
REAL 
REAL 
Lees: 
RwR, 
IF ¢T 
BEGIN 


IF CES=MECIteT, CCF I24+2)) LEG S THEN &31S IT TIME TO TRY AGAIN 
BEGIN BYES, DELINK IT FROM THE TIMER QUEUE 
VisMC}4i)3 
TIMSEQARRAYCOJISTAMETICCTCI:3 
FORGETAREACO#T)3 ZNQW DETANK THE J/0 AND TRY AGAIN, 
IF TANKLINECVI=0O AND TAILOUT#V THEN 
BEGIN 
TANKLINECTAILOUTJ iaV3 
TAILOUTS#V) 
STARTWORKING3 
ENDS 
IF TeECF) # O THEN GO LOOP? 
END ELSE SNOW SLEEP EITHER TIME FOR NEXT STA OR 172 SEC CMIN) 
BEGIN CLICK#eIF E GTR CJ]#e$4+30) THEN J ELSE E3 
SLEEP (O20) SWHEN SLEEP IS DONE GO BACK AND PLACE NEWLY 
END3 3NAKKED STATIONS IN LIST AND WAKE UP THE ONES THAT CAN BE 
CRCW)] INX NOT 2)3 
ING STATIONS FROM NAKQUES3 
DOCTIMEQUTCR)$ VALUE R# REAL R3 
THIS STACK IS 64 WORDS LONG BE CAREFUL 
LEAVeLEAVIr TRYeFORGET*ENDITS 
LeCeSeTeRCWRE03 
SELTIM3 
BR CFF IS 
{CF]3 
taLINETABLELLJ)»LINEDIS= MULTI] THEN 


IF SELTIM8#T,£2185] NEG POLLTIMEOUT THEN 
S'TBSEQARRAYEL] £4018) ELSE % SELECT TIMEOUT 
BEGIN FIND WHICH STA TIMED OUTe IF ONLY ONE ON LINE IT DID [IT 
IF SEQ@ARRAYCLI,LINELINK&sL THEN GO LEAVI3 
STREAMCRESCRHLRIC32C47 81s Teel td); 
BEGIN 3L00K FOR GRPMK IN CHARACTER AFTER LOT. 
S1s*Rs3 
BCSTsaSleSsIF Sc#e"s" THEN S135] 423 
IF Sc#¥*%«e" THEN Rt2S] ELSE JUMP OUT)3 
STUSRIOSteLIT "O"%3 KPUT ADDR CHARS IN T (283 POSIT) 
IF Sca"#" THEN ZTALLY REFLECTS CASE CHANGE POSIT 
BEGIN &CASE CHANGE BEFORE THE FIRST ADDR CHAR 
TALLYSS2sSyamS]o13 
END} 
DStFcHR} 
IF Scw"*#" THEN 
BEGIN 3CASE CHANGE BEFORE THE SECOND ADDR CHAR 
STteSI+1sTALLY#eTALLY413 
END} 
DSI*CHR} 
RteTaLLly3 
END3 
T3BPOT03436912]3 SPLACE JIN FORMAT OF SEQARRAY( 42114) 
DO IF PCSEQARRAYCS)e0UP),(12814]#T THEN 
ELSE GO LEAV 
UNTIL CStmP,LINELINK els 
% CANT FIGURE IT OUT * POLL AGAIN 
FORGETAREACM([R],C2t2]°R)3 
SEQARRAYEILJ] s=(*PCDUP) D&SEQARRAYESEQARRAY(L),£4018)) 
€40132+8)3 
LSTATUSCLIISIDL3 
ENTEREADYQ(L)53 
GO ENDIT3 


03451000 
03451500 
03452000 
03452500 
03453000 
03453500 
03454000 
03454500 
03455000 
03455500 
03455800 
03455900 
03456000 
03456100 
03456200 
03456300 
03456500 
03457000 
03458000 
03458200 
03459000 
03460000 
03460500 
03461000 
03462000 
03463000 
03464000 
03465000 
03465500 
03466000 
03466500 
03467000 
03468000 
03469000 
03470000 
03471000 
03472000 
03473000 
03474000 
03475000 
03475100 
03475200 
03475300 
03475400 
03475500 
03475600 
03475700 
03476000 
03477000 


03478000 


03479000 
03480000 
03461000 
03481100 
03481200 
03481300 
03481500 
03481700 
03481900 


03482000 


Dc 


LEAVS 
END3 
LEAVIS 
END? 
TRY1 
ENO ELSE 


PCDEL)$ SEQARRAYCL), C4088) 8=S3 


IF CCH®LINETABLECLI) eC(CFI # 0 THEN 


IF NOT LOCKEDECL] THEN 
BEGIN LINETABLECLIIBCROLCTC]3 STHROWAWAY INPUT QUEUE 


DO FORGETAREACCTIS=M(CJ),0282)9C) 
UNTIL (Cant, CCFJ) = 03 


IF DISCONNECTINGECS) THEN GO TU TRY 
MECISGETAREACO) J seCH#PC DUP) &IC4SA7S1IRSLLOS4088]3 
GIVEAWAYC(C)# SQUEVE A DELETE TO CE IN CASE ANYTHING WAS SENT 
SEQARRAYCS] t#ABSC*PCDUP) IAC TISPC DUP)» C4t2s41)0484692)3 

ZTHE NEXT PART ATTEMPTS 10 FIND IF THE STA REALLY TIMED OUT 
IF T LSS 4 THEN 

BEGIN &TRY 3 TyMES TO SEE IF HE HAS GONE AWAY 


CLICKS ECLOCK4+PCRTR) 4303 
SLEEPCO20)3 BWAIT 172 SECOND BEFORE DOING ANYTHING 
SELTIMSSSEQARRAYESJ].SELECTED AND SELTIMS 
MERISECHPCDUP)&C14+SELTIM)£424236)80(10810138)3 
STREAMCXERSELTIMeSteCeSSEQARRAY(S) o> TesTssCel2dgid> 
CHBCHRC CASeiieLieteceRreRel )3 
BEGIN ZCOMPOSE A SINGLE POLL TO SEND OUT 

STseLoc SsSlesSl+2s0SsFLIT "53 

TCDSaSLIT *#")3DSseCHRS 

CCDSteLIT “"#")FDSt SCHR 

LODSseLIT "“#")soSse3 LIT "Pes 

XCD] ss01"33 OStaLIT "Q")3 & SELECT INSTEAD 
ENDS IF THIS POLL GETS A LEGIT RESPONSE THEN FAKE TeO, 
LSTATUS(LIIa#I0L3 
ENTERLINEQCRsS01)3 
GO TO ENDITS 


ENDS BIF THIS TEST FAILS 3 TIMES HE IS DISCONNECTED 
SEQARRAY(S).(313) 9243 


IF STATABLELS),(€16t1) THEN 


% NOT BEING DISCONNECTED 


IF BLASTREAD(CL*®7) THEN 
IF CTISSEQARRAYEIL)]),0421] THEN SEQARRAY(LItaTQ0C4t4711) ELSE 
BEGIN SEQARRAY(LJt5NABS(T 981042473113 


END 


ELSE GO FORGETS 


MECSSGETAREACO)ISBRESELECTLC9343:5)8b010840738)3 
STREAM(CEBC+LeRtaRel 3 
BEGIN DSssLIT """3 OSs87 LIT “wateeee; 
DIs"cs OStF2 LIT *3e%3 
ENDS 
MCRISECHPCDUP))&800484944)R8L01084038)3 
ENTERLINEQ(CeLel)3 
GO TO ENDIT3 


% BLASTREAD FAILED 


IF (T#sSTATABLELSJ),DIALEDUP THEN 


BEGIN 


IF CANDYINX#0 THEN 


BEGIN 


MOERJISC HPC OUP) 2800494944 )8 
CSR6C33t4is7I (CTF I3 
QUEVENTCReCANDEMIX(S))3 


END ELSE FORGETAREACMER) »f2s2J°R)3 
STATABLECSI#RTROL15¢4682)3 
LSTATUSELIS™DISCONI 

FORKCPC ,QUITTER) pL&S(CTFIe"299601)3 


END ELSE 


03483000 
03484000 
03484100 
03484150 
03484200 
03484300 
034684400 
03484500 
03484550 
03484600 
03484700 
03484800 
03484850 
03464900 
03485000 
03485100 
03465200 
034865250 
03485300 
03485400 
03485500 
03485600 
03485700 
03485800 
03485900 
03486000 
03486050 
03486100 
03486200 
03486300 
03486400 
03486500 
03486600 
03486800 
03487000 
03487100 
03487200 
03487300 
03487400 
03487500 
03487600 
03487700 
03487600 
03487900 
03488000 
03488100 
03488200 
03488250 
03488300 
03489000 
03490000 
03491000 
03492000 
03493000 
03494000 
03495000 
03496000 
03497000 
03498000 
03499000 


BEGIN 


LINETABLECLI##(*#PCDUP) QCIF (CTS=PCDUP) LINEDISJ#CONTENTION 


THEN IDL 


ELSE WAITINGENQ)(21843185]3 


IF TRMULTI AND SEQARRAY(LJ,C32s6J#L THEN ENTEREADYQ(L)?) 
FORGET! FORGETAREACMER] ,C2%2)9R)3 


END) 
ENDIT! 
KILL CCRCW) INX NOT 2)3 
END OCTIMEOUT! 
$ POP OMIT 
PROCEDURE NOTIFYCANDE3 
BEGIN ARRAY S{¥]3 
REAL TaSeRCWR40} 


03499100 
03499300 
03499400 
03499450 
03499475 
03499500 
03500000 
03501000 
03502000 
03502005 
03504000 
03505000 
03506000 


IF CDISKADR#*DISKADR+FIRSTSEGLOI.017%1)) GEQ@ TANKCHUNKSIZE THENO3507000 


BEGIN 


METSSGETAREACO) J 2 C#PC DUP) 850183418713 
MET+LIE®BASEDISKADR#SGETUSERDISKC*™TANKCHUNKSIZE)3 
QUEVENTCTsCANDYINX)3 


DISKADR? 5803 
ENDS 


IF CMCFIOADRJ AND TOMASK)#0 THEN SLEEPCEMEFIOADRIJ*10MASK)3 


SIs(MCFIOADRII3 


DISKIQOCS#FIRSTSEG, CCF I*1930eBASEDISKADR+DISKADR)3 
$ SET OMIT © NOTCSTATISTICS) 


COUNTUP(1601)5 
$ POP OMIT 


METERGETAREACO)] 88C#PCDUP)I&701684197]3 
MCT+i J] ¢aF IRSTOFFSET3 
MET#2) seFIRSTSEGLOJ  (C40tBIMFIRSTOFFSET413 


MET+3)9"eD0ISKADRS 


QUEVENTCT#CANDYINX)3 


IF CLASTSEG INX 0) 
BEGIN 
FIRSTOFFSET « 
END ELSE 
BEGIN 
FIRSTOFFSET «¢ 
FIRSTSEG,{ICF) 
ENDS 
; KILLCCRCW) INX NOT 
END NOTIFYCANDES 


PROCEDURE PAPERTAPEIOCRe STAs 


VALUE ReSTAsFLAGS*BUFSZ MIS 
REAL ReSTAsFLAGS*BUFSZ eM] 
BEGIN LABEL READITS 
DEFINE DELETE # C4ti)#3 
REAL TEMPedeXs 


= CFIRSTSEG JINX 0) THEN 

LASTOFFSET3 

13 

* FIRSTSEGLOI,CFFIJS 

2)) 

FLAGS*eBUFSZ»MI)3 % HANDLES END OF MESSAGE 


SUBROUTINE PAPERTAPEDISKIOS; 


BEGIN 


$ SET OMIT #* NOTCSTATISTICS) 


COUNTUP(1601)3 
$ POP OMIT 


DISKIOCMER@2)] eRe19CX+7) DIV & + 1ePROGTANK+ 
CLUMPSIZEXSTAtCCCXte J, INPUTN+TEMPe [10881 ede INPUTL) 
AND NOT CLUMPSIZE))3 
INPUTANK(STAIJ(EABSCUSsJ8CX41 7004054088) D3 
IF INPUTANK(STA],INPUTREADY THEN 
BEGIN BRINGBACKCSTATABLECSTA] ¢MIXNR) 3 
Ve INPUTREADY!#03 


END3 


03508000 
03509000 
03510000 
03511000 
03512000 
03513000 
03514000 
03515000 
03516000 
03516099 
03516100 
03516101 
03517000 
03518000 
03519000 
03520000 
03521000 
03537000 
03538000 
03542000 
03543000 
03544000 
03545000 
03546000 
03547000 
03548000 
03549009 
03550000 
03550100 
03550200 
03550300 
03550400 
03550500 
03550600 
03550700 
03550709 
03550710 
03550711 
03550800 
03550900 
03551000 
03551100 
03551200 
03551300 
033551400 
03551500 


UOTIEYCAMDE 


PA pERTALE To. os 


gyn elapse a eet ea cops ee Ie Barat ty barat te vet caer te a a Pate ae 


MER@*3),C1088) 8e03 % RESET DELETE POINTER 
IF (X@sTEMPeCCFI"2) GTR 0 THEN 
BEGIN MCXwLJssM(Re3]5 
IF (MEX] AND ITOMASK)#0 THEN SLEEPCE MUX) )»1OMASK)3 
END} 
END? 


JIFINPUTANKESTAJ3 
TEMPS eMCRI | 
IF MI,DELETE THEN % DELETE = RESET PTRS TO PREV MESS 
BEGIN IF CX3SM(R"3))=0 THEN ELSE GO READIT$ % WE HAVE A PREV MESS 
IF TEMP,CCRIJ#0 THEN ® TRY THE OTHER AREA 
IF (CXS@MCR"3)eMCTEMP.CCFI°3))#0 THEN &® IF THERE IS ONE, 
READITS IF XeCiOsSiFTEMP,C1038) THEN ® ETX IN A PREVOIUS SEG 
$ SET OMIT = NOTCSTATISTICS) 
BEGIN COUNTUP(1601)3 
$ POP OMIT 
DISKWAITC™Rs 30sPROGTANK+CLUMPS] ZEXSTA+( Ue INPUTNOeS, INPUTLE 
Xe£1018)) AND NOT CLUMPSIZE);3 
$ SET OMIT = NOTCSTATISTICS) 
END} 
$ POP OMIT 
MER] ¢8C#P COUP) )&X010810123)3 
PCXIT)} 


® REST TO PREVIOUS « 


END} 
INPUTANKUSTAJ$#ABS(U)3 
STREAMCASSC(PCTEMP, LFF I"BUFSZ»DUP) C33812]¢R+1)&PCXCH)L 3084583] 3)3 
BEGIN SIteA3 % FIND THE LEFT ARROW 
Lt IF SC#"e" THEN BEGIN SItsSJ+13 GO TO L ENDS 
AtsS]3 
END? 
XSBPCOUP) ,CIO8SIRCPCXCHI*R™1)( 30833815) 411 
MCR@3)¢sMCRIGETEMPRXECTFI3 % SET CHAR COUNT TO ©« AND 
IF TEMP,CCFI#0 THEN MCTEMP,CCFI*3)9EM(R)]$ & SAVE FOR DELETE 
IF FLAGS#4 THEN 
BEGIN PAPERTAPEDISKIO3 % WRITE ITs SWAP AND UP TANK 
IF X GTR O THEN FORGETSPACECX)$  &% FORGET THE PREVIOUS BUFFER 
SLEEPCEMER™2)],70MASK)3 % WAIT FOR CURRENT [/0 THEN 
FORGETSPACECR™2))3 % FORGET THE BUFFER 
PAPERTAPECSTAJI®FALSE3 
§ SET OMJT = TWXONLY 


IF STATABLECSTAI,STATIONTYPESTWX THEN 
$ POP OMIT 
TWXOUTCO#091¢STA) 
END ELSE % NOT END = TEST FOR SWAP IN 


IF TEMP,(10%8) GEQ CLUMPSIZE DIV 2 THEN 
BEGIN PAPERTAPEDISKIO3 
J CFF I] $2X4+23 
MEX#2]¢e0RR(CTClail2asa7aids 
_ END ELSE JelFFISR3 
INPUTANKESTA]#SNABSCJ)3 
ND PAPERTAPEIOS 


® REUSE OLD ARRAY 


® RESET TO CURRENT BUFFER 


E 

% 

% HELLO SENDS OUT THE HEADING TO A NEW USER AND UPDATES SYSTEM/DISK 

% TO MARK THE STATION ACTIVE, IT WAITS 7 SECONDS TO ALLOW SUCCESSFUL 
3% LINE ESTABLISHMENT, [IF THIS 1S TOO LONG OR TOO SHORT FOR A GIVEN 

% S1TEs THE DELAY CAN BE CHANGED BY CHANGING THE LITERAL AT 03590100, 


PROCEDURE HELLOCK)3 
VALUE K3 REAL K3 


03551550 
03551600 
03551650 
03551700 
03551750 
03551800 
03551900 
033552009 
03552100 
03552200 
03552300 
03552400 
03552500 
03552600 
03552689 
03552690 
03552691 
03552700 
03552800 
03552609 
03552819 
03552811 
03552900 
03553000 
03553100 
03553200 
03553300 
03553400 
03553500 
03553600 
03553700 
03553800 
03553900 
03554000 


% QUESTION MARK = END OF PAPER TAPE03554100 


03554200 
03554300 
03554400 
03554500 
03554600 
03554699 
03554700 
03554701 
03554800 
03555200 
03555300 


® WRITE IT OUTs SWAPe UP TANKO3555400 


03555500 
03555600 
03555700 
03555800 
03555900 
03572000 
03572100 
03572200 
03572300 
03572400 
03572500 
03573000 
03574000 


BEGIN REAL IeJoLoVeB3 03575000 
REAL RCW=403 03576000 

ARRAY A®BL#)3 03577000 

IF NOTCLINETABLECJt#M[K4+2]3)¢DIRECTLINE) THEN 03589000 

IF CISSMEK)¢ 03590000 

448 ® DELAY IN 64"THS, DEFAULT#7 SECS03590100 

) GTR CLOCK#PCRTR) THEN 03590200 

BEGIN 03591000 

CLICKeI3 03592000 

SLEEP (CO%0)3 03593000 

ENDS 03594000 

IF DISCONNECTINGCIt2MCK41)) THEN 03595000 
SLEEPCESTATABLELIJJ»@0000020000000000); 03595500 

BBE SURE WE ARE THRU DISCONNECTING PREVIOUS USER 03595510 
CONNECTC1)3 MARK DIALED UP AND ATTACH TO CANDE 03595520 
STREAMCTUSC(LESLINETABLELJI) C9OS4I BUHL L14b4)e 03595530 

LINE Se] eQQQseBtaGETAREAC I) 41)3 03595540 

BEGIN 03595558 

DS3#24 LIT"*«*#85500 TIME SHARING @= "3 03595560 

Sls*LOc TUs DSte2 DECS DSHBLIT"/"3 DS32 DEC? 03595570 

DS*10 LIT “s STATION "30S¢2 DEC3 03595588 

OSte4 LIT "truer; 03595590 

END3 03595600 

TWXOUT( B06 300R30124682I)01)3 03595628 

% NEXT LET CANDE IN ON WHATS HAPPENING 03595630 

IF CANDYINX # O THEN 03595640 

BEGIN 03595650 
MUVESGETAREACO) J 82 C#PCDUP)IACI&ILC 3314287) 0CTFI3 03595660 
MEV#2)9SSTATABLEL TJ e£1083]3 BSTATION TYPE 03595670 
QUEVENTCVsCANDEMIXL1J)3 03595688 

END ELSE 03595690 

BEGIN STREAM(B)3 03595750 

USi=27 LIT"CANDE IS DOWN, ggPLEASE WAIT"? 03595800 
TWXOUT(CBe27elel)3 03595900 

END3 03596000 

A t® JOQUERBICTCI&SYSDISKRL(83 38310)3 % < 9 WORDS LONG 03596100 
SYSDISKIOC3e"I0A)3 03596200 
ACO],DIALEDUP © 13 03596300 
SYSDISKIOCOs™10A)3 ZUPDATE SYSTEM DISK 03596400 
FORGETAREACL®A,(CFI"1)3 03596500 
FORGETAREACOK)3 03598000 
KILLCIRCW) TNX NOT 2)3 03598200 

END HELLO? misseeled é 03599000 
PROCEDURE OLDWIERDHAROLD! ee 03608000 
% DOES MAN ANGE AND WONDEROUS THINGS, 03609000 
® SOME OF THEM USEFUL, 03610000 
BEGIN 03611000 
REAL RCW ® +403 03612000 
REAL STAS & FIRST SO COM5 CAN FIND IT 03612100 
REAL HeledeKeReSoTe Tie STATAB»SOURCE»NUMPFLAGS3 03613000 
$ SET OMJT = TWXONLY 03613099 
BOOLEAN UPOFLAGS 03613100 
$ POP OMIT 03613101 
REAL MODE®KseBUFSZ=T}3 03614000 
DEFINE CREND = [4631 )#e 03614100 
DISKDONE & (HH31)#e 03614200 

DELETE B Lotilées 03614300 
COUNTEND = (45314) 83 03614400 

DEFINE PAPERTAPE = (STATAB LSS 0)#) 03614500 
LABEL RESTART»STARTs LOOP eDELL eo CEP AGAINePTsDELINKITS 03615000 


$ SET OMIT = TWXONLY 
LABEL NORMALQsCReSCANIT3 
$ POP OMIT 
LABEL FORGIT*«DISCARD3 
SUBROUTINE UPQ: 
$ SET OMIT © TWXONLY 
BEGIN IF UPQFLAG THEN % SCANNING 30 WORD ARRAYS 
BEGIN FORGETSPACE(I=2)3 
IF CI8sMC1),0CF))#0 THEN % LAST ARRAY 
BEGIN UPQFLAG?=03 % RESET FLAGS AND I 
MODE %a13 ZMAKE SURE WE STOP 
GO TO NORMAL Q} 
ENDS 
BUFSZt=MCI),CFFI3 % NUM OF CHARS IN ARRAY 
END ELSE % DATACOM INPUT BUFFERS 
$ POP OMIT 
. BEGIN INPUTANK(STAJ 8&CePC DUP) IaCM(1],04682)]40)(3524794)3 
WORKERING,CCFIGeMCIJ.CCFI3 
FORGETAREACME 1 J] ef2:2Je1)3 
$ SET OMIT #& NOTCTWXONLY) 
SOURCE &e({teWORKERING CCF) )413 
END? 
$ POP OMIT 
$ SET OMIT = TWXONLY 
NORMAL@} LS}sWORKERING,CCFI3 
END3 
SOURCESS1413 
Tisso3 % SET SOURCE CHARS SCANNED 
END} 
SUBROUTINE SCANINPUT3 % SCANS INPUT FOR CANDE 
BEGIN ® T4 1S SOURCE CHARS SCANNED 
NUMSSNUM+INPUTSCANCMODEs SOURCE s Je BUFSZ™T Le FLAGS) 3 
, TLESOURCE  C3083I8CSOURCE,CCFI™I1"19£308339215])3 
ENO) 
- POP OMIT 
SUBROUTINE GETANOTHERS 
BEGIN % 71 IS OLD OBV JOB BUFFER 
INPUTANKESTAJ] «CFF JteRtacle T1 GTR O THEN Ti ELSE SPACE(32))423 
MER™2])¢e20MASK?3 
END3 
SUBROUTINE OBJOBDISKERS % OISKIO FOR INPUT TO JOBS 
BEGIN 
JSS TNPUTANKESTA]:#ABSC#PCDUP))3 
DISKIOCMER*2)» Rele (MERI,CFFI+7) DIV 8415 PROGTANK4 
CLUMPSIZExSTAS( CK ¢ ede ENPUTNOMERI0C1088))40,INPUTL 
AND NOT CLUMPSIZE))3 . 
$ SET OMIT = NOTCSTATISTICS) 
COUNTUP(1601)3 
$ POP OMIT 
IF MER] LSS O THEN JteJacke19(4084038)3 % UP JNPUTANKS 


IF CTIOsMCRI,CCFIJ°2) GTR O THEN 
IF (MCT1) AND TOMASK) #& O THEN SLEEPCEME TI} ] + 1OMASK)3 
IF JeINPUTN GEQ ,9xCLUMPSIZE THEN 
IF NOT J,SLOWDOWN THEN 

$ SET OMIT & TWXONLY 

std aiocs BEGIN IF STATABsSTATIONTYPESTWX THEN ® ACK JF NOT TWX 

$ POP OMIT 


% MESSAGE IF TWX OR NO 


03615099 
03615100 
03615101 
03615200 
03616000 
03616099 
03616100 
03616200 
03616300 
03616400 
03616430 
03616500 
03616600 
03616700 
03616600 
03616801 
03616900 
03617000 
03617100 
03617199 
03617200 
03617300 
03617301 
03617399 
03617400 
03617500 
03617600 
03617700 
03617600 
03617900 
03618000 
03618100 
03618200 
03618300 
03618400 
03618401 
03618500 
03618600 
03618700 
03618800 
03618900 
03619000 
03619100 
03619200 
03619300 
03619400 
03619500 
03619600 
03619700 
03619709 
03619710 
03619711 
03619800 


% WAIT FOR PREVIOUS 1/003619900 


03620000 


® TOO FULLe SLOW HIM BY03620100 


03620200 
03620299 
03620300 
03620301 


$ SET OMIT & 


BEGIN STREAM(D&eCKEeGETAREACO) )41)3 

DSt#e1i LIT"PLEASE WAIT" 

TWXOUTCK +L olieieSTAads 
FORGETAREACO#K) 5 

TWXONLY 

END ELSE TANKOKESTAI #813 


$ POP OMIT 


Je SLOWDOWNG 313 
END ELSE 
IF JeINPUTNSCLUMPSIZE*1 THEN TERMINATECSTATABsMIXNR&GO7ECTFI)3 
INPUTANKESTA) 3 @NABS(J)3 % UPDATE AND UNLOCK INPUTANK03621300 


END OF OBJECT JOB INPUT TANK HANDLER? 


RESTART?! 


SOURCE @aCTS@WORKERING, (CFI) 413 


STARTS 


IF 1#0 THEN 


BEGIN 


SET 


POP 
SET 


POP 


SET 


POP 
SET 


IF CSTASBMCIT],LINENR) #0 THEN 
BEGIN STATAB##03 

BUFSZ3P1523 

GO TO CEs 


END} 


IF (STATABSSSTATABLELSTA]) OWHTHROWOUT THEN 

% RESET ON DELETE OR MESSEND 
STATABLELSTAJI=STATABRCMC IID C4t2) a0 (13474173 
% IGNORE THIS BUFFER 


BEGIN 


GO TO DELLE 


ENDS 


OMIT & TWXONLY 
BUFSZ:#28xCIF PCLINETABLELIF STA GTR LMAX THEN STATABeLEENKER 
ELSE STAI, BUFSIZE*DUP)#2 THEN P42 ELSE P41)3 
IF NOT CFUAGSSFSTATABsGANDEFLAG OR MEJ),0C681)) OR 
CKSBSTATAB,STATIONTYPE#TWX) THEN ELSE GO TO CE 


OMIT 


OMIT = NOTCTWXONLY) 
BUFSZte28xCIF PCLINETABLECSTAJ¢BUFSIZE*DUP)32 THEN P#2 ELSE 


OMIT 


T1is03 


TF ENPUTANKESTAJ,FIRSTBUF THEN 
OMIT =» NOTCTWXONLY) 
IF CPCMESOURCEJ+TOPeXCH),C195) * @14) AND P THEN 
IF PAPERTAPE THEN FLAGS##4 ELSE GO TO CES 
NUMSSBUFSZ} 


OMIT 


OMIT = TWXONLY 
BEGIN STREAMCSOURCEsK1I)3 
BEGIN SItmwSOURCES 
KC2BCIF SCa""" THEN BEGIN SIteSl¢is JUMP OUT ENDS 
SEsaSI+i3)3 
SOURCEIBSI3 
IF SC#"#" THEN JUMP OUT TO LS 


® HEAD OF INPUT QUEUE 
® INPUT FROM DATACOM TO PROCESS 
% SS OR CX FROM SPO 


IF STATABaCANDEFLAG OR MEI],C6%1) THEN GO TO CE} 
I 
OBJECT JOB OR NOT TELETYPE 


% SCAN OUT HEADER AND QM 


1—F SC#MARK THEN TALLY3#13 
_ Ls K&eTALLYs 
END3 


03620400 
03620500 
03620700 
03620800 
03620899 
03620900 
03620901 
03621000 
03621100 
03621200 


03621400 
03621500 
03621600 
03621700 
03621800 
03621900 
03622000 
03622100 
03622200 
03622300 
03622400 
03622500 
03622600 
03622700 
03622800 
03622900 
03623000 
03623099 
03623100 
03623200 
03623300 
03623400 
03623401 
03623499 
03623500 
03623600 
03623700 
03623701 
03623800 
03623900 
03624000 
03624100 
03624200 
03624299 


% QUEST MARK0N3624300 


03624400 
03624500 
03624501 
03624599 
03624600 
03624700 
03624600 
03624900 
03625000 
03625100 
03625200 
03625300 
03625400 
03625500 


$ POP 


LOOP?! 


$ SET 


POP 
SET 


Ld 


$ POP 


$ SET 


$ POP 


$ SET 


$ POP 


$ SET 


$ POP 
$ SET 


$ POP 


PTs 


IF P THEN FLAGSI=43 % QM FLAG 


03625600 


NUMSBABSCCSOURCE SSP), (C3083 J&8CSOURCE@I"1)£30%833215]"BUFSZ)303625800 


END ELSE NUMs#BUFSZ3 
OMIT 
JF CRIFINPUTANKOE STA] ¢ CFF J2#0 THEN 
BEGIN GETANOTHERS? 
MCRIMFORSTATABC22181)3 
END} 


% GET A NEW BUFFER 
% PAPER TAPE FLAG 


IF CStSMC1J),DELETE THEN 
BEGIN UPQ3 

IF PAPERTAPE THEN GO TO PT3 . 

DO BEGIN & FORGET ALL PIECES OF 
SLEEPCEMCR™2]]+10MASK)$  % CURRENT MESSAGE 
FORGETSPACE(R®2)3 

END UNTIL CREBMER),CCFI)803 

INPUTANKESTA] .CFFII803 

GO TO STARTS 

END} 

IF MERJ,CFFI+NUM GTR 232 THEN 
OMIT = NOTCTWXONLY) 

BEGIN OBJOBDISKER} 
OMIT 


% OUT OF ROOM 


OMIT = TWXONLY 
BEGIN IF NOT FLAGS THEN OBJOBDISKERS SIF OBJ» WRITE IT OUT 
OMIT 
KieR3 % GET A NEW ONE AND 
GETANOTHER3 % SET FIRST WORD 


MERI BORK CTCIRCMEKI C108 +1 ICLOS4OSBJASTATABC28i21)3 
ENDS 


STREAMCNS®NUM DIV 20 SOURCE®s 
OMIT = TWXONLY 
N1$=NUM AND te 
OMIT 
DieCRe1 MCR} 016312) )8MERIC3083083))3 
BEGIN SI##SOURCES 
DSt2N CHRS DSSEN CHR} 


OMIT = TWXONLY 
DOSt@Ni CHR} 
OM}T 
END} 


MCRJIEC#PCDUP)RCPCDUP) LFF IFNUM)ECTFI OR O8S(48483]9 

UPQ} 

IF NOT SeMESSEND THEN % MORE MESSAGE TO COME 

IF MCLJeLINENRRSTA AND 1#0 THEN % GO GET NEXT BUFFER 
OMIT = NOTCTWXONLY) 

GO TO LOOP ELSE GO STARTS 
OMIT 
OMIT = THXONLY 

BEGIN NUMS™BUFSZ3 

GO TO LOOPS 

END ELSE GO TO STARTS 
OMIT , 

INPUTANKESTAJ@CFFI1#03 

IF PAPERTAPE THEN 

BEGIN % PAPER TAPE INPUT 

PAPERTAPELOCReSTAsFLAGS»BUFSZ0S)5 
| GO TO STARTS 
END3 


% NO MORE FOR THIS STA NOW 


% SPECIAL HANDLING TO PACK 


03625900 
03625901 
03626000 
03626100 
03626200 
03626300 
03626400 
03626500 
03626600 
03626700 
03626800 
03626900 
03627000 
03627100 
03627200 
03627300 
03627400 
03627500 
03627549 
03627550 
03627551 
03627599 
03627600 
03627601 
03627700 
03627800 
03627900 
03628000 
03628100 
03628200 
03628299 
03628300 
03628301 
03628400 
03628500 
03628600 
03628699 
03628700 
03626701 
03626800 
03628900 
03629000 
03629100 
03629200 
03629299 
03629300 
03629301 
03629399 
03629400 
03629500 
03629600 
03629601 
03629700 
03629800 
03629900 
03630000 
03630100 
03630200 


$ SET OMIT = TWXONLY 


IF FLAGS#O THEN 
BEGIN 


$ POP OMIT 


$ 


$ 


de ae DE 


$ 


$ 


CEE 


$ 


$ 
$ 


CRt 


$ 


SET 


POP 


SET 


POP 
SET 


POP 
SET 


POP 


AGAIN! 


DELLE 


$ 


$ 


$ 


SET 


POP 
SET 


POP 


SET 


MERJSSNABSC#PCDUP))3 % 1:1 CAUSES INPUTANK TO 
OBJOBDISKER?} % BE UPDATED 
IF T1 GTR O THEN FORGETSPACEC(TI)3 %&% FORGET OLD BUFFER 
IF Je INPUTREADY THEN B IF IT IS WAITING 
BEGIN BRINGBACK(STATAB,MIXNR)§ % SWAP IT IN 
INPUTANKESTAI],INPUTREADY #802 

END3 
SLEEPCEMER@2)] + 1OMASK)3 
FORGETSPACECR™2)3 
GO TO START? 

OMIT = TWXONLY 

END3 
OMIT 


% WAIT FOR LAST [70 


INPUT GOES TO CANDE 
OMIT = TWXONLY 


UPQFLAGS #13 ® SET TO USE 30 WORD ARRAYS 
11303 
bo ® RELINK QUEUE IN FORWARD 
BEGIN Js#=MC(RI,(CFI3 2 DIRECTION 

MCR] »CCFI3e13 

JiR} 
END UNTIL (R&#J)203 
BUFSZISMCIJ,CFF 3 % NUM OF CHARS IN ARRAY 
SOURCES #1413 


OMIT 
IF H=0 THEN H&teSPACE(60)3 
OMIT = NOTCTWXONLY) 
FLAGStS3RCH+LICCTFIGMCTILCIS631)3 
OMIT 
OMIT = TWXONLY 
FLAGSSS3RCHFIIECTFIRMETICISG6SLIGSTATABL33¢1083)53 
MODES®T1303 
IF Ti®BUFSZ THEN UPQ3 
OMIT 
NUMS&03 
JisH+ls 


® CR AT END OF BUFFER 


JF MC] ,DELETE THEN 
BEGIN 
UPQs GO TO START3 
ENO} 
OMJT = NOTCTWXONLY) 
NUMS=NUM+INPUTSCANCMODE »SOURCE » Je BUF SZe FLAGS) 3 
OMIT | 
OMIT #& TWXONLY 
SCANINPUT3 
omMiT . 
IF NUM GEQ@ 224 THEN % TOO LONG FOR CANDE 
BEGIN STREAM(D3#H429)3 % CUT IT DOWN TO HER SIZE 
BEGIN DI tsDIe"1s OSteLIT*e"3s ENDS 
NUM$"2243 
END ELSE 
OMIT »# TWXONLY 


IF NOT MODE.CREND THEN B ETX OR COUNT EXHAUSTED 


2 INPUT GOES TO OBJECT J0B 


03630299 
03630300 
03630400 
03630401 
03630500 
03630600 
03630700 
03630800 
03630900 
03631000 
03631100 
03631200 
03631300 
03631400 
03631499 
03631500 
03631501 
03631600 
03631700 
03631800 
03631699 
03631900 
03632000 
03632100 
03632200 
03632300 
03632400 
03632500 
03632600 
03632700 
0363270t 
03632800 
03632899 
03632900 
03632901 
03632999 
03633000 
03633100 
03633200 
03633201 
03633300 
03633400 
03633500 
03633600 
03633700 
03633800 
03633900 
03633999 
03634000 
03634001 
03634099 


° 03634100 


03634101 
03634200 
03634300 
03634400 
03634500 
03634600 
03634699 
03634700 


$ POP OMIT 


BEGIN UPQ3: 
IF NOT MODE THEN 


% COUNT EXHAUSTED 


IF 1#0 THEN 
$ SET OMIT # TWXONLY 
IF MCTJeGLINENR®STA OR UPQFLAG THEN GO AGAINE 


$ POP OMIT 
$ SET OMIT = NOTCTWXONLY) 
IF MCTJeLINENR = STA THEN GO AGAINS 


$ POP OMIT 


DISCARD? 


ENDS 


IF ABSCSPOWORD) = STA AND STA NEQ@ 0 THEN %BACK UP SPO 
BEGIN MCH™1)9*03 
IF KEYBOARDCOUNTER = 0 THEN 
FORKCPCAKEYIN) ep 1&CHF10CTFJ20019220) ELSE 
IF CRE®KEYBOARDCOUNTERSCFFJ) NEQ@ O THEN 
BEGIN IF ¢(J#sMER"2),(CF)) NE@ O THEN 


IF MECR&t#J)"2) NEQ O THEN GO TO DISCARD; 


MECR*2]:ehHol3 


END ELSE KEYBOARDCOUNTERISKEYBOARDCOUNTER&C(H+1) CTF Ii 
KEYBOARDCOUNTERSSKEYBOARDCOUNTER&1E17¢84781)3 

Ht *#SPACE(60)3 

GO TO DISCARD 


END3 


IF CPCMCH+1)*TOPeXCH),£135) = @14) AND P THEN 


WE HAVE SCANNED INPUT STARTING AT H+} 


FLAGSI@NABS(FLAGS)3 


IF CRE=CNUM47) DIV B)+LASTOFFSET GTR 29 THEN 
BEGIN IF CANDEINPUTREADY THEN 


% NO ROOM 
& REUSE CURRENT AREA 


BEGIN IF CMEITOADRY AND JOMASK) = 0 THEN 


ENDS 


SLEEPCEMETOADRIJ] + 1OMASK)3 
FIRSTOFFSET##13 

END ELSE 

BEGIN 
LASTSEGCOI,CFF) 8% CSS*SPACE(32))423 
MCS] 33 ITOMASK3 
LASTSEG, [CFI] 8&S+23 


% GET A NEW ONE 


LASTSEGLOJ mOR1L1784731)3 
LASTOFFSET 8 13 


END} 


STREAMCMAS#FH+ 1 oReNs eCLASTSEGCLASTOFFSET#1)I)3 

BEGIN SI#*®MAs DSIsSR WOS ENDS 
LASTSEGCLASTOFFSETJSSNUMAFLAGS(C ASL IL IASTALIOS4O3B)3 
LASTOFFSET, ECF J amCLASTSEG(O) SC #P COUP) &CLASTOFFSET#RILC CTC) 41303643500 


IF CANDEINPUTREADY THEN 


BEGIN FORKCPC ~NOTIFYCANDE) #CANDYINX209126801)3 


% OLDWEITRDHARULD IS A MOTHER FORKER 


CANDEINPUTREADYIFFALSES 


END} 


$ SET OMIT ® TWXONLY 


SCANITS 


IF MODE sCOUNTEND THEN 
IF UPQFLAG THEN 


BEGIN 


® INPUT WAS TOO LONG SOME LEFT 
%® Q@M OR NOT TWX 
% SCAN TO ETX OR CR 


WHPHe 3 

SCANINPUT3 

IF NOT MODE,CRENO THEN 
BEGIN UPQ} 


IF MODE THEN ELSE GO SCANITS 


* QUEST MARK 


03634701 
03634800 
03634900 
03635000 
03635099 
03635108 
03635101 
03635199 
03635200 
03635201 
03635300 
03635305 
03635310 
03635315 
03635320 
03635325 
03635330 
03635335 
03635340 
03635345 
03635358 
03635355 
03635360 
03635365 
03635400 
03635500 
03635600 
03635700 
03635800 
03636000 
03636500 
03637000 
03637500 
03638000 
03638500 
03639000 
03639500 
03640000 
03640500 
03641000 
03641500 
03642000 
03642500 
03643000 


% IF CANDE WANTS ITs GIVE IT TO HER 03644000 


03644500 
03645000 
03645500 
03646000 
03646100 
03646499 
03646500 
03647000 
03647500 
03648000 
03648500 
03649000 
03649500 


% COUNTEND = TRY AGAINO3650000 


ad 


ad 


END3 


END ELSE STATABLECSTA).OWHTHROWOUTS=13 
IF MODE,CREND THEN GO TO CR ELSE GO TO START} 
$ POP OMIT 
& SET OM[T # NOTCTWXONLY) 


IF MODE ,COUNTEND THEN STATABLECSTA] ,OWHTHROWOUT S$ #13 


GO TO STARTS 


$ POP OMIT 
3 


END OF INPUT HANDLINGS 


SET 


POP 
SET 


POP 


POP 


POP 


SET 


POP 
SET 


WHEN INPUT QUEUE IS EMPTY» DETANK OUTPU 


IF CSTAS#HEADOUT) # 0 THEN 


BEGIN 


IF HRO THEN HIBSPACEC60)3 

IF NOT TANKSCSTAJ,CI94] THEN 
SLEEPCETANKSCSTAJ]»NABS(0))3 
STATABE=STATABLECSTAIJ; 


OMIT = TWXONLY 


IF STATABsSTATIONTYPE#TWX AND STATABs LCF I#0 
AND SEQARRAY(CSTA),SELECTED THEN GO TO FORGIT3 


OMIT 


TIE TANKS(STAIS2ABSC*PCDUP) 93 


OMIT = TWXONLY 


IF STATAB,NAKKER THEN 
BEGIN NTLSeTNAOG[ESEQARRAY(STA),(2686)]3 
IF CNT208T,CIGtSIJONTI,£C1#5)) LSS O THEN 


NT2SNT2 + 323 


TE®TANKS(STAISSTSCT L272 6] 4NT2)0 2784236) 
BNTILCAU4sLsrzsJeolCi2asa7eids 


STATABLELSTA] ,NAKKERS 303 


END3 


OMIT 


TF Tite CT eCSOUSEJ#0) THEN ZNUTHIN ON DISK 


% TWX = DISCARD BUFFS 


T 


% OUTPUT TO DETANK 


% NAKKED * RESET TANK 


IF Tise(T,CCFJ#0) OR STATAB, SWAPPED 
THEN GO DELINKIT ELSE 
IF Tite(MCTI#®O) THEN GO DELINKIT ELSE 
BEGIN 


OMIT = TWXONLY 


IF STATABeSTATIONTYPE NEQ@ TWX THEN 


BEGIN DISKWAITCTeLfCFJ230*eGLOMSIZEXSTA+ 
TANKSESTA],€1415]+TANKADDRESS)3 


OMIT = NOTCSTATISTICS) OR OMJT 
COUNTUPC1601)3 


TESTANKSESTAIESCHEPCDUP)IRILI9GE34314)5 STANK 


TremMCJssTe (CFI) INX 13 


OMIT 
ENDS 
OMIT 
MEJ)9803 
END ELSE 
BEGIN 


OMIT * NOTCSTATISTICS) 
COUNTUPC1601)3 


OMIT 


OMIT & TWXONLY 


% DRAIN THE DIb6K 


JteT,E1916)3 
DISKWAITCeHs 300GLOMSIZEXSTA+T,C14s5)+ 


TANKADDRESS)3 


STAKE IT 


ZFROM CORE 


IF STATABsSTATIONTYPE * TWX THEN 


03650500 
03651000 
03651500 
03651501 
03651999 
03652000 
03652500 
03652501 
03653000 
03653500 
03654000 
03654500 
03655000 
03655500 
03656000 
03656500 
03657000 
03657500 
03658000 
03658099 
03658100 
03658200 
03658204 
03658500 
03658549 
03658550 
03658600 
03656650 
03658700 
03658750 
03656800 
03656850 
03658900 
03658901 
03659000 
03659500 
03659600 
03660000 
03660500 
03660590 
03660600 
03661000 
03661500 
03661509 
03661510 
03661511 
03662000 
03662500 
0366250% 
03663000 
03663500 
03664000 
03664500 
03665000 
03665500 
03665509 
03665510 
03665511 
03665590 
03666000 


POP OMIT 


BEGIN 


TteMCH) = J + 23 
IF I > S6xCRQat+CLINETABLEL 


SET OMIT * TWXONLY 


POP OMIT 


IF STA>LMAX THEN STATAB,LEENKER ELSE 


STAJe{683) > 2)) THEN 
BEGIN J] :#56xR3 STWX IT OUT 
THeSTaCT eli 9sSJeRx7)01984385)3 
END ELSE SIN BUFFER SIZE HUNKS 
TISTBOLIDI4OSBIRCT CSOUSEI@1I(2714286)8& 
CT,014851619014843995)]3 SKEEP THE 

TANKS(STA] &3C*P (DUP) )&8T(14914819)3 SPOT 
ZOWH DETANKS TWX ONLY 
VPFCHF I, C4095) aL 3084593)3 RIGHT 


SET OMIT = TWXONLY 


POP OMIT 


DELINKITS 


END ELSE LET DCWRITE DO IT 
BEGIN 
[t#MCH),eCCFI% BDONT HARRY HARRI 
Jte(H+d, £4095] )8I03084533)3 


END} 
ZOF TAKIN NOW SOME GIVIN 
IF NOT Ti THEN 


SET OMIT & TWXONLY 


POP OMIT 


FORGIT! 


Ris 


DCWRITEC U4} eSTAel)3 
STATABLECSTA] -QUTPUTANKING& (Te TANKN # 0) OR 
CMET] NEQ@ O AND CNOT STATABLELSTAJ],SWAPPED) AND 
TeCCFI] NEG 023 
RCHECK FOR MOARSIN COAR OR DISKISTANKS 
IF 7,£1032) NEQ 0 THEN OPEN THE DOAR FOR MOAR 
IF GLOMSIZE/5 GEQ TelLSOUSE] THEN 
BEGIN &WHRN TANK STARTS GETTING EMPTYe REFILL O1T 
TANKSCSTAJS=(*PC DUP) ROL10846:2)3 
JF T,f1081] THEN 
BEGIN MOCCREFGETAREACO) 241) 5203 
MOR J ¢SOR8STACCTFI81001634137)3 
QUEVENTCReCANDEMIXESTA] )3 
ENDS 
IF Telddad] THEN 
[IF CANDEMIXCSTA] NEQ@ STATAB sMIXNR 
THEN BRINGBACK(STATAB,MIXNR)3 
END3 
HEADOUTS#TANKS(STA],£238]3 
IF STA = TAILOUT THEN TAILOUT?# #03 
TANKSCESTA]S@NABSCCH#PCDUP))&80( 214038) )3 
GO TO RESTART) 


END OF OUTPUTTER GETTINGS 


IF H#0 THEN FORGETSPACECH)3 
WORKINGSFFALSES 
GO TO NOTHINGTODO; 
END OLDEMACTIATEQWIERDHAROLD SURE IS SKINNY} 
SAVE PROCEDURE GIVEAWAYCA)3 


VALUE Al 


REAL AS 


ZA IS THE ADDRESS OF THE LAST BUFFER SEGMENT OF A MESSAGECTHE EOM 


03666500 
03666501 
03666600 
03667000 
03667400 
03667500 
03667600 
03668000 
03668500 
03669000 
03669500 
03670000 
03670500 
93671000 
03671500 
03672000 
03672490 
03672500 
03673000 
03673500 
03674000 
03674500 
03674504 
03675000 
03675500 
03676000 
03676090 
03676100 
03676110 
03676200 
03676500 
03677000 
03677500 
03678000 
03678500 
03679000 
03679500 
03660000 
03680500 
03681000 
03681500 
03682000 
03682500 
03683000 
03683500 
03664000 
03684500 
03685000 
03685500 
03686000 
03686500 
03687000 
03687500 
03688000 
03688500 
03688600 
03689000 
03690000 
03691000 
03692000 


® 1S IN THIS BUFFER) TO BE GIVEN TO WORKER,GIVEAWAY LINKS THE 


® ENTIRE MESSAGE INTO WORKERS QUEUE TO BE GIVEN TO A USER JOB OR 


® CANDEs FOLLOWING BUFFER CONSOLIDATION, 


BEGIN 
INTEGER 13 
Tteas 
WHILE PCMCAJ,CFFJ»DUP) # 0 DO A te P$ 
PCDEL)3 
IF WORKERING, (CF) © O THEN 
WORKERING 8 A & IECTF) 
ELSE 
BEGIN 
MCWORKERING,CFFIJ $3 (C#PCDUP)) & ALCCTCI)$ 
 WORKERING 32 WORKERING & ICCTF)3 
ENDS 
STARTWORKINGS 
END GIVEAWAYS 
PROCEDURE DCIOFINISHCR)3 
VALUE R3 
REAL Rs 
BEGIN 


REAL TaNTieSwNT22 S12NT3e VENTds ESNT5Ss STENT6Oe TENT7e Do Li 


03693000 
03694000 
03695000 
03696000 
03697000 
03698000 
03699000 
03700000 
03701000 
03702000 
03703000 
03704000 
03705000 
03706000 
03707000 
03708000 
03709000 
03710009 
03710500 
93711000 
03711500 
03712000 


LABEL BRAKE sDISCONNsDELINK sJUNKET*BIGJOKE eREADRDY » AUT se RDRDYABNe GONE 203712500 


$ SET OMIT = TWXONLY 


MSGACKsEOTITs ACK eSELECTNAK ® ENQRD »MOGANS PNOTHERE eBREAKITe FORGETNQUEs 


COT sPOLLBACK sWAITENQseENQACK sENQNAK sCOONGRILL®AUSe ZEILTAUSs 
$ POP OMIT 


FINISs BREAKERS ERROR, DSIT*ACTINTs WRITERDYeFINISH® FOUND QUEI Te JQUEIT 


$ SET OMIT & NOTCTWXONLY) 
SWITCH READACTIONS FREADRDY eBIGJOKE *AUTS AUT s BREAKER se AUT AUT PAUT® 
RDRDYABNeAUTS 

$ POP OMIT 

$ SET OMIT =» TWXONLY 
SWITCH READACTIONS ®READRDY »BIGJOKE »MSGANS »ENQRDe BREAK] TeNOTHERE® 
ZETTAUS*eE OTe RDRDYABNeMSGANSS 
SWITCH WRITEACTION#WRITERDY»POLLBACK» 
BREAKER s BREAKER» POLLBACK eENQACK pENQNAK » BREAKER} 


§ POP OMIT 
DEFINE INTERROGATE * Rell6s1lée 
READREADY= R,C2Gs1)#» 
GROUPMARK & CNOT Rel25tLJ])#e 
LINKEMa 25340188» 
PTR= 261688 
ROROYs A3sits 
MSGSTATS 5:58. 
WRITEREADY® Rel27:1)# 
ABNORMALFLAG# R,C2301I)#> 
IDLE® C(O R.f23810) AND @1475)80) 8» 


IDLEABNORMAL & CCR,L23810] AND ©1475)581000)#> 


NOTREADY # CORef2489) AND ©435)8@24) be 
BUSYs C(CRel2736) AND @75)8@20)86 
LAST # #) 
SUBROUTINE HITHERES 
BEGIN 
MO CVOGETAREACO))]«CLOCK+PCRTR)3 
MCVeljeST3 
MEVe2]+S13 


FORKCP( HELLO) »Ve%6012801)3 
END). 
SUBROUTINE FORGETI?3 


03712995 
03713000 
03713500 
03713505 
03714000 
03714495 
03714500 
03715000 
03715005 
03715495 
03715500 
03716000 
03716500 
03717000 
03717005 
03717500 
03718000 
03718500 
03719008 
03719500 
03720000 
03720500 
03721000 
03721500 
03722000 
03722500 
03723000 
03723500 
03724000 
03724500 
03725000 
03725500 
03726000 
03726500 
03727000 
03727500 
03728000 


DC re FIMISH 


BEGIN . 
FORGETAREACMLIJ,C282)]91)3 
ENDS 
SUBROUTINE SEQUENCES 
BEGIN 
IF CEt@SEQ@ARRAYCST])# O THEN 
BEGIN 
STREAMCES FE, (21927) 9 VE=CVS3GETAREACO) 24193 
BEGIN 
STeLOC EsD1leD1 +163 
DS*% DECEIDSeLIT "eo"; 
DI+DI79s0Se¢7 FILLS 
E*DIaDleV3 
SI*EsDS*9 CHR3 
ENDS 
ENTERLINEQCVeS100)3 
ENDS 
MCV] ,C4ti)] 3213 
END} 
SUBROUTINE JUNKERS$ 
BEGIN 
IF J,CCFIJ#0 THEN 
BEGIN LINETABLECS1IJ¢F1&0LCTCI3 
WHILE CVtaMrITJ),CFFIJ40 D0 
BEGIN FORGETAREACV,C2:2)e1)3 
[seV, CFF Js 
END END3 
MEVESGETAREACOD J 8eC#¥PC DUP) IRILC4SS473178STL1034088)3 
GIVEAWAYCV)3 
END3 
SUBROUTINE DETANK3 
BEGIN 
IF STATABLECST],OUTPUTANKING THEN 
IF TANKLINECSTJ&®0 THEN 
IF TAILOUT#ST THEN 
BEGIN 
TANKLINECTATLOUTIJ©ST3 
TATLOUT#ST3 
STARTWORKINGS 
ENO} ENDS 
$ SET OMIT = TWXONLY 
SUBROUTINE NAKHANDLER? 
BEGIN 
PCCTNAOGLSEQARRAYESTI]«CPTRJJ J eDUPsLODeDUP)} 
IF TsTCS00 THEN PCP&CP,(36810)"1)(38:38810)) ELSE 
PCPR&P(4233616)80(28240186))3 
PCXCHeSTD)3 
TANKSESTICA3ti 33813 
DETANK3 
btw TDL 
END} 
$ POP OMIT 
— ERESAAEAVASASTAABAATAAALLLARSBARZZS START 
Ete1s ®INITIALIZE ERROR COUNT»s ETC 
UNITDC303,0C1682) 3203 
IF REMOTE THEN ELSE GO TO FINISH3 
S1*LLUNR3 
IF INTERROGATE THEN 
LIF..LONR#O THEN PASSIVE VARIETY 
BEGIN 


03728500 
03729000 
03729500 
03730000 
03730500 
93731000 
03731500 
03732009 
03732500 
03733000 
93733500 
03734000 
03734500 
03735000 
03735500 
03736000 
03736500 
03737000 
03737100 
03737200 
03737300 
03737400 
03737500 
03737600 
03737700 
03737800 
03737900 
03738000 
03738100 
03738200 
03738400 
03738500 
03739000 
03739500 
03740000 
03740500 
03741000 
03741500 
03742000 
03742500 
03742590 
03742600 
03742658 
03742700 
03742750 
03742800 
03742850 
03742900 
03742950 
03743000 
03743050 
03743060 
03743250 
03743500 
03744000 
03745000 
03745500 
03746000 
03746500 
03747000 


T!#R.l9i9)3 


03747500 


FOR Siet STEP 1 UNTIL LMAX DO 03748000 

IF T#LINETABLECS21],0989) THEN ELSE GO FOUND} 03748500 

$ SET OMIT & NOT SEPTICTANK 03748700 
DISPOSALC32s10QUECSI»R)3 03748750 

$ POP OMIT 03748800 
£:303G0 ERRORS 03749000 

END} 03749500 
FOUNDS 03750000 
DeFPCLINETABLECS1I*OUP)eLINEDISS Lt=PeC2185)3 BLSTATUS 03750500 

$ SET OMIT # NOT SEPTICTANK 03750700 
DISPOSALCLelLOQUELSIJ »R)3 03750750 

$ POP OMIT 03750800 
THBSTATABLECST## 03751000 

$ SET OMIT = TWXONLY 03751495 
IF DSMULTI THEN SEQ@ARRAYES1],£40:8) ELSE 03751500 

$ POP OMIT 03751505 
~ SLU STATIONTYPES 03752000 
$ SET OMIT = NOTCSAVERESULTS OR DEBUGGING) 03752495 
STORAWAYS=R3 STORAWAYS@STATABLELSTJ# STORAWAYSSLINETABLELSII3 03752500 

$ POP OMIT 03752505 
IF LOCKEDES1) THEN 03753000 
BEGIN 03753500 
MELINETABLELSIJ]«NABSCR)S 03754000 

GO TO AUT} 03754500 

ENDS 03755000 

IF INTERROGATE THEN 03755500 
BEGIN 03756000 

IF LLUNR ® 0 THEN 03756500 

BEGINS PASSIVE INTEROGATE IN ANSWER TO DC INTERRUPT 03757000 

IF READREADY THEN 03757500 

BEGIN 03758000 
INITIATEDCIOCC@0400000040000000 & RL9#989)) OR 03758500 
CGETAREACLINETABLELSI]«BUFSIZE) +1)» S)3 03759000 

LLNR}Si3 03760000 

$ SET OMIT & TWXONLY 03760495 
IF DeTWX THEN 03760500 

BEGIN 03761000 

$ POP OMIT 03761005 
IF ABNORMALFLAG THEN 03761500 

IF L#WRB OR LINETABLE(S1)J,REAVYQED THEN Lt#RRA03762000 

FLSE BEGIN 03762500 

BRAKE| MELISGETAREACO)) $*(*#PCDUP) 28 03763000 
CSTR2C33841°7I CCT 03763500 

LeBROKENS 03764000 

GO DELINK$ 03764500 

END ELSE 03765000 

LeIF LeIOL THEN FIRSTIME ELSE NORMALS 03765500 

IF NOT STATABLECSTJ,DIALEDUP THEN HITHERES 03766000 

$ SET OMIT = TWXONLY 03766495 
END ELSESCONTENTION OR MULTIPOINT 03766500 

BEGIN 03767000 

IF ABNORMALFLAG THEN 03767500 

IF NOT CE*LINETABLECS1]),£20%1) THEN 03768000 

BEGIN 03768500 

LisIF LewRB THEN 57 ELSE L&6(42¢4583)3 03769000 
LINETABLECSIJSSERLE2084286)3 03769500 

IF L LE@ 49 THEN GO JUNKET ELSE GO FINISHS 03770000 

END ELSE GO FINISH ELSE 03770500 


BEGIN 


03771000 


$ POP 


$ SET 


$ POP 


DOSITs 


$ SET 


$ POP 


§& SET 


OMIT 


OMIT s 


OMIT 


OMIT & 


OMIT 


OMIT a 


END} 


IF BUSY THEN 
IF LeSELECT THEN 
BEGIN LINETABLECS1),C2081] 3813 
PCSELECTANS)3 
END ELSE 
IF L®WRB AND T®TC500 THEN PCMSGANSWER) 
ELSE 
TF bef43%#3)20 THEN P(L85043845'3]) ELSE 


IF LeIDLPOLLING THEN PCPOLLTIMEOUT) ELSE 


PCTIMEDOUT) 
ELSE 
IF L#®WRB THEN PCMSGANSWER) ELSE 
P(L&2043284632])3 
LseP3 
END3 


GO TO FINIS3 


END3 


IF WRITEREADY THEN 


BEGIN 


IF ABNORMALFLAG THEN 


BEGIN 


TWXONLY 


TWXONLY 


END3 


IF D®MULTI THEN 

BEGIN SEQARRAY(STIJ,£€4:2):=0;3 
GO TO IQUEIT3 

END3 

IF D®TWX THEN 


IF STATABLELST]-DIALEDUP THEN 

BEGIN 
MEIT*#GETAREACO) Je C*#PCDUP)&CST&3C3384187)) 
CCTFI3 : 
GO DELINK3 

ENDS 

HITHERE 3 

Li=IDh3 


IF DSCONTENTION THEN 
BEGIN 
L#*GETAREACO)$ 
GO TO EOTITS 
END ELSE 


GO TO AUT3 


LeWAITINGS 
IF STATABLEECSTJ,CCFI=0 THEN GO AUT ELSE GO QUEIT3 


ENO: 


IF L & DISCON THEN GO TO AUT3 
IF IDLE THEN 


TWXONLY 


IF D®CONTENTION THEN 


BEGIN 


IF CVSSSEQARRAY(STI),0381] THEN 


BEGIN 


END3 


SEQARRAYEISTI]3sVR0C384731)3 
GO TO AUT3 


03771100 
03771200 
03771300 
03771400 
03771500 
03771600 
03771700 
03771800 
03771900 
03772000 
03772100 
03772200 
03772300 
03772400 
03772500 
03773000 
03773005 
03773500 
03774000 
03774500 
03775000 
03775500 
03776000 
03776495 
03776500 
03777000 
03777500 
03778000 
03778500 
03778505 
03779000 
03779500 
03780000 
03780500 
03781000 
03781500 
03762000 
03782500 
03782995 
03783000 
03783500 
03784000 
03784500 
03785000 
03785005 
03785500 
03786000 
03786509 
03787000 
03787500 
03787608 
03788000 
03788495 
03786500 
03789000 
03790000 
03790500 
03791000 
03791508 
03792000 


$ POP OMIT 


LeWAITINGENQ} 
GO QUEIT: 


END ELSE 
IF D®MULT] AND L#WRBUSY THEN GO AUT ELSE 


GO [QUEITs 

BSEQUENCE OF EVENTS AFTER DISCONNECT! 

$1 = NOTIFY C&E OF DISCONNECT 

%2 = MARK DISCONNECTEDeSTOP FURTHER 10 FOR THIS LINE 


%3 
24 
%5 
%6 
%7 
IF 


BEGIN 


DELETE CORE QUEVESeENTER MARKER IN C&E TANK 

FORK TO QUITTER 

CALL TERMINATE ON USER JOB CIF NECESSARY) 

C&E COMMUNICATES ACK. OF DS*MARKER@LUG*OFF SETC, 
DELETE DISK TANKSsCLEAR TABLES» UPDATE SYSTEMDI SK 


IDLEABNORMAL OR NOTREADY THEN 


$ SET OMIT ® TWXONLY 


$ POP OMIT 


DISCONNE$ 


DELINKS8 


ENDS 
IF BUSY THEN 


BEGIN 


IF DeMULT] THEN 
IF LeSELECT OR L#WRB THEN 


03792500 
03793500 
03794000 
03794100 
03794105 
03794500 
03795000 
03795500 
03796000 
03796500 
03797000 
03797500 
03798000 
03798500 
03799000 
03799500 
03799798 
03799600 
03799900 


BEGIN LS"IF LHSELECT THEN SELECTANS ELSE MSGANSWER}03800000 


GO TO ACTINTS 
END ELSE GO TO GONE} 


L*DISCONS 
STATABLECSTIJ [1532] 350; 
MEI©GETAREACO) JeC#PC OUP) IACSTROL3I3I41E7IIOCTF UE 
IF CANDYINX=#0 OR CST#ABS(CSPOWORD) AND L#DISCON) THEN 
FORGET! ELSE QUEVENTCI»CANDYINX)$ 
FORKCPC QUITTER) eSI&STEICTE Je" 229601)3 
IF LINETABLECS1]¢READYQED THEN 
BEGIN 
LINETABLELS1],READYQED3 #03 
IF CL&SeCVseSTATABLELO]),€CFJ)2S1 THEN 
STATABLECO]#*V&STATABLECSLICUINKEM) ELSE 
BEGIN 
WHILE PCSTATABLECI J +#DUP) ,LEENKER#S1 DO 
1t®P,LEENKERS 
STATABLELIT IU ##PCXCHISSTATABLECSITILTLINKEM)3 
IF VeCFFISS1 THEN 
STATABLELOJ*V&IECTFI3 
END} 
STATABLE[S1],LEENKERI#03 
ENOS 
GO TO AUT?3 


$ SET OMIT * TWXONLY 


$ POP OMIT 


GONE$ 


END$ 
2 OCBUSY TRIES TO EXPLAIN WHAT HAPPENED TO THE 


IF D&MULTI THEN 
IF L LSS WRBUSY THEN GO AUT3 


IF NOT CISSLINETABLECS2)),02081) THEN JUNKER? 
IF L#WRB THEN ® IDOLE OR READING 


BEGIN FORKCPC DCBUSY)*1&SICCTFIJe1912801)% 
LisWwRBUSY3 
GO TO ACTINT3 

ENDS 

Esad; ® FALLS THRU TO ERROR 


03800100 
03800200 
03800210 
03800500 
03801000 
03801500 
03802000 
03802500 
03803000 
03803500 
03604000 
03804500 
03805000 
03805500 
03806000 
03606500 
03807000 
03807500 
03808000 
03808500 
03809000 
03809500 
03810000 
03810500 
03611000 
03611500 
03812000 
03812090 
03612100 
03812200 
03612210 
03813000 
03818500 
03618758 
03819000 
03819250 
03819500 
03819750 
03820000 
03820500 


% KLUTZ ON THE OTHER END OR THE LINE. 
ERROR? FORKCPCDCERR) eR&EL434454]9109020)3 
IF —#0 THEN 
BEGIN NEXTDCIOS 
. GO TO FINISH 
END ELSE GO AUT: 
END3 
BACTIVE INTERROGATE 
IF NOTREADY THEN GO TO DISCONN; 
IF & = RRA THEN 
BEGIN 
LSTATUS(CS1)¢=10L3 
IF PAPERTAPECS1) THEN NEXTDCIO ELSE 
BEGIN 
MECVe+GETAREACO) )41)+@24254357367437003 
ENTERLINEQCVsSi01)3 
SEQUENCES 
END3 
JUNKET? 
Tt=LINETABLE(S1)3 
JUNKER} 
IF I,CCFIJ#0 THEN FORGETI? 
GO TO FINISHS 
END: 
$ SET OMIT = TWXONLY 
IF LSSELECTANS OR L®MSGANSWER THEN 
BEGIN It*GETAREACO)3 
GO TO SELECTNAK3 
ENDS 
S$ POP OMIT 
IF Lb = WRBUSY THEN 3BUSY INTERRUPT 
IF IDLE THEN 
GO IQUEIT ELSE 
THROWAWAYE SI] «TRUE? 
GO AUT; 
ENDS 
® READ OR WRITE 
1 © TOQUECS),CCFI°13 
IF RefCFJ * 1+) THEN 
BEGIN READ OR WRITE BOUNCED BACK 
IF Ref 3081) THEN 
$ SET OMIT = TWXONLY 
IF OSMULTI THEN 
IF STATABLELCST),DIALEDUP THEN GO TO DISCONN ELSE 
BEGIN STATABLECSTI,CCFI#=03 
LimSEQARRAYCSTI$eCeP(DUP))810384751)3 
SEQARRAYESi) eC *#PCOUP))&L640%3218)3 
GO TO ENQNAKS 
END ELSE 
$ POP OMIT 
GO TO DISCONNS 
IF Rel24t1) THEN 
BEGIN #READ 
FORGETIS3Es=33G0 TO ERRORS 


ENDS 

$ SET OMIT = TWXONLY 
IF DRMULTI THEN 
BEGIN Ets15} 
- GO TO ERROR} 
ENDS 


LOST LEFT ARROW 


03821000 
03621500 
03822000 
03822100 
03622200 
03822300 
03622500 
03623000 
03823500 
03824000 
03824500 
03825000 
03625500 
03826009 
03826500 
03827000 
03627508 
03828000 
03828500 
03829008 
03830000 
03831000 
03833000 
03833500 
03833590 
03833600 
03833700 
03833800 
03833900 
038633910 
03834000 
03834500 
03835000 
03835500 
038636000 
03836500 
03837000 
03837500 
03838000 
03838500 
03838600 
03838695 
03838700 
03838800 
03838900 
03839000 
03839100 
03839200 
03839300 
03839305 
038394008 
03839500 
03840000 
03840500 
03841000 
03641490 
03841500 
03841600 
03641700 
03841800 


$ 
$ 


$ 


POP OMIT 
Lee1DL3 
GO TO AUT} 
END3 
IF belRORDY)J THEN GO TO READACTION(L.64434]] ELSE 
BEGIN STATABLECSTI,CCF)8eMC 1); 
SET OMIT = NOTCTWXONLY) 
GO TO WRITERDYS 
POP OMIT 
SET OMJT s TWXONLY 
GO TO WRITEACTION(L]3 
POP OMIT 
END3 


BIGJOKES! 


$ 


$ 


§ 


LE®NORMALS 
IF LINETABLECS11.C2081) THEN GO TO READRDYS 
SET OMIT = TWXONLY 
IF DETWX THEN 
BEGIN 
POP OMIT 
IF (PCMEI41]° TOP) AND PCXCH),l1#515637) 
THEN SEQARRAYES11«03 
SET OMIT & TWXONLY 
END ELSE 
BEGIN 
IF D®MULTI THEN 
BEGIN 
STREAMC Ite 4196330693 
BEGIN 
SlelsSleSle#1s0SeLIT "073 
IF Sce*#" THEN 
BEGIN 
SI©SL+13TALLY©23 
END} 
DS*CHRIIF SCa"#" THEN 
BEGIN 
SLOSI+1STALLY@ TALLY 413 
END? 
Te TALLY SDS@CHR? 
ENDS 
Et@PQE(34s86812)5 STexS13 
DO IF PCSEQARRAYCSTIs0UP) [12814] 4E 
THEN ELSE GO TO AUS 
UNTIL (ST#P,LINELINK) 3813 
E's23G0 TO ERROR} 


AUS3 TesSTATABLELSTI,STATIONTYPES 


SEQARRAYCST]#ePCXCH)80[484612)3 
SEQARRAYES1],(4018J«ST3 
END ELSE 
BEGIN ®CONTENTION 
STREAMCI tml e343 
BEGIN SItels 
IF SC # "S$" THEN TALLYt=43 
TUSTALLY?S 
END3 
IF P THEN ELSE GO TO WAITENQ} 
ENDS 
IF NOT STATABLE CST) eDIALEDUP THEN HITHERES3 
£4"82251252142665164}3 % "BREAKWRU* 
STREAMCJQ@TSBIDSHTieleLeE rele )3 


03641810 
03841900 
03842000 
03842500 
03843000 
03843500 
03843995 
03844000 
038644005 
03844495 
03844500 
03844505 
03845000 
03845500 
03846000 
03846500 
03846995 
03647000 
03847500 
03847505 
03648000 
03848500 
03848995 
93849000 
03849500 
03850000 
03850500 
03851000 
03851500 
03852000 
03852500 
03853000 
03853500 
03854009 
03854500 
03855000 
03855500 
03856000 
03856500 
03657000 
03857500 
03858000 
038658500 
03859000 
03859500 
03860000 
03861000 
03861500 
03662000 
03862500 
03863000 
03663500 
03864000 
03864500 
03865000 
03865500 
03866000 
03866500 
03866900 
03867000 


BEGIN S]%213 
YOCIF SC # *"" THEN S]t3S[+1 ELSE JUMP OUT)3 
SlemSle1s IF Sc#"#" THEN SI3eSI41 ELSE GO TO EXX3 
IF SCSMARK THEN 
BEGIN 
SltseSye3 
IF 5 SCBOC THEN TALLYts3 ELSE 
BEGIN 
SrisS]75} 
IF 3 SC®DC THEN TALLY3#23 
END} 
ENDS 
JtsTALLY} 
EXXs3 
END3 
IF CEtsP)#0 THEN ITF Ext THEN &% DISCARD ETX ONLY FOR BIDS 
BEGIN Vtels LSTATUSCSLI]i#1DLs GO TO ACK# END ELSE 
LINETABLELSI) tsC#PCDUP) )RELCTCI&1£ 203472193 
ENDS 
$ POP OMIT 
READRDY88 
MEI},C103:8)¢ST; 
PCOSTATABLECSTJ Js 10RD} 
IF GROUPMARK THEN 
BEGIN 
IF CESSCLES(CLINETABLECS1J&8=¢#P(DUP)) 
&10L02134385])),f20813) THEN 
BEGIN 
FORGETISLINETABLECS1)6eL8002034714)3 
$ SET OMIT = TWXONLY 
IF D#TWX THEN 
BEGIN 
VISGETAREACO)3 
IF &eCCFI#0 THEN ELSE GO ACK} 
IF CE*PCSEQARRAY[ESTJ*®DUP) »NAKCNI41) 
LSS PCXCH) «NAKMAX THEN 
BEGIN 
MEV41]«@05370000000000003 SNAK 
MOVI eCMSGSTATI®NAKING? 
END ELSE 
BEGIN 
E«0} 
MCV4#1)92NOT OF &B DISCONNECT 
MEVJ,CMSGSTATJ*DISCONS 
ENDS 
SEQARRAYLSTJ eNAKCNT#E$ 
ENTERLINEQC(CVeSTo1)3 
GO FINISH) 
END ELSE 
$ POP OMIT 
GO TO AUT: 
ENDS SNEXT JTS NO THROWAWAY 
VeGETAREACO)3 
$ SET OMIT #= TWXONLY 
If D#TWX THEN 
BEGIN SCONTENTION OR MULTIPOINT 
ACK3 
IF T # TC500 THEN 
TNAOGESEQARRAY(STI,CPIRJI,C28:20)3#03 
SEQARRAYESTI],NAKCNT*0}3 


03867500 
03668000 
03868500 
03869000 
03869500 
03870000 
03871000 
03871500 
03672000 
03872500 
03673000 
03873500 
03874000 
03874100 
03874500 
038746800 
03874900 
03875000 
03875500 
03875505 
03876000 
03876500 
03877000 
03877500 
03878000 
03878500 
03679000 
03879500 
03680000 
03880495 
03880500 
03881000 
03881500 
03682000 
03882500 
03883000 
03883500 
03884000 
03884500 
03885000 
03885500 
03886000 
03886500 
03887000 
03887500 
03888000 
03888500 
03889000 
03889500 
03689505 
03890000 
03890500 
03891008 
03891495 
03891500 
03892000 
03892500 
03893000 
03893500 
03694000 


MEV41J*@34370000000000003 SACK 
MCV] eCMSGSTATI*ACKINGS 
ENTERLINEQCVeSTal)3 
IF E THEN GO FINISH 

ENO ELSE 


S$ POP OMIT 


END} 


IF PAPERTAPE(LS13 THEN 
BEGIN 
NEXTOCIOS 
FORGETAREACO#V)3 
END ELSE 
BEGIN 
STREAMCVeV41 53 
DSedLIT*<cHte M3 
ENTERLINEQC(CVeSiel)3 
SEQARRAYESI J &s(CE1eeP( DUP) 2& 
CE,C21827)4+6,.02819))021221427)3 
SEQUENCES 
ENDS 
METISHCH#PCDUP) BICSH47IL IRC VSFLINETABLECSIIJI&ECTIFIJ3 
IF VeCCFI#0 THEN MEVI,CCFIer3 
LINETABLECSLI«VaOlCCTCc)s 
GIVEAWAYCI)3 
GO FINISH) 
ZNEXT IS [FAL ENDING*™MORE TO COME 


IF THROWAWAY[S1] THEN 


BEGI 


END} 
IF ¢ 


N 
FORGETI3GO TO AUT 


VeLINETABLELS13),CCFJ#0 THEN 


BEGIN 


END 


MCV] (CFOs 
IF CEeMEVI,0783)41)8C8 DIV CVeBUFSIZE4+1)) THEN 
BEGIN 
MEJJeC#PCQUP)I&VICTFI3 
LINETABLECS1]«V&8OCCTC)3 
GIVEAWAYC1)3 
GO TO AUT} 
ENDS 


ELSE Eels 
MUTJeC#PCDUP)8EL7IA5S13IRVEICTFS 
LINETABLELS1L)*V&ICCTCI3 

AUT?$ NEXTOCIO$S 


FINIS#$ 


LSTATUS(CSLJ+L3 


GO TO FINISH) 
 $& SET OMJT = TWXONLY 


ENORDE! 


STREAMCVSB] 41393 
BEGIN 


ENDS 
IF ¢ 


StsaVs TF SCa"#" THEN STteSl+4s IGNORE HEADER 
IF SCe"$" THEN TALLY##3 ELSE 

IF SC # "3" THEN TALLY##13 

VERTALLY3 


VieP) OR CEMSLINETABLECS1)),£20¢1] THEN 


IF V™3 THEN GO TO EOT ELSE 
BEGIN 
 LUENETABLECSI) twEROC 2084744 )3 


MCT) ,CSt5)0ePOLLINGS 


03894500 
03895000 
03895508 
03896000 
03896500 
03896505 
03897000 
03697500 
03898000 
03898508 
03899000 
03899500 
03900000 
03900500 
03901000 
03901500 
03902000 
03902500 
03903000 
03903500 
03904000 
03904500 
03905000 
03905500 
03906000 
03906500 
03907000 
03907500 
03908000 
03908500 
03909000 
03909500 
03910000 
03910500 
03911000 
03911500 
03912000 
03912500 
03913000 
03913500 
03914000 
03914500 
03915000 
03915500 
03916000 
03916500 
03916995 
03917000 
03917500 
03918000 
03918500 
03919000 
03919500 
03920000 
03920500 
03921000 
03921500 
03922000 
03922500 
03923000 


MO14+1)8=@05370000000000003 %&%NAK 
END ELSE IF NOT TANKOK(STI THEN 
BEGIN 
MEL} ¢C StS) PBACKINGENGS 
MOIT41283@34370000000000003 ACK 
END ELSE 
BEGIN 
EQTITSs 
MELI],€C5¢5]¢=POLLING? 
STREAMCI&S]41)30S9"%2 LIT *Se%3 
ENO3 
COONGRILL? 
LSTATUSESLJ«LeIDL}3 
ENTERLINEQC IT oSied)3 
GO FINISH} 
MSGANS#3 
IF CEtaLINETABLELS1)),(20%81) THEN 
BEGIN 
LINETABLECSLI&sFROC20¢47231)3 
GO TO SELECTNAK3 
END} 


IF DSCONTENTIJON THEN SEQARRAYEST],(C481)] 803 


STREAMCAS3I414)3 
BEGIN SItsas IF SC#"™#" THEN SIseS] eas 
IF SC * LEFTARROW THEN TALLY3 823 


IF SC#"&" THEN TALLY#=#13 AteTALLYS 


END3 
IF CES*P)*2 AND D®MULTI AND L THEN 


BEGIN STATABLECSTIt#(VieePCDUP) aVE23s22r1 lei lCeasa7siyaic2isa7ii) 


8OEcTc)s 


WHILE CES@V,[CF J) NEQ 0 DO FORGETAREACC(VISEM(E)) »C2t2]-E)3 


NAKHANDLER? 
LSTATUSCSLI$eI10L) 
METI #2O0@aSELECT(52:433:5)3 


STREAMCASFESSSEQARRAYESI J oCliFee (24s) eC2teeE, C25%1)5 
C3tFCEeL 2481) NEQ EelL25dei lJ eRs=zl41)3 
BEGIN SI8#LOC As SI8S]4+23 OSHeLIT "Es 


CICOStSLIT "#")§ DSteCHR 
C2cCDOSteLiT "#")3 DSseCHR} 


C3COSteLIT "#")s DSsm2 LIT "Q2"3 


DStaLIT LEFTARROW;3 
END: 
ENTERLINEQC IT sSiet)3 
GO TO FINISHS 


END3 
IF E— THEN 
BEGIN SACKED THE WRITE 


IF L THEN 
BEGIN SIT WAS A MESSAGE 
MSGACKS 


Erm CTNAOGEVSFSEQARRAY(CSTI(PTRII¢s 
C#P COUP) QTANKSECSTIC1824813))3 
STATABLECST) s@C#P COUP) QPCDUP)L22:2351)3 


IF T = TC500 THEN 


BEGIN IF D#MULTI THEN SEQARRAY(ST),C381)3413 


DETANK3 
END ELSE 
IF ST & ABSCSPOWORD) THEN 


BEGIN TNAOGLEVI]t9E8164284216)3 


DETANKS 


BSKIP HEADING 


03923500 
03924000 
03924500 
03925000 
03925500 
03926000 
03926500 
03927000 
03927500 
03928000 
039286500 
03929000 
03929500 
03930000 
03930500 
03931000 
03931500 
03932000 
03932500 
03933000 
03933500 
03933900 
03934000 
03934100 
03934150 
03934200 
03934300 
03934310 
03934320 
03934330 
03934340 
03934350 
03934360 
03934370 
03934380 
03934390 
03934400 
03934410 
03934420 
03934430 
03934440 
03934450 
03934460 
03934470 
03934480 
03934490 
03934500 
03935000 
03935500 
03936000 
03936500 
03937000 
03937500 
03938000 
03938500 
03939000 
03939500 
03939600 
03939700 
03939800 


END ELSE 


IF CTNAOGEVISSEREL3684246)),042¢6) 46501486) THEN DETANK3 


SEQARRAYCST)]&#ABSCePC DUP) )3 
IF D ® MULTI THEN GO TO ENQNAK ELSE GO TO EDTITS 
END3 ® ACK TO SELECT IS NEXT 
SEQARRAYCSTI&#C*#P COUP) 806984533] 80L43 4622); 
GO FNQNAK3 
ENDS 2NAKKED IS NEXT 
SELECTNAKS 


STATABLECSTI GC ViewP (DUP) AV(2322292 IRI C248 ATL JRLC2as47 31 I8OLCTC): 


WHILE CEs*V,CCFI])#0 DO FORGETAREACCVSSM(E]) (2:2) 0°E£)3 
IF L THEN 
BEGIN % NAK TO A MESSAGE 
NAKHANDLERG 
GO TO BREAKERS 
END ELSE 
BEGIN % NAK TO SELECTED 
SEQARRAYCSTIS#ABSC*#PCDUP))3 
IF T # TC500 THEN 
IF DISCONNECTINGCST] THEN 
BEGIN 
VISGETAREACO)3 
METJesCePCDUPIIA7ESs43sSIaVeIctc)s 
STREAMC IT &21 41) 30S$t"2 LIT" Se" 
MOVJ,C53:5)3873 
MEV+#1]¢8NOT O03 
GO COONGRILL} 
ENDS 
MECESRGETAREACO) )41)82ST3 
IF CVSSSEQARRAY([0)),£18%30)20 THEN 
FORKCPC NAKQUE ) 0 00129601)3 
MEE+2)¢=CLOCK#PCRTR)§ 
IF VeCFFJ20 THEN Vt=eVOE(CTF) 
ELSE MEVelf3915]), CCF IS=E; 
SEQARRAYCOJ3®V8E03833815]3 
IF D#MULT! THEN GO ENQNAK ELSE GO EOTIT? 
END} 
NOTHERE?3 
IF D0 * MULTI THEN 
BEGIN IF SEQARRAY(S1]),LINEWLINK&S1 THEN &% ONE STATION ON LINE 
IF NOT STATABLELS1],DIALEDUP THEN 
BEGIN SEQARRAY(S1].0333]2£43 GO TO ENQNAK3 END3 
ENO ELSE IF T#eT¢500 THEN 
BEGIN 
WAITENQS 
LISWAITINGENQS 
FORGE TNQUES 
FORGETI3 
GO QUEIT3 
END3 
ZETTAUSS?3 
FORKCPC,DCTIMEOUT) oe J&SICCTFIJ9129601)8 
GO TO AUTS 
EOTs$ 
IF CEtaLINETABLELS1]),.€CF] # O THEN 
BEGIN 
LINETABLECSLI*FEROCCTCI3 
BREAKIT?3 
FORGETI3 
IF D®TWX THEN GO AUT3 


03939900 
03940000 
03940500 
03941000 
03941500 
03942000 
03942500 
03943000 
03943500 
03944000 
03944500 
03945000 
03945500 
03946000 
03950000 
03950500 
03951000 
03951500 
03952000 
03952500 
03953000 
03953500 
03954000 
03954500 
03955000 
03955500 
03956000 
03956500 
03957000 
03957500 
03958000 
03958500 
03959000 
03959500 
03960000 
03960500 
03961000 
03962000 
03962100 
03962200 
03962300 
03962400 
03962500 
03963000 
03963500 
03964000 
03964400 
03964500 
03965000 
03965500 
03965900 
03966000 
03966500 
03967000 
03967500 
03968000 
03968500 
03969000 
03969500 
03970000 


IF — THEN GO BRAKE ELSE GO DSITS 
END} 
DETANK} 
IF D®CONTENTION THEN 
IF T * TC500 THEN 
GO EOTIT ELSE GO WAITENQ 
ELSE GO TO ENQNAKS 
$ POP OMIT 
RDRDYABNS! 
STREAM(T#1¢1¢QeIF PCLINETABLELS1),BUFSIZE»DUP) 
=2 THEN P+2 ELSE P+t)3 


BEGIN 
SI*T3 
QC26CIF SC#"2" THEN 
BEGIN 
TALLY¢13 
JUMP OUT 2 TO LLLL?} 
END ELSE 


IF SC&%e" THEN JUMP OUT 2 TO LLLL ELSE 
SI¢+Sl4+1))3 
LULLS TeTALLY3 
END3 
IF P THEN ®RECEIVED EOT OR EXC, PTs 
BEGIN 
FORGETI3 
ACTINTS LUNRIRS13 
INITIATEDCIOCINTERROGATEMASK&RE98989198)3 
GO TO FINIS$ 
END ELSE 
GO TO READRDY#%1HERE ARE 14 S IN THE BUFFER 
WRITERDYS3 
PCCSTATABLECSTIIJ+10R)3 
IF MCI).f481] THEN DETANK3 
BREAKERS 8 
FORGET!) 
GO TO AUT3 
$ SET OMIT = TWXONLY 
POLLBACKS? 
IF SEQARRAY(ST],0482]30 AND D=MULTI THEN 
BEGIN LtsIDLPOLLINGs 


IF STATABLECST),£CFJ#0 THEN GO FORGETNQUE ELSE GO BREAKERS 


ENO ELSE 
GO TO BREAKERS 
ENQACKS$ 
LeFIRSTIMES 
GO TO BREAKER} 
ENQNAKEE 
FORGETI3 
$ POP OMIT 
TQUEIT&s3 
Leldls 
QUEIT33 
LSTATUSESIJ«L3 
ENTEREADYQCST)3 
FINISHES 
IF UNIT(£30),€15t3] = 0 THEN 
BEGIN 
UNITE30]7.016815] «+ NOT O38 
RETURNIQSPACECS)3 
IF FIRSTWAIT # NEXTWAIT THEN NEWIO3 


03970500 
03971000 
03971500 
03972000 
03972500 
03973000 
03973500 
03973505 
03974000 
03974500 
03975000 
03975500 
03976000 
03976500 
03977000 
03977500 
03978000 
03978500 
03979000 
03979500 
03980000 
03980500 
03981000 
03981500 
03982000 
03982500 
03983000 
03983500 
03964000 
03984500 
03985000 
03985500 
03986000 
03986500 
03987000 
03987500 
03987995 
03988000 
03986500 
03988600 
03988700 
03988600 
03989000 
03989500 
03990000 


03990500. 


03991000 
03991500 
03991505 
03992000 
03992500 
03993000 
03993500 
03994000 
03994500 
03995000 
03995500 
03996000 
03996500 
03997500 


ENDS 03998000 
PCINI)! 03998500 
GO TO EXTERNAL! 03999000 
END DCIOFINISH9803 03999500 
SAVE PROCEDURE INITIATEIOCLODESCeMIXeU) 83 04000000 
VALUE LODESCoMIXeUSS% 04001000 
REAL MIXeU3% 04002000 
REAL TODESC3% 04003000 
BEGIN LABEL EXIT3% 04004000 
REAL PT#413 R59048004100 
PCTIO)S %R5904004200 
£ SET OMIT = NOTCSAVERESULTS OR DEBUGGING) 04004499 
IF U*30 THEN STORAWAYS#J0DESC3 04004500 
$ POP OMIT 04004501 
CHANNELEIP( DUP) J«U3 04005000 
PCCIODESCIJe+110)3% 04006000 
CHANIOCPTIJ¢eCLOCK4PCRTR) 3 %R5904007000 
IF U < 16 THENS 04008000 
IF ITODESC,£22:1) THENS 04009000 
BEGIN TRANSACTIONCU) « IF IODESC.£18%1] THEN 0% 04010000 
ELSE TRANSACTIONCUJ"132 04011000 
GO TO EXITs2% 04012000 
END3 04013000 
TRANSACTION(CU) © *PCDUPI 413% 04014000 
$ SET OMIT # NOTCSTATISTICS) 04014009 
IF CU OR 1219 THEN 04014010 
BEGIN COUNTUPCOsTODESC,(27#6))3 04014020 
COUNTUPBYC32eCLOCK+PCRTRI*DISKWAITIMEENTII93 04014022 
IF MIX NE@ O THEN COUNTUPBY(9914)3 04014025 7 
COUNTUPBY(20Um18)3 04014030 
UsteM(lLODESCI} 04014035 
IF CMIX$8U,£636)) > 2 THEN COUNTUPBYC(S»LEFTHALF1) ELSE 04014038 7 
COUNTUPBYCCMIX#2)¢4eITF MIX THEN LEFTHALF1 ELSE 1)3 04014040 
STREAMCUSB[UJ)$ BEGIN SI1##Us DS3e8 OCT END} 04014045 
MIXSB]ODESC,(2716)3 040140467 _. 
IF U GE@ MCPBASE AND U LE@ MCPTOP THEN COUNTUPC(10eM]IX)3 04014050 
IF U GE@ ESPOISKBOTTOM AND U LEQ ESPDISKTUP THEN 04014055 
COUNTUPC11eMIX) ELSE JF U GEQ@ DIRECTORYTOP THEN 04014068 " | 
IF U LSS BYPASSBOTTOM THEN 04014065 
COUNTUPCCCURDIRECTORYTOP) ,£ 4424)" 3)425eMIX) ELSE 04014067 
IF U LEQ DISKBOTTOM THEN COUNTUPC12eMIX)3 04014070 . set aise ene 4 
COUNTUPBYCI3eTODESC.CCF] LSS FENCE)! 04014080 
COUNTUPBY(36°PT, C4781) e1F PT23 THEN LEFTHALFL ELSE 1)3 04014085 
END ELSE COUNTUPBYC59"PT,f47tijelF PT23 THEN LEFTHALF1 ELSE 13304014090 ee ae em 
$ POP OMIT : 04014095 
EXITSEND! 04014100 
SAVE PROCEDURE WAITORSWAPCUSA)3 VALUE UseAs REAL Usa3 04014200 _ a 
BEGIN REAL N3 04014300 
LABEL Ly 04014400 
La 04014500 
BEGIN CLICKeCLOCK*#PCRTR) +323 04014600 
SLEEPCEMCAJ] ¢10MASK)3 04014700 
IF CMCAY AND I[OMASK)#0 THEN PCXIT)3 04014710 7 ; _ 
IF PiMIX#0 THEN 04014800 
BEGIN 04014900 
IF (CNT2*UNITCU),C13951)"16 OR NT2=31 THEN 04015000 ; eee, 
IF CMEMCPIMIX*eO)) COP IJZFENCE THEN 04015100 
BEGIN REPLYCPIMIXJ]©*VOK} SWAPCWAITSWAP21)5 ENDS 04015200 
IF TERMSETCPIMIX) THEN %R7004015290 aisha a ues 
IF (NeN#1929 THEN 04015300 


IF U#25 THEN 
BEGIN 
UNITCUJ3%C#P( DUP) )QLOCATQUEL 
N@OPFPCDUP) CFF IICKETFI8OLI 33132593 


RETURNIOSPACE(N)3 
MCA] SSC ePCDUP))&1030%47¢1) OR LOMASK3 
PCXIT)3 
END3 
END3 
ENDS GO TO L} 


ENDS 


SAVE PROCEDURE QUEVEUP(U)$ VALUE U $ REAL U3% 


$ 


BEGIN IF UR30 THEN 
WATTQUECFIRSTWAIT#eCFIRSTWAIT4#31) AND 31)teU ELSE 
BEGIN WAITQUELNEXTWAIT] © USS 
NEXTWAIT « NEXTWAIT+#$ AND 313% 
ENDS® 
END3 
SET OMIT = NOTCDFX) 


SAVE PROCEDURE LINKEUS 


$ 


BEGIN REAL EUBNT4S 
IF EUW,CFF) GTR 1023 THEN EUWISEUREULCTF) ELSE 
EVQCEUW,ECFII,CItISISSEUWS FEUWREULCTCI3 

END3 

POP OMIT 


SAVE PROCEOQURE STARTIOCU)S VALUE US REAL UI% 


$ 
$ 


BEGIN REAL TSNT1*RENT2s SENTII2 
SET OMIT # NOTCDFX) 
LABEL BACK? 
POP OMIT 
IF CT * UNITCUI),013:5) * O THEN’ 
IF (S$ © T,018815)) < @1777 THEN 
SET OMIT = NOTCDFX) 
BACKS 
POP OMIT 
BEGIN IF PCTIO) # 0 THENS 


04015310 
BR7004015400 
%R7004015410 
%R7004015420 

04015430 
%R7004015460 
%R7004015470 
%R7004015480 

04015500 

04015600 

04015700 

04016000 

04016100 

04016200 

04017000 

04018000 

04019000 

04019100 

04019499 

04019500 

04019600 

04019700 

04019800 

04019900 

04019901 

04020000 

04021000 

04021099 
ZDFX04021100 

04021101 

04022009 

04023000 

04023099 
%DFX04023100 

04023101 

04024000 


BEGIN INITIATETOCLOQUECSJ eLOCATQUEES),(315)04025000 


oVd33 
PC3)+% 
ENDS 
ELSE BEGIN QUEVEUPCU)3% 
P(4)3% 
END34 
PCTRPCXCHICISS45&2 3) © CUNT TIL UJ] Joe) 3% 
SET OMIT = DFX 
END33 
POP OMIT 
SET OMIT © NOTCDFX) 
END ELSE 
IF CU AND @76)218 THEN 
BEGIN 
IF EUW<@7777700000 THEN 
BEGIN NT4eSe#(TeTREVQCReEUWOCFFIICI88163303),0FFI3 
EUWe EUW & EVQCRIC18:3315)3 
EVQLRJ*NABSCUD3 
IF Usi9 THEN 00 JQQUECNT4),(33:5J]«12 
UNTIL CNT4*+LOCATQUECNT4), CFF J)>10233 
GO BACK} 
END} 
DISKOUNTSsDISKOUNT413 


04026000 
04027000 
04028000 
04029000 
04030000 
04031000 
04032000 
04032999 
04033000 
04033001 
04033049 
2DFX040330586 
%DFX04033300 
04033150 
%DFX04033200 
%0FX04033300 
3DFX04033400 
ZDFX04033500 
30FX04033510 
Z0FX04033520 
%0FX04033600 
20FX04033700 
04033800 


ENDS 
& POP OMIT 
END#% 


SAVE PROCEDURE PRINTERFINISHCU)S 


BEGIN 


$ SET OMIT © NOTCNEWLOGGING) 


STOPLOGCPIMIX#0)3 


& POP OMIT 


IF NOT UNIT£CU),£C1631) THEN UNITCUJ,Ci791) © O83 


STARTIOCU) 3% 


GO TO EXTERNALS2 


END3® 


SAVE PROCEDURE IOREQUESTCFINALe IODESC LOCATION) 3% 


VALUE FINAL*® LODESCeLOCATIONS& 
ARRAY FINAL ®LOCATIONE 4) 33 
REAL JODESC#2 
BEGIN REAL UPFNT1Le TENT2eSBnT3eReel ss 
&$ SET OMIT = NOTCOFX) 
REAL EUSNT4; 
LABEL FAKE sDOT Te IN? 


$ POP OMIT 


IF ITOQUESLOTS LEQ 


CUSEITF LOCATION,(9#1) OR PIMIX*O THEN O ELSE 7) THEN 
SLEEPCELIOQUESLOTS)] »@77°U)3 
LOQUEAVAIL © TOQUELS:SI10QUEAVAILI 
$ SET OMIT = NOTCSTATISTICS) 


DISKWAITIMELS] t=CLOCK+PCRTR)3 


IF CCUSLOCATION,C1236)) AND 62) = 18 THEN 
BEGIN IF (TeEUQCEUeME TODESC),(686)))<0 THEN GO FAKES 


TF UNITCU),CFFJ > 1023 THEN 


LODESC*LODESC&TINULUSABS(T)I(038395)3 


IF U # (Uel9) THEN IF PCRRR),C28t1) THEN GO INS 


IF CTesTRSECTFEIRSECTC) 240281) THEN LINKEU ELSE 
LOCATQUECT,(CCFIJI CFF JeT+T&S(CTC]s 


13:5] = O THEN 


$ POP OMIT 
$ SET OMIT = NOTCOFX) 
IF 1,£291) THEN 
IF DISKOUNT > 0 THEN 
BEGIN U + 183 
IF PCRRR)¢f29%1) THEN 
INE 
BEGIN DISKOUNTeDISKOUNT#13 
EVQCEUJ*NABS(CT#U)3 
FAKES 
LOCATION, CI2:6)¢U3 
GO pOojT 
END} 
DISKOUNT#O3 
ENDS 
IF T,CFF)>@1777 THEN 
EVQCEUI+T3 
END ELSE 
BEGIN 
DOJTs IF CTeUNITCUI) gf 
 $ POP OMIT 


$ SET OMIT = NOTCDOKBNODFX AND NOT DFX) 
IFCUSSLOCATION,£C1216))*16 THEN 
IF MCTODESCI,£5%81] THEN 


BEGIN 


LOCATION, CI2Z¢6] 3 8UsH193 


1ODESC, 03:5) 8¥12) 


ENDS 


VALUE U3 REAL USS 


04033900 
04033901 
04034000 
04035000 
04036000 
04036099 
04036100 
04036101 
04036200 
04037000 
04038000 
04039000 
04040000 
04041000 
04042000 
04043000 
04044000 
04044099 
BDF XO4044100 
BDF XO04044200 
04044201 
04045000 
04045100 
04045200 
04046000 
04047009 
04047010 
04047011 
04047099 
BDFX04047100 
ZDFX04047200 
04047300 
04047350 
04047400 
04047450 
04047500 
BDF X04047600 
BDF X04047700 
Z0FX04047800 
ZD0FX04047900 
ZDFX04048000 
04048050 
04048060 
3DFX04048100 
04046125 
BDF XO04048450 
ELSE04048200 
%O0FX04048450 
30FX04048500 
BOF X040486550 
3DFX04048600 
%DFX04048650 
04046651 
04048701 
04048705 
04048710 
04048715 
04048720 
04048725 
04048738 


£ POP OMIT 
£ SET OMIT = 


$ POP OMIT 


$ SET OMIT «@ 


$ POP OMIT 


$ SET OMIT = 
$ POP OMIT 


END3% 


DF X 
IF (CT ¢ UNITCU © LOCATION, C1286))),01315] = O THEN 


BEGIN IF PCTIO) # O THEN’ 
BEGIN INITIATEIOCIODESC »PIMIXeU) 33 
PC3)3% 
END ELSE BEGIN QUEUEUP(U)S% 
PC4)3% 
END3%& 
T © TAPOXCH)O15849583788618833015 93% 
END ELSES 
IF T,€FFJ>1023 THEN 
IF 7,01385]"@31 THEN 
BEGIN 
LOQUEAVAIL#S3 
PCXIT) 
END ELSE 
7.016815) * S ELSES 
LOCATQUEEPCT,£LIZ#1IS]*DUP) J*LOCATQUECRI&S& 
S€18833815)3% 
NOTCOFX) 
UNITCUJ+T&SCCTC); 
ENDS 


LOQUESLOTS#=]Q0QUESLOTS*"13 

LOCATQUE[S] * LOCATION@PIMIXC384385) OR @77777000003% 
DFX 

UNITCUY © 788033833995 )3% 


IOQUELS) + LO0DESC3% 
LOCOUNTCPIMIX) e*#PCDUP)4(T,£13351416)3 
FINALQUECS) «+ FINAL33 


SAVE PROCEDURE FINISHOFFIOCU)S VALUE US REAL U3% 
BEGIN REAL TSNTie FINSNT3» VENTGs JODENTO3 


cor 
cis 


C33 
C43 


C6I 
OFF! 
C71 


LABEL ONS OFF eCOeC1sC2sC32C4eC5eCOeC73% 
SWITCH CSW © COsCisC2eC39C4eC5eCOeC73% 
IF FIN > 0 THENS 
IF FIN,€C2501] THENS 
BEGIN T + FIN, (C385)3% 
FIN © FINGJODL3$3tSIROL S598 2581138 
GO TO CSW(TJ3% 
END ELSE GO ON ELSE GO ON32 
GO TO COs% 
FINe £8210] «+ V32 
GO TO C29% 
FIN, (8810) « V3% 
FIN © NOT V INX 1 INX FINGS 
GO TO C533 
STREAMCA*O0t10D)33% 


BEGIN DI © LOC As SI] © 1ODs Sf © SI#4s DSe*4 OCT END; 


T«¢ P DIV 60158 
FIN, (8#10] # Ts 
GO TO C23% 
STREAMCA*O8T0D)3% 
BEGIN DI * LOC A’ SI * 10D3 DS * 4 OCT END3% 
T# P DIV 8919% 
FIN. © CNOT T INX 2 INX FINIOT( S$ 36810)33% 
GO TO C53% 


04048731 
04048799 
04048800 
04048801 
04049000 
04050000 
04051000 
04052000 
04053000 
04054000 
04055000 
04056000 
04057000 
04057100 
04057200 
04057300 
04057400 
04057500 
04058000 
04059000 
04060000 
04060099 


%DFX04060100 
%DFX04060200 


04060201 
04060500 
04061000 
04061999 
04062000 
04062001 
04063000 
04063100 
04064000 
04065000 
04067000 
04066000 
04069000 
04070000 
04071000 
04072000 
04073000 
04074000 
04075000 
04076000 
04077000 
04078000 
04079000 
04080000 
04081000 
04082000 
04083000 
04084000 
04085000 
04086000 
04087000 
04088000 
040869000 
04090000 
04091000 
04092000 


REAL 


ONS 
cS! 
C2t 


END} 
MCP3 


IF U < 16 THENZ 
IF 100,02281) THENS 
MEIOD INX 1] *¢ MENOT V INX TOD INX 1] © Vk 


ELSES 


MCIOD INX NOT OJ] © V3% 


% 


PROCEDURE PROGRAMRELEASE3% 
BEGIN NAME T?# REAL FSX#JUNK3 
ARRAY Re"4[#]3% 
REAL IOD"NT132% 
ARRAY LOCNE*)33% 


$ PO 


P OMIT 


REAL Ss 


CHECKSTACKSPACE3& EWE 
LOCNeMCS«CIFCILODeNFLAGC(MEPCTe£MEPRTICPIMIXe9) II sDUP»PRL)I)) 


ef22t1] THEN 2 ELSE NOT 1) INX JOD)3 


IF 100.035)" 6 THEN 
BEGINS STREAMCS#aeMECPRTCPIMIX0BI] INX PCDUP2OsXCHODIA 10% 


DIB 3 


OsTRB 2)00+8600005)3 


BEGIN SieSs DS*2 CHR END} 
$ SET OMIT & NOTCSTATISTICS) 
COUNTUPC27 2100, L2786))3 


IF JUNK,£36%12]#45 AND RELTOG 
OR MCIODJ,(3:6) 
IF CUSERCODECPIMIX]) EQV MCP) # NOT O THEN 

BEGIN TERMINATECPIMIX)$ TERMINALMESSAGEC30) END3 
IFCFSCPIMIXe CFSX#PC*CNOT 2 INX LOCN) © 4eC0C),013211) 


END) 


AND T 


= 0 AND MCIOD] LSS CDIRDSK x DSKTOG) THEN 


DIV 5),04084)) 
WOCTOD,C24t1 JRF SX04314424)))#0 THEN 


BEGIN TLOJSSTLOJR1L1984741) R00 2624037)3 


ME Ca#( 
GO TO 


END} 
IF NOT 100,C24331) THEN MES] .CiL81IJ 13 

END DISK BUSINESS} 

IOREQUESTCRaelTODsLOCN) 3% 

TCO],019841] © OF 

IF CNTLePC#CNOT 2 INX LOCN) ®130eCOC)sL1089I"1)4#0 THENS 
STREAMCNTLeCeTlCO]eT)3 


BEGIN 
END3% 


GO TO RETURN3% 


z 


SAVE PROCEDURE NEWIO33 
BEGIN REAL SaNT3eURNT43% 

S # UNITCUeWAITQUECFIRSTWAITII,£16815)32% 
INITIATELOCTOQUECSIJ»sLOCATQUECS) C385) eU)3% 
FIRSTWAIT © FIRSTWALT4+4 AND 343% 
UNITCUJ,£134#5]) «© 33% 


REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL | 
REAL 


END) 
MDELTA * 
MLOG ® 
MROW ® 
LOGSIZE 
LOGHOLDE 
NUMAINTM 
LOGENTRY 
NXDISK 


% 
O115% 
C1253 
O135% 


R 
ESS 


C4352 
@563% 
@573% 
0633% 
O763% 


CNOT 2)INX LOCN))INX 5.195 NABSC#PCDUP))3 
RETURNS 


SI] « 73 SI ¢« SJ+8s DS «© NTI WOS3% 
SI *« LOC Ci DS © WDSES% 


04093000 
04094000 
04095000 
04096000 
04097000 
04098000 
04098700 
04099000 
04100000 
04101000 
04102000 
04103000 
04103050 
04103100 
04104000 
04105000 
04105100 
04105200 
04105300 
04105400 
04105409 
04105410 
04105411 
04105500 
04105510 
04105550 
04105600 
04105650 
04105700 
04105750 
04105800 
04105850 
04105890 
04105900 
04105950 
04105990 
04106000 
04107000 
04108000 
04109000 
04110000 
04411000 
04112000 
04113000 
04114000 
04115000 
04116000 
04117000 
04118000 
04119000 
04120000 
04121000 
04121050 
04121100 
04121150 
04121170 
04121200 
04121250 
04121300 
04121350 


ARRAY MAINTLOGARRAY ® @77(¥#)33% 04121400 
PROCEDURE NISKORAUXERROR(R)3 VALUE R3 REAL R$ FORWARDS 04121410 
PROCEDURE ACTUALIOERRCR)$ VALUE R$ REAL R$ FORWARDS 04121425 
PROCEDURE LINKUPCTYPEsKEY)$ VALUE TYPE®KEYS REAL TYPEsKEYS FORWARDS& 04121450 
PROCEDURE CHECKJOBORFILEMESSCMIXeF 1BeUIS% 04121500 
VALUE MIXsFIBsUS REAL MIXeFIBsUS FORWARDSS 04121550 

PROCEDURE LOGOUTMAINT(B)% VALUE BS REAL BS FORWARDS 04121600 
PROCEDURE MAINTLOGGER(B)# VALUE BS REAL B$ FORWARDS 04121650 
DEFINE 04121700 
LOGVERSION#( % VERSION NUMBER ON NEXT CARD 04421710 

2 04121720 

& % CURRENT ENTRIES ON NEXT CARD 04121730 

21 04121740 

(30:42:36) )#e (04121750 

TAPEBUFFERSIZE = 20083 04121850 

ARRAY MAINTBUFFERL*]3 04121950 
SAVE PROCEDURE IOFINISH(R®C)3 VALUE ReC3 REAL ReC3 04122000 
BEGIN BOOLEAN STOP3 04123000 
COMMENT 04123010 

WHEN E#0° STOP TAKES THE FOLLOWING VALUES? 04123020 

0 DISK ERROR COTHER THAN NOT READY ON A DFX SYSTEM) 04123030 

1 OTHER ERROR 04123040 

2 LOCKED ADDRESS CSHAREDISK) 04123050 

3 ERROR WHEN UNIT(CUI],£536)#0 04123060 

WHEN E®0» STOP TAKES THESE VALUES! 04123070 

"2 10 FOR WHICH COMPLETE SHOULD NOT BE SET CDISK WRITE 04123080 

BEFORE READ WITH UNIT OR EU SWITCH), 04123090 

1 PRINTER 10, 04123100 

0 NORMAL 10, 04123110 

END COMMENTS 04123120 

REAL TIMBSTOP$ie UsTIM413 04123500 

WABEL TESTeNOWAITePROC*NEW*QUP* INCR} 04124000 

LABEL ERRORS#DISKERReDSeXsSWe lL Pe TAPE eDKeDXeDX19DCeOKeL 13 04125000 

REAL TENT1oS#NT2eSLENT3eVENTSOESNTS oI BNT73S 04126000 

NAME LOCNRE$ REAL I1OD=NT6OoFINeSL3 04127000 

SWITCH TYPE © QKoLPe TAPES OKe DK se OKs OKs OK ep OK 0 OK} 04428000 

04128010 

$ SET OMIT ® NOTCDFX) 04128099 
SUBROUTINE FIXUPEUQS 04128100 

BEGIN IF EUQ@EV) LSS O THEN EUQLEVIEBABSC(NOT 0) ELSE 04128200 

BEGIN IF FUQCVI,CFF) LSS 1023 THEN LINKEYUs 04128300 
PCCEUQLZVI)+10R)3 04128400 

‘ END) 04128500 

END3 04128600 

04128610 

$ POP OMIT 04128611 
_$ SET OMIT = NOTCNEWLOGGING) 04128799 
STOPLOGCPIMIX20)3 04128808 

$ POP OMIT 04128801 
PCCHANJO(C))3 ® INITIALIZES T1M04128900 
SisCTUBUNITDPCCHANNELEC 3*DUP)))e(16318)3 % INITIALIZES U 04129000 

IF Us30 THEN DCIOFINISHCR)$ 04129100 

ERRORS!) 04429900 

IF CE © Refl2697))4+CV © T,6588) ) # O THENS 04130000 

BEGIN IFCS1 © FINALQUECSJ) «< O THENS 04131000 

IF (CE * $1,025%8] AND £) * 0 THENS 04132000 

IF V * O THEN 04133000 

$ SET OMIT # NOT DFX 04133090 
IF (CU AND 62) * 18 THEN 04133100 

BEGIN ['s10QUELS]3 04133200 


ene eter | 


GO TO Dx3 04133300 

END ELSE 04133400 

$ POP OMIT 04133410 
GO TO OK3 04133500 

IF (CU AND @774) # 16 THEN 04134000 
BEGIN 04134058 
ROCTABLECUJ FC #PCDUP)I& (CH1)0184622)8 RO383859304134060 

GO TO X3 04134070 

ENDS 04134080 
IF E = 0 THENS 04135000 
BEGIN ® RECOVERED MASS STORAGE &% 04137000 
MAINTBUFFERENXDISK&@®NXDISK#4 AND 15) 04137100 

t= 90 & UL284642) & LOCATQUELSI(C4:385) & 04137110 
CLOGENTRY#SLOGENTRY+1)0CTF] & 04137120 
RDCTABLECUIC1I6:13:2)3 04137130 

IF FINALQUE(S) GTR O THEN 04137140 
BEGIN 04137150 
MAINTBUFFERC(NXDISK]#=C*PCDUP)) & 04137160 
COMEMESIPSLOCATQUECS] INX NOT 2) INX 4]04137170 

eCi3tit) OLV ETRLNG)4196983989]3 04137180 

MESi).€781) t2 13 04137190 

END3 04137200 
PCMAINTBUFFERENXDISK4+2) ¢=10QUE(S])3 94137202 

$ SET OMIT = NOTCAUXMEM) 04137203 
IF NOT (U,€4681]) THEN 04137204 
BEGIN 04137205 
STREAMCStePe(CF] $ 23 04137206 

BEGIN 04137207 

STssLOC Si DIFSLOC Ss DStBDEC; 04137208 

END} 04137209 

END ELSE 04137210 

$ POP QMIT 04437211 
PCNFLAGCMEP)))3 04137212 
PCPRVE1G44s4) oe (MAINTBUFFERCNXDISK411],S1D)3 04137215 
MAINTBUFFERCNXDISK4+3]$=MAINTBUFFER(UJ3 04137220 

IF (LOGHOLDER INX 0) = O THEN 04137230 
BEGIN 04137240 
LOGHOLDER, CCF JI=(MAINTBUFFER(NXDISK) J3 04137250 
FORKCPC»MAINTLOGGER) 2000012801); 04137260 

END ELSE MELOGHOLDER,CFFII,LCFIt«= 04137270 
CMAINTBUFFERONXDISK)]3 04137275 

LOGHOLDER« (FF J #SCMAINTBUFFERENXDISKI]]3 04137280 
NUMAINTMESS#= NUMAINTMESS#13 04137290 
T.C586) * O03 04142000 

GO TO SW3 04142500 
ENDS% 04143000 

IF V & 0 THEN’ 04144000 
$ SET OMIT = NOTCSHAREDISK) 04144099 
IF R,C2584)29 THEN & LOCKED ADDRESS 04144100 
BEGIN 04144110 
IF FINALQUE(S]2?0 THEN 8& FIND 10D 04144120 
BEGIN I1*IOQUEC(S].(CFI3 04144130 
1OD*LOCATQUECSJ,CCFI3 04144140 

WHILE CMETODJ+CCFII#I DO 1OD*10De13 04144150 
MCIODIeCeOsLjJets & SET LOCK BIT 04144160 

ENDS 04144170 
LQUECLQAVAILIS®METOQUECSIISS(184i197)3 04144188 
STOP##23 04144200 

IF CLQAVATLSBL@AVAILS!)>LQMAX THEN 04444260 
PUNT(8) & LOCK QUE OVFLOW 04144270 


TOCOUNTELLOCATQUELS),C3%SJJ]¢#PCDUP)"13 % TO SWAP 04144275 


GO TO DISKERR! 
END ELSE 
POP OMIT 
BEGIN % ORIGINAL ERROR ON MASS STORAGES 
TINULCUQ , CIBsS1I2IsSRP(DUP),L14312)413 
MAINTBUFFER(UJ2*R&TWO(C)C1684384)3 
ROCTABLECUJS FC #P( DUP) AC C™1)0184682)3 
VI®1293 
SET OMIT = NOTCSHAREDISK) 


LOCATQUECS) sCOti J teMLIOQUE(SII],£42:1)3 


04144280 
04144300 
04144301 
04145000 
041346000 
04146100 
04146200 
04147000 
04147399 
04147400 


IF NOT Rgl2581) THEN MCTOQUELSJ],04281)3*"0304147500 


POP OMIT 
END& 
ELSE BEGIN % RECURRENT ERROR ON MASS STORAGES 
PCMAINTBUFFERCUJ$#P(DUPsLOD) OR 
R&TWOCC)L1884334) 25 
IF (V © Vl) > 137 THEN? 
BEGIN RisP; 


IF LOCATQUELS].09%1) THEN % QLAY 1/0 


MCLOCATQUELSJ]#&R OR IOMASKS 
SET OMIT = NOTCAUXMEM) 
IF NOT Uel4681) THEN & AUXMEM 


BEGIN 
V t= OF GO TO X$ 
END} 

POP OMIT 

DISKERR: 


SET OMIT & NOTCDFX) 
1t=LOQUELSJ)3 
IF Refl3081) THEN 
BEGIN V$=sMC1],C696)3 FIXUPEUQS 
Viz03 GO TO X3 


ENDS 
POP OMIT 
T,C5810) 3203 
GO TO DXx3 
END$ 
PCDEL)3 
ENDS 
YUNITCU] «© T&VEI5:4048) 5% 
DS#% 
CHANNELEPC(TIO)) © USS 
CHANIOCPCTIO) ]8eTIM3 
PCLCIOQUECSJ J +11093% 
GO TO EXTERNAL 3; 
Xt STOP © (V#0)x2615% 
T,065t13] # 32xb+83% 
GO TO TESTS 
; ENO? 
SWHt GO TO TYPELCT.C1#4))32 
LP? 


ah Ned IF STOP $s (T $8 T8001651681)),01781) THEN 
TESTS - JF FIRSTWAIT * NEXTWAIT THEN GO TO INCR ELSES 
GO TO NEW ELSE GO TO NOWAIT3% 
TAPES 


IF (R»C21t5) AND @23) # @22 THEN % BINARY READ 


04147501 
04148000 
04149000 
04150100 
04150200 
04151000 
04151200 
04151220 
04151230 
04151235 
044151240 
04151250 
04151260 
04151270 
04151275 
04151300 
04151399 
04151400 
04151600 
04151800 
04152000 
04152200 
04152204 
04152400 
04152600 
04152600 
04152900 
04153000 
04154000 
04155000 
04156000 


%R5904156100 


04157000 
041568008 
04159000 
04160000 
04161000 
04161500 
04162000 
04163000 
04164000 
04165000 
04166000 
04167100 
04167200 


IF Reli583) # (C8"R,02281)) AND 7) THEN % PARTIAL WORD TRANSFERO4167300 


IF MOD3I0S THEN 
BEGIN Ref28si1Jir&1;3 


% IF MODEL II] CONTROLS04167400 | 
% TREAT IT AS A PARITY,04167500 


DKe 


$ SET 


$ SET 


POP 
SET 


nme 


$ POP 


& POP 
$ SET 


DX$ 


DX13 


$ POP 


$ SET 
DX3 
$ POP 
OKs 


GO TO ERRORS) 


04167600 


END ELSE GO TO OK 04167700 

ELSE GO TO OK FLSE GO TO OK} 04167800 
04167900 

IF NOT CE#*1OQUELSJ)e(24%4] THEN 04168000 
IF FINALQUE[TS],€24%1) THEN’ 04169000 
OMIT = DFX 04169090 
BEGIN 04169100 
OMJT = NOT PKBNODFX OR OMIT 04169190 
IF CMETOQUELSI] SST RIC 24s 47tL J] seeC( PC OUP) INX PCOsLNGe XCH) 2104169200 

0€501]72 EQV NOT U THEN & OTHER CONTROL 04169400 

BEGIN PC T»S)3 % IOREQUEST STOMPS Ts Se S41 & Vo 04169600 
LOREQUESTCFINALQUE(CS] «© JOQUELSJ]&86(3!43%5), 04169800 
LOCATQUE(CS)]&16£12:4286))3 04169900 

SsuPy Ts#P3 ® ONLY T AND S NEED TO BE SAVED, 04170000 

STOPse"23 04170200 

IF PCTIO)2#0O THEN GO TO QUP ELSE GO TO OK} 04170400 

END ELSE 04170600 

OMIT 04170650 
OMIT = DKBNODFX OR OMIT 04170750 
MCTOQUECSJ 8278102484781) )83*% CPC DUP) INX PCOeLNGe XCH))3 04170800 

OMIT 04170900 
GO TO DS} 04171000 

END ELSE GO TO OK ELSE GO TO QK3 04171200 
OMIT 04171250 
OMIT = NOT DFX 04171350 
IF PCMOCI), C66] OUP) # CMCIOQUELSI) 31810 24847814)) 16 04171400 
*(PCDUP) INX PCOsLNG*XCH))) L686) THEN &% DIFFERNT EU 04171600 

BEGIN P(TeS)3 ® JOREQUEST STOMPS Ts Ss S1 & V 04171800 
TOREQUESTCFINALQUELS] + JOQUELS]&6(3:433:5], 04172000 
LOCATQUELSj)3 04172200 

St=P3 TiFP) VisPs &B ONLY T AND S NEED TO BE SAVED, 04172400 

STOPix#2}3 2 V & EU NUMe LEFT AT START OF 1F04172600 

GO TO DXi) 04172800 

END ELSE GO 10 DS3 04173000 
04173010 

VseMC1)],06:6]3 04173020 

IF LOCATQUECS],CFFJ) USS 1023 THEN 04173040 

IF EUW,CFFI] LSS 1023 THEN 04173060 

IF EVQEV) LSS O THEN 04173080 
EVQEVJ8eCNOT O0780C1214%2) 04173100 

ELSE ELSE ELSE 04173110 

BEGIN 04173120 

FI XUPEUQ3 04173130 

IF EUW,CFFJ>1023 THEN DISKOUNT#DISKOUNT41 ELSE DF X04173200 

BEGIN EUWESEUWR CT SRE UOLSLIFEUW, CFF IIIC1883915)3 04173500 

EUVQ(CS1 J s#NABS(U)3 04173600 
LOCATQUECS1&$#S] e#PCOUP>LODI&ICFIF I: T,CCFI8=I13 04173700 

IF U THEN WHILE CS1#SLOCATQUECSIJ,[CFFJ) LSS 1023 DO 04173800 
LOQUELS1I),0395)37123 %0FX04173650 

END 04173875 

END3 04173900 

IF PCTIO)&®O THEN GO TO QUP3 3 THE CHANNEL MAY BE GRABBEDO4173925 

OMIT 04173980 
04176000 

OMIT = OFX 04176699 
04176900 

OMIT 04176901 
IF FIRSTWAIT @ NEXTWAIT THEN 04177000 
NOWAIT! IF CS1 3® LOCATQUECS),(0186815]) LSS @1777 THEN 04178000 


INITIATEIOCIOQUECSLJ ®eLOCATQUECS13,03:5]9U)% 04180000 

ELSE 04181000 

PROCS T s* TROL1631632) 04182000 
ELSE 04183000 

BEGINS 04187008 

NEWS NEWLO32 04168000 
IF STOP THEN GO TO INCRES 04189000 

QUP 3 IF LOCATQUECS], CFF] GTR @1777 THEN GU TO PROC) 04190000 
QUEUFUPCU) 3% 04191000 

T © T8401384315)32 04192000 

END3s% 04193000 

INCR? 041948000 
IF CTIM*CLOCK4PCRTRI*TIM) LSS O THEN TIM©O3 027704194058 
10D:*]O0QUETS)3 04194100 

IF (CU OR 1)#19 THEN 04194200 
BEGIN 04194300 

IF CJUNK#eM(100),£517))>9 THEN 04494400 

JUNK SENEFUP. ECE I+4CJUNK AND @17)3 04194500 

TF JUNK<NEUP,CFFJ THEN 04194550 
PEULOLJUNKIJt=P(DUP,LOD)+CLOCK+PCRIRI@EUIOLCI} 04194600 

END}? 04194650 
TtaCStsenFLAGCLOCATQUE[S])).C€315]3 &’ MIX INDEX 04194700 

$ SET OMIT # NOTCNEWLOGGING) 04194799 
IF FINALQUELS] «< 0 THEN &’ MCP I/0 04194800 
MCPIOTIMECLCT J «C#PCOUP))+TIM3 04194900 

$ POP OMIT 04194904 
LOTIMECTJ*¢C*P (DUP) )+TIM3 04195000 

IF Si1.e£1081] THEN % CANDE 1/0 OR NO MEM 04195100 

IF Ut25 THEN FORGETAREACO*I0OD) ELSE 04195150 

BEGIN 04195200 

IF MEC##S1,0CFI"1],0168s7J213 THEN FORGETAREACOeC) 04195300 

ELSE QUEVENT(Cel)& 04195400 

JF CVSeM[C4+2]) < 0 THEN FORGETSPACECV) ELSE 04195600 

BEGIN . 04195709 

IF VeC2tt] THEN ELSE PCOME VJ JePRLDI3 04195800 
MOV+1)9=M(C04+3)3 04195900 

END 04196000 

END CANDE 10 HANDLERS 04196100 

IF €#0 THEN 04196200 

IF STOP THEN 041964090 

PCT) 04496600 

ELSE GO TO Li 04196800 

ELSE BEGIN 04197000 
IOCOUNTC I Je*PCOUP)@13 04197500 
RETURNIOSPACE(S)3 04199000 

Lit PCT&PC,SIT*LODICFTFIJ)3 04201000 
END} 04202000 
PCCUNITCUJ]¢STn)3 04203000 

FIN © FINALQUE(S] AND NOT MEMORY33 04205000 

IF CU OR 1) NEQ@ 17 THEN 042050328 

IF 100.2481) THENS 04206000 
BEGIN V © ABSC100¢033815)3"R,L33815))3% 04207000 

IF 100,068810) < V THEN 04208000 

IF 10D,C23t1) THENS 04209000 

Vi 10D,(8810)3% 04210000 

IF U « 416 THENS 04211000 

IF 100,£2182] * O THENS 04212000 

BEGINS STREAMCACOBBOM(S1,033815]4V91))33 04213000 

BEGIN SI « LOC 83% 04214000 

IF SC s “oe THEN TALLY « 43% 04215000 


& SET 
$ POP 


$ SET 
$ POP 


$ SET 


$ POP 


A « TALLY3% 
END3% 
Vi # *P4VEs 
ENDS® 


FINISHOFFIOCU)3% 
ENDS® 
IF €—€ # QO THENS 
OMIT = NOTCSHAREDISK) 
IF STOP#2 THEN 


OMIT 
BEGIN IF STOP LE@ 1 THEN 
BEGIN 
FORK( 
PC eDISKORAUXERROR)+C (CU AND @774) NEQ 16)» 
R&S£384335)2"720140,0)3 
LOCATQUECSI,Cilsijssts 
END 
ELSE IF FIN < 0 THEN PCLOCATQUELSJ]*+ReXCHee) 3% 
END& 
OMIT #@ NOTCSHAREDISK) 
ELSE 
OMIT 
ELSE BEGIN® 
IF FIN < 0 THEN PCR OR TOMASKsLOCATQUELSIJe*#)&% 
ELSE 
OMIT # NOT (CDFX OR DKBNODFX) 


IF STOP GEQ O THEN 
OMIT 
BEGIN 
LOCN « [MCLOCATQUE[SJI13% 
10D + TOD, 33t15)3% 
WHILE LOCNEO],£33815] # 10D D0 
LOCN * 1 INX LOCN3% 
LOCNEO] «© M OR FINSS 
END END#& 
IF PiMIX = 0 THEN GO TO NOTHINGTODO32 
IF I * PIMIX THEN GO TO RETURNSS 
GO TO INITIATE33 


END LOCOMPLETES% 
SAVE REAL PROCEDURE WAITIOC1ODsMASKeU) 3% 


VALUE MASKeUsTOD3% 
REAL MASKeUe1OD32 
BEGIN® 
REAL Ts 
DEFINE OCTADE® DS¢3 RESETI3CIF SB THEN DS*SET ELSE 
DS*RESETSSKIP SB)# 
10D © NFLAGCPC,F0DeLOD) ATINULUJL3833:5)3% 
MASK «© NOT MASK3% 
TOREQUESTCNABSCIOD)&MASKE 2534036] ¢10Ds 
C100]&8UC1294216)])3% 
10D + 100802582538) 2001981981)3% 
WAITORSWAPCUS(100),0CCFI)3 
IF CCWAITIO€10O0.£269173) AND MASK AND MASK.C618145))#0 THEN 
BEGIN 
STREAMCIOD*1OD, C2637] »>MASK@#C NOT MASK) »LA1E7 Je 
ZeSeCTINULUJ] J+ Te®TireSPACEC12))3 
BEGIN DS#20 LIT" UNEXP J*0 ERROR ON “3SI]eZ3 
SleS14+53D0Se3 CHRIDS*S LIT" SRESULTA™3 
ST*#LOC LOD3S]*S1+OSSKIP 3 SBS 3CQCTADE)3 


04216000 
04217000 
04218000 
04219000 
04219100 
04220000 
04221008 
04222000 
04222499 
04222500 
04222501 
04223000 
04223500 
04224000 
04224010 
04224100 
04224500 
04224750 
04225000 
04226000 
04226499 
04226500 
04226501 
04227000 
04228000 
04228100 
04229099 
04229100 
04229101 
04229200 
04230000 
04231008 
04232000 
04233000 
04234000 
04235000 
04236000 
04237000 
04238000 
04239000 
04240000 
04241000 
04242000 
04243000 
04243100 
04243200 
04243300 
04244000 
04245000 
04246000 
04247000 
04248000 
04249000 
04250000 
04251000 
04251200 
04251300 
04251400 
04251500 
04251600 


IF PiaMIX = 0 THEN BEGIN PCT)? PUNTCO) END3 


DS*6 LIT*»eMASKS" 3STeS1+6sSKIP 3 SBI 
SCOCTADE)3DSe2 LIT", «"3 


IF NOTERMSETCPIYMIX) THEN 


BEGIN 
TERMINATECPIMIX819(16333815))5 
IF JARCPIMJ[X09),0131) THEN & "SYSTEM™ JOB 


SPOUTITCT®35)3 % UNEXPEOERROR™=LIBMAIN 


END; 


END; 


BLASTQCU)3 
END ELSE 
TERMINALMESSAGE("T)3 

END3 


REAL PROCEDURE TAPEPARITYRETRYCReUSKEY D3 % 
VALUE ReUsKEYS REAL ReUeKEYS FORWARDS 


PROCEDURE DISKORAUXERROR(R)3 


BEGIN 
REAL 


NAME 


LABEL DSIT» START» QUIT» RETRY» KILLL»® KILLER} 
$ SET OMIT & NOTCAUXMEM) 


Use 

Ss 

Ee 

Te 

MK e 

1ODe 
MIX» 
FINe 

KEY Ls 
KEY2s 
DISC» 
MASK» 
ARE As 
RSLTs 
PRTMAXe 
DISKCELL*» 
OLAYI 08 
DSKADRS3 


LOCN = DISKCELL3 


VALUE R3 
CELL = 
PARITYs 
Ul = 
MSG 4 
Ti = 
T2 = 


REAL R3 


MK e 


FIN» 


AREA» 
RSLT» 
PRTMAXe 
DISKCELL» 


DEFINE NOTRDYCOUNT = AUXERRORTOG.(C353I&3 


SUBROUTINE AUXMESSAGES 


BEGIN 


STREAMCMEMPARIBReL26281]5 LOKOUTEER,L2731)0 


Ra 


BEGIN 
DStsLIT"#"s STesLOC Ts SitwS1+53 DSIe3CHRS ¥ UNIT NAME 
OStsoLiT" WRITE" 

REEDCOL&SDIN53 


PARIM(R»C2881) OR Rel2981))e 
DESPARI#@R,C3Lsi]> 
TEBTINUCU)*® MI] Xe 
KEYIISKEYL¢=SPACEC30))3 


BSYt*R,C32tide 
AtHIOQUETS).CFF J» 


NOTRDY3®R,C3081)» 
REEDS*IOQUECS)«£2s1)» 
SIZsSLOQUELS] £8810)» 


DSts4LIT"READ")3 


04251700 
04251800 
04251900 
04252000 
04252100 
04252200 
04252300 
04252500 
04252600 


%R6404252700 


04252800 
04252900 
04253000 
04253100 
04253200 
04253300 
04254000 
04255000 
04256000 
04256200 
04256400 
04256600 
042566800 
04257000 
04257200 
04257400 
04257600 
04257800 
04258000 
04258200 
04258400 
04258600 
04256800 
04259000 
04259200 
04259400 
04259600 
04259800 
04260200 
04260400 
04260600 
04260600 
04261000 
04261200 
04261400 
04261600 
04261800 
04262000 
04262200 
04262400 
04262600 
04262800 
04263009 
04263200 
04263400 
04263600 
04263800 
04264000 
04264200 
04264400 


OSteBLIT" ERReMXa"3 NStE2HNECS Tees DL t=D] "23 OSteF ILL 
OlasTs OSsenrr” 3 

MEMPARCDSS87LIT"CM,PARI")3 

LOKOUTCDSt#BLIT"CWRTLKI")3 

PAR CDSSF5LIT*CPARI™)3 

NOTRDYCDSt®8LIT*ENT,RDYI")3 

DESPARCOStF7LIT"(D,PARI")3 

BSY COSteSLIT*CBSYI"); 

DStFALIT"™ DAS™s TeeDIs DSteBDEC3 DItsTs DSte7F ILLS 
SreaT3 OltetTs BCIF SCe" © THEN SIT t#ST41 ELSE DS#sCHR)} 
OSis4GLiT” Sze} 

SPssLOc SEZs NStedNECs TteD]*) DSIS3FILL3 DI taT3 
OSts3L17" Re; 


04264600 
04264800 
04265000 
04265200 
04265400 
04265600 
04265800 
04266000 
04266200 
04266400 
04266600 
04266800 
04267000 


L6(CDSte3RESET3 3CIF SB THEN DSIFSET ELSE DStsRESETZ SKIP $B))804267200 


DStsALIT™ 1Os"s STeeSyes;3 

IF SB THEN DSte2Lit"4e"%% SKIP SB3 
IF SB THEN DSseeulTr"3e"% SKIP SB3 
1F SB THEN DSt#2LiT*2e"s SKIP SB3 
IF SB THEN DSt¥2LiTMie 3 
DIis#Di"hs OSteLiT%e"; 

END STREAM STATEMENT? 


END SUBROUTINE AUXMESSAGE3 


SUBROUTINE FIXUNITS % FREE UNIT ARRAY ON AUXMEM ERROR 
BEGIN 
IF LOCATQUECSJ.£EFF] LSS 1023 THEN % MORE ENTRIES IN THE QUEUE 


BEGIN 
UNITCUJS#CePCDUP)QLOCATQUECSICFTFIGOLI3846821]600L584038)3 
STARTIOCU)S 

END 


ELSE UNITCU]1#C*PCDUP))&CNOT OICLBELBS30ITOCIIIAGH 21805 +4086)3 
END SUBROUTINE FIXUNITS 
$ POP OMIT 


SUBROUTINE DISKMESSAGE? 
BEGIN 
STREAMCMSGs MKe AS=TINULU]*® MIX»s BE®OSKAURS? 


LOs 
Lis 
L2s 
L3} 
Las 
LS 
68 
LTS 
MX$ 


StzeIQOQUECS], [27:6]e Re KEYISSKEYIS=SPACE(10))3 
BEGIN 
StimLOC MKE SIteS]473 DSSeECHRI 
STteSi4+53 DSte3CHRs OSteLIT" "3 
ClemCl+MSG3 
GO LO} GO L1s GO L2s GO L33 GO L43 GO LS GO L463 GO L73 
DSt# 9LIT "NOT READY" GO TO MXx3 


DSt#e SLIT*BUSY"} GO TO MX3 
DStme SBLIT*1/0 MEM "3 

DS#e 6GLIT"PARITY"3 GO TO MX} 
DSte12LIT"1/0 INV ADDR"3 GO TO MX3 
DSte 3LIT"EU "3 GO TO LO; 


DSte13LIT"INV DISK ADDR"3GO TO MX3 
OSts1OLIT"WRITE LOCK"™3 

DStm 6LIT%s MIXe"3 DS3w2DEC3 

MSGteDIs DI teDy72s OSteFILLe DItsMSGs 
DSteSLiT™s DAS"S DSts8CHRI 

DSte7LIT"%» SEGSE"; DSt#2DEC3 
DSte4LiT™. Re"; 


16CDSIR3RESETS 3CIF SB THEN DSS*®SET ELSE DS3*RESETS SKIP SB))3 


SEVeST"5s DSteSLiT™s LOR"; 
IF SB THEN DSte2LiT"4e"s SKIP SBI 
IF SB THEN DS#e2LIT"30e"3 SKIP SB3 


04267400 
04267600 
04267600 
04266000 
04266200 
04268400 
04268600 
04268800 
04269000 
04269200 
94269400 
04269600 
04269600 
04270000 
04270200 
04270400 
04270600 
04270600 
04271000 
04271200 
04271400 
04271600 
04271800 
04272000 
04272200 
04272400 
04272600 
042726800 
04273000 
04273200 
04273400 
04273600 
04273800 
04274000 
04274200 
04274400 
04274600 
04274800 
04275000 
04275200 
04275400 
04275600 
04275600 
04276000 
04276200 
04276400 


IF SB THEN OStm2LIT"25"3 SKIP SB3 
IF SB THEN DSts2LiT"ie"3 
DIssO01"13 DSseLITe"3 
END STREAM STATEMENT? 

END SUBROUTINE DISKMESSAGE} 


SUBROUTINE DETAILRECORDENTRY3 

BEGIN 

KEY2 $* GETSPACE(62950) + 23 

MEKEY2]) ts 0 & RDCTABLECUI(1611:2]3 

IF MIX NEQ O THEN 
BEGIN 
MEKEY2]) te (C#PCDUP)) & MIX(20243%5] & 
CIF FINALQUE[S) LSS 0 THEN O ELSE 


04276600 
04276800 
04277000 
04277200 
04277400 
04277600 
04277800 
04278000 
04278200 
04278400 
04276600 
04278800 
04279000 
04279200 


CMEMELOCATQUELS] INX NOT 2] INX 4) 4f13811) DIV ETRLNG)419£983929)304279400 


END: 
MEKEY2¢1) ¢*® TRANSACTIONCUIS 
IF NOT DISC THEN 
BEGIN 
STREAM(CS82]0D, (CFF J+ DteKEY24+2)3 
BEGIN 
StesLOc Ss DSteBDEC3 
END} 
END 
ELSE MEKEY2¢2] %* DSKADRS) 
MUKEY243) 8#* TOQUELSJ3 
MCKEY2¢4) 8% R & RDCTABLECUIC38315)3 
MCKEY2¢5] 85 IF FINALQUECS] LSS 0 THEN 0 ELSE LOCATQUECS] INX NOT 23 
END DETAILRECORDENTRYS 


SUBROUTINE FINISHDETAILS 
BEGIN 
IF MIX NEQ O THEN CHECKJOBORFILEMESSCMIXsMLKEY245J0U)3 
LINKUP(CG4DISCHeKEY2)3 
END} 


DISCSFCUSELOCATQUECS##R,£335)),(1216)),(4631)3 
MIXSBLOCATQUECS],C3#5]3 
IF COLAYIO t® CCFINALQUELS) LSS 0) AND CLOCATQUELSJ.£981)))) THEN 
BEGIN 
STREAMCStmORFINALQUELSICCTCIREINALQUELSI(2116112]» DtsLDSKADRS))3 
BEGIN 
StseLOc Ss DSteBDECs % DISK ADDRESS IN FINALQUE FOR OLAY 170 
ENDS 
END ELSE DSKADRS t= MCLOQUELS))3 
MKgaMehs MSGtmC"1)3 
RtPRATOQU@CSIC38325)5 % RESTORE HARDWARE UNIT TYPE 
10D §* TOQUECS); 
IF DISC THEN 
BEGIN 
IF R,f£3081) THEN & DISK NOT READY 
. _. BEGIN 
$ SET OMIT = NOTCDFX) 
Uis]OD,C4t1) OR 183 
Tea$} 
IF NOT CULSSIF U THEN 18 ELSE 19) THEN 
DO IQOQUELT),£3315) t# 6 UNTIL 
(T t# LOCATQUECTJ,CFFI) = @777773 


04279600 
042796800 
04280000 
04280200 
04280408 
04280600 
04280800 
04261000 
04281200 
04261400 
04281600 
04281800 
04282000 
04282200 
04282400 
OA2826U8 
04282800 
04283000 
04283200 
04283400 
04283600 
04284000 
04264200 
04284400 
04284600 
04284800 
04285000 
04285200 
04285400 
04285600 
04285800 
04286000 
04286200 
04286400 
04286600 
04286800 
04287000 
04287209 
04267400 
04287600 
04287800 
042886000 
04288200 
04268400 


IF OLAYIO THEN & TOF INISH HAS ALREADY PLACED RESULT DESCRIPTOR 04288600 


IF 


$ POP OMIT 
UNITCUJ EC #PCDUP)2&8O77777(5320326); 
MSGs803 MKS="#"3 % NOT READY 
DISKMESSAGE3 
DETAILRECORDENTRYS3 
READY t= NOT TWOCU) AND READY$ 
RRRMECH $# NOT TWOCU) AND RRRMECH3 
UNITCUI,C5#10) 32 23 
GO TO KILLU3 
ENDS % IF NOT READY 
VOCATQUECS),CFFIJ t= NOT 03 
te MIX} 
R,el2617) NEG 1 AND NOT OLAYIO THEN & NOT BUSY OR SPECIAL I/0 


Ti 
IF 


DSITs 


BEGIN 


BEGIN 


UNITCUJ,CFFI 1 LOCATQUELSIJACFFIJS ® NEXT ELEMENT IN QUEUE 


RETURNIOSPACE(S)3 
S te UNITLU],CFFI3 
IF MIX NEQ@ O THEN LOCOUNT(MIX) 8 *PCDUP) 13 
END3 
S NEQ @77777 THEN % MORE ENTRIES IN THE QUEUE 
BEGIN 
EMSUNITCLUI3 
IF CT2SmEUQCTISMELOQUELSI1e(6863)) LSS 0 THEN 
BEGIN % EU IN PROCESS 
LOCATQUELUNITCULJ,LCRIJOCFFIJ t= St 
UNITCULI],CCF] t= E3 
END 
ELSE % EU NOT IN PROCESS 
IF T2eCFF] GTR 1023 THEN & EUQ EMPTY 
BEGIN 
IF CEUQLTII#T28E(18318330]),£281) THEN 
BEGIN 
IF EUW,CFEIS@77777 THEN EUW,CFF IST ELSE 
EVUQLEUW CCF I],C3815]28sT3 
EUW, CCF J88T3 
STARTIOCULD? 
END} 
END 
ELSE 
BEGIN % EUQ NOT EMPTY 
LOCATQUEIT2.CCFII,CFF] t= S3 
EVUQLTI,(CCF) t® ES 
ENDS 
ENO$ % IF MORE ENTRIES IN THE QUEUE 


PARITY s* C10D,f2481) AND (Rel2687)©16))% & PARITY CONDITION 
IF FINALQUECS] GTR O THEN % OBJECT JOB ERROR 
BEGIN 


IF 


PARITY THEN GO TO START’ &% RECOVERABLE ERROK 


PRTROW(T1),CFF] t= 203 % 1/0 ERROR 
PRTROWCT1],0PSFJ¢e 13 % TERMINATE 
END % OBVECT ERROR 


ELSE 


BEGIN % MCP 1/0 
IF CT2eeLOQUEESI),CCFI*FENCE) GTR O THEN &% ABOVE THE FENCE 
IF (CTitePOSSESSET2 DIV CHUNKZIZEJ) NEQ® O THEN & NON®@ZERO MIX04301600 


BEGIN 

IF JARCMIXe9),CIti) THEN & "SYSTEM" JOB 
IF PARITY THEN GO TO STARTS 

% DONT DS LIBMAIN/DISK ON PARITY ERROR 


04288800 
04289000 
04289200 
04289600 
04289800 
04290000 
04290200 
04290400 
04290608 
04290800 
04291000 
04291200 
04291400 
04291600 
04291800 
04292000 
04292200 
04292400 
04292600 
04292800 
04293000 
04293200 
04293400 
04293600 
04293800 
04294000 
04294200 
04294400 
04294600 
04294800 
04295000 
04295200 
04295400 
04295600 
04295600 
04296000 
04296200 
04296400 
04296600 
04298800 
04299000 
04299200 
04299408 
04299600 
04299800 
04300000 
04300200 
04300400 
04300500 
04300600 
04300800 
04301000 
04301200 
04301400 
04301600 


04302000 
04302200 
04302600 
04302800 


GO TO DSITS 
END3 % NON@ZERO MIX 
ENDS % MCP 1/0 
END# % NOT BUSY OR SPECIAL 170 


STARTS 


TRANSACTIONECU) 3% TRANSACTIONCUJ™13 
MASK t= IF CFIN te FINALQUECS]) LSS 0 THEN FIN, (2588) ELSE @3773 
IF CE &® Rel2598) AND MASK) = 0 THEN % ERRORS ARE ACCETABLE 
BEGIN ® FIX UP JOQUE 
QUITS 
IF MSG NE@ (1) AND DISC THEN DISKMESSAGES 
DETAILRECORDENTRY; 
$ SET OMIT s&s NOTCAUXMEM)3 
IF NOT DISC THEN 3 AUXMEM 
BEGIN 
FIXUNITS 
IF R,f3081) THEN % NOT READY CONDITION 
BEGIN 
IF CNOTRDYCOUNT®0O) OR CE NEG 0) THEN AUXMESSAGES 
NOTRDYCOUNT t## NOTRDYCOUNT 4+ 13 
END 
ELSE 
BEGIN 
AUXMESSAGE3 
NOTRDYCOUNT t# Q3 
ENDS 
IF —80 THEN R $® RSLT? 
END3 
$ POP OMIT 
RETURNIOSPACECS)3 


% ERROR WAS RECOVERED 


FIN¢SFINALQUELS] AND NOT MEMORYS 
IF (T1¢8FIN) LSS 0 THEN % MCP I/0 
BEGIN 


04303000 
04303200 
04303400 
04303600 
04303800 
04304000 
04304200 
04304400 
04304600 
04304800 
04305000 
04305200 
04305400 
04305600 
04305800 
04306000 
04306200 
04306400 
04306600 
04306800 
04307000 
04307200 
04307400 
04307600 
04307800 
04308000 
04308200 
04308400 
04308600 
04308800 
04309000 
04309200 
04309400 
04309600 
04309600 
04310000 


IF NOT OLAYIO THEN % J/0 FINISH PLACES RESULT DESC. FOR OLAY04310200 


MELOCATQUECSI J FeR&QEL25t40thJRIODC38395) OR TOMASK3 
END % IF MCP 1/0 
ELSE 
BEGIN 
IF —E NE@ O THEN &® ERRORS 
BEGIN 
PC, TLePRLD3 
TL ¢™ 718E0251:4018)3 
END 
ELSE PC,T1le10R)3 
LOCN %® (€MCLOCATQUECSII)3 
100 $8 100,033%15)3 
WHILE LOCNEO),£33315] NEQ 10D DO LOCN #= 4 INX LOCNS 
LOCNECO) $2 PC,TieLOD)} 
END3 
TOCOUNTE MIX) te ¢#¥PCDUP)) #33 
GO TO KILLL? 
END? 
IF — THEN % BUSY 
BEGIN 
MSGs#i3 2 BUSY 
RETRYt 
$ SET OMIT = NOTCAUXMEM) 


04310400 
04310600 
04310800 
04311000 
04311200 
04311400 
04311600 
04311800 
04312000 
04312200 
04312400 
04312600 
04312800 
04313000 
04313200 
04313400 
04313600 
04313800 
04314000 
04314200 
04314400 
04314600 
04314790 


a 


IF NOT DISC THEN AUXMESSAGE ELSE 


$ POP OMIT 


DISKMESSAGE3 
DETAILRECORDENTRY3 


$ SET OMIT = NOTCAUXMEM) 


IF NOT DISC THEN FIXUNITS & ALLOW 10 TO AUXMEM 


$ POP OMIT 


IF 


IF 


THHBCIF DISC THEN TOQUELSJ&6£3t4335]) ELSE I1OQUE[SI)3 


RETURNIOSPACE(CS)3 


PIMIX¢eMIX} 

TOCOUNTECMIX) te C#PCDUP)) “13 

IF NOT OLAYIO THEN % RETRIES ARE OK 
TOREQUESTCFINALQUELS)& Tie 


CIF DISC THEN LOCATQUE(S]&@22(1234236)] ELSE 


LOCATQUEES)))3 
PIMIX¢@03 
GO TO KILLER} 
END3 % IF BUSY 
Eef4681] THEN % 1/0 MEMORY PARITY 
BEGIN 
MSGim23 
Ess@15373 
GO TO QUIT? 
END3 
EeC4181) THEN & INVALID ADDRESS 
BEGIN 
MSG3543 
Et*@15373 
GO TO QUIT) 
END} 


$ SET OMIT 5 NOTCSHAREDISK) 


IF 


IF 


RelC2511] THEN & READ/WRITE LOCK 
BEGIN 
AREAtEGETSPACE(102000)423 
IF R,C2981) THEN 
BEGIN 
STREAMCAREA)3 
DS##10 LIT " FPM FULLe; 
END 
ELSE 
BEGIN 
STREAMCAREA)3 
DSse15 LIT * FRM NOT READYo"3 
END3 
SPOUTERCAREAsPSEUDOMIXEMIX]2#35)3 
MSG t+ (#193 2 DONT SPOUT DISK MESSAGE 
£i9@163 
GO TO QUIT: 
END3 
LOCATQUECS),(€831] THEN 3 MUST UNLOCK ADDRESS 
BEGIN 
STREAMCAS#DSKADRS+Diel( JUNKI)3 
BEGIN SI##LOC AsOS#=8 OCT END3 
UNLOCKCJUNK)) 
END} 


$ POP OMIT ; 
IF NOT E,C4381]) THEN % NOT PARITY*CHECK DISK ADDRESS 


BEGIN 
STREAMCDASBMASKIS0DSKADRS & EUL=MASKsLON6]> AsE0s 


043146800 
04314810 
04314820 
04315000 
04315190 
04315200 
04315210 
04315400 
04315600 
04315800 
04316000 
04316200 
04316400 
04316600 
04316600 
04317000 
04317200 
04317400 
04317600 
04317800 
04318000 
04318200 
04318400 
04318600 
04318800 
04319000 
04319200 
04319400 
04319600 
04319800 
04320000 
04320200 
04320400 
04320600 
04320800 
04321000 
04321200 
04321400 
04321600 
04321800 
04322000 
04322200 
04322400 
04322600 
043228600 
04323000 
04323200 
04323400 
04323600 
04323600 
04324000 
04324200 
04324400 
04324600 
04324800 
04325000 
04325200 
04325400 
04325600 
04325800 


SET 


POP 
SET 


POP 


SET 


POP 
SET 


POP 


BAD’ 


OK ¢ 


EVA 


tECMULTITABLEL1642xMASK,(5%11)))3 
BEGIN 

STt#LOc DAs 

IF SC GTR "1" THEN GO TO BAD3S 

IF Sc LSS "0" THEN GO TO BADS 


OMIT = SHAREDISK 
7¢ 
OMIT 
OMIT © NOTCSHAREDISK) 
4¢ 
OMIT 
IF Sc LSS "0" THEN JUMP OUT TO BAD3 SIteSI]+13 
IF SC GTR "9" THEN JUMP OUT TO BADD} , 
OMIT = SHAREDISK 
SltsS153 
OMIT 
OMIT = NOTCSHAREDISK) 
Slt2S1723 
OMIT 
DIt®LOC DAS DSI®2 OCT; 
STQeEVAS STseSl4143 SKIP EU SB} 
DIteLOC AS} DiteDdI+73 SKIP 2 OB} 
IF SB THEN SKIP 0B3 
STIBLOC DAS SIT teSI +6) 
IF Sc NE@ "0" THEN GO TO BADS SE#eS]4]3 
QCIF SB THEN DS#tsSET ELSE DS#=RESET3 SKIP S8)3 
ST'szLOC As SpesS14+73 TF Sc GTR "4" THEN GO BaD? 
IF Sc LSS “0O" THEN GO BAD3 
STIPEUAS STrsSP+EUs SKIP SB3 SKIP A SB} 
IF SB THEN GO 10 OK3 
TALLYt#13 
DAS=TALLY3 
END: 
IF (MASK3SS3P) OR €,(04231] THEN % BAD ADDRESS OR EU NOT READY 
BEGIN 
MSGt@5+MASK; % StEU NOT READY 6FINVALID DISK ADDRESS 
IF NOT MASK THEN MKiater; 
IF (MIX NEQ@ 0) OR OLAYIO THEN 
BEGIN 
Es*@15373 GO TO QUIT: 
END3 
DISKMESSAGE} 
DETAILRECORDENTRY3 
GO TO KILLER$ % LET IT HANG 
END 
ELSE 
BEGIN ® MUST BE E,f4481]s MEM,PAR, 
MSGtme23 £:8@15373 GO TO QUIT! 
END3 
ENDS % JF NOT PARITY 
IF ILQOQUECS),(2481) THEN % DISK PARITY ON READ 
BEGIN 
MSGtm3? *% PARITY 
Es3@203 
GO TO QUIT3 
END: 
MSGte73 % WRITE LOCK 
Et8@1537)3 
GO TO QUIT; 
ENDS % IF OISK 


04326000 
04326200 
04326400 
04326600 
04326800 
04327000 
04327200 
043274080 
04327600 
04327800 
04326000 
04328200 
04328400 
04328600 
04328800 
04329000 
04329200 
04329400 
04329600 
04329800 
04330000 
04330200 
04330400 
04330600 
04330800 
04331000 
04331200 
04331400 
04331600 
04331800 
04332000 
04332200 
04332400 
04332600 
04332800 
04333000 
04333200 
04333400 
04333600 
04333608 
04334000 
04334200 
04334400 
04334600 
04334800 
04335000 
04335200 
04335400 
04335600 
04335600 
04336000 
04336200 
04336400 
04336600 
04336800 
04337000 
04337200 
04337400 
04337609 
04337800 


$ SET OMIT = NOTCAUXMEM) 


IF CES®Ref26217})81 AND NOT OLAYIO THEN GO RETRY$ & RETRY®IF BUSY 


IF 100.0231) AND AUXCODELO] GTR 0 THEN & AUX,READ*e MCP CODE ON AUXMEM 


BEGIN 
AREAtsSPACE(30)3 


PRTMAX t® MCPC,ESPBIT)41],(CFI"1% ¥ ADDRESS FROM "GO TO START" 
MASKteM(PC, ESPBIT)], CCFITOD(224 18411 1R1ODE21 8411 87184054333 


FOR CELL = e201 STEP 1 UNTIL PRTIMAX DO 
IF PCMECELLJ*+TOP) THEN PCDEL) ELSE %& SKIP OPERANDS 
IF Pelit6) NEQ @73 THEN ELSE ® SKIP NON@PGM DESC 
IF MECELLJ,018#30)] = MASK THEN % CORRECT CELL 
BEGIN 


DISKWAITC™AREA®30e(MCPBASE+24(CELL DIV 30)))3 &CODE FRM DISK 


DISKCELLS*NFLAGCMLAREA+(C (CELL MOD 30)40,.5) DIV 1)9))3 
AUXCODELOJ#=(*#PCDUP)) = DISKCELL.(8%6) "13 % DECRe AUXCODE 
DISKIOCRSLTe *1OD,ECFIe DISKCELL «(8810)» 
DISKCELL «LFF I+MCPBASE)3 
SLEEPCERSLT J+ TOMASK)3 
MECELL) 8% FLAGCDISKCELL&OL7247911)3 
Et#Qs & ERROR WAS RECOVERED 
FORGETSPACECAREA)3 
GO TO QUIT; 
END? # PRT SEARCH 
%® SEARCH THE INTRINSIC TABLE 
SLEEPCETOGLE J eFREEMASK)3 
INTFREE #8 03 
MASK $3 0 & IOD(L37416511] & [ODE368481) & 763384583)3 
FOR CELL 4# 1 STEP 1 UNTIL INTRNSCEO) DO 
IF INTRNSCCCELLI,0391) THEN % INTRINSIC ON AUXMEM 
IF INTRNSCCCELLI,(6827]=MASK THEN % THIS IS THE CORRECT CELL 
BEGIN 
IF CTABLEC9} NEQ@ O THEN % INTRINSIC FILE ADDRESS AVAILABLE 
BEGIN 
DISKWAITC*AREAs 30sCTABLEL9OJ+(CELL DIV 30))34%DSK,CPY 
DISKCELLISMLAREA+( CC CELL MOD 30)40,5) DIV 1)]3 
T 8® DISKCELL,£8810)3 
DISKCELL #% CINTRNSCECELLJ.CCEI) 2@ 
CDISKCELL,LCFI+CTABLEL9I)C6821427)3 


IF CELL&2 OR (CELL GEO 17 AND CELL LE@ 20) THEN &% REWENT, 


DISKCELL,£C4s1] 513 
DISKIOCRSLT« "“L10D.CCFIe Te DISKCELL,(6827))3 
SLEEPCORSLTJ » TOMASK)3 
INTRNSCCCELLJSaDISKCELLS 
AUXCODECO]tm*CPCDUP)) = INTRNSCCCELLIJ,£3686) 13 
Ete0; & ERROR WAS RECOVERED 
MCIOO INX OJ) sFO&DISKCELLECTFI$ & MAKEPRESENT WONT DO IT 
FORGETSPACECAREA)3 
INTFREE S13 
GO TO QUIT? 
ENDS & IF INTRINSIC FILE ADDRESS WAS AVAILABLE 
ENDS ® IF INTRINSIC CELL FOUND 
INTFREE t# 13 
FORGETSPACECAREA)3 
ENDS % IF READING 
IF OLAYTO THEN GO TO QuUIT3 
IF MIX#0 THEN 
BEGIN 


04338000 
04338200 
04338400 
04338600 
04338600 
04339000 
04339200 
04339400 
04339600 
04339800 
04340000 
04340200 
04340400 
04340600 
043408090 
04341000 
04341200 
04341400 
04341600 
04341800 
04342000 
04342200 
04342400 
04342600 
04342800 
04343000 
04343200 
04343400 
04343600 
04343600 
04344000 
04344200 
04344400 
04344600 
04344800 
04345000 
04345200 
04345400 
04345600 
04345800 
04346000 
04346200 
04346400 
04346600 
04346800 
04347000 
04347200 
04347400 
04347600 
04347800 
043480008 
04348200 
04348400 
04348600 
04346600 
04349000 
04349208 
04349400 
04349600 
04349600 


STREAMCAS®CPUNTER(61]])3 DSIZ1SLIT"AUX MEM ERROR,©"3 
PUNTCEPUNTER[6)))3 
END} 


AUXERRORTOG t® €*PC(DUP)) OR TWOCMIX)3 
PRTROWEMIX),C(FF] &* 203 % [70 ERROR 
PRTROWEMIX),(PSFJ%= 43 % TERMINATE 
GO TO QUITS 

$ POP OMIT % AUXMEM 


KILL 


LOCATQUECSJ .C1181]3=03 
KILLERS 
TF KEY! NEQ@ 0 THEN SPOUTERCKEYA+PSEUDOMIX(MIX]235)3 
IF KEY2 NE@ O THEN FINISHDETAIL: 
KILLCER] INX NOT 1)3 
END PROCEDURE DISKORAUXERROR} 
PROCEDURE ACTUALTOERR(R)3 VALUE R# REAL R3 
BEGIN 
REAL 


Ee 

Te 

S» 

Fe 

Us 

Tie 

T2s 

T3. 

KEYe 

FIN = NT3s 
100 @ NT6e 
MASKe 

DISCs 

TYPE3 


NAME LOCN = 133 


LABEL Lie L2e DI7* D19s D220 START» NOTREADYMESSe«e NTRDY» 


EOFe REALEOFs TAPERETRY* SIX» SEVEN» FIXe LEAVE® 
REWINDINGs NOCODEs CLEARs KILLLe KILLER: 


LABEL READER» PRINTER» TAPE*® DRUMs DISK» SPO» PUNCHe 


PAPERPUNCHe PAPER» DATACOM3 


SWITCH W $3 READER» PRINTERs TAPE »DRUMsDISKsSPOsPUNCHeNOCODE>s 


PAPE RPUNCHsePAPER& DATACOMS 


SUBROUTINE MAKEMESS3 


Lis 
L2: 
L3s 
Lat 
LS? 
L63 


BEGIN 
STREAMCSi:FF C4385 2e SOssF lL 3825)9 ASBTINUCUJ» 
MXSSLOCATQUECS) C385) 5 KEY: ®KEYIsSPACE(10))3 
BEGIN 
SremLOc As} SIT t#S14+53 
DSteLiT™e"s OStz3z CHRI DSieLIT" "3 
Clescie#Si3; GO TO Lbs 
GO Lis GO L2s GO L3s GO L43 GO L5s3 GO L6s GO LLs GO LL) 
DSs#19 LIT"BLANK TAPE ON WRITES GO TO MXX) 


OSt# 4 LIT™BUSY"s GO TO MXX3 
DSt= 8 LIT"I/O MEM "3 

DSte 6 LIT"PARITY™3 GO TO MXX3 
OSt#12 LIT"I/0 INV ADDR" GO TO MXX; 
OSt= 9 LIT"I/0 ERROR"3 GO TO MXX$ 


DS3#10 LIT"WRITE LOCK" GO TO MXXx$ 


04350000 
04350200 
04350400 
04350600 
04350800 
04351000 
04351200 
04351400 
04351600 
04351800 
04352000 
04352200 
04352400 
04352800 
04353000 
04353200 
04353400 
04353600 
04353800 
04354000 
04354200 
04354400 
04354600 
04354800 
04355000 
04355200 
04355400 
04355600 
04355800 
04356000 
04356200 
04356400 
04356600 
04356800 
04357000 
04357200 
04357400 
04357600 
04357800 
04358000 
04358200 
04358400 
04358600 
04358800 
04359000 
04359200 
04359400 
04359600 
04359800 
04360000 
04360200 
04360400 
04360600 
04360800 
04361000 
04361200 
04361400 
04361600 
04361800 
04362000 


Lui 
MXX 4 
PSt 


NR& 
LLOs 
Luis 
L2t 
CHK 3 
MIX] 


GO TO PS} 

GO TO MIXIT; 

DIesDIeSs DSteLI Tes Di sspl+4s 

Creeci+S23 GO TO LLO# GO TO LL1s GO TO LL2;3 


DSi 
DSts 
DSis 
0Sis 
DSts 
Tt DSts 


9 
5 
4 
> 
5 
6 


LIT"NOT READY"™3 GO TO MIXIT3 


LIT"’PRINT") GO TO CHK; 
LIT*READ"! GO TO CHK$ 
LIT"PUNCH"3 
LIT"CHECK"3 


LIT"s MyX#e"*s DSte2 DECS OStaLy Tos 


DIteDI"3s DSSeFILLs 


END? 


END OF MAKEMESS} 


SUBROUTINE DETAILRECORDENTRYS 
BEGIN 
te GETSPACECABS(CT2)2900)423 


KEY 
MUKEY] 


$= CABS(T2) DIV 5S "1) & RDCTABLECUICI6#1:2)3 


IF CNTLISLOCATQUELS),£3#5]) NE@ O THEN 


MUEKEY4+1) 


BEGIN 


MCKEY] $* C#PCOUP)) & NT102034335] & 
CIF FINALQUECS] LSS 0 THEN O ELSE 


CMEMECLOCATQUELS] INX NOT 2] 


CHECKJOBORFILEMESS(NTIs 


CIF FINAL@UECS] LSS 0 THEN 0 ELSE LOCATQUELSJ INX NOT 2)» 


U3 
ENDS 


t& TRANSACTION(UI; 


MEKEY*#2J]ie1F TYPE®2 THEN RDCTABLELCU! & UL384335) ELSE 03 


MUKEY43) 
MCKEY4+4) 


= 1QQUECS)3 
te R & ROCTABLELUJ£3#325)3 


IF TYPEs2 THEN 


IF 


BEGIN 
MCKEY4+5] 
MUKEY46] 
MEKEY#7) 
M(UKEY+8] 
MEKEY49) 
END} 

T2 GTR 


te MULTITABLELUJ3 
t= LABELTABLELUIS 
13 PRNTABLECUI3 
12 03 

t= 163 


O THEN LINKUPC(TYPES1 #KEY)3 


END DETATLRECORDENTRY3 


DEFINE MAKEMLOGCMAKEMLOG1) = 


BEGIN 


T2S=MAKEMLOGIS DETAILRECORDENTRYS 


END#s 


UPSLOCATQUELS##R,C3#51],012:6]3 


STARTS 


TEPUNITCUJROC1381382)3 
TRANSACTIONLU] 8% TRANSACTION(UI@13 


TYPE 


ae 


BEGIN 


te T,0124)3 
MASKSSIF (CT2¢eFINALQUECS)) LSS O THEN 12,(2588) ELSE ©3773 
IF CE$#T,(598) AND MASK) & O THEN 


B ACCEPTBLE 


Fewis % RETAIN ERROR FIELD 
GQ TO FIX 


END} 
E THEN 


% BUSY 


04362200 
04362400 
04362600 
04362800 
04363000 
04363200 
04363400 
04363600 
04363600 
04364000 
04364200 
04364400 
04364600 
04364609 
04365000 
04365200 
04365400 
04365600 
04365800 
04366000 
04366200 
04366400 


INX 4),013811] DIV ETRLUNG)+1)9£933939)304366600 


04366600 
04367000 
04367200 
04367400 
04367600 
04367800 
04368000 
043686200 
043684090 
04368600 
04368800 
04369000 
04369200 
04369400 
04369600 
04369600 
04370000 
04370200 
04370400 
04370600 
043708600 
04371000 
04371200 
04371400 
04371800 
04372000 
04372200 
04372400 
04372600 
04372800 
04373000 
04373200 
04373400 
04373600 
04373800 
04374000 
04374200 


tient iretad sald 


BEGIN 


T3281 8 CUS3O0I043847:113 & BUSY/INCOMPLETE MASK 


IF U LSS 16 AND TRANSACTIONCUJ LEQ O THEN 
BEGIN 
P(Q)! & DONT SPOUT MESSAGE 
GO TO REWINDINGS 
END3 
IF U NEQ 25 THEN &% NOT SPO 
BEGIN 
Fists % BUSY 
MAKEMESS3 


SPOUTERCKEYePSEUDOMIXLCLOCATQUE[S].€385)]»35)3 


ENDS 


MAKEMLOGCIF TYPE®2 THEN 10 ELSE 5)3 


Lis DO BEGIN 
SLEEPCECLOCKI] eNOT CLOCK)3 
UNITCUJSeC#PCOUP)BPCTeXCHICCTCI: 
STARTIOCU)3 
SLEEPCCUNIT(UJ)+@100000000000)3 
TRANSACTIONEU] ¢= TRANSACTIONIUI@13 
END UNTIL CUNITEUJe£598) AND T3) = O3 
TRANSACTIONECU) 3% TRANSACTION(UI+13 
IF CUNITCU)e£586) AND MASK) = 0 THEN GO TO CLEAR? 
GO 10 START} 
END} 
IF €.€45%21]) THEN ® NOT READY 
BEGIN 
IF £,f£43#1] THEN 
BEGIN 
IF TYPE®O THEN GO TO READERS 3% READ CHECK 
IF TYPES1 THEN GO TO PRINTERS &% PRINT CHECK 
IF TYPES6 THEN GO TO PUNCH? %® PUNCH CHECK 
END: 
IF U NE@ 25 THEN % NOT SPO, 
BEGIN 
NOTREADYMESS§ 
Fis96s % NOT READY 
MAKEMLOGCIF TYPE®2 THEN 10 ELSE 5)3 
MAKEMESS3 
PC1)s & SPOUT MESSAGE 
REWINDINGS 
READY # NOT TWOCU) AND READY3 
NTRDYS 
RRRMECHE®NOT TWOCU) AND RRRMECHS 
IF P THEN SPOUTERCKEYsPSEUDOMIXECLOCATQUECS),(315))*35)3 
END3 
UNITCUI,€C5910) # 23 
IF CTISSLOCATQUELT2##S),0£385)) NE@ O THEN 
BEGIN 
DO BEGIN 
T2SeLOCATQUELT2) CFF IS 
LOCOUNTE TI] s=ePCQUP D913 
END UNTIL T2 GTR 10233 
ENDS 
GO TO KILLL: 
ENDS 
Di7t 
IF Ee€46t4] THEN % 1/0 MEMORY PARITY 
BEGIN 


04374400 
04374600 
04374800 
04375000 
04375200 
04375400 
04375600 
04375600 
04376000 
04376200 
04376400 
04376600 
04376800 
04377000 
04377200 
04377400 
04377600 
04377800 
04378000 
04378200 
04378400 
04378600 
04378800 
04379000 
04379200 
04379400 
04379600 
04379800 
04380000 
04360200 
04380400 
04380600 
04380800 
04381000 
04381200 
04381400 
04381600 
043861800 
04382000 
04382200 
04382400 
04382600 
04382600 
04383000 
04383290 
04383400 
04383600 
04383808 
04384000 
04384200 
04384400 
04384600 
04384800 
04385000 
04385200 
04385408 
04365600 
04385800 
04386008 
04386200 


Fre23 8 1/0 MEM PARITY 
Les MAKEMESS3 
SPOUTERCKEY#PSEUDOMIXCLOCATQUE{SJ.L315J1»35)3 
MAKEMLOGCIF TYPE®2 THEN 10 ELSE 5)3 
P(©1537)3 % ACCEPT EOF/EQT/EOP 
GO To SIX3 
END3 
IF E.€4181]7 AND TYPE NEQ@ 2 THEN 
BEGIN % (€4181] FOR TAPE # BACKWORD ORIVE 
p22: Fieas & 1/0 INVALID ADDRESS 
GO TO L23 
END3 


% 1/0 INVALID ADDRESS 


GO TO WETYPE); 
Di9s E ¢8 10233 GO TO D173 


SPO! 
IF €,€04331) THEN GO TO Lis # ERROR BUTTON 
GO TO D193 


PRINTERS 
IF E£,€42113 THEN % END OF PAGE 
BEGIN 
IF LOQUE[S).£2716]=0 THEN GO FIX$ % NOT SPACING 
COMMENT IGNORE EOP IF NO SPACE OR SKIP3 
LOQUELS),(16815] t= @400013 % INHIBIT DATA XFER+ SKIP TO CHANNEL 
GO TO CLEARS 
ENDS 
IF €,04381) THEN 
BEGIN 
Fs=0% 8 PRINT CHECK 
MAKEMESS3 | 
SPOUTERCKEY #PSEUDOMIX[LOCATQUE[SJ.(3#5)]+35)3 
IF Esf4581)] THEN GO TO NOTREADYMESS$ & PRINTER NOT READY 
MAKEMLOGCIF TYPES2 THEN 10 ELSE 5)3 
P(O)s & CLEAR EKROK FYELD 
TINUEU).C18812] $= PCDUP),C18ti2iels 
GO TO SIX; 
ENDS 
GO TO D195 % PARITY 


READER! 
TF Es04391) THEN % READ CHECK 
BEGIN 
TINUCU],C18812) te PCOUP), C1id8si2iels 
Fs*323 % READ CHECK 
MAKEMLOG(5)3 
MAKEMESS$ 
PC1)s &B SPOUT MESSAGE 
GO TO NTRDY} 


END} 

IF E,€4281) THEN % EOF CARD READER*TREAT AS NOT READY 
BEGIN 
UNITCU].CS:8) t= 43 % ERROR FIELD®NOT READY 
R,eC25:8]) se 43 ® RESLT»DESC+#NOT READY 


TRANSACTIONLCU] t© TRANSACTION(CUJ +15 
GO TO START} 
END) 
COMMENT MUST BE D19 = USUALLY INVALID CHARACTOR} 


04386400 
04386600 
04386800 
04387000 
04367200 
04387400 
04387600 
04387800 
04388000 
04386208 
04388400 
04388600 
04388808 
04389000 
04389200 
04389400 
04389600 
04389800 
04390000 
04390200 
04390400 
04390600 
04390800 
04391000 
04391200 
04391400 
04391600 
04391800 
04392000 
04392200 
04392400 
04392600 
04392600 
04393000 
04393200 
04393400 
04393600 
04393800 
04394000 
04394200 
04394400 
04394600 
04394800 
04395000 
04395200 
04395400 
04395600 
04395800 
04396000 
04396200 
043964080 
04396600 
04396800 
04397000 
04397200 
04397400 
04397600 
043976800 
04398000 
04398200 


Lat 


PUNCH 


STREAMCAS=0O t BteIOQUELSI)3 


BEGIN 

DI tm AS SJ] te BS DY] te DI +83 

IF SC s @14 THEN A t= DJ3 
2CH4OCDL 88D 4+8s Stee Seki 

IF Sc = 8614 THEN JUMP OUT 2 TO L)3 
DI $3 DI78s SJ 45 Swiss 


DI 3 AS 
A 4* OF3 
END3 


(Ti 23 P) * O THEN GO TO D193 % NOT INVALID CHARACTER 
Ti NEQ 1 THEN ® NOT IN COLUMN 1 
BEGIN 
STREAMCALETINUCU] e TIsKEYS KEYS 2GETSPACE(102000)42)3 
BEGIN 
OS += LIT "#"s SY te LOC AS SIT $e S453 
DOS #* 3 CHR3 
OS 13 16 LIT * INV CHR IN COL "3 
DS t*® 2 DEC? DS t= LIT Mer; 
END3 
PCi)s % SPOUT MESSAGE 
GO TO NTRDY3 
ENDS 


T»CCF) 3% LOQUELSIJ3 


GO 


IF 


GO 


TO REALEOF3 


E,f4381] THEN 

BEGIN 

Fie6as & PUNCH CHECK 

MAKEMESS3 
SPOUTERCKEY»PSEUDOMIX[LOCATQUE(S),0315)1535)3 

Z NEW PUNCH DOES NOT GO NOT*READY ON PUNCH CHECK 
IF €.£45t1) THEN GO TO NOTREADYMESS$ %& NOT READY 
MAKEMLOG(5)3 

TINULUIC18s12)¢=FCDUP).»£18s12)41;3 

Fs"03 ® ZERO ERROR FIELD 

GO TO CLEAR$ 

END3 

TO D193 % PARITY 


PAPERPUNCH? 


PAPER? 


IF 


GO 


IF 
IF 


ReC2781] THEN % EOR 
BEGIN | 

P(@40)5 

GO TO SIX3 


END; 


TO Di9s ® PARITY 


R»C27:2)] NE@ O THEN GO TO EOFS & BOT/EOT 
Eel@4t4) THEN % PARITY 

BEGIN 

P(@20)3 

GO TO SIX3 

END3 


GO TO NOCODES 


DATACOM? 
IFCT33©18E04394391))=@21 THEN GO TO Lis 


04398400 
04398600 
04398800 
04399000 
04399209 
04399400 
04399600 
04399800 
04400000 
04400200 
04400400 
04400600 
04400800 
04401000 
04401200 
04401400 
04401600 
04401300 
04402000 
04402200 
04402400 
04402600 
04402800 
04403200 
04403400 
04403600 
04403800 
04404000 
04404200 
04404400 
04404600 
04404800 
04405000 
04405200 
04405400 
04405600 
04405800 
04406000 
04406200 
04406400 
04406600 
04406800 
04407000 
04407200 
04407400 
04407600 
04407800 
04408000 
04408200 
04408400 
04408600 
04408800 
04409000 
04409200 
04409400 
04409600 
04409800 
04410000 
04410200 
04410400 


NOCODE? 


F 3* 53 & 1/0 ERROR 
GO TO L2s 


DRUMt % DRUM NOW HANDLED IN DISKORAUXERROR 
DISKs % DISK NOW HANDLED IN DISKORAUXERROR 
DO UNTIL FALSES 


TAPE3 


TRANSACTIONCU) t= TRANSACTION(U] 413 
IF €4€4484) THEN 
IF R,l2t1] THEN & MOD IIT DESCRIPTOR 


BEGIN % COULD BE MEM»PARa»sBLANK TAPEsBOTPEOT 
IF ReClli%4) THEN GO TO D193 % MEMORY PARITY 
OPTIONS#OPTION OR M$ % MEANS MOD3I0S$®TRUE 
IF Rel248i) THEN & READING 
BEGIN 
IF Roll381] THEN ReC2721)%513 & BOT» SET EOF 
IF Reli4si1) THEN & EOT 
IF CE AND @367)20 THEN 4 PARITY 
IF Re€2781)=0 THEN & NOT EOF 
GO TO FIXS & FINISH [70 
END 
ELSE 
BEGIN &% WRITING 
IF Rygft2t1) THEN & BLANK TAPE ON WRITE 
BEGIN 
Fie9s % BLANK TAPE ON WRITE 
MAKEME SS} 


SPOUTERCKEYsPSEUDOMIXCLOCATQUE[S],03:531935)3 


MAKEMLOGC10)3 
PC16)3 

GO TO SIXs 
ENDS 


IF Rell4¢1) THEN R,C2781]8=1 ELSE GO FIXS & EOT*SET EOF BIT 


END} 
END ® MOD III DESCRIPTOR 


ELSE GO TO D19% & PARITY 

IF R,l2481] THEN 
BEGIN 
IF €,€4191) THEN GO TO D223 & INVALID ADDRESS 
IF Rgf2721) THEN & EOT 


EOF! 


REALEOFt 


IF MASK, £4284] THEN % EOF OK 
BEGIN 
FOFLQCIF ReL24ti) THEN @31 ELSE OECTFI3 
TeC586) t= @403 
GO TO FIX) 
END 

ELSE 
BEGIN ® EOF NOT ACCEPTABLE 
P(@40)3 
GO To SIX3 
END} 


TAPERETRYS 
MAKEMLOGC*TAPEBUFFERSIZE)3 
IF CTESTAPEPARITYRETRY(ReUsKEY)).£9%8)232 AND 
LOCATQUEES],(355) NE@ O THEN GO TO REALEOFS 
P(T,(598])3 
GO TO SIX; 
END3 


04410600 
044108600 
04411000 
04411200 
04411400 
04411600 
04411800 
04412000 
04412200 
04412400 
04412600 
04412800 
04413000 
04413200 
04413400 
04413600 
04413800 
04414000 
04414200 
04414400 
04414600 
04414690 
04415000 
04415200 
04415400 
04415600 
04415800 
04416000 
04416200 
04416400 
04416600 
04416800 
04417000 
04417200 
04417400 
044176006 
04417800 
04418000 
04418200 
04418400 
04418600 
04418600 
04419000 
04419200 
04419400 
04419600 
04419800 
04420000 
04420200 
04420400 
04420600 
04420800 
04421000 
04421200 
04421400 
04421600 
04421800 
04422000 
04422200 
04422400 


IF Esl41%1) THEN % WRITE RING 
IF €,C43%1] THEN & PARITY*WRITE RING 
BEGIN 
Fex6s &2 WRITE LOCK 
GO TO L23 
END 
ELSE GO TO D223 % INVALID ADDRESS 
IF Ane THEN GO TO TAPERETRY3 &% PARITYeWRITE RING ONLY 


be TAPCXCHIC584098)3 
F t= 13 


E $8 T,[516)xF3 

FIN 38 S3 

10D #* 1OQUECS)s 
SEVENS 

RETURNIOSPACECS)3 


TOCOUNTCLOCATQUE[TS], (3:5) ) 3*P (DUP »LOD) 13 
TACFFISeSsSLOCATQUECSI], {FFI} 
IF F & @3100001 THEN 
IF S NEQ@ @77777 THEN GO TO SEVEN} 
StsFING 
IF FALSE THEN 
LEAVES 
100 #8 JOQUELSIJ: 
FIN t* FINALQUECTS] AND NOT MEMORY? 
IF 100,C24t1] THEN 
BEGIN 
NT4 t& MCIOD INX € IF 100,022#1] THEN 1 ELSE NOT 0)]3 
FINISHOFFIOCU)3 
END} 
IF € Tits FIN) LSS 0 THEN 
PCR@EC2524088)&J0D0L 38325) OR TOMASKeLOCATQUE[SJs«) 
ELSE 
BEGIN 
IF E NE@ O THEN 
BEGIN 
POeTiePRL)3 
Ti ¢* TLQEC25240186)3 
END 
ELSE PCeTi1*e TOR) 
LOCN ts (MECLOCATQUELSIII3 
10D s# 100,033915)3 
WHILE LOCNEO),0€33815) NE@ JOM DO LOCN $m 14 ENX LOCN3 
LOCNEO)] sm PC,TieLOD)3 


END3 

UNITCU] te T3 

CLEARS 
UNITOCU) s& CHPCDUP)QFI5920213)3 
STARTIOCU)S 

KLUGE 

LOCATQUEESI],C1191)3=03 

KILLERS 
KILLCER] INX NOT 1)3 
END3 


$ SET OMIT @ NOTCDEBUGGING) 
REAL NSTOP*®BeCeERROR#®NSYMBSe LP3% 
ARRAY WBC*)+RBX(¥*) +TBLE*) +STOPS( #13 


04422600 
04422800 
04423008 
04423200 
04423400 
04423600 
04423600 
04424000 
04424200 
04424400 
94424600 
04424600 
04425000 
04425200 
04425400 
04425600 
04425800 
04426000 
04426200 
04426400 
04426600 
04426800 
04427000 
04427200 
04427400 
04427600 
04427800 
04428000 
04428200 
04428400 
04428600 
04426800 
04429000 
04429200 
04429400 
04429600 
04429800 
04430000 
04430200 
04430400 
04430600 
04430800 
04431000 
04431200 
04431400 
04431600 
04431800 
04432000 
04432200 
04432400 
04432600 
04432800 
04433000 
04433200 
04433400 
04433600 
04433800 
04544999 
04545000 
04546000 


REAL TYPETOG3% 
$ POP OMIT 
REAL PROCENURE TAPEPARITYRETRYCROUSKEY) 3% 

VALUE ReUsKEY3S 

REA ReUeKEY3% 

BEGIN REAL TileT2eT33 INTEGER Ie T1s% 
REAL RESULT*+ 1LOD»OLOD»SPACEMASK se SPACEIODeMeoNoWo MODE 3% 
REAL JeK3s 
REAL ERASE IOD=SPACEMASK; 32 

REAL ZeV¥eMIXeBSIZE3 
LABEL XIOeGIVEUPS 
LABEL RPeLX3 
REAL SIZEeT4sLIMITS 
REAL PTReBUFFER®BUFFERSIZE®% 


04547000 
04547001 
04548006 
04549000 
04550000 
04551000 
04552000 
04553000 
04554000 
04554100 
04554200 
04554300 
04554509 
04554600 


PATTERNePATTERNIsPATTERN2s+PATTERNWORD3% DON"T CHANGE ORDERO4554700 


BOOLEAN TESTING» SPACINGSS 
LABEL XXITPEXITS3 
SUBROUTINE RECORDRETRY3% 
BEGINS 
IF PTR*KEY = TAPEBUFFERSIZE"1 THEN 
BEGIN? 
TAtSGETSPACECTAPEBUFFERSIZE 1905) 423 
MOVECLO*SKE Ye T4)33 
MEMORYCKEY*8) t= TAPEBUFFERSIZE"103% 
MEMORYEIKEY+9]8= 10233% 
LINKUPC3PKEY)3% 
KEYts T43 PTR3s= KEY+933 
END3% 
MEMORYC(PTREBPTReily= JOD3% 
MEMORYCPTRISPTR+1)¢= RESULT & ROCTABLECUIL1941:3213% 
END RECORDRETRY32 
SUBROUTINE DOJTONOWSS 
BEGIN FOR Yet STEP 4 UNTIL 18 DO 
BEGIN IF R,C24:4) THEN 
BEGIN &® WAIT 1/15 SEC BETWEEN READ RETRIES 
WHILE T4>CLOCK+4PCRTR) DO SLEEPC101)3 
TH*CLOCK#PCRTR) +43 
END? 
IF [QQUESLOTS#®0 THEN SLEEPCLIOQUESLOTS)»263)3 
LOQUESLOTS: #1 0QUESLOTS=13 
LOQUEAVAILS®IQQUECTLISSIOQUEAVAIL]3 
IOQUECT1IJ]+«+ ;ODs% 
TOCOUNTECLOCATQUECTIJ*LOCATOUECT2«(T3*UNITCUJ),£182151)8 
CRESULTICCTCI&T2CCTFID.sC3t5J J ¢*P (DUP) 413 
UNITEU] © T3RTICLEESILL5IROALCSE 35S si 3sjs% 
STARTIOCU)3% 
FPINALQUEECT1) © NABSCIOD)& O (2514088) OR IOMASKS% 
RESULT © 033% 
SLEEP COCUNITCUJ ]2@100000000000)3% 
IF RESULT,£3081] THEN % NOT READY 
BEGIN 
MODE 8 (€716)3 
GO TO EXITS 
ENDS 
IF RESULT,.£29%1] AND RESULT.£2!91) THEN 
BEGIN 
IF RESULT,£12%1] THEN %& BLANK TAPE 
IF 100,€2481] THEN % READ 


04554800 
94555000 
04555050 
04555100 
04555150 
04555200 
04555250 
04555300 
04555350 
04555400 
04555450 
04555500 
04555550 
04555600 
04555650 
04555700 
04556000 
04556100 
04557000 
04557100 
04557200 
04557300 
04557400 
04558000 
04558500 
04559000 
04560000 
04561000 
04562000 
04563000 
04564000 
04565000 
04566000 
04567000 
04567010 
04567020 
04567030 
04567040 
04567050 
04567100 
04567150 
04567200 
04567250 


TRANSACTIONCUJ*TRANSACTIONCUJ"181000132291) ELSE04567300 


BEGINS z WRITE 


04567310 


STREAMCAtETINUCUJ +> T&8=T22=SPACEC3))3 04567320 

BEGIN Sle*LOC As’ SI*S145% DS*3 CHR} 04567400 

DS¢21 LIT™ BLANK TAPE ON WRITEo*$ 04567500 

END$ 04567550 

SPOUTITCT2235)3;%4 BLNK TAPE*TAPEPARITYRTRY %R6404567600 
GO TO XXIT3& 04567700 

END3 04567750 

IF RESULT,C11#1) THEN %’ MEM PARITY 04567770 

BEGINS 04567780 
STREAMCASTINUE UJ) eTeT2eSPACE(3))3 04567790 

BEGIN ST*LOC Ad ST*S1453 DS«3 CHR 04567800 

OSe13 LIT" 170 MEM PARe"; 04567810 

END} 04567820 

SPOUTITCT2e 35)3%1/0 MEM PAR*TAPEPARITYRETRY %R6404567830 
XXIT¢ MODE #* 163 04567640 
IF TESTING THEN GO X103 04567845 

RECORDRETRYS 04567850 

GO TO EXIT; 04567855 

END3 04567860 

IF RESULT.«£L43#2]#0 THEN Yeio3 04567670 

END ELSE GO TO X10} 04567900 

END3% 04566000 
RESULT,C2731]¢13 MODE*+323 04568100 
X10s IF NOT SPACING THEN RECORDRETRY3 04568200 
END DOTONOW;8 04566250 
SUBROUTINE SPACEBACK3 04568300 
BEGIN 04568310 
IF TRANSACTIONCUI*1 THEN 04568320 
BEGIN 04568330 
LOD? #@4200000000R010D£323195)3 04568340 

DOTONOWS 04568350 
PseTwocuds 04568360 
RRRMECHt®RRRMECH OR J3 % MASK OUT STATUS WHILE04568362 
CLICK&=CLOCK4+PCRTR)+6003 ® WE WAIT FOR REWIND, 04568364 
COMPLEXSLEEPCCPCRRR) AND 1)#0)3 04568366 
RRRMECHS=RRRMECH AND NOT [8 04568368 

IF CPCRRR) AND 1)#0 THEN % TIME OUT => NOT READY04568370 

BEGIN MODE? #7163 04568372 

GO TO EXIT; 04568374 

END3 04566376 

END ELSE 04566380 
BEGIN 04568390 
Mi=W3 04568400 
JOD#=SPACEIODS 04568440 

Jeds 04566420 
SPACING?® TRUER 04568425 

DO BEGIN 04566430 

DOIONOW? 04568440 
TRANSACTIONEDCUJ&8aC*P (DUP) D413 045686450 

Jrededs 04568460 

END UNTIL COMSSRESULT CCF IJ*SPACEIOD,(CFIJ+#M) LSS O 04568470 

OR RESULT,£2741]) AND J GTR 13 04568480 

IF NOT TESTING THEN SPACINGS® FALSE3 04566485 
TRANSACTIONCU] S#(*P( DUP) #23 04568490 
LOD#SSPACE1ONROL2214781)3 04568500 

DOTONOW3 04568510 

IF N®Q THEN BSIZEM*RESULT CCF ITIOD, CCF] ELSE 04566520 

IF BSIZE#RESULTsCCFI*IOD.CCF) THEN 04568530 

BEGIN 04568540 
STREAMCAUBTINUCUJ*DS¥T2:5SPACEC10))3 04568550 


END3 


ENDS 


BEGIN SI#®LOC ASSI119SS14530$8=3 CHR 
DSt#13 LIT” ERASE ERRORe"3 

END; 

SPOUT(T2)3 

GO GIVEUP}3 


ENDS % OF SPACEBACK 

TINUCU],(£16812] © PCDUP),CIBt12)+13% 
MIX $® LOCATQUELCUNITCUI CFF II,(395)3 
O1OD * NFLAGCIOQUECUNITCUJ.CIBtISII)3% 


PTRIS KEY+93 


STREAMCASSTINULUJ »REELIEZPRNTABLELUJ],£30818]> 
MFIDSEMULTITABLELCUJ oF IDISIF LABELTABLECU)#@314 
THEN "UNLABLD” FLSE LABELTABLE[U].e 
RDOMBReMIXtaM[XeT#eTZ2¢eSPACE(10))3 


BEGIN 


STHBLOC As STIBST+S3 DSP RICH} 
DSts7 LIT " REEL #"3 DSse4 DEC; 
SESFST HLS DSPBLITMEMSDSHE7CHRIST PEST +L sOSseL IT" / "3 OS te7CHR3B11504570345 
NS:#4 LIT*SRDS"3 
16CDSHS3RESETI3CIF SB THEN DStSSET ELSE 
DSteRESETS SKIP SB))3 
OSte5 LIT “"SMIXa"s DSt=2DEC3 
OSs#LIT LEFTARROWS 
END STREAM} 
SPOUTITCT2234)3 
IF Rel24s1] THENS 
BEGIN COMMENT READ RETRYS32 
SPACEMASK @ O10D,C2182]xO@1111 EQV NOT 0012338 
SPACEIOD © OFOD81(8338210) 812384783153 
FOR M «© 1 STEP 4 UNTIL 3 008 
BEGIN SPACEIOD * SPACEIOUSSPACEMASK(21846%2)3% 


BOTODL192211))0033833815)3 


FOR N « {1 STEP 1 UNTIL 5 003 
BEGIN TOD «+ SPACEIODs4 
IF N#1 OR M#1 THEN DOTONOW ELSE 


04568560 
04568570 
04568560 
04568590 
04568600 
04566610 
04568620 
04568630 
04569000 
04569500 
04570000 
04570100 
%¥11504570300 
%11504570305 
11504570307 
11504570310 
%11504570320 
%11504570330 
%11504570340 


311504570370 
311504570380 
%11504570390 
211504570400 
%11504570410 
%11504570420 
%11504570430 
04571000 
04572000 
04573000 
04574000 
04575000 
04576000 
04577000 
04578000 
04579000 


IF NOTCR, C2931) AND Rol281] AND R,L1281)) 04579100 


THEN DOTONOWS 
IF RESULTeL26t1) THENS 
BEGIN MODE « 03% 
10D + O10Ds% 
ENDS 
ELSE BEGIN MODE « 63% 


04579200 
04580008 
04581000 
04582000 
04583000 
045864000 


10D « OI1OD&SPACEMASK(2184382]3% 04585000 


ENDI4% 
DOTONOWSS 


IF NOT RESULT,»(2681) THEN. GO TO EXITS 


IF MOD3I10S THEN IF 0100e(23:1) THEN 
BEGIN Ze1OD*OTQD&SPACEMASK(21:40182) 
&(010D,(033915)4(0J00,(8t10)71) 


DOIONOWS MODE+O3 
IF RESULT,»C2601) THEN 
BEGIN I0D*0I10D# DOIONOWS 
IF NOT RESULT,»C2831) THEN 
GO TO EXITS 
1OD*Z&SPACEMASKL 219468215 
DOIONOWS MODE+83 
IF RESULT.02881) THEN 
BEGIN JOD*OLOD&SPACEMASK 


04586000 
04587000 
04588000 
04588010 
04588020 
04588030 
04588040 
04588050 
04588060 
04588070 
04588080 
04588090 
04588100 
04586110 
04586128 
04588130 


C21:43%2)3 
RP 3 DOITONOWS 
IF RESULT,»C28:t) THEN 
GO TO LX3 
GO TO EXITS 
ENDS 
ENDS 
ZeABSCIODL3I3S1SI*RESULT.£33%15) 23 
IF 100.£2182J#0 THEN 
4eZCRESULTeLI5#3)#0)3 
IF 10D,084'10)<2 THEN 


04588140 
04588150 
04588160 
04586170 
04588180 
04588190 
04588208 
04568210 
04588220 
04588238 
04588240 


BEGIN I0D*OI10D% MODE*03 GO TO RP ENDS04588250 


IF 10D,€22:1) THEN 
STREAM(CZeVYoed DIV 64.5 
Se*RESULT.C33t15 I] 415 
SKe(RESULT,£1583]41),045%3]» 
GMeCIF 10D,f€21312 THEN 0 
ELSE "«"), 
DeOJ]OD,L33815))3 
BEGIN S]«Ss SJT#S]+Ski 
YC16C0S¢32 CHRI)3 
Z(0S¢8 CHR)3 
SKCOS#eLIT "OF)3 
DIi*DI"SK? SI*LOC GM3 
STe*S]+73 DS*CHR3 
END ELSE 
STREAM(CZeYeZ DIV 64> 
SeRESULT £33815) "15 
SKeCRESULT,£C1533)347).04533] 0 
FLeCIF TOD,f21%1] THEN 0 
ELSE @14). 
FKeCB8PRESULT.££01523))e04533)>» 
D*01002033815))3 
BEGIN SIeSs SleSi#Sks DI«DI +473 
YCLECI2COSeCHRE SleST"2}3 
DI*DI*2)))3 


04588260 
04588270 
04588280 
04566290 
04586300 
04586318 
04588320 
04586330 
04588340 
04588350 
04588360 
045883790 
04588380 
04588390 
04588400 
04588410 
04586420 
04568430 
04588440 
04568450 
04588460 
04588470 
04588480 
04588490 


ZCOCDSeCHRS SI*SI*2: DIleDI"2))304588500 


SI*LOC FLS Sle#SI4+73 
FKCOS*CHRS SI#Sl*i13s DOlep172)3 
END: 
10D0*@14000000580]00(22122:1) 
SOTODE 333385 )3 
DOLONOWs GO TO EXIT} 
LX: END3 
END3% 
N © ITF TRANSACTIONLUJ < 15 THENS 
TRANSACTIONCU ELSE 153% 
10D «© SPACEIOD&SPACEMASK(21:340221)32% 
SPACING!® TRUE} 
FOR W * 1 STEP 1 UNTIL N DOS 
BEGIN DOIONOW 3% 
IF RESULT+e#C2781)] THEN NeO3% 
END}S 
10D « SPACETOD&SPACEMASK(21°3722)33 
FOR N «© 3 STEP 1 UNTIL W DO DOITONOW)IS 
100 « OFO0D34% 
MODE « O92 
SPACINGt® FALSE} 
DOJONOWs2 
IF NOT RESULT,£C26481) THEN GO TO EXIT3& 


04588510 
04586520 
04588538 
04588540 
04588550 
04588560 
04588570 
04589000 
04590000 
04591000 
04592000 
04592100 
04593000 
04594009 
045950080 
04596000 
04597000 
04598000 
04599000 
04600000 
04600100 
04601000 
04602000 


END3% 
MODE ¢ 163% 
END ELSE BEGIN COMMENT WRITE RETRY3S 
LIM] T+@1000003 
ERASEIOD © CSPACEIOD «© OJ OPROLBI3BsLOJR7C2284583) aC T2I2% 
C33833215) B@LL2C18sais715% 
Wee Rel33815I"OlLONe C338 1SI4+254 
WHILE TRUE DO 
BEGIN 
SPACEBACK? 
IF CNteNeW+128) GTR LIMIT OR 
TERMSETCMIX) THEN GO GIVEUP; 
10D * ERASETODEN[ 9S 39I9I1 3% 
SPACING3® TRUERS 
FOR Jv « O STEP 512 UNTIL N DOZ 
BEGIN TRANSACTIONEU) © TRANSACTIONCU)#13% 
DOTONOWSS 
10D © ERASEIODR1I(884731)3% 
IF RESULT,C2711) THEN 
BEGIN 
IF NOT Rel2784) THEN LIMIT#J+#30003 
Rael27tideis 


SPACING?#® FALSE3& 
10Ds= [0D & NICTCI3% 
RECORDRFETRY3% 
10ND « O10D3% 
DO;ONOWSS 
IF RESULT,C27%1) THEN Rele2721] © 13% 
IF NOT RESULT,£C26311 THENS 
BEGIN 
SYIZE*RESULT,CCFI"O100.LCF)3 
SPACEBACK3 
LOD*SPACEJOD&OL2254731)3 
DOTONOWS 
IF NOTCRESULT,(2881) OR (€0100,€2131) AND 
CRESULT,CCFI*SPACETODe(CFRI#SIZE))) THEN 


BEGIN 
MODE*ORR(42t27 3193 
GO TO EXITS 
ENDS 
END} 
rien 2 ENDS% 
GIVEUPS 
T2 98 SPACEC3)5 
STREAMCASTINULUJ]0T2)3% 
BEGIN SI « LOC A$ SI © SI#5% DS © 3 CHRES 
OS «+ 41 LIT " WR PARITY#"3% 
7 ENDS 
SPOUTIT(T2235)5% WR PAR 
MODE * 163% 
ENDIS 


EXITs TAPEPARITYRETRYs® UNITCUJ & MODEL5#40:36)3 
MEMORYCKEY4+8] #2 PTR®KEY*9}3 
_MEMORYCKEY#+9)15ABSCMODE)3 
MEMORYCKEY] $8 PCDUP*LOD) & CCPTR*KEY) DIV 5)9£3983939)3 
IF (MODE#16) OR (Rel2401)) THEN LINKUPC3*KEY) ELSE 
BEGIN. 
BUFFERt= OL10D JINX Of 


04603000 
04604000 
04605000 
04605500 
04606000 
04607000 
04608000 
04609000 
04610000 
04611000 
04627000 
04627100 
04628000 
04628100 
04629000 
04630000 
04631000 
04632000 
04633000 
04633100 
04633200 
04633300 
04633400 
04634000 
04634100 
04634200 
04634300 
04635000 
04636000 
04637000 
04638000 
04638100 
04638200 
04638300 
04638650 
04638700 
04638800 
04638900 
04639000 
04639100 
04639200 
04640000 
04641000 
04642000 
04642900 
04643000 
04644000 
04645000 
04646000 
04647000 


%R6404646000 


04649000 
04650000 
04651000 
04651050 
04651100 
04651200 
04651300 
04651400 
04651500 


BUFFERSIZE3= O100,(8810)} 
IF NOT O10D,€2184] THEN &% ALPHA WRITE = CHECK @=MARKS 
BEGIN 
STREAMCT3#0% 
TEMP820- SVSITS20e 
BUFFSTARTI®BUFFER» 
BUFFENDS®AUFFER*+BUFFERSIZE)3 
BEGIN 
SIteBUFFEND$ DIt#LOC TEMPS DSi CHR} 
DIS#BUFFENDs OStebLIT"="s DLPeDIT13 DStHRESETZ BQ"MARK 
STISsBUFFSTART? 
IF SC > 9 THEN 
BEGIN 
Wit STs#S]+13 IF SC>9 THEN GO Li} 
END} 
L2t StewmSlet3 IF SCS9 THEN GO L23 
SVS1:#S1]) 
ST#*zLOC SVSI3 Sleesl+53 
D1+sLOC BUFFENDS DI t#D1] +53 
IF 3 SC#DC THEN TALLYte&13 
DIS*BUFFENDS Sis#LOc TEMPS DSt# CHR3 
TIMTALLY3 
END} 
TtsPOLISHS 
MEMORYEKEY4+2)] 3% PCDUP»sLOD) & 10194731393 
END3 


IF STOPTEST THEN LINKUPC3*KEY) ELSE 
BEGIN 


MEMORYCKEY] #3 NABSC(PCDUP®LOD))3 
LINKUP(3eKEY)3 
TESTINGS® SPACING#= TRUES NI8O5 
BUFFERSIZE%® BUFFERSIZE"13 
O;OD9= OFOD & 161814216) 
PTRim KEYS8s 
STREAMCMOD210StSNOT(MOD310S462)» DISLPATTERNJ)3 
BEGIN 
DSt313 LIT*OL24B4xe<(,G5"3 
MODZIOSCDIS=DI"6s DSteLIT™"’"s Di se01+5)3 
OSt= LIT"""s DSte LITHO; 
OSte3 LITMISC™S 
END3 
SLEEP CCMEMORYLKEY]12@1000000000000000)3 
MEMORYCPTRIS® Of MOVECI9LePTRePTR41)3 
FOR Kt®0 STEP 1 UNTIL 15 DO 


BEGIN 
STREAMCAEBEPATTERN]+ 
KemKe(KE15)» Mewdedx(K<id)s Nbete(K>13)% 
SIZEDIV64¢SBUFFERSIZE.[36%6)» BUFFERSIZE>» 
BUFFER)3 
BEGIN 


SLtsAs SJtuSteK 
MCOSd®N CHRE SIsteSIen)3 
SI##eBUFFER} 
SIZEDIV64(DSt#32 WDOSS DSI232 WOS)S OSHeBUFFERSIZE WDS3 
DI&eAs DJ] sep1e243 DStewos; 
END3 
1Op9s O1O0Dt*® OTOD & CCK<7) OR (K913700(2184791)3 
DOLONOWS 
MEMORYCPTRI:® RESULT & RDOCTABLELUILI9#8132)3 
SPACEBACK$ 


04651600 
04651700 
04651800 
04651900 
04652000 
04652100 
04652200 
04652300 
04652400 
04652500 
04652600 
04652700 
04652800 
04652900 
04653000 
04653100 
04653200 
04653300 
04653400 
04653500 
04653600 
04653700 
04653800 
04653900 
04654000 
04654100 
04654200 
04654300 
04654400 
04654500 
04654600 
04654700 
04654800 
04654900 
04655000 
04655100 
04655200 
04655300 
04655400 
04655500 
04655600 
04655700 
04655800 
04655900 
04656000 
04656100 
04656200 
04656300 
04656400 
04656500 
04656600 
04656700 
04656800 
04656900 
04657000 
04657100 
04657200 
04657300 
04657400 
04657500 


TADPOLE! 
FROGS 


STREAMCSIZEDIV642SBUFFERSIZE se L 3686) 2BUFFERSIZE® 
BUFFER)3 
BEGIN 
OSt768 LIT” "3 SESFRUFFERS 
SIZEDIV64(DSt#32 WOS!t DSte32 WOS)} DSS*BUFFERSIZE WDS3 
END? 
100%* O10D & 1£2484721]3 
DOLONOWS3 
MEMORYCPTRellse RESULT & RDOCTABLECUI(LI9#1:2);3 
STREAMCAIS[PATTERN] INX 3» 
CHRERR&®0s WRDERR? 800 WRDOCNTS=09e 
LOOP8#O» FORSEVENS&1* LEAPFROG3©0e 
WOSLEFTse1se( JSF CSIZESBABSCBUFFER*®C(CRESULT INX 0))) 
LEQ BUFFERSIZE THEN SIZE ELSE BUFFERSIZE+}) MOD 63> 
VielF J<64 THEN J ELSE 63> 
Ntele J<64 THEN 1 ELSE J DIV 63> 
RECYCLE:® IF J<64 THEN O ELSE IF I]*0 THEN O ELSE le 
TEMP 380+ SVDI3200 
BITLOCNSS3PTR+3* WRDLOCNSSPTR+5e 
BUFFER)3 
BEGIN} 
LEAPFROG$® CIE TALLY!®03 % USED ONLY FOR LEAPFROG RETURN 
NCVCST teas; IF 8&8 SC#0C THEN 
BEGIN 
SJTISWRDERRS SYtweS[+83 WRDERRY=S]3 
FORSEVENCSVDI&§sDIs DIS=BITLOCNs LOOPCDI]8*D1+42)3 
SITtsLOc WROCNT$ SIseSI+63 DSt#2 CHR} 
DIS*WRDLOCNS LOOPC( DI teD1+8)3 
S}teSvpls S]teS]"8s OS WOS3 
TALLY t@LOOP$ TALLYSsTALLYe13; LOOPSSTALLY:? 
S1¢*#LOc LOOPS SI seS{+73 
IF SC#"7" THEN 
BEGIN TALLY:303 FORSEVENSSTALLY? END} 
Ol:eSVOI)3 
STAs DYteDl"hs TALLY =03 
BCIF SC#DC THEN TALLYS*=TALLY+1)3 
TEMPS8sTALLY?} 
SIM=CHRERRS TEMPCSI8&S1+8)% CHRERR#SSI3 
END3 
ST@+FWRDCNT? Slt#S1483 WRDOCNTESS]3 
»)3 
RECYCLECTALLY8a1) NteTALLY3 
TALLYtSWOSLEFTS VteTALLY3 
TALLY##03 RECYCLES&TALLYS 
JUMP OUT TO TADPOLE)! 
GO TO FROG} 
CLISLEAPFROG} 
DI@IRBITLOCN; DO] teDI"5; 
S1#sLOC CHRERRS SIt8S14+53 OS953 CHR 
S]t#L0C WRDERRS SLseS]+63 DS8#2 CHR} 
END} 
IF MEMORYCPTR),C27¢1) THEN SPACEBACKS 
PTRt*#PTRe123 
END) 
MEMORYCKEYI]t® PCOUPsLOD) & OF12182) & 39(f3983989)3 
MEMORYCKEY +2) 2% PCDUP*SLOD) & OPTION(21231]3 
LINKUPC2Q0eKEY)3 


ENDSEND3 
END TAPEPARITYRETRYS® 
REAL PROCEDURE PLACEFINDERCSsArL)3 


04657600 
04657700 
04657800 
04657900 
04658000 
04658100 
04658200 
04658300 
04658400 
04658500 
04658600 
04658700 
04658800 
04658900 
04659000 
04659100 
04659200 
04659300 
04659400 
04659500 
04659600 
04659700 
04659800 
04659900 
04660000 
04660100 
04660200 


94660300. 


04660400 
04660500 
04660600 
04660700 
04660600 
04660900 
04661000 
04661100 
04661200 
04661300 
04661400 
04661500 
04661600 
04661700 
04661600 
04661900 
04662000 
04662100 
04662200 
04662300 
04662400 
04662500 
04662600 
04662700 
04662800 
04662900 
04663000 
04663100 
04663200 
04663300 
04666000 
04700000 


VALUE SaA3 
REAL SeAeL3 
BEGIN INTEGER I3 ARRAY B[*J} 
REAL TeWeFoJdr AA’ 
WABEL NULLe FOUND EXIT: 
LABEL SANDA? REAL S$S3 
Weds 
B t® CMET 3® SPACE(30)))830(8138610)3 
S$St#S} 
IF SO THEN 
NULL § BEGIN STREAM(T)3 088220 LIT " "3 GO EXITS END? 
DISKWAITC#Ts 300eJARCPIMIX210] 23 
IF CAA*BLO],(FFJ)#0 THEN 
SANDA! BEGIN STREAMCS3=SSeAeKtsM(PRICPIMIXe8I],LL012)eT)3 
BEGIN DS#5 LIT". § #3 
ST*LOC S3 DS#4 DEC; 
DS«5 LIT%s A #3 
DS*4 DEC} 
OStSsLIT "8's SleeS1+73 DStECHR3 
DI©T? Dl*D]4+5sD0S*3 FILL; 
DieTIDI DL +143D0S"3 FILLS 
ENDS 
GO TO EXIT3 
END3 


DISKWAITC@Te30eTeJAR[PIMIX*®AA DIV JAREPIMIXs8)410)4 


AA MOD JARIPIMIX*8j+ S DIV 30)3 
IF (J*BES MOD 30))<0 THEN GO TO NULLS} 
AA*LeJARCPIMIXede LCF] DIV JARLPIMIX*e6)410)4 
Jel[CF] MOD JAREPIMIX*8)5 
103 JeJeCFF I) 
DO BEGIN Se(]4+J),(£36%11)3 
IF W#C(WeS DIV 30) THEN 
DISKWAIT(*Ts30sAA4W)3 
IF CE*BESeWx30),(38810))5A THEN GO TO FOUND: 
IF E<A THEN T*S ELSE JeS3 
END UNTIL Jmis<i3 
Se]3 
FOUNDS Le BLS MOp 30),(10:26)3 
IF LS0 THEN GO TO SANDA} 
STREAMCLe©ABS(CL)*T)3 
BEGIN OSt#11 LIT “eNEAR LINE "3 
SI*LOC LS DS*8 DEC3 
DSteLIT * "3 DIssDI"9s OStF7 FILLS 
END3 
EXT TIPLACEFINDER®T3 
END PLACEFINDERS 
REAL PROCEDURE SECURITYCHECKCMIDeF JDe USE sHEAD)3 
VALUE MIDs FID» USE? 
REAL MIDeFID*USEPHEADS 


FORWARD} 
PROCEDURE SHEETDIDDLERCBUFFeTYPE®SID)$ VALUE BUFF eTYPE®SIDS 
REAL BUFF eTYPE®SID3 FORWARDS 


PROCEDURE ZIPPERCX*Y)3 VALUE Xe¥) REAL X*Y3 FORWARDS 
PROCEDURE DISKLOGCMIDeFIDeH)s VALUE MID»FIDeHs ARRAY H[*])5 
REAL MIDeFIDs FORWARDS 
DEFINE JNOUTK & 2185 
SYSTEM/DISK RECORD FORMAT! 

ACO] * ADAPTER INFO 

ACL] ® USER CODE 

AC2) ® TIME OF LAST ACTIVITY 


BeBe ve Be 


04701000 
04702000 
04703000 
04704000 
04705000 
04705500 
04706000 
04707000 
04707500 
04708000 
04709000 
04710000 
04711000 
04712000 
04713000 
04714000 
04715000 
04716008 
04716100 
04717000 
04718000 
94719090 
V4 20000 
04721000 
04722000 
04723000 
04725000 
04726000 
04727008 
04728000 
04729000 
04730000 
04731000 
04732000 
04733000 
04734000 
04735000 
04736000 
04736500 
04737000 
04738000 
04739000 
04740000 
04741000 
04742000 
04743000 
04790000 
04791000 
04792000 
04793000 
04798000 
04799000 
04800000 


%11204800100 
%11204800200 


04601100 
04803000 
04804000 
04805000 
04806000 


REAL INDIANS? 


“UW Be Ok Be BE BE BE BC BE BR DE BE BE DE BE BE VE BE DR BL BK DE BE BE BL BK BC DL BE BE BC BL BG RC BC BE BL WX 


Li = 


L3 ® 


L4 =z 


L5 3 


L6 s& 


L7? = 


FORMATS FOR PARAMETERS TO INDIAN BUY 
LO = SEARCH! 


ACL] = FIRST NAME $ ACL] = SECURITY CODE 

AC2] & SECOND NAME 3% AL2] ® WORDE4) OF HEADER 

AC3] * USER CODE + AC3J = END OF FILE COUNT 

* AL4) = ADDRESS OF FIRST RECORD 

MAKE FILE 

ACI] = FIRST NAME * ACL] = ADDRESS OF FIRST RECORD 

Af2]) = SECOND NAME & AL2] = ADDRESS OF HEADER 

AC3) = FILE TYPE 

AC4) = SIZt OF FILE 
FILE REMOVE 


AL1) = FIRST NAME 
AC2] = SECOND NAME 

FILE REPLACE 
ACI] = FIRST NAME OF OLD FILE 
AL2] = LAST NAME OF OLD FILE 
AC3] = FIRST NAME OF NEW FILE 
AL4) = LAST NAME OF NEW FILE 


AC5),(C38810]25SAVE FACTOR ¢€ ZERO IF NOT SPECIFIED %SM 


AC5],C32:6]"F {LE TYFE CODE ( FROM CANDE ) &SM 
ACSI C3181 I="AUTO UNLOCK™ REQUEST 


FILE CHANGE + IGNORE CODES 
ACI] = FIRST NAME OF OLD FILE O => 1 NOT THERE 
AC2) = LAST NAME OF OLD FILE 1 => 1 JN USE 
AC3] © FIRST NAME OF NEW FILE 2 => 2 THERE 
AC4] = LAST NAME OF NEW FILE 3 => 2 IN USE 


J70B STARTER 

AC1] = ADDRESS OF SKELETON ENTRY FOR SCHEDULE 
FILE SECURER 

AC1) = FIRST NAME OF FILE (<0 => NOT BY CANDE) 


AC2] = SECOND NAME OF FILE 

AC3] = NEW CONTENTS OF HEADERT[2) 
AC4) = NEW CONTENTS OF HEADER[5) 
AC5] © NEW CONTENTS OF HEADER(6] 


ROCEDURE INDIANBOY3 


BEGIN ARRAY AL*J]sBlC*)eC(*]3 


REAL RCW840e Te TS 
LABEL LOsLi eb 3ebh So lLSpLG6eh7oF OGe FORGET®LAST*eRETURNG 
RBI eRBZ2eNXLoONX2e¢BALLSeFORFORe MAGUS3 
SWITCH WHATISLOreLisMAGUS@ Lae L Ae Le LOoL 7 eMAGUS eMAGUS» 
MAGUS »>MAGUS » MAGUS »MAGUS3$ 


WHILE INDIAN CCF J#0 DO 
BEGIN A#lQQUE&INDIANCCTC)3 


MAGUS? 
LOr 


uit 


LOGLINE « ACO), (CFFI3 
GO TO WHATLALO),£8310))3 
DO UNTIL FALSE3 
IF CT#DIRECTORYSEARCHCACIIJ®AC2105))4#0 THEN 
BEGIN IF CALLIJ*©SECURITYCHECKCACLIsAL2]°AL3]°T))#0 THEN 
BEGIN AC2]*MCT INX 4)8TCFTFJ3 
AL3S]¢MET INX 7343 
AC4SJeMCT INX 10)3 
ENDS 
FORGETSPACECT)3 
END ELSE Afilewts 
GO TO RETURNS 
B t® LOQUFRCSPACEC30))(CTCI3 


05000000 
05010000 
05010100 
05010200 
05010300 
05010400 
05010500 
05010600 
05010700 
05010800 
05010900 
05011000 
05011100 
05011200 
05011300 
05011400 
05011500 
05011600 
05011700 
05011800 
05011900 
05012000 
05012100 
05012200 
05012300 
05012400 
05012500 
05012600 
05012700 
05012800 
05012900 
05013000 
05013100 
05013200 
05013300 
05013400 
05019000 
05019100 
05020000 
05020100 
05020200 
05020300 
05020400 
05020500 
05020600 
05021000 
05021100 
05021200 
05021300 
05022000 
05030000 
05030100 
05030200 
05030300 
05030400 
05030500 
05030600 
05030700 
05030800 
05040000 


FOGS 


L3s 


L4s 


RB2t 
BALLS# 


RB1i 


LSt 


ELSE IF MET 


MOVEC30°B,fCFI™10B)3 
BCSIeABSC Te al4)2i 
PCDIRECTORYSEARCHCPTALL I eAC2) 07) 9 DEL)3 
IF I GTR O THEN 
IF CBL1O]J:*GFTUSERDISKC] OR MEMORY)) = O THEN 
BEGIN MLA41)]1603 2 NO USER DISK 
IF AC3] LSS O THEN ALC0).(€18t7) t= 253 
GO TO FOG3 %’ TELL CANDE 
END ELSE ELSE 14203 
BC7Je1"13 
BL9IJ«13 
BC2J«al2); 
BC4P*ORS(98h4O12IJRALIIL 3624286); 
STREAMCDATE #X*#(BEL3)I)3 
BEGIN SleLOC DATES DS* 8 OCTS 
D1leXs DSe2? LIT "4483 
S]$=X} 
END3 
B8£0)]+@00036000360001013 
BCL CXCLOCK+PCRTR) )&BL3)068303918)3 
ACZItSEURCACL I »AL2)] ¢B, CCF I71)3 
BLil*Br8y3 
ACtJ]«Bl10)3 
FORGETSPACE(B)3 
GO TO RETURN: 
IF CT&EFDIRECTORYSEARCHCTALLIs*AL2]97)) GE 64 THEN 
REPORTBACKCREMOVED 2000) ELSE GO RBI} 
GO TO FORGET? 
TSEDIRECTORYSEARCHCAL3] »PAlL4)97)3 
IF T#1 THEN 
BEGIN REPORTBACKCIGNOREe (T#1)4220)3 GO FORGETS END} 
BisIF T LSS 64 THEN 0 ELSE JOQUE&TCCTC); 
IF CTIeDIRECTORYSEARCHCAL1I°¢7AL2]24)) LSS 64 THEN 
BEGIN IF B#0 THEN FORGETSPACE(B)3 
REPORTBACKCIGNORE o T3ie"CAlCiJ3))3 
GO TO FORGET; 
END3 
IF 840 THEN 
BEGIN MET INX 2])¢BC2]3 
MET INX 3],0£2310]88863),(2910)3 %SM 
MCT INX 5)«8(5)3 
MET INX 6]¢B(6)} 
MET INX 4],09839)826(438101184781)3 & (SHM) 
FORGETSPACECB)3 
END? 


IF AC53>0 THEN MET INX 4),03686])32A(05),(03236]3 SFILE TYPE 


IF AC5SJ,£38:10) NE@ O THEN MET INX 3]),02810]88a(5] %SM 


IF ACSJ,03191) THEN & "AUTO UNLOCK" FROM CANDE 
IF NOTCMET INX 5),02913) THEN % NOT “GUARDED” 

MET INX SJeeMCT INX 6) 4 123 

MECT#4) 40133119503 

DISKLOGCALI J eAL2]) + LOQUERTECCICI)S 

ENTERUSERFILECTALC 3S eAC4S) oT eC CF J"1)3 

FORGETSPACECT)5$ 

PCDIRECTORYSEARCHC*AL 1] sA(2)28)sDEL)S 

REPORTBACK(CHANGED 1020) 

GO TO FORGETS 


IF CTS#BOTRECTORYSEARCHC AC 3)6A04)25))#0 THEN GO TO BALLS3 


GO TO RB23 


05040100 
05040200 
05040300 
05040400 
05040500 
05040608 
05040700 
05040800 
05040900 
05041000 
05041100 
05041200 
05041300 
05041400 
05041500 
05041600 


ST¢eS1453 OSte3 CHRS & DATE OF LAST ACCESS %DS05041700 


05041800 
05041900 
05042000 
05042100 
05042200 
05042300 
05042400 
05042500 
05050000 
05050100 
05050200 
05060000 
05060100 
03060200 
05060300 
05060400 
05060500 
05060600 
05060700 
05060600 
05060900 
05061000 
05061100 
05061200 
05061300 
05061400 
05061500 
05061600 
05061700 
05061800 


INX 3),(2810) LSS 7 THEN MET INX 3]),02310)8%732SM05061900 


05062000 
05062100 
05062200 
05062300 
05062400 
05062500 
05062600 
05062700 
05062800 
05062900 
05070000 
05070100 


L61 


BeLOQUERALIICCTCI3 
IF CT8HeDTRECTORYSEARCH 
BEGIN REPORTBACKCNOTIN 


BC3J)23)) LSS 64 THEN 


arm 


FORFOR? FORGETSPACECB)3 


NX18 
NX23 


L7s 


FORGETS 


 RETURNG 


LAST? 


GO TO FORGET} 
END3 
C*#TOQUERT(CTCI3 
IF €04].0982])%2 THEN 
BEGIN REPORTBACKCNOTX 0000); 
FORGETSPACECT)3 
PCDIRECTORYSEARCH(C *BL14)°B03)*13)sDEL)3 
GO TO FORFOR:3 
END3 
IF SECURITYCHECK(CB(14JeBL3}eBL24)+T)=0 THEN 
BEGIN REPORTBACKCSECURED?#000)3 
GO TO NX23 
ENDS 
ACLI,CFFI¢T3 
Te CCR I*BL7I+SPACEC30)3 
DISKWAITC*T, CCF] 2300CL10))3 
CeC&TC(CTCI3) 
FOR [3:31 STEP { UNTIL 4 DO 
IF CNOT ABSCCCIIROLCTC))>#NOT O THEN Ie73 
IF NOT I THEN 
BEGIN FORGETSPACECACII«¢CFFJ25 GO TO NXA1 END3 
FOR [#15 STEP 1 UNTIL 22 DO 
TF BCITJ#O THEN BCTIteCCLIJ OR BCIJ)3 
BE23]¢CCLOCK4+PCRTR)) DIV 603 
BC25)]+T, CFF]: 
BE26)*«LOGLINE? 
STREAMCA¢O8SeP(,.SCHEDULEI0NS) 93 
BEGIN S]«S3 
47CSKIP SBS SKIP DB? TALLYeTALLY413 
IF SB THEN BEGIN END ELSE JUMP OUT)3 
DOS#SET3 AeTALLY3 
ENDS 
l+P}3 
BC3J©081(8:38210)3 
FORKCPC,SELECTRUN) eALL) 9 "19196091);3 
GO TO FORGETS 
IF CT#ZDIRECTORYSEARCHCABSCAL1J])«*AL2]¢4)) LSS 64 THEN 
IF ACL1]<0 THEN GO TO FORGET ELSE GO TO RB13 
Be TOQUE&T(CTC]3 
[*BL4]3 
IF C8O02]¢a£3))<0 THEN [,£3626) 493 
BC4);#C(1 AND NOT MEMORY)3 
BISJ*AL4])} 
BL6J+AC5];3 
DISKWAITCT,£CCFJe305T, CFFI)3 
IF AC172<O THEN GO TO FORFORS3 
REPORTBACK( CHANGED 2020)3 
GO TO FORFORS 
T#alO]3 
FORGETAREACALO) C282) eA,CCFI)3 
GQ TO LAST} 
TealO)3 
QUEVENTCA,CCFIeCANDEMIXCALO],£25:8]))3 
INDIAN, CCF I¢T; 
END) 
INDIAN, CFF IJe©CINDIAN]} 


05080000 
05080100 
05080200 
05080300 
05080400 
035080500 
05080600 
05080700 
05080800 
05080900 
05081000 
05081100 
05081200 
05081300 
05081400 
05081500 
05081600 
05081700 
05081800 
03061900 
05082000 
05082100 
05082200 
05082309 
05082400 
05082500 
05082600 
05062700 
05082800 
05082900 
05083000 
05083100 
05083200 
05083300 
05083400 
05083500 
05083600 
05083700 
05083800 
05083900 
05090008 
05090100 
05090200 
05090300 
05090400 
05090500 
05090600 
05090700 
05090800 
05090900 
05091000 
05091100 
05100000 
05100100 
05100200 
05100300 
05100400 
05100500 
05100600 
05100700 


“DO FC BK BE BW BW Be OE BK BL BE BE BE JE BK BE JE BE BE BE DA BE BC BE BC DE BL BE DE BE 


MAGUS$ 


L2s 


KTLLCERCW) INX NOT 2)3 
END INDIAN BOY3 


FORMATS FOR PARAMETERS TO INDIAN GIRL 


L2 = LOG IN OR OUT 
ACL) = USER CODE 


AC2) & CHARGE CODE 


AC3] = 0 JF ONe 


AC4) = NUMBER OF SIXTIETHS OF SECONDS TIbL AUTO BYE 


L&@ = PAPER TAPE STARTER 


1 IF OFF 


ACi) = FIRST NAME OF PAPER TAPE FILE 


AC2] # USER CODE 


L9 = SCHEDULE I/P FILE REPOSITION 


ACL) = RECORD # OF WHERE WE WANT TO BEC™1=> EOF) 
LiO0s SCHEDULE I/P REQUEST =" NO PARAMETERS 


Lite SCHEDULE QUERY 


AC1) = FIRST NAME 3 ACI) 


AC2] = SECOND NAMEs Ala) 


Li3s STATUS OF RUNNING JOB 


ACLJeFIRST NAME OF JOB 3 


AC2)=SECOND NAME 


$ 
OF JOB: 


# UH WAN 


a> 
s> 
a> 
a> 
=> 
=> 


Wf wne © 


IP RECORD # LAST READ 
Li2% SCHEDULE TERMINATE ** SAME PARAMETERS & RETURN AS L114 


NOT FOUND 
NOT SCHEDULE TASK 
SCHEDULED 


RUNNING 
NONE 
ABORTED 


PROCESS TIME 


“1 


IF NOT RUNNING 

10 TIME 

AC3ISUSERCODE CAC3)eC1#11=1 IF COMPILING) 

$ CONTENTS OF R+27 (COMPILER) 
INDIANGIRL HELPS SATISFY CANDE"S NEEDS EVERY NOW AND THEN? 


LEAVING THE MORE ENERGETIC TASKS TQ INDIANBOY, 


ROCEDURE INDIANGIRLS 


BEGIN ARRAY AL®)+BL¥)*eCl*) 
REAL RCW240e] Teds 


i 


LABEL L2eLBoLOeLiLOeLitelLi2elide 


MAGUSe FORGET sLAST# RETURNe INFORMONLY® RUNING 
SWITCH WHATSESMAGUS #MAGUS*#L2eMAGUS + MAGUS »MAGUS*# MAGUS» 


MAGUSeLOoLOeLIOeLileLt2eb133 
WHILE INDIAN,(C3#15) NEQ O DO 


BEGIN AS®IOQUERINDIANE 3383 
LOGLINEMSACO). CFF IS 
GO TO WHATCALO), £8110 
DO UNTIL FALSES 
B 1® JOQUER&CSPACEC 30) 
11803 


115)3 
V3 
YECTCIA3 


IF CTI*LOGLINE + £4086)]) LEQ LMAX THEN 


BEGIN IF CIS*#SCHEDLINECTJ) OR TO THEN GO INFORMONLYS 


LONGCARRIAGECTI4203 


END3 


SYSDISKIOC3e*LOGLINE?B)3 


BCLJeIF AC3) THEN 0 ELSE ACI)5 


BC2J+CLOCKS 
BL3J+AL4)3 


SYSDISKIOCOse*LOGLINE + B)3 


INFORMONLY$ 


STREAMCX$=IF AL3) THEN * OFF ™" ELSE " ON “eo 


B)3 


BEGIN DSeLIT * "3 SION STeSi¢ts DSe7 CHR} 


SEseLOC XJ STHsST +3? OSteS CHR} 


DSt#3 DECI 


05100800 
05100900 
05210000 
05210100 
05210200 
05210300 
05210400 
05210500 
05210600 
05210700 
05210800 
05210900 
05211000 
05211100 
05211200 
05211300 
05211400 
05211500 
05211600 
05211700 
05211750 
05211800 
05211900 
05212000 
05212100 
05212200 
05212300 
05212400 
05212500 
05219000 
05219100 
05220000 
05220100 
05220200 
05220300 
05220350 
05220400 
05220500 
05221000 
05221100 
05221200 
05221300 
05221400 
05230000 
05230100 
05230200 
05230300 
05230400 
05230500 
05230600 
05230700 
05230800 
05230900 
05231000 
05231100 


N3eCA01)) 205231200 


05231300 
05231400 
05231500 
05231600 


BeDIs DleDI™33 DSe2 FILLS DIleB3 05231700 
SIeNE S]e#S]+83 05231600 
IF SC#"0" THEN 05231900 
BEGIN DSeLIT "C3 05232000 
SleSI+1) OS*7 CHR3 05232100 
DS*LIT")"3 05232200 
END3 05232300 
DSssLITte™; 05232400 
END3 05232500 
SPOUTITCBsAL 3.04781) x24 INOUTK)3 05232600 
IF I THEN 05232700 
FORKCP( .SCHEDIDLE) 9» (91) #0s16020)3 05232800 
FORGET# TealO]3 05232900 
FORGETAREACALOJ] ,€ 2:2) 2A,(CFI)3 05233000 
GO TO LASTS 05233100 
Lot 05240000 
Tee"M#Q0K Ae a1] 05240100 
TWXOUTCE TI CCF] e8e"OsLOGLINE D3 05240200 
STATABLECLOGLINE «C40: 8) ]85NABSCePCOUP))8OLC4s421)3 & PT&CE 05240300 
GO TO FORGET} 05240400 
LO4 %"GO TO RECORD™ FOR SCHED FILE. 05250000 
STATABLECT#®LOGLINE + £40883) DI ALEDUPS&03 BTURN OFF FOR A 05250100 
IF ACI) LSS O THEN ACL) I=MCSEQARRAYCT) INX 78]3 05250200 
SYSOISKIOC3e*TeBt=( LOQUERCGETAREACI )+19(CTCJ))3 05250300 
BOSIISMLSEQARRAYET) INX 37)8ACLICCTFIS SYSDISKIOCOe"T»B)3 05250400 
FORGETAREAC1*@B INX NOT 0)3 © 05250500 
FORKCP( ,SCHEDIDLE)*#T20216000)3 05250600 
GO TO FORGETS 05250700 
L103 BNOTIFY THAT C&E READY FOR SCHEDULE I/P 05260000 
IF CANDEINPUTREADY AND STATABLE[TS=LOGLINE.C4036])eDI ALEDUP 05260100 
THEN FORKCPC,SCHEDIO) »*T #0012501) 05260200 
ELSE SEQARRAY(T]8=NABS(#PC(DUP))3 05260300 
GO TO FORGET} 05260400 
Lilt %CHECK STATUS OF SCHEDULED TASK 05270000 
Li2t TERMINATE SCHEDULE TASK 05280000 
IF CTS*DIRECTORYSEARCHCALLJ®AL2)°5))50 THEN 05280100 
BEGIN AC1J3#=03 GO TO RETURNS END; 05280200 
L:4MCT+#6)3 Jt2M(1T44),03686)3 FORGETSPACECT)} 05280300 
IF CI] OR @77777) NEQ@ NOT O THEN 05280400 
BEGIN 05280500 
ACL] ael4C CUETYPEINFO)x3)40(J863)%4)3 % 63 = ABORTED 05280510 
GO RETURNS 05280520 
END} 05280530 
TSEDIRECTORYSEARCHC (CI INX "FILOOOO")&SYSNOL 2424216] )s*"SCHEDUL "24 ) 305280600 
IF TsO THEN 05280700 
BEGIN AL1]#*"43 GO TO RETURN END! 05280800 
IF T NEQ@ 1 THEN 05280900 
BEGIN IF ACO),(8810)812 THEN STHIS IS A TERMINATE 05281000 
IF NOTCMET4+6],£281]) THEN SNOT ALREADY "STOPPED" %09805281100 
BEGIN MCT+6)3#*#PCDUP) OR M3 %09805281200 
FORKCPC»SCHEDIDLE) 0120016000)3 05281300 
ENDS 05281400 
HEADERUNLOCKCC CL INX "FILOOOO")&SYSNOC 2484286) ) »"SCHEDUL"»T)3 05281500 
AC1]8*23 GO TO RETURN} 05281600 
ENDS 05281700 
ACLI]&¢833 AL2] 8803 052818600 
Jeeis 05281900 
bo 05282000 
BEGIN IF SCHEDLINECJ] THEN ELSE GO TO RETURN} 05282100 

IF NOT SCHENDCJ) THENSMAKE SURE NOT BEING TERMINATED 


05282200 


IF CCPEEMESEQARRAY[J1J1&860(8338110]),CCFIGTR 511 THEN 05282300 
IF CC70]=1,{(CF) THEN 05282400 
BEGIN IF NOTC(CE32J.0181]) THEN SLEEPCECE32))9*0)3 05282500 
CL32]4=ABS(#P(DUP))# 05282600 
$ SET OMIT = SHAREDISK 05282700 
LOCKDIRECTORYS 05282800 
$ POP OMIT 05282900 
DISKWAITC*CTISSPACE(30))2"30C(36))3 05283000 
IF (MET+7)85C037)"3) LSS O THEN MET+7J4=03 05283100 
DISKWAITCT#"300C(363)% FORGETSPACE(T)3 05283200 
$ SET OMIT © SHAREDISK 05283300 
UNLOCKDIRECTORY3 05283400 
$ POP OMIT 05283500 
CUE3Z]F=NABSCHPCDUP))3 AL2IE=CL77)3 05283600 
IF ACO],C8110)812 THEN STERMINATE 05283700 
BEGIN IF C(Tt®STATABLELJJ,MIXNR) GTR O THEN 05283800 
IF T NE@ CANDYINX THEN 05283900 » ao ee ee oh +, ens: 
BEGIN TERMINATECT&OLCCTFI)3 05284000 
HALTS NOPROCESSTOG!*NOPROCESSTOG#13 05284100 
END ELSE SHEETDIDDLER(Os™1eJ)3 05284200 
CO77]I=CL78]s BFORCE EOF ON I/P 05284300 
STREAMCTt®TS@SPACE(5))5 05284400 
DSt=26 LIT"**TASK TERMINATED BY USER#™3 05284500 
SCHEDIO(C26e1+T&JLCTFI)3 05284600 
FORGETSPACECT)3 05284700 
END$ 05284800 
GO TO RETURNS | 05284900 
END} 05285009 
END UNTIL CJsed¢1) GEQ LMAXS 05285100 
GO TO RETURN 05290000 
L131 % STATUS OF RUNNING JOB 05290100 
FOR I s® 1 STEP 1 UNTIL MIXMAX DO 05290200 _ 
IF JARCI**) NEQ O THEN 05290300 
BEGIN 05290408 
TABCNTCIIJS=TABCNTCIJ415 05290500 
IF (TtePUTORTAKECIeCJARC1201]91&810214781)90)) NEQ NOT O THEN 05290600 
IF CACLI¢€6#42) EQV T,£6842]) = NOT O THEN | 05290700 
IF CAL2),(6842) EQV PUTORTAKECI*(UARE1+1)30120)¢L6842])= 05290800 7 
NOT O THEN 05290909 
IF (AC3)e06442) EQV PUTORTAKECI®LUVE 1 +43] 0100) 966842])2 05291000 
NOT 0 THEN GO TO RUNING? 05291100 
TABCNTCIJS®TABCNTCII@13 05291200 
END} 05291300 
AL1]#==15 GO TO RETURNS 05291400 : 
RUNINGS 05291500 
ACL JEMPUTORTAKECI oC JARE 1 e3) J 9400) +PUTORTAKECI ® LPROCTIMELIJJ#1*0)3 05291600 
IF T@P2MIX THEN ALLI]#eC#PCDUP))+CLOCK+P(RTRIE 05291700 a - 
AC2)taPUTORTAKECT of JARCIe4 J) 9400)+PUTORTAKECIsLIOTIMELII}*190)3 05291800 
IF AC3} L181) THEN AC3IS=PUTORTAKECI + CPRTILIe@27)} 30100) 05291900 
TABCNTCI J #=TABCNTCIIJ@13 05292000 = 
GO TO RETURNS | 05292100 
RETURNS T#AlO}} 05300000 
QUEVENTCA,CCFJ eCANDEMIXCALOI,£2538]])3 05300100 ; ti ed 
LASTt INDIAN((C3815)¢T3 05300200 
ENDS 05300300 
KILLCCRCW) INX NOT 2)3 05300600, 
END INDIAN GIRLS 05300500 
PROCEDURE COMM153 % INDEPENDENT STARTER FOR CANDE 05407000 
BEGIN ARRAY AL*]+B(¥)3 , 05408000 oo ee Ne Benet ete te eet 


REAL RCWs"43 ; 05409000 


BOY: 


GIRLS 


END; 


REAL JeN3 
LABEL BOYsGIRL3 
SWITCH TYPR=BOYeBOYeGIRLeBOYeBOYsBOYrBOYe 
BOYeGIRLeGIRL»>GIRL*GIRL» GIRL» GIRL} 
Be TOQUE&RCWLEFITCI]3 
Ne (CRCWI,CCFITB LCF I733 
A*B&GETAREACN>4)(CTCI3 
ACOJ+C#PC OUP) I&BCLILCCTFI8BL2)58:38810)3 
FOR Tel STEP 1 UNTIL N DO 
ACI J+BC1+2]5 
GO TYPCBL2]]3 
IF INDIAN,CCFJ#0 THEN 
FORKCPC,ENDIANBOY 2000012801 )3 

MCINDIANGCFFI),CCFIeA3 
INDIAN,EFF I) eA3 
GO TO RETURNS 
IF CIRS®INDIAN.C3#15)) = O THEN 

BEGIN INDIAN,[3215)]4A3 

FORKCPCINDIANGIRL) 9020012801); 
END ELSE 
BEGIN WHILE CN&SMC1J,CCF J) NE@ O DO JseN3 
MCITJ,CCFJ ISAS 
END3 


PROCEDURE SYSDISKIOCIO*LINE®A)3 
VALUE I1QeLINEsA3 
ARRAY AC¥*]3 


REAL 


LOeLINE3 


BEGIN LABEL EXITeOUTS 


$ SET OMIT & 


$ POP OMIT 


outs 
$ SET OM]T s 


OWN REAL X3 

REAL [eJeTs 

LINE*®"255 AND LINES 

IF SYSDISKADR#0 THEN 
BEGIN Afiji¢0% GO TO EXIT END; 

IF LINESO AND JQ THEN 

BEGIN SLEEPCCTOGLE J eSYSDISKMASK)3 
LOCKTOGCSYSDISKMASK);$ 
Xt=SPACE(30)3 

ENDS 

JF LINE GTR STATIONMAX THEN 
BEGIN ACOJ*ACI1J©03 GO TO OUT END} 

TeC*CT*ABSCLINE) DIV SYSDISKRPB)xSYSDISKRPB+ABSC(LINE) )x 
SYSDISKRL3 

TeSYSDISKADReT3 

IF ABS(CJeMEX"1])4T THEN 

BEGIN IF J<O THEN DISKWAITCXs 30° ABS(J))3 
DISKWAITC 7X» 307 T)3 

NOTCSTATISTICS) 
IF J LSS O THEN COUNTUP(2301)3 COUNTUP(2351)3 


JeT3 
ENDS 
IF NOT 10 THEN JeNABS(J)32 
MOVECSYSDISKRLeX+]} >PCAeTF 10 THEN P ELSE PCXCH)))5 
MUXPijeJ3 
IF LINE.C1#4) AND 10 « 2 THEN 
BEGIN IF (JeM(CX"1))<0 THEN 

DISKWAIT(Xs 309 "J)3 

NOTCSTATISTICS) 

IF J LSS O THEN COUNTUP(2381)3 


05410000 
05410100 
05410200 
05410300 
05411000 
05412000 
05413000 
05414000 
05415000 
05416000 
05416100 
05417000 
05418000 
05419000 
05420000 
05421000 
05421100 
05421200 
05421300 
05421400 
05421500 
05421600 
05421700 
05422000 
05423000 
05424000 
05425000 
05426000 
05427000 
05428000 
05429000 
05430000 
05431000 
05432000 
05433000 
05434000 
05435000 
05436000 
05437000 
03438000 
05438100 
05439000 
05440000 
05441000 
05442000 
05443000 
05444000 
05444099 
05444100 
05444101 
05445000 
05446000 
05447000 
05448000 
05450000 
05451000 
05452000 
05453000 
05453099 
05453100 


$ POP OMIT 


END3 
EXITREND3 
PROCEDURE LOGWARN( 
BEGIN REAL 
DEFIN 


IF RC 
BEGIN 
STREA 
BEGIN 


END3 

SPQUT 
END3 

IF RC 
IF Rs 
IF RC 
BEGIN 


END3 
KILL 
END3 
COMMENT THE FOLLOW 
DEFINE 
SPIN 
BOJK 
EQUK 
PBEOJ 
OPENK 
CLOSE 
HAL TK 
EOUST 


UNLOCKTOGCSYSDISKMASK)3 
FORGE TSPACECX)3 
XQ} 


RC)$ VALUE RC3 REAL RC? 
TeV3 

E I[OSLOGARRAY( 31] #.e 
DELTASLOGARRAY(C 32] 4» 
NSLOGARRAY(33]#> 
SFLOGARRAY(L 34) 8» 
ReLOGARRAY{LI35]&s 
H®ELOGARRAY{ 36J#3 

#0 THEN 


MCBSSRCBLGeMIBSXRCeTISTS@SPACE(10))3 
OS*5 LIT "#4LOG "3 
STse#LOc MS DOSt#3 DEC DlieD1"33 DStze2 FILL? 
DIteTs OLtFD]+8s HNSt=6 LIT™S FULL"; 
BCOS* 9 LIT "CAUTO LND*)) 
DSeLIT*«#"3 


(T)3 


=19 THEN LOGOUT ELSE 


O THEN % GET A ROW UNDER NO 
LSS 20 THEN ® USER DISK CONDITIONS, 


STREAMCT&=TiaSPACEC(10))3 

0St=30 LIT"#NO USER OISK FOR NEW LOG ROWe"S 
SPOUTCT)} 

TESGETUSERDISK(S82[184612))3 

IF NOT DELTAsf131) THEN SLEEPCIDELTAJ+e=0)3 
DELTAS #"DELTA3 

ReeTuNny 

SLEEPCLIOJ*» TOMASK)3 

MEVi=SPACE(30)] 8 NOT QO3 

DISKWAITCVeteT)3 

DISKWAITC#Vs 300H)3 

MCV INX RC INX 10]498T3 

MOV INX 7] S3CM(V INX 9)]aeCH#PC DUP) )+1)xSx39"43 
DISKWAITCV2309H)$ 

DELTASS"DELTA3 

STREAMCTS#TIseSPACE(10))3 

OSte9 LIT*#*LOG OKe"™3 

SPOUTCT)3 


ERC] INX NOT 1)3 
ING DEFINES GIVE THE TYPE NUMBER FOR LOGGING3 


= 28s 
= Ud» 
= 68s 
K = BF» 
B10#e 
K B12. 
R158, 
ATS =168#> 


05453101 
05454000 
05455000 
05456000 
05457000 
05460000 
05461000 
05462000 
05462100 
05462200 
05462300 
05462400 
05462500 
05462600 
05463000 
05463500 
05464000 
05465000 
05466000 
05467000 
05468000 
05469000 
05470000 
05471000 
05471050 
05471100 
05471150 
05471200 
05471225 
05471250 
05471300 
05471350 
05471400 
05471450 
05471500 
05471550 
05471600 
05471650 
05471700 
05471750 
05471800 
05471850 
05471900 
05471950 
05472000 
05472050 
05472100 
05472150 
05472500 
05473000 
05499000 
05500000 
05501000 
05502000 
05503000 
05504000 
05505000 
05506000 


05507000 


05508000 


INQOUTK =21ts ( SEE 04801100 ) 05510000 

e22 05511000 

CHRGK B24E» 05512000 
DISKLOGGER®26#» 05513000 

DATEK =298» 05514000 

TIMEK S31#» 05515000 

CNTRLCARD 332#>» 05515100 

HROWREK = 35#+ &TYPE 17+HARDWARE FAIL eMESSAGES %R6405517000 

OCM # 36%, % OPERATOR COMMENT ( TYPE 18 ) 05517100 

PKTK e512#» 2 FOR LBMESS AND FILEMESS 05517200 

S$ SET OMIT = NOTCSTATISTICS) 05518999 
SYSTATS = 39#>s 05519000 

$ POP OMIT 05519001 
PBCCARD = AO#? 05520000 

QXK =O9RS 05599000 

PROCEDURE FORMTIMECW*T)3 VALUE WeTs REAL WeT$ 05607000 
BEGIN INTEGER SoM} 05608000 
Te(T+60) DIV 603 05609000 

S«T MOD 603 95610000° 

TeT DIV 603 05611000 

M+T MOD 603 05612000 

TeT DIV 603 05613000 
STREAMCT»MsSeWe(W])3 05614000 

BEGIN SIT*LOC Ti ODS*2 DEC3 05615000 

2CDSeLIT "8%3 DS#2 DEC)s 05616000 

DieWs DSe7 FILLE 05617000 

END3 05618000 

END$ 05619000 
PROCEDURE MAKELOGCMESS+TYPE)3 05620000 
VALUE MESSo TYPES 05621000 

REAL MESSeTYPES 05622000 

BEGIN ARRAY A®LOGARRAY[*]3 05623000 

DEFINE ITO@AC31] #e 05624000 

DELTASAL32) #» 05625000 

N®AL33] be 05626000 

S*AC34]#. 05627000 

REAL 35] #. 05626000 

HAL 36) #3 05629000 

REAL T3 05630000 

IF C*DELTAD,C181) THEN SLEEPCCDELTAJ*#*0)3 05631000 
DELTA*™DELTAS 05631500 

IF €10 AND TOMASK)=0 THEN SLEEPCLIOJ*+ 1OMASK)3 05632000 

MOVEC9»MESS INX fo fACDELTA+1I))3 05634000 
ACDELTAJ*XCLOCK&PIMIX(2S43tSIRCLOGLINE,C3387)40)(794731)3& 05636000 
LOGLINECSs4OrBJaTYPEL 16284038); 05637000 

IF (CDELTA*+DELTA4¢10)#30 THEN 05638000 

IF R#0 THEN 05638500 

BEGIN T * (Ne*N#1) MOD S * O03 05639000 

10«03 05639500 

$ SET OMIT ® NOTCSTATISTICS) 05639899 
F COUNTUP(2491)3 05639900 

$ POP OMIT 05639901 
DISKIOCIO*ASCCFIT1e SI" Te R+eNw1)3 05640000 

IF T THEN 05641000 

BEGIN IF C(CT#®N DIV S) GE@ 20 THEN Rt*0 ELSE 05641500 

IF CRE®PETUSEROISK(O"Ss1))#0 THEN 05642000 

BEGIN RtsRen3 05642500 

SLEEPC CIO)» TOMASK)3 05643000 

DISKWAITCA INX 30%142R4N)3 ZMARK ROW %L0605643500 


FILESTATS 3188. 


05509000 


DISKWAITCPA,CCE J ®30°H)3 05644000 

ACT+#10]8=R+N3 05646000 

ACTIISCALCI] SFC *#PCDUP) )41)%Sx3"13 %L0605646500 

DISKWAITCA,CCF)*30°H)3 05648000 

END} 05648500 

FORKCPC ,LOGWARN) o Te™1012801)5 05649000 

END3 05650000 

DELTA+O3 05651000 

END ELSE DELTA#*20}3 05652000 
DELTA**DELTAS 05653000 

END} 05654000 
PROCEDURE STARTCANDYCESEDsPRIORITY)3 05655000 
REAL PRIORITY*ESED3 05656000 

BEGIN REAL MIX=PIMIXsT3 05657000 

REAL I 05657100 

LABEL NOFILEsEXITS 05657200 

ARRAY ACel»s BL*]3 05658000 

IF CANDYINX#0 THEN ESEDe1 ELSE 05659000 

BEGIN 05660000 

A $@ JOQUE&GETAREACO)C(CTCI3 05660050 

IF BASEDISKADR®0 THEN 05660100 

BEGIN [s#"TANK bs 05660110 

$ SET OMIT © NOTCSHAREDISK) 05660119 
RCSYSNO4F17)0£3034236) 05660120 

$ POP OMIT 05660121 
3 GO TO NOFILE3 05660130 

END? 05660140 

IF CTISDIRECTORYSEARCHCIT&="MESAGE "»"CANDE %3)) GE@ 64 05660150 

THEN BEGIN Af2]ts 05660200 

(MCT4+10))3 05660240 

FORGETSPACECT)3 05660260 

END ELSE GO TO NOFILES 05660280 

$ SET OMIT s&s NOTCSHAREDISK) 05660282 
AC2]:3(#P( DUP) &SYSNO[L284632)3 05660284 

$ POP OMIT 05660285 
IF CTSFDIRECTORYSEARCHCIO2"USERS “s"CANDE “s3)) GEG 64 05660300 

THEN BEGIN 05660400 
AC2])¢=Ar2)&8T05%18215)]3% OSK ADRS OF HEADER (SM) 05660410 
DISKWAITC™T.CCF]e30eMET INX 10))3 & SEGMENT ZERO (5M)05660420 

AC4]teMET INX 2])3 % ACCESS DATE CSM) 05660430 

FORGETSPACECT)# & (SM) 05660440 

END ELSE BEGIN &% (SM) 05660450 

NOF ILE! STREAMC Le T8eTieSPACE(5))3 05660500 
BEGIN DS 8 LITM#"3 05660550 

St se LOC Ts SIT &% SY+1s OS 1% 7 CHR} 05660600 

DS #2 17 LIT*FILE NOT ON DISKe"$ 05660700 

END} 05660800 
FORGETAREACO*A,(CFJ)3 05660850 

SPOUTCT)3 ESED s= 13 GO TO EXIT} 05660900 

ENOS 05660950 

PRIORITY*#03 05661000 
EVENTCMIXJ*O&CEVENTCMIXIJIJCCTFI3 05662000 

ACOJ]*C#PC(C OUP) A561684127)3 05664000 
AC1J*BASEDISKADR} 05665000 

IF CT&SDIRECTORYSEARCHC™TANK w 05665010 

$ SET OMIT = NOTCSHAREDI SK) 05665014 
RCSYSNO4¥17)03084216) 05665015 

$ POP OMIT 05665016 
o"O1SK "24)) GEQ 64 THEN ACL3I)98T CFF) 05665020 

ELSE 05665025 


BEGIN B t= JOQUERCT :% SPACEC 30D) CCTCI3 
MOVEC305 Tele T)s BO) ts ®00036000360001013 
STREAMCDATEsTIsT+3)3 
BEGIN SIt#LOc DATES OStw6B OCT} 

DIseTs DSte2 LIT "O13 

END STREAMINGS 
BC4laewecOai(9s 47218 SYSNO(424632]) OR MEMORY! 
Bl2] 18 MCP$ B(9)] t& 203 
BES) :* TANKCHUNKS!IZE BL£10] 8* BASEDISKADR3 
ACS] 2:2" EUR C™™"TANK _ 


$ SET OMIT ® NOTCSHAREDISK) 


&CSYSNO4+17)(£3024236) 


$ POP OMIT 


e"DISK ",T?1)3 
END BUILD NEW TANK FILE? 
DISKWAITC#Te%3000)3 
MCT#4)]asD1SKBOTTOMs23 
DISKWAITCT.=3020)3 
FORGETSPACFEC(T)3 
QUEVENTCA, LCF J] eMIX)3 
A*ARSPACECSYSDISKRLICCTCI3 
FOR ~t80 STEP 1 UNTIL STATIONMAX41 DO 
BEGIN SYSDISKIOCLel#A)3 
IF ALOY.DIALEDUP THEN 
IF SCHCA) THEN 
BEGIN STATABLELC1J],DOIALEDUP:=03 
SFEQARRAYCII,CRFI3#13 
FORKCPC ,SCHEDIDLE ) #1 20216020) 
END ELSE 
IF AL1] NEQ@ MCP THEN &% TELL CANDE, 
BEGIN TeGETAREACO)3 
METI©OR9(1LEs4Ls7I&TC25%4088)3 


® FIND IT 


MCT+#1J9RAL1IS MET+2) 2eSTATABLELII,STATIONTYPES 
% 40805684500 


IF AC1]®=0 THEN MET),CISs7I) 8813 
QUEVENTCT#MIX)3 
END3 
ENDS 
FORGETSPACECADS 
IF EVENTLOJ,CCFI#O THEN 
BEGIN MCEVENTEMIXI] (CFF IJJe(CF) © EVENT(O]3 
EVENTCMIXI-CFRFI*EVENTCOJ,CFF)3 
EVENTLOJ*O&8CEVENTLCOJICCTFJS 
ENDS 
DATECANDYINXt@MIX],NDSABLE $= 13 
FOR It*1 STEP 1 UNTIL STATIONMAX 00 
IF STATABLECIJ eCANDEFLAG THEN 
IF STATABLELI],MIXNR#O THEN STATABLELIJ] MIXNREAMIXS 
END} 


EXIT8 


END: 


PROCEDURE STOPCANDY3 


BEGIN REAL MIXePIMIXeT3 
BSTREAMCT * T © SPACEC10))3 
DS « 40 LIT “**#CANDE ERROR ** PLEASE TAKE QUMPs ETC,+* 
SPOUTC(T)#$ HALTS COMPLEXSLEEPC™1L002NUMESS) 5 
DO UNTIL KEYINCO)3 NOPROCESSTOG © NOPROCESSTOG@13 
FOR Ti*i STEP 1 UNTIL STATIONMAX DO 
IF STATABLECTJ »CANDEFLAG THEN 
IF STATABLEC TJ »MIXNR#MIX THEN Been Ney 
CANDYINX*LOGLINE*03 


% PUT ADDRESS OF BYPASS IN 
® SEGMENT O WHERE CANDE CAN 


05665030 
05665040 
05665050 
05665060 
05665070 
05665080 
05665090 
05665100 
05665110 
05665120 
05665121 
05665122 
05665123 
05665125 
05665140 
05665200 
05665300 
05665400 
05665500 
05666000 
05677000 
05679000 
05680000 
05680900 
05680950 
05660952 
05680953 
05680955 
05680960 


%’ 40805681000 


05682000 
05683000 
05684000 


05685000 
05666000 
05687000 
05688000 
05689000 
05690000 
05691000 
05692000 
05693000 
05694000 
05695000 
05696000 
05697000 
05698000 
05698500 
05699000 
05700000 
05701000 
05701100 
05701200 
05701300 
05701400 
05702000 
05703000 
05704000 
05705000 


IF EVENTEMIXJ,£LCFI#0 THEN 
EVENTLOJ*EVENTEMIX]S 
IF CTISDIRECTORYSEARCHC"TANK sa 


$ SET OMIT » NOTCSHAREDISK) 


&CSYSN0417)(30184216) 


$ POP OMIT 


»"DISK 514))#0 THEN FORGETSPACE(T)3 
IF CT §% DIRECTORYSEARCH("MESAGE "» “CANDE "es 13))#0 
THEN FORGETSPACE(T)3 
IF CT &*® DIRECTORYSEARCH("USERS "se "CANDE “se 13))#0 
THEN FORGETSPACE(T)3 
END3 


PROCEDURE SPREADTHEWORD3 BUPDATES ADINFO & SENOS H/L MESSAGE TO 


BEGIN 


LINES MARKED DJALUP 


LABEL NODISKsSPOUTERR»NOSYSDISK3 

REAL LeJdoKelLeNe Bo Te GARBAGES 

ARRAY AL#*]3 
$ SET OMIT & TWXONLY 

SUBROUTINE SETNAOG? SEQARRAYC II] .CL26:6]8=N3eNe13 
$ POP OMIT 


Bte*SPACEC10)3 
Nesend3 
IF SYSOISKADR#0 THEN 
BEGIN STREAMC(CS8SSYSNO¢179B)3 
BEGIN DS#218 LIT***NO SYSTEM DISKe"3 


$ SET OMIT = NOTCSHAREDISK) 


SISeLOC SsSTesSl+7sDLteDI e732 0St2CHRSE 


$ POP OMIT 


END} 
GO TO SPOUTERRS 
END} 
IF NOT PCRRR)eC1751) THEN 
BEGINS STREAM(B)S 
DS «© 16 LIT™**0TC NOT READY#"3 
GO TO SPOUTERR} 
END} 
IF PROGTANK®O THEN 
IF (PROGTANKtaGETUSERDISK(CSTATIONMAX#1)XCLUMPSIZE OR 
MEMORY)) = O THEN GO TO NODISKS 
IF TANKADDRESS#O THEN 
IF CTANKADDRESSI®GETUSERDISK(CSTATIONMAX#1)xXGLOMSIZE OR 
MEMORY)) = O THEN GO TO NODISK} 
IF BASEDISKADR=20 THEN 


IF (BASEDISKADR&S3GETUSERDISK(™TANKCHUNKSIZE OR MEMORY))®0 THEN 


BEGIN 
NODISKs STREAM(B)3 
DSi*33 LIT"*"NO USER DISK FOR DATACOM TANKSe"3 
SPOUTERRS SPOUTCB)3 


GO TO NOSYSDISK3 
END; 


$ SET OMIT # NOT SEPTICTANK 


COMMENT REMOVE THIS CARD TO GET SEPTIC AT EACH INITIALIZATION 


RUNSEPTICCO)3 


$ POP OMIT 


LOREQUESTCOsINTERROGATEMASK 2083001234236) )3 

A $® (MCSPACECSYSDISKRL)J) & SYSDISKRL(8!38:10)3 
SYSDISKIOCL*O0A)3 

SPOWORDS AL 3)3 

STREAM(B)3 

BEGIN 


05706000 
05707000 
05710000 
05710099 
05710100 
05710101 
05711000 
05712000 
05713000 
05714000 
05715000 
05719000 
05720000 
05721000 
05721100 
05722000 
05723000 
05723049 
05723050 
05723051 
05723100 
05723150 
05723200 
05723300 
05723310 
05723319 
05723320 
05723321 
05723350 
05723360 
05723400 
05723420 
05723450 
05723500 
05723520 
05723540 
05723560 
05723580 
05723600 
05723620 
05723640 
05723660 
05723680 
05723700 
05723720 
05723740 
05723760 
05723800 
05723900 
05723950 
05723959 
05723960 
05723970 
05723971 
05723990 
05724009 
05724100 
05724400 
05725000 
05726000 


EN 
FO 
BE 


$ SET OMIT 


POP OMIT 


EN 
SY 
IF 
CO 
RE 
SET OMIT 
ST 
POP OMIT 
FO 
BE 
SET OMIT 


POP OMIT 


DS8B19 LIT “=xFtPeateL sat Otuke phages 
DSt=28 LIT "RESTARTINGs es ePhEASE WALT#E@He"§ 
03 
R [ts41 STEP 4 UNTIL STATIONMAX DO 
GIN 
SYSDISK]OCLelTeAd3 
IF SCHCA) THEN 
BEGIN STATABLECT##[JteOg1C4s47epaili6s4a7si)3 
LEINETABLECTI#eAC4)a1f2:4781)3 
IF ACLOJ,DIALEDUP THEN 
IF ACL2],£6818] NE@ “FIL® THEN 
BEGIN ALO), NIALEDUPSs03 SYSDISK]OCO*e] eA) END} 
END 
ELSE BEGIN 
TANKSEIIU,Cist)aets 
INPUTANKE I ]:3"@100003 


STATABLELT)##0&AL0106108108338301584612)8AL0JL258218) 


BCCANDEMIXLII+32) 0484246) 
JF I LE@ LMAX THEN # LOCK IT TO GARBAGE 


05726100 
05726200 
05726300 
05727000 
05728000 
03729000 
05729010 
05729020 
05729025 
05729030 
05729040 
05729050 
05729060 
05729070 
05731100 
05731200 
05731300 
05731400 
05731500 


LINETABLECTIPFNABSCAL4) &IDLL 2114335) 8 (GARBAGE I(CTC 3305731550 


m TWXONLY 
IF CUSPSTATABLECIJU,STATIONTYPE)#TWX THEN 
BEGIN 
SEQARRAYCTIMFOSALOILI28 34¢14)RAlLOI (651733) 
&1(040240:8);3 
IF J THEN ® SCREEN DEVICE 
BEGIN SETNAOG} 
TNAOG(N] Itsy F [TSABSC(CSPOWORD) THEN QO 
ELSE 08AC0)(6149820814)3 
END ELSE 
IF JsTC500 THEN SETNAOG} 
IF I LE@ LMAX THEN 
IF LINEFOISCL I IJ®MULTIPOINT THEN 
SEQARRAYECIJeLINELINKS SI ELSE ELSE 
IF CJs8A00],02:8))#0 THEN 
BEGIN LizJ) 


DO JHESEQARRAY( KISS) ,LINELINK UNTIL Jabs 


SEQARRAY(K) eLINELINKI&] 5 
SEQARRAY{ II sLINELINKIsL3 
END END3 


ALO] .DIALEDUPI313 

AC2)403 

SYSDISKIOCOsT»A)3 
END} 
03 
SDISKIOCL+STATIONMAX4#1¢A)3 
UNIT£30]2.£1692) # 0 THEN 
MPLEXSLEEPCUNIT(30],(1632]50)3 
MOTE « 13 
@ NOTCSAVERESULTS OR DEBUGGING) 
ORAWAYt#NOT FALSE3 


R 1:*T+1 STEP 4 UNTIL STATIONMAX DO 
GIN 
= TWXONLY 

IF | LE@ LMAX THEN 


IF BLASTREADC 


Ie1) THEN 
TWXOUT(Bs 6001830184 


184622) e193 


05731599 
05731600 
05731700 
05731800 
05731850 
05731900 
05732000 
05732100 
05732150 
05732200 
05732300 
05732400 
05732450 
05732500 
05732600 
05732700 
05732600 
05732900 
05733000 
05733100 
05733101 
05733200 
05734100 
05734200 
05734900 
05735000 
05736000 
05736200 
05736400 
05737000 
05737099 
05737100 
05737104 
05738000 
05740000 
05740099 
05740100 
05740101 
05742000 
05743000 


ENDS 05744000 
FORGETSPACECA)3 05745000 
FORGETSPACE(B)3 05746000 
NOSYSDISK#! 05746500 
END SPREADTHEWOROS 05747000 
PROCEDURE COMM{73 05750000 
BEGIN REAL Ts 05750500 

REAL Le@7,Us"6s.Cee533 05751000 

STREAMC(LOL £4088) Cals TeT#SPACE(10))3 05751500 

BEGIN DSte5 LIT"SHORT*S CCDI¢eDI753 DSte4 LITLONG") 1 05752000 

DSt#14 LIT” CARRIAGE FOR "3 05752100 

SI*#LOC US SleSI413 DS*7 CHRS 05752500 

DS*4 LIT " ON "3 05753000 

SIeLOC Ls DS*2 DEC! 05753500 

DSt*LIT LEFTARROWS 05754000 

END STREAM} 05754500 
LONGCARRIAGECLI8=C! 05755000 

LOGLINE « L OR 5123 05756000 
SPOUTITCT»CHRGK#1)3 05756500 

GO TO RETURNS 05757000 

END} 05757500 
BOOLEAN PROCEDURE BLASTREAD(LINE?C)5 05758000 
VALUE LINEeC3 05758500 
REAL LINEsCS 05759000 
BEGIN 05759500 
REAL ReT$ LABEL EX3 05760000 
DEFINE BLAM # Cyl47si}#e %&% CLEAR THE LINEr LEAVING IT IDLEe 05761000 
LOCK © Cel46ti]#e %& THE LINE NEEDS TO BE LOCKED. 05761100 

IDLE = Cyl4531)#e % WAIT FOR AN IDLE STATUS, 05761200 

CLEAR = Col44t1)#!  % DISCONNECT THE LINE, 05761300 

IF LINE>LMAX THEN PCO*RTN)S 05761900 
TISSPACECI5)3 05762000 

IF BLAM THEN 05762500 

BEGIN IF NOT LOCK THEN ¥ ALREADY LOCKEDe SET ADDRESS 05763000 
LINETABLECLINEJ2&(#PCDUP) @LRILCTCIS 05763100 

$ SET OMIT & TWXONLY 05763499 
IF STATABLELLINEJ ¢STATIONTYPESTWX THEN 05763500 

$ POP OMIT 05763501 
BEGIN STREAMCTIET#+1)95 DSIR3 LIT S#e"5 05764000 

METI¢=03 05764500 
DCWAITCT®LINE*ReCe60)3 % NOTE THAT Col4741] IS SET,05764600 

IF R = 0 THEN %NO RESPONSE ™ DISCONNECT 05764700 

BEGIN FORK(PC,QUITTER) #LINE&LINELCTF J9%299601)3 05764800 

IF CANDYINX NEO O THEN 05764850 

BEGIN MCRIBGETAREACO) Je LFF J#sRQOL 3384107 I3 05764860 

QUEVENTCR*#CANDYINX) 3 05764870 

END} 05764880 

LINETABLELLINE ]3SABS(*PC(DUP))&DISCON[21#4335] 05764900 

8OLCTC}# SUNLOCK LINE 05765000 

STATABLELLINE J e[1631]4803 SET DISCONNECTING 05765100 

GO TO EX} 05765200 

ENDS 05765300 

—$ SET OMIT & TWXONLY 05765499 
END ELSE 05765508 

BEGIN METIssOR1C58478193 05765550 
OCWAITCT»®LINE+ReC AND @7600)3 05765600 

IF RefCFI#O AND Rel2617)#0 THEN 05765620 

BEGIN RteO3 05765640 

CLICK SRCLOCKS¢PCRTR) 41203 05765660 

SLEEP(ER)#*0)3 05765680 


$ POP 


$ SET 


$ POP 
$ SET 


$ POP 


EX! 
DEFINE 


$ SET OMIT = NOTCSHAREDISK ) 


OMIT 


OMIT s& 


OMIT 
OMIT & 


OMIT 


END} 


IF CLEAR OR (Ro03081] AND 


ENDS 


MCTI¢7OR1(CG:4781)3 


END} 


IF R,C27%1) THEN 


BEGIN MCT]2303 
MOET#2i J] 06@12741237000000003 & "##4e" 
DCWAITCT*LINE®Ro lel 803 


ENDs 


# WRITE READY 


DCWAITCT®LINE®ReOr0)$ 
TWXONLY 
DCWAITCToLINE® Ro ITF LINEDISCCUINEJSCONTENTION 
THEN O ELSE *"0°0)3 

IF LEINEDISCCLINEJECONTENTJON THEN 

BEGIN STREAMCTS5T41)3 DSte2 LIT “Se%3 


END3 


MCTJ]2s03 


DCWAITCTeLINE rt Re ™1260)3 


NOTCTWXONLY) 
DCWAITCT®LINE ®Re™020)3 


IF R®0 OR (R.L2782)#0 AND NOT R,C30%1]) THEN GO TO EX3 


BEGIN STREAMCT)3 
DStw29 LIT*@*#PLEASE CALL BACK LATER#=*$"} 
TWXOUTCT #29 e"O0eLINEDS 


END} 


BLASTREADSETRUES 
FORGETSPACE(T)$ 
END BLASTREADS 


MAXSIZEC1820)]#,» 
SPEED & [2343] #, 
EUNP @ C218.) He 
STARTWRDFL 26312) 4» 
NUMENTS( 36310) #e 
DSIZE*( 212018» 
DEND®(22326] #2 
TOSI ZE#B83 388108, 
EVIOFFSET#4 #, 


SWAPEND#0) THEN 


TOMAXS1Z21328:20#8, 
TOSPEEDS 23845338» 
TOEUNP = 218473148» 
TOSTARTWRD®2613 3638128» 
TONUMENT=382 3811080 NUMENTM#1023@> 
TODSIZER21283 2088 
TODENDF228223 2688 
NEUFEC1S8215)#e 
2 ONE WORD FOR EACH [70 CHANNEL, 


AVDIFFMIN®15#s AVDIFFMAXS50#- & AVDIFFMAX GTR AVODIFFMIN GTR 14, 
AVTMAX#3900#, % MAX # WORDS ALLOWED FOR AVAILABLE TABLE ON DISK, 
® 1S REFLECTED IN USERDISKBOTTOM & DISKAVAILTABLEMAX05780505 


AVSMINS9O #e AVSMAXR300#, 


05765700 
05765710 
05765720 
05765730 
05765740 
05765750 
05765771 
05765600 
05765900 
05766000 
05766099 
05766100 
05766200 
05766300 
05766400 
05766500 
05766600 
05766700 
05766701 
05766799 
05766800 
05766801 
05766900 
05767000 
05767500 
05768000 
05768500 
05769000 
03769500 
05769750 
05770000 
05770500 
05780000 
057800190 
05780020 
05780025 
05780030 
05780040 
05780100 
057680200 
05760300 
05780310 
05780400 
05780500 


% MIN AND MAX # WORDS TO READ IN @ 1 T]M05760600 


% 
% 


AVSMAX GTR AVSMIN GTR 85, 
BOTH MUST BE MULTIPLES OF 30, 


FIXARRAYCFIXARRAY1 oF TXARRAY2 oF [XARRAY3) @FIXARRAYI* CME FI XARRAY2¢ 
SPACECFIXARRAY3) JJ&FIXARRAYI( TOSI ZE #5 


05780605 
05780610 
05780700 
05780800 
05800000 


Z START OF SHAREDISK DISK FILE MAINTAINANCE DECLATATIONS #40880 0ee 0484 04%05900200 


x 
DEFINE 


SLINK 
TOSLINK 


SNUM 
TOSNUM 


= (1497) 
ae | 


$31447 


= (1695) 


1634355 


#, 
#, 


#, 
#s 


% 
% 
Z 
3% 
3 
% 
% 


05600300 


z SCRATCH LINK, SCRATCHVECTOREII],SLINK05800400 


1S DISK ADDRESS OF JeTH SCRATCHSEG, 

AND SCRATCHSEGLO],SLINK OF THE [*TH 

SCRATCHSEG 18 DISK ADDRESS OF J4t%°TH 
SCRATCHSEG, 

=« SCRATCH NUMBER, SCRATCHVECTOREI), 

SNUM IS NUMBER OF ENTRIES [IN ITH 


05800500 
05800600 
05800700 
05600800 
05800900 
05801000 


SCRATCHSEGs AND SCRATCHSEGLO),SNUM 1S 05801100 
NUMBER OF ENTRIES IN SCRATCHSEG, 05801200 
= SCRATCH ROW ADDRESSe SCRATCHSEG(J), 05801300 
SRADDR 1S DISK ADDRESS OF A SCRATCHROW05801400 
= SCRATCH HIGH ADDRESS.» SCRATCHVECTOR 05801500 
[1]2eSHADDR 1S t+#MAX DISK ADDRESS OF 05801600 
THE DISK ADDRESSES IN THE ENTRIES JIN 05801700 
THE I*TH SCRATCHSEGe JI,E_ SCRATCHVECT"05801800 
ORCI), SHADDR*MAXC(SCRATCHSEGL1),SRADDR+05801900 
SCRATCHSEGL1),SLENGTH? 9 eee SCRATCHSEGLNO5802000 
J SRADDR+SCRATCHSEGEIN] sSLENGTH), 05602100 
= SCRATCH LENGTHse SCRATCHSEG(JI, 05802200 
SLENGTH IS # SEGMENTS IN THE SCRATCH 05802300 
ROW ADDRESSED BY SCRATCHSEG( J) »SRADDR,058024Q0 
= SCRATCHVECTOR SIZE« SCRATCHVECTOR(0J05602500 
»SSIZE 1S THE NUMBER VF SCRATCH VECTOR05802600 
DOPE ENTRIES, 05602700 


SRADOR #® [23:25] te 
TOSRADDR = 23323:25 &e 
SHADOR * (23325) #e 
TOSHADDR = 23423125 #» 


SLENGTH® (3420) a; 
TOSLENGTHs 3328:20 #, 


SSIZE = [16810] #» 
TOSSIZE = 18438310 be 


Bl Be a Bl BL BE BC BE BE SC BC BR BO BC HE BC SE BC BE BE BE BS BE BE BE BC BE Bc 


MEIXFL = [986] #, MIX*"INDEX FIELD OF 1°5T LINK CIN*USE),905803300 

SUPERSCRATCHMAX # 510 #e MAX SIZE"1 ALLOWED FOR SCRKATCHVECTOR, 058603400 

SCRATCHMIN = 19 He = LOWER BOUND FOR DELETION CONSOLIDATE05803500 

SCRATCHMAX = 11 te = UPPER BOUND FOR ADDITION CONSOLIDATE05803600 

SCRATCHDOWN = 144 t, THESE THREE DEFINES ARE USED IN DET= 05803700 

SCRATCHOFF = 9 #, ERMINING WHEN TO ADJUST THE SCRATCH= 05803800 

SCRATCHUP = 5 ¥s VECS SIZE TO REFLECT ITS ACTUAL NUMBEROS803900 

OF ENTRIES, NOTE THAT SCRATCHDOWN MUST05604000 

BE GREATER THAN SCRATCHOFF, ALL ARE >005804400 

SCRATCHTYPE = 13 t, DIALED INTO TYPE@FIELD OF SCRATCHVEC, 05804200 

SCRATCHSAVE = 1 #, SAVE FACTOR OF SCRATCHVEC, 05804300 

SERROR(SERROR1) = BEGIN NeSERRORG? GO ERROR END #3 05805500 

% * END OF DEFINES * * &, 05805900 

% SEE START OF MCP FOR SCRATCHDIRECTORYREADY AND SCRATCHDIRECTORYMASK *,05806000 

ARRAY SCRATCHVEC(*]3 05606200 

05806300 

05806400 

PROCEDURE SCRATCHSORT(A,N) } 05806500 

VALUE N38 05806600 

REAL N 3} 05806700 

ARRAY AE*) 3 05806800 

BEGIN 2 SCRATCHSORT BINARILY SORTS N ELEMENTS OF A™™"AL II» 058606900 

Z ALC2Zleseee ALNI**"IN DESCENDING ORDER 05807000 

® SORT TIMF APPROX NxLN(N)*95 MICROSECONDS, 058071400 

% THE KEY JS ,€23%325)5 WHICH IS EITHER ,SHADDR OR ,SRADDR, 058607200 

INTEGER D 3 05807400 

REAL [TeJeY 3 05807500 

LABEL ClsC2eC3eXT 3 05807600 

Zoek Oe ee OO WO ok ek OR eR a ok ok ok oe ke oe 05807700 

IF Cpeld<N THEN WHILE (D*D+tD)<N DO} 05807800 

Cly 05808000 

IF Cp8*0 DIV 2) LE@ O THEN GO XT ELSE Jt81 3 05808100 

ce: 05808200 

YoalCCJelyeD] 3 05808300 

C33 05608400 
TF YeSHADDR>AC J] ¢SHADDR THEN 05808500 (00 

BEGIN 05808600 

ACJ4DJeACJ) 3. 05808700 

IF (JeJ"D) > O THEN GO TO C3 3 05808800 

END } 05808900 

AL JeDJeY 3 05809000 


IF CJ*}4+1)4D § N THEN GO TO C2 ELSE GO TO C1 3 058091400 
' 


XT 05809200 


END OF SCRATCHSORT 3 


$ SET OMIT #® NOTCDEBUGGING) OR OMIT 
PROCEDURE SCRATCHDIRECTORYERRORCA#N) 3 
VALUE AeN } 
REAL Ae®N 3 


BEGIN 
Boxe We RR ee Rk ok 


STREAMCNS Ne ASFA)? 


BEGIN 


DS*29 LIT"#MCP SCRATCH DIRECTORY ERROR ® 3 
ST*LOC Ns3 DS*3 DECS OSeLITMe"™ 3 


END 3 


SPOUTCA) 3 
COMPLEXSLEEPC*100=NUMESS) 3 


DDT} 


DO UNTIL FALSE 


; 


END OF SCRATCHDIRECTORYERROR 3 


BOOLEAN PROCEDURE SCRATCHCHECKC I] »HeS) 3 


VALUE [eS 3 
REAL [#HeS 3 


BEGIN 
Boek eR eK RR OR OR RE RR RE RR Re ae 


SCRATCHCHECK*TRUE 3 


IF S»SLINK#CIF T#H THEN SCRATCHVECCI+1] ELSE O)+SLINK THEN Hel 
ELSE IF SCRATCHVECEI],SNUM#I«S,SNUM THEN He? 


ELSE IF 1>29 THEN He3 
ELSE IF 180 THEN Heg 


ELSE SCRATCHCHECK*FALSE } 


END OF SCRATCHCHECK 3 
$ POP OMIT 


PROCEDURE SCRATCHSPECIALCASE(CCNe As Ns CORADDR+ SEGADDR»® I #He SCRATCHSEG)3 


VALUE CNeAsNsSEGADDRs I ob} 
REAL CNeAsNsCORADDR» SEGADDR® I #H3 
ARRAY SCE AT CHP ERLYY ; 


BEGIN 


REAL POTsMAXeLeQedeb oF 3 
ARRAY BOTH[E#]3 
$ SET OMIT ® NOTCDEBUGGING) OR OMIT 
LABEL START*ERROR 3 
$ POP OMIT 
SUBROUTINE GETNEWSCRATCHVEC 3 


% ek eK KK eK KK RE we KK ee ee RH ee ee EK eK CH Ke eK eK Om me 


BEGIN 
PCPIMIX)3 
PIMIX«P3 


SCRATCHVECS*SCRATCHVEC & LECTC) & ALTOSIZE) 3 


PIMIXe¢0}3 


LeGETSPACECAsSCRATCHTYPE*®SCRATCHSAVE) 5 


MELJ,MIXFL«O 3 
MOVECH+1eSCRATCHVECsLteL+2) 3 
FORGETSPACECSCRATCHVEC) 3 


END OF GETNEWSCRATCHVEC 3 


$ SET OMIT = NOTCDEBUGGING) OR OMT 
GO START 3} 


ERRORE 


SCRATCHOIRECTORYERROR(CORADDReN4100) 


STARTS 


$ POP OMIT 
IF CN®1 THEN 


05609300 
03809400 


-05809500 


05809599 
05609600 
05809700 
05809800 
05809900 
05810000 
05610100 
05810200 
05610300 
05810400 
05810500 
05810600 
05810700 
05810900 
05611000 
05811100 
05611150 
05811160 
05811170 
05811180 
05811190 
05611200 
05611210 
05811220 
05611230 
05611240 
05811258 
05811260 
05811270 
05611280 
05811261 
05811340 
058611355 
05611360 
05611370 
05611365 
05611400 
05611410 
05611414 
05611415 
05611416 
05811430 
05611445 
05611460 
05811475 
05611490 
05611505 
05611520 
035611535 
05611540 
05811549 
05611550 
05611565 
05611580 
05811595 
05811596 
05611805 


BEGIN 


ELSE 


S$ SET OMIT = NOTCDEBUGGING) OR OMIT 


$ POP OMIT 


END 


$ SET OMIT = NOTCDEBUGGING) OR 
ELSE IF H GTR 254 


$ POP OMIT 


ELSE 


05811820 


IF CIF #1 THEN CLeSCRATCHVECEDI*1]4SNUM)<SCRATCHMAX ELSE 05811835 
Le32) OR CIF IT#H THEN (CQ*SCRATCHVECELI +1) ¢SNUM)<SCRATCHMAX 05811850 
ELSE @*32) THEN &8 THEN INSTEAD OF GETTING A NEW SEG AND 05811865 
BEGIN ® GIVING THE I*TH AND NEW SEG EACH 15 ENTRIES+ 05811668 
IF L>@ THEN & WE CAN SPLIT BETWEEN THE J*"TH AND Q@"TH 05811895 
BEGIN & SEGS THE SUM OF THE ONE NEW ENTRY AND 05811910 

We@® § & THEIR INDIVIDUAL ENTRIES, WE CAN DO 05811925 
Qefe1 3% THIS BECAUSE THE Q"TH SEG HAS ONLY 05811940 

ENO ® L<SCRATCHMAX ENTRIES, THIS OPERATION 1805811955 
Qe[71 3% DONE TO HELP REDUCE THE NUMBER OF 05811970 
POT#L+31 § & SPARSE SEGMENTS, 05811985 
FIXARRAYCBOTHs Je POT) § 05612000 
DISKWAITC™Js 30eMAX*SCRATCHVECELQ@) ,SLINK) $ 058612015 
05812016 

IF SCRATCHCHECK(CQ*eHe BOTHL[O]) THEN SERKRORCH+21) 3 05812030 
05812031 

MOVE C29*CSCRATCHSEG(LIJ J+ CBOTHEL41I))) 3 05812045 
BOTHLEPOTS=POT#1)32A & NETOSLENGTH) 3 05812060 
SCRATCHSORTCBOTHPPOT) 3 05612075 
MOVECHeEPOT@POTePOT DIV 2eCBOTHEIPOT41I) J» 05812090 
CSCRATCHSEG(1II)) 3 05812105 
AS3MAX3 N&SBSEGADDR 3 058121420 
IF @ LSS |] THEN 05812135 
BEGIN 05812150 
POLISHCSCRATCHSEGLOJ]*BOTH(O)» 05812165 
[SCRATCHSEGLOJ] os ee Cf BOTHLOJJe32) 3 05812180 
POLISHCJ*CORADDR®e eJeee lL CORADDRIe*)3 05812195 
POLISHC 1 Qe ,]otee,Qetz) | 05812210 
POLISHCSEGADDR®MAXe gSEGADDRe tee aMAXose) 3 05612225 

END 3 05612240 
BOTHLO],SNUMt=POT $ 05612255 
SCRATCHSEGLOJ,SNUM33H 3 05812270 
DISKWATTCUs300A) 3 05812285 
DISKWAITCCORADDR®308N) 3 05812300 
SCRATCHVECCIJ&#CPCSCRATCHSEG(1)]*+DUP)«SRADDR 05812315 
+#PCXCH),SLENGTH) & HE TOSNUM) & SEGADDR 05812330 

[TOSUIENKI 3 05612345 
SCRATCHVECLQI]1*(PCBOTHL 1) *DUP) sSRADDREPCXCH) 05812360 
eSLENGTH) & POTETOSNUM] & MAXETOSLINK] 305812375 
FORGETSPACECJ) 3 05812390 
05812405 

OMIT 05812406 

THEN SERROR(C49) 05612420 

05812421 

% ELSE GET A NEW SEGMENT AND SPLIT THE J*#TH 05812435 

BEGIN ®% SEGMENTS 29 ENTRIES PLUS THE NEW ENTRY 058642450 

% BETWEEN THE NEW AND [#TH SEGMENT, 05812465 
SCRATCHSEG(30]*A & NCTOSLENGTH) 3 05812488 
SCRATCHSORTCSCRATCHSEG®30) 3 05612495 

IF SCRATCHVEC,SIZE<H#2 THEN % THEN WE MUST GET A058612510 
BEGIN % BIGGER SCRATCHVEC,05812525 
AVBH+24¢SCRATCHUP 3 05812540 
GETNEWSCRATCHVEC 3 05812555 

END 3 05812630 

POTts] +1 3} 05812645 

FOR Jt@H STEP "1 UNTIL POT 05812660 

DO SCRATCHVECEJ+lIseSCRATCHVEC(V) 3 05812675 
SCRATCHVECCI +1238 ( PC SCRATCHSEG(1)eDUP),SRADOR 05812690 
+PCXCH) ~SLENGTH) 05812705 


END 
ELSE 

BEGIN 

IF ¢1 

LeFAL 

ELSE 


$ SET OMIT = 


$ POP OMIT 


ELSE 


$ SET OMIT ® 


$ POP OMIT 
| END 3 
END OF SCR 


& 15CTOSNUM) 

& CLEGETESPDISK)LTOSLINK)3 
SCRATCHSEGLO],SNUM$¥15 3 
DISKWAITC(CORADDR#®300L) 3 
SCRATCHVECEI]$2¢P(SCRATCHSEGE 16) *®DUP) 

»SRADDR+PCXCH),SLENGTH) 

& 15{TUSNUM) & SEGADDRETOSLINK) 3 
SCRATCHSEGL15]%=0 & LETOSLINK] & 15CTOSNUM) ; 
DISKWAITCCORADDR4+15616»SEGADDR) $ 
SCRATCHVECLO],SSIZE*H+1 3 
END $ 


F 1#1 THEN CLeSCRATCHVECDI71)4¢SNUM)>SCRATCHMAX ELSE 
SE) OR CIF 1#H THEN CQ*SCRATCHVECEI +1] ¢SNUM)>SCRATCHMAX 


Q*FALSE) THEN S3THENe INSTEAD OF FORGETTING SEGMENTs SPLIT 


BEGIN % CONTENTS OF Q@*TH AND I*TH SEGMENT BETWEEN THEM® 


05812720 
05812735 
05612750 
05812765 
058612780 
05812795 
05612810 
05612825 
058612640 
05612855 
05612870 
05812685 
05812900 
05812915 
05812930 
05812945 
05812960 
05612975 


IF POT?#=@>L THEN BEGIN LeQs Qel+1 END ELSE Getmt ¢ & SELVE05812990 


A*SCRATCHSEGLO] 3 

DISKWAITC*=CORADDR»s 30eE*+SCRATCHVEC(Q],SLINK) $ 
NOTCDEBUGGING) OR OMIT 

IF SCRATCHCHECK(QsHeHtSSCRATCHSEG(OJ) THEN SERRORC124H) 3 


SCRATCHSORTCSCRATCHSEGoL) F 
FIsLeNtelL DIV 2 3 
SCRATCHVECLI J 8#(PCSCRATCHSEGL(L&ia[F POT THEN N ELSE 0) 
+ 1],DUP),SRADDR*P(XCH) eSLENGTH) 
& FLTOSNUM] & SEGADDREITOSLINK] 3 
SCRATCHVECL QJ] SE CPCSCRATCHSEGECPOTt#IF POT THEN O ELSE F) 
+1) 4DUP),SRADDR+P(XCH) »SLENGTH) 
& NETOSNUM] & ELTOSLINK) 3; 
POLISHCSCRATCHSEGEINJ] eSCRATCHSEGIN@1]) 3 
SCRATCHSEGILI8"A & FLTOSNUM) 35 
DISKWAITCCORADDR*+LeF+1*eSEGADDR) 3 
POLISHCESCRATCHSEGIN@1] ]e#e(SCRATCHSEGINJJ»#) 3 
SCRATCHSEGLPOTJ3sH & NETOSNUM) 3 
DISKWAITCCORADDR+POToN+1°E) 3 
END 
® ELSE THERE [S NO SEG ADJ TO I"TH SEG WITH ENOUGH 
BEGIN % ENTRIES TO SPLIT» SO WE DELETE THE I*TH SEGMENT, 
E*SCRATCHSEGL0),SLINK 3 
DISKWAITC#CORADDRePOT¢IF Fel=1 THEN "30 ELSE 304Q¢ 
SCRATCHVECEI "13 ¢SLINK) 3 
NOTCDEBUGGING) OR OMIT 
IF F AND SCRATCHSEG(SYSNO) »SLINK#SEGADDR THEN SERROR(4) 3 


SCRATCHSEGCIF F THEN SYSNO ELSE O),SLINKeE 3 
DISKWAITCCORADDRePOTsQ) 3 

FORGETESPDISKCSEGADDR) 3 

IF 1#H THEN MOVECH*I ee CSCRATCHVECEI 41) Jef SCRATCHVECEIIII)3 
SCRATCHVECLCOJ) eSSIZESeHisHel 3 


05613005 
05813020 
05813034 
05813035 
05813036 
05613050 
05813065 
05813080 
05613095 
05813110 
05813125 
05613140 
05813155 
05813178 
058613185 
05813200 
05613215 
05813245 
05613260 
05613275 
05813290 
05813305 
05613320 
05613335 
05613350 
05813364 
05813365 
05613366 
05613380 
05813395 
05613440 
05813425 
05813440 


IF H<CLEBSCRATCHVEC,SIZEI*SCRATCHDOWN THEN STHEN GET A NEW05813455 
BEGIN & SCRATCHVEC CLOSER IN SIZE TO ACTUAL # ENTRIES05813470 


AteLeScRATCHOFF } 
GETNEWSCRATCHVEC 3 
END 3 

END 3 


ATCHSPECIALCASE 3 


05813485 
05813500 
05613560 
05813575 
05813590 
05813605 


05813620 

05613635 

PROCEDURE SCRATCHDIRECTORYENTERCA®N)D3 05813700 

VALUE AeN} 05813800 

REAL A®N3 05813900 

BEGIN 05814000 

INTEGER I3 05814100 

REAL CORADDReHeLe QeSEGADDR=Q } 05814200 

ARRAY SCRATCHSEG(*®) 3 05814300 

LABEL FOUND» SEARCHS 05814400 

$ SET OMIT = NOTCDEBUGGING) OR OMIT 05814449 

LABEL ERRORS 058144580 

$ POP OMIT 05814451 

Bowe Re OR OK RR OR RK RR OR KR ORK RR OR RR kK ORR eR kK eR OR ee 05814500 

FIXARRAYCSCRATCHSEGsCORADDRs 31)5 05814700 

SLEEPCCTOGLEJ »SCRATCHDIRECTORYMASK)$ LOCKTOG(SCRATCHDIRECTORYMASK)$ 05614800 

QreHtsSCRATCHVECLO],SSIZE 3 05814850 

IF SCRATCHVECEI!#1)7eSHADDR GTR A THEN GO FOUND 3 05616600 

IF SCRATCHVECEI*#H)«SHADDRSA THEN GQ FOUND 3 05816700 

«#2 3 % DO BINARY SEARCH ON | SUCH THAT 1<]<H AND SUCH THAT 05816800 

SEARCH! % SCRATCHVECEI).SHADDR GTR A GE@ SCRATCHVECEI*1]¢SHADDR, 05816900 

IF SCRATCHVEC( I ##¢b40)/2)],SHADDR GTR A THEN 05617000 

IF SCRATCHVECEI71),.SHADOR GTR A THEN Q$a]74 05817100 

ELSE GO FOUND 05817200 

ELSE IF SCRATCHVECE 1 ta1¢1),SHADDR LEG A THEN Li=]el 05817300 

ELSE GO FOUND 3 05817400 

GO SEARCH 3 05817500 

$ SET OMIT = NOTCDEBUGGING) OR OMYT 05617599 

ERROR! & DETECTED MCP AND/OR HARDWARE ERROR VIA BAD CORE/DISK TABLES, 05817600 _ = 

SCRATCHDIRECTORYERROR(CORADDR»N4+50)3 05817700 

$ POP OMIT 05817701 
FOUND! ® FOUND THE DESIRED INDEX I, 05618000 a ee 

DISKWATTC*CORADDR, 30>SEGADDRISSCRATCHVECELIJgSLINK) 3 05818100 

$ SET OMIT s NOTCDEBUGGING) OR OM]T 05818199 

IF SCRATCHCHECKCT »H»SCRATCHSEGL0J) THEN SERROR(374+H) 3 058618200 

$ POP OMIT 05618201 


IF CLS®SCRATCHVECELIJ.SNUM) GE& 29 THEN 3MAKE ROOM FOR NEW ENTRYO5818300 
SCRATCHSPECTALCASE (Le AeNeCORADDReSEGADDRe I eH» SCRATCHSEG) 058618400 


ELSE % ELSE MAKE A NORMAL ENTKY JNTO THE I*TH SEGMENT 05825600 
BEGIN ® AND WRITE IT BACK OUT TO DISK, 05825900 
SCRATCHVECCIJ©CIF (HeSCRATCHVECCLI},SRADDRIZAGN THEN H 05826000 
ELSE AeN) & CLYebe1 CTOSNUM) 05826100 
& SEGADDRETOSLINK] 3 05826200 
SCRATCHSEGILIJ©A & NETOSLENGTH] 3 05826300 
SCRATCHSEGLO],SNUMeL 3 05826400 
DISKWAITCCORADDRe 30sSEGADDR) 5 05826500 

END 3 05826600 - - ; 
UNLOCKTOGCSCRATCHDIRECTORYMASK)3 05826800 
FORGETSPACECCORADDR) 3 05826900 
END SCRATCHDIRECTORYENTER 3 05827000 
05827100 
05827200 
PROCEDURE SCRATCHDIRECTORYDELETECAsN)S 05827300 
VALUE AeN} 05827400 
REAL AeN3 05827500 
BEGIN 05827600 
INTEGER 1¥3 05827700 
REAL LeHsEeFeQeMAX*POT*CORADOR*®SEGADDR 3 0586278600 
ARRAY SCRATCHSEG(*] 3 05827900 


LABEL SEARCHse FOUND$ 05828000 


$ SET OMIT = NOTCDEBUGGING) OR OMIT 
LABEL ERROR} 
$ POP OMIT 
ee ee ee ee es ee, ee ee ee? es ee eS es es ee es eS ee 2 a 2 ee 
FIXARRAYCSCRATCHSEGeCORADDRe 30) 3 
SLEEPCETOGLE Je SCRATCHDIRECTORYMASK)$ LOCKTOGCSCRATCHDIRECTORYMASK)3 
QtFHIESCRATCHVECLO],SSIZE3 
$ SET OMIT & NOTCDEBUGGING) OR OMIT 
IF SCRATCHVECLQI]¢SHADDR LEQ A OR Q®0 THEN SERRORCHR0)35 
$ POP OMIT 
IF SCRATCHVECECI#¢®1],SHADDR GTR A THEN GO FOUND 3 
Lt#2 § 2 DO BIN SEARCH ON 1 SO THAT 1 LSS 1 LE@ H AND SUCH THAT 
SEARCH! % SCRATCHVECEI).SHADOR GTR A GE@ SCRATCHVECEI"1)¢SHADDR,. 
IF SCRATCHVECCI#®¢(L490)/2),SHADDR GTR A THEN 
IF SCRATCHVECELI*1),SHADDR GTR A THEN Qta]e] 
ELSE GO FOUND 
ELSE IF SCRATCHVECECI$3141].SHADDR LE@ A THEN Liwtel 
ELSE GO FOUND 3 
GO SEARCH } 
$ SET OMIT # NOTCDEBUGGING) OR OMIT 
ERROR! % METECTED MCP AND/OR HARDWARE ERROR VIA BAD CORE/DISK TABLES, 
SCRATCHDIRECTORYERROR(CORADDReN) 3 
$ POP OMIT 
FOUND# % FOUND THE DESIRED INDEX J. 
DISKWAITC*™CORADDRe 30°SEGADDReCPOT*SCRATCHVECELIJ) gSuINK) 3 
& SET OMIT = NOTCDEBUGGING) OR OMIT 
IF SCRATCHCHECKC] »HsSCRATCHSEGLO]) THEN SERROR(B4H) 3 
$ POP OMIT 
MAX*POT,SHADDR 3 
Q:F0 3 
POLISHCH) 3 
FOR L#POT*#POT,SNUM STEP "1 UNTIL 41 DO ® FIND Er THE INDEX OF THE 
BEGIN % DELETABLE ENTRY+#AND ALSO RECORD Ge THE VALUE OF THE 
IF CHeSCRATCHSEG([LJ].SRADDOR) LEQ A & SECOND MAX, 
AND CFSBHESCRATCHSEGEL],SLENGTH) GTR A THEN 
S$ SET OMIT = NOTCDEBUGGING) OR OM]T 
IF €#0 THEN SERROR(29) ELSE 
$8 POP OMIT 
E1al3 
$ SET OMIT & NOTCDEBUGGING) OR OMIT 
IF H30 OR H®F THEN SERRORC30) 3 


$ POP OMIT 
IF F#MAX AND Q«<F THEN QeF 3 
END 3 


Hi*POLISH 3 
LI®CFSBSCRATCHSEGLE]),SRADDR*C(FE2F ¢SLENGTH)3 
$ SET OMIT = NOTCOEBUGGING) OR OMIT 
IF CE®0) OR CAN) #L THEN SERROR(24E80)3 
$ POP OMIT 
IF F GTR N THEN 
BEGIN % ONLY DELETE THE END@PART OF AN ENTRY 
SCRATCHSEGLE] »SLENGTHISFEN 3 
IF MAX@L THEN SCRATCHVECELIJ,SHADDRIBLEN 3 
DISKWAITCCORADDRs30sSEGADDR) 3 
END 
ELSE % ELSE COMPLETELY DELETE THE ENTRY, 
IF POT#i THEN % THEN ENTRY TO DELETE JS ONLY ENTRY JIN SEGMENT, 
SCRATCHSPECIALCASE C2sAs Ne CORADDRe SEGADDRe 1] sHe SCRATCHSEG) 
ELSE | % ELSE NORMAL CASEs WHERE AN ENTRY IS DELETED FROM 
BEGIN % A SEG AND SEG IS WRITTEN BACK OUT TO DISK, 


058628049 
05828050 
05828051 
05626100 
056828200 
05628300 
05828350 
05828399 
05828400 
05828401 
05828500 
05828600 
05628700 
05828800 
05828900 
05829000 
05629100 
05829200 
05829300 
05629399 
05829408 
05829500 
0582950} 
05829600 
05829900 
05829999 
05830000 
05830001 
05830100 
05830150 
05830175 
05830200 
05630300 
05830400 
05830450 
05830499 
05830500 
05830501 
05830510 
05830549 
05830550 
05830551 
05830600 
05830700 


05830750 


05830800 
05830809 
05830810 
05830611 
05830860 
05830865 
05630670 
05830875 
05830877 
05830879 
05830880 
05830900 
05831009 
05836400 
05836500 


SCRATCHSEGCE]T*SCRATCHSEGLPOT) 3 
SCRATCHSEG[9],SNUMe#POT"1 3 
DISKWAITCCORADNDRs30-SEGADDR) 3 


SCRATCHVECCIJ©CIF A+NaMAX THEN @ ELSE MAX) & CPOT#1)C¢TOSNUM] 


END 3 


& SEGADORETOSLINK) 3 


UNLOCKTOGCSCRATCHDIRECTORYMASK)3 
FORGETSPACECCORADDR) 3 
END OF SCRATCHOIRECTORYDELETE 3 


PROCEDURE SCRATCHCLEANCARY*#BCeLINK) 3 


V 


ALUE BC 3 


REAL BCeLINK 3 
ARRAY ARY(#) 3 


REAL PROCEDURE PETUSERDISK(NeT)3 


Be BQ BR 


BS VE BE de dae BR BC HE Je HC 


BEGIN 
REAL ITeKeSeT? 


Bosker a Oee 


® SCRATCHCLEAN SORTS THE SCRATCH DIRECTORY SEGMENT? 
IN ARRAY ARY* AND THEN IT GOES THROUGH THIS 
® SORTED ARRAY CONSOLIDATING ADJACENT AREAS AND DOING 
% FORGETUSERDISKS ON THESE (CONSOLIDATED) AREAS, 


% STORED 


IF CLINK*ARY(COJ,SLINK)#0 THEN DISKIOCTe*BCe30eLINK) 3 
SCRATCHSORTCARYs#Kt3aRYCO],SNUM) 3 


ARY(OJseyaakys 
po BEGIN 


WHILE CS*ARYEK]) ,SLENGTH#S,SRADDR ® ARYEK™1),SRADDR DO KeKw]3 


® ARYCO] [S JUST A STOPPER 


FORGETUSERDISKCT*ARYD IJ ,SRADDR»sSeSRADDR+SsSLENGTH"1) 3 


END 


UNTIL C]eKeK= 


1)<1; 


IF LINK#0 THEN SLEEPCETJ*®1OMASK) 3 
END OF SCRATCHCLEAN 3 


$ POP OMIT 


N 1S THE NUMBER OF SEGMENTS REQUESTED» 


VALUE NeT3 


REAW NeT 3 


05836600 
05836700 
058636800 
05836900 
05437000 
05837100 
05837300 
05837400 
05837500 
05837600 
05637700 
05837800 
05837900 
035838000 
05836100 
05838200 
05838300 
05838400 
05838500 
03836600 
05838650 
05838700 
05838600 
05838900 
05839000 
05839100 
035839200 
05839300 
058639301 
05839390 
05839395 
05839400 
05839500 


AND T IS THE EV# OR THE SPEED#, 905839600 


GETUSERDISK WILL RETURN #15 O+ OR THE ABSOLUTE DISK SEGMENT ADDRESS 0F05839700 


THE RESULTANT AREA, 


SFE Tef2%i) FOR THE “41> 


T?0 > T Is A PREFERRED SPEED#! THince Sedo nese OR 31, 


T<O => °T IS A PREFERRED EUSs 
TeQ > DONT CARE ABOUT SPEED# OR EUbe 


Tepe Mear3eMy ) og? OR "20, 
USE EU WITH LEAST EU 1/0, 


TeC28l)"1 => TF CANT GET PREFERRED SPEED# OR EU#e RETURN "1, 


T,C2¢1)]80 => JF CANT GET PREFERRED SPEED# OR EUs 


N>O @> MAKE A SCRATCHDIRECTORY ENTRY. 


N<O => DONT MAKE A SCRATCHDIRECTORY ENTRY, 


NeQ > IMMEDIATELY RETURN WITH A O, 


N,C2t1)"0 => JF CANT FIND ANY USERDISKe AND T,C201)#04 NO*USER@DISK, 
NeC2tije1 s> TF CANT FIND ANY USERDISKe AND T,C2t1)80* RETURN O, 


BEGIN 


INTEGER Keete & K TS ALSO "GETUSERDISK"S DONT USE K ABOVE LABEL Dy 


ZakeLoNSwZeteleNnSe1eQulets 
$ SET OMIT ® NOTCSHAREDISK ) 
LRQs,eHelLel se J=aHeleRede4 eDLsRe13 


REAL MLBDL41¢ 
$ POP OMIT 


MOuMi+13 


$ SET OMIT © SHAREDISK 
o AVSSReie JEAVS44e LAAVS> 


R&Q+ | 
REAL MLSNT5¢ 


~ $ POP OMIT 


M2eNTA3 


ARRAY UsM241il%]3 


ARRAY UTaJe1 Ce) 3 


DEFINE UTeU # 3 


HENT6 3 
DEFINE URAVTABLE # 3 


ANDO N,€2t1] FOR THE O, 


05839800 
05839900 
05840000 
05840100 
05840200 
05840300 


TREAT AS T#©O (CABOVE)05840400 


05840500 
05840600 
05840700 
05840800 
05840900 
05841000 
05841100 
05841200 
05841300 
05841350 
058413860 
05641400 
05841500 
05841502 
05841610 
05841615 
05841620 
05841621 


LABEL AsBeCeDeErFk eGow § 05841650 
DEFINE GETUSERDISKSPETUSERDISKER See ee eee eK EER REE ERE KERR ERE EEE EKKO B4 1700 
05841800 

Z*e ee ke ee OK Ke Re Ke OR eR eR KOK KE kK ee me ee eK ee we oe OR oe oe 05841900 
05842000 

IF N©Q0 THEN GO W 3 05842100 

PCT C2861) *ABSON) #12020002020)3 05842200 

$ SET OMIT = NOTCSHAREDISK ) 05842205 
PCOsDeDUP®0) 3 05842210 

$ POP OMIT 05842211 
At 05842250 
SLEEPCETOGLE] *USERDISKMASK)3 LOCKTOGCUSERDISKMASK)3 05842310 

$ SET OMIT » NOTCSHAREDISK) 05842390 
FIXARRAYCUPRe AVS) DISKWALTC#Re®AVSeUSERDISKBOTTOM)3 05842400 

$ POP OMIT 05842401 
$ SET OMIT = SHAREDISK 05842405 
MiteM2eeP(D) 3 05842410 

$ POP OMIT 05842411 
Li=NEUP,NEUF 3 05842450 
IF T USS O THEN IF UCJIeIF *T GTR L THEN L+t ELSE "TI ,MAXSI2 GEG NS 05642475 
THEN GO E ELSE IF 2 THEN GO C 3 05842500 

Bt IF ULI] MAXSIZ2NS THEN 05842700 
BEGIN 05642600 
PCEUIOCCNTL ESL eL +EULOFFSETI+PEVIOCNTI Je eNT2eSNDe DUP) 3 05842900 

IF P LSS M1 THEN BEGIN MiteNT23 HS=ENTL END } 05842930 

IF P LSS M2 THEN IF ULI),SPEED=T THEN BEGIN M2S=NT23 J32NTL £END205843000 

END 3 05843100 

IF C]tate1) LE@ L THEN GO B $} 05843200 

IF PC(D)#M1 THEN 05843300 
BEGIN 05843400 

1F M2eM2%eP(D) THEN IF Z AND T NEQ@ O THEN 05843500 

om BEGIN GETUSERDISKe"13 GO G END 05843600 
ELSE JeH ji 05843700 

JiadJel3; GOE 3} 05843800 

END 3 05843900 

IF Z THEN GO C 3 05843950 

IF Npel291) THEN GO G 3 05644000 

$ SET OMIT & NOTCSHAREDISK ) 05844050 
UNLOCKCUSERDISKBOTTOM)SUSERDISKSPECITALCASECI 81 eReUeNS)3 05844070 

IF €Qt8R) THEN GO W3GO AB 05844072 

$ POP OMIT 05844073 
$ SET OMIT * SHAREDISK 05844090 
FIXARRAYCUT#Re 3008 USERDISKSPECIALCASECI#1eReUT*#NS)$ GO TO A$ 05844110 

$ POP OMIT 05644111 
DessB@O7TrT7 777777777777 3 05844200 
& SET OMIT * NOTCSHAREDISK ) 05844290 
Et IF CKe€leCMLeUL JI) «¢STARTWROD+T*#M1 AND NUMENTM)>AVS THEN 05844300 
BEGIN 05844400 

IF (CLeaCKreTelLes(DlLeelF I LSS 30 THEN O ELSE IF CULO] AND 05844500 

NUMENTM) LEQ@ 30 THEN 30 ELSE 60)+(€HIt#1) MOD 30) MOD 30) NE@ 0 05844530 

THEN Lew30"L 3 05844540 

IF (LesKéelL) GTR AVS THEN 05844570 

BEGIN USERDISKSPECIALCASECOsReUeL&DLEICTFJ23 UeFLAGCP) €ND305844600 

IF PCDL40s0UP) THEN PCUTCOL*1)2XCH) 05844650 
DISKWAITC#C(R4+D0L) »LieLDlLaZIsUSERDISKBOTTOM+H DIV 30) & 05844700 

IF P THEN UTCDL&1)8=PCXCH) 3 05844750 

END 3 05844800 

PCK™1)s NTZeeKERML MAXSIZS NT22303 05844900 

$ POP OMIT 05844901 
$ SET OMIT * SHAREDISK 05844915 


ER IF CAVSteC(KteCTsSUCU) AND NUMENTM) 47 88 (Z2ZtsUCJ],STARIWRD) MOD 30) M0D05844920 
30) NEQ@ O THEN AVS3#30"AVS3 AVS&8@AVS+K3 POCM2) 3 05844925 
FIXARRAYCUTsReAVS)3 DISKWAITC*ReAVSeZeZ DIV 3O04USERDISKBOTTOM) 3 05644930 
M2teP3 PCKP{)$ NT2te0s NT3seKaeUCdJ),MAXSIZ 3 05844935 

$ POP OMIT 05844936 
Fs IF CNTL*UTCIJT,0SIZE)>NT2 THEN JF NTL#K THEN NT2eNT1 ELSE K820 3 05845000 
IF NTI2NS THEN IF NTI<M2 THEN BEGIN M2eNT13 Hel END 3 05645100 

IF PCDUP) GTR 138141 THEN GO F 3 05845200 
UTCH),DSIZE*NS*M2°NS 3 05845300 

IF MitaM2eNT3 THEN UCU) ,MAXSIZt"IF NT22NS THEN NT2 ELSE NS 3 05645400 
GETUSERDISK*UTCH] eDEND@=M2s Jt=P 3 05845500 

$ SET OMIT = NOTCSHAREDISK ) 05845590 
IF N?O THEN SCRATCHDIRECTORYENTERCKON) 3 05845600 

$ POP OMIT 05845601 
IF NeNS#Q THEN BEGIN MOVECI*®He LUTCHSL JJ oCUTCHI J SUCU) eNUMENT#T®1END3 05845700 

$ SET OMIT = NOTCSHAREDISK ) 05845790 
IF 2 GTR 1 THEN 05845800 
BEGIN 05845900 

IF OL NEQ@ O AND (M1 OR N) THEN DISKWAITCReDLeUSERDISKBOTTOM) 3 058646100 
DISKWAITCOL4ReLeZ) 3 05846110 

END 05846200 

ELSE DISKWAITCReAVS»sUSERDISKBOTTOM) 3 05846300 

$ POP OMIT 05846301 
$ SET OMIT = SHAREDISK 05846350 
DISKWAITCRe AVS9Z)3 05846355 

$ POP OMIT 05846356 
IF Q,CFFIJ THEN 05846361 
BEGIN 05846362 

ME TI®GETAREACO) J 8=CeP COUP) DQLOGLINECCTFI&16L1834137)3 05846363 
MCT+ijas03 05846364 
QUEVENTCI»CANDYINX)3 05846365 
ENO} 05846366 

$ SET OMIT = NOTCSHAREDISK ) 05846370 
Gi FORGETSPACECR)S UNLOCKCUSERDISKBOTTOM)3 UNLOCKTOGCUSERDISKMASK)3 05846380 
$ POP OMIT 05846381 
$ SET OMIT @ SHAREDISK 05846385 
FORGETSPACECR) 3 05846390 

Gt UNLOCKTOGCUSERDISKMASK )3 05846395 
$ POP OMIT 05846396 
Wt END OF GETUSERDISK 3 05646500 
05846590 

05846595 

PROCEDURE FORGETUSERDISKCA®N)$ VALUE AeN$ REAL AoN 3 05847000 
| 05847010 

% A IS THE ABSOLUTE DISK SEGMENT ADDRESS OF AN AREA N SEGMENTS LONG 058647020 
% WHICH 1S TO BE MADE AVAILABLE AGAIN, (05647030 
_ % NCO => MAKE A SCRATCHDIRECTORY DELETION, 05847040 
% N>0 ®> DONT MAKE A SCRATCHDIRECTORY DELETION, 05847050 
% NSO => IMMEDIATELY GO AWAY 3 05847060 
05647070 
BEGIN 058470860 

$ SET OMIT = NOTCSHAREDISK ) 05847090 
INTEGER Dueks ARRAY UC*)]3 DEFINE UTSU #3 05847100 

$ POP OMIT 058647101 
&$ SET OMIT & SHAREDISK 05847110 
INTEGER AVSeFRAVSS ARRAY UTC¥)]$ OEFINE USAVTABLE #3 05847120 

£ POP OMIT 05847121 
REAL ES INTEGER BeCoDe lode Re SeHENT7 eKENTOeLENTS eo GENTAs TENT 32 QRJUNK3 05847130 
LABEL VeWeXo Ve ZeAZeBZeCZeDZ 3 05847140 
SUBROUTINE SETSHIFT 3 05847150 


BEGIN 05847160 
St#P(XcH) 3} 058647170 

SET OM]T # NOTCSHAREDISK ) 05847180 
UCJ],STARTWRO@eGtel+Ss JTF B>l THEN GIRD+S4+DL3 08530 3 05847190 

POP OMIT 05847191 
SET OMIT = SHAREDISK 05847200 
UEVI,STARTWRDt21+S3; GsteDeS 3 05847210 

POP OMIT 05847211 
Ks2Gecr1 3 058647220 

END OF SETSHIFT 3 05847230 
05847240 

Ze ee ek OK RK eR OK OK OK OK OK OR kK OR OK OR Oe OR Oe Ke wR OR eK OK Kk Re eK eR Kok & 05847250 
05847260 

IF N#0 OR CJeA DIV 1000000) 2NEUP,NEUF OR AKXUSERDISKBOTTOM+ 05647270 
DISKAVAILTABLEMAX THEN GO BZ 3 05847271 

SET OMIT = NOTCSHAREDISK) 05847279 
FIXARRAYCUPRe AVS 23 05847280 
POP OMIT 05847281 
SLEEPCETOGLETPUSERDISKMASK)) LOCKTOGCUSERDISKMASK)3 058647290 
SET OMIT = NOTCSHAREDISK ) 05847299 
DISKWAITC*™Re tAVSPUSERDISKBOTTOM)3 05847300 
POP OMIT 05847301 


IF (CD##UCO),MAXSIZ) NEQ@ O AND N GTR O THEN IF CTWOCV) AND D) NE@® Q 05847310 
THEN BEGIN USERDISKSPECTALCASE(3s#NeUeA)s IF NOT P THEN GO DZ END 3 05847320 


JerJel 3 05847330 
DeCleCEeUCJI)2,STARTWRD) MOD 30 5 05847340 
$ SET OMIT = NOTCSHAREDISK ) 05847350 
IF (StaKas(CCeeE AND NUMENTM)4+Lee]) GEO CFS*AVS) THEN 05847360 
BEGIN 05847370 
PCCDOLIsZIF I LSS 30 THEN O ELSE IF CULO) AND NUMENTM) LEQ 30 05847380 
THEN 30 ELSE 60)4#D*DUPeCeo+eDUP DUP) 3 05847390 
IF (Fse#P"P MOD 30430) GE@ AVS THEN 05847400 
BEGIN USERDISKSPECIALCASECOsRoUsFRaDLEICTFJ)$ UeFLAGCP) £ND305847410 
IF I+F2AVTMAX4+D4DL THEN GO Y 3 05847420 
IF PC DL#0eDUP) THEN PCUTEDL@1]eXCH) 3 05847430 
DISKWAITC™C(R#DL) oF *DLeBsi=zUSERDISKBOTTOM4+!] DIV 30) 3 05847440 
IF P THEN UTCLOL@1L]3=PCXCH)3 KisP3 LssP 3 05647450 
END 3 05847460 my 

POP OMIT 05647461 
SET OMIT & SHAREDISK 05847470 
AVStB30"(St(CH*E AND NUMENTM)4+D) MOD 3084S 3 05847480 
FIXARRAYCUT@ReAVS)$ DISKWAITC*ReAVS*#B8e!] DIV 304USERDISKBOTTOM) 3 05847490 
KisS$ LezDy Stelec 3 05847500 
POP OMIT 05847501 
GeleCNT2reCRCUCU@13,0UP) AND NUMENTM)4PCXCH) sSTARTWRD) 3 05847510 
SeULJ41L],STARTWRD@S$S HekKeKele TF UTC T*LJs«DEND2A THEN GO X 3} 05847520 
IF UTE TeCHtLeLIDIV 27,DEND2A THEN IF UTE HeT@i]eDEND2ZA THEN GO W ELSE05847530 
ELSE IF UTC T#T+1),DEND<A THEN BEGIN LeT+#13 GO W END 3 05847540 
IF CLEMA+ABSC(ON)) GEO HIsPCUT(QteT)»DUP).DEND*PC(XCH) ¢DSIZE THEN GO 2305847550 
IF Ss0 THEN 05847560 
BEGIN 05847570 
SET OMIT » NOTCSHAREDISK ) 05847580 

IF G30 THEN GO Y3 PCCGH1) DIV 2) 3 05847590 _| 
IF B>1 THEN 05847600 
BEGIN IF D®0 THEN GO Y3 IF PCDUP) GTR D THEN PC DELeD) ENDI05847610 
POP OMIT 05847611 
SET OMIT = SHAREDISK 05847620 
IF G0 OR D#O THEN GO YY IF PCCG41)DIV 2e0UP)>D THEN PCDELeD) 105847630 

POP OMIT 05847631 es Be eet i Sg dass 


PCSSN)$ SETSHIFTS MOVECCoLUTCGRS]]eCUTEGII)3 TreQezTeS 3 05847640 


END 3 
FOR HeK STEP #1 UNTIL T DO UTCH+L]©UTCHIS HeABSCN)2 GO AZ 3 
Yt USERDISKSPECIALCASEC Ose UTeJ) 3 
$ SET OMIT = NOTCSHAREDISK ) 
UT&tsFLAGQCP)3 RIBUT,CCFJ# Bts0 3 
$ POP OMIT 
GO V 3 
Zs JTF PCUTCQ*G+1)*DUP).DEND™PCXCH) sDSIZESL THEN GO Z 3 
IF PCUTENTI&¢20"1),DENDeDUP) LSS L THEN PCDELeL) 3 
HO®C(LesP)e CIF A LSS H THEN A ELSE H) 3 
IF NTI GTR T THEN MOVECKANTIoCUTCOIJ) + £UTLT41]1) 3 
AZ! UTLTI*L&HETODSIZEJ3 Ce (QeTHQ44)4C 3 


05847650 
05847660 
05847670 
05847680 
05847690 
05847691 
05847700 
05847710 
05847720 
05647730 
05847740 
05847750 


TF CS#S#Q)>TeIF AVDIFFMAX>T#C DIV 2 THEN AVDIFFMAX ELSE T THEN IF J#405847760 
QR S#G>T+CIF AVDIFFMAX>TeNT2 DIV 2 THEN AVDIFFMAX ELSE T) THEN GO Y 05847770 


ELSE BEGIN 
IF CNTI*eF"ieK)=s0 THEN GO Y 3 
IF PC CS4+G) DIV 2eDUP)>NTI THEN PCDELeNT1)3 SETSHIFT 3 
FOR NT1eK STEP 71 UNTIL G DO UTENTIJeUTCNTI“S) 3 
END } 
UEYI©CNTICULCJI RCL TONUMENTIR CIF E*CNTI*NTIsMAXSIZ)<H THEN H ELSE 
NTLOYCTOMAXSIZ] 3 
$ SET OMIT = NOTCSHAREDISK ) 
IF B GTR 1 THEN 
BEGIN 
IF OL NEQ@ O AND CE OR Q NEQ O OR D#30) 
THEN DISKWAITCR»eDLeUSERDISKBOTTOM) 3 
DISKWAITCR#DLeF*0L9B) 3 
END 
ELSE DISKWAITCReAVSPUSERDISKBOTTOM) 3 
$ POP OMIT 
$ SET OMIT = SHAREDISK 
DISKWAITCReAVS*B) 3 
£ POP OMIT 
$ SET OMIT = NOTCSHAREDISK ) 
IF N<O THEN SCRATCHDIRECTORYDELETECA®@N) 3 
DZ§ FORGETSPACECR)# UNLOCKTOGCUSERDISKMASK)$ UNLOCKCUSERDISKBOTTOM)3 
$ POP OMIT 
$ SET OMIT =* SHAREDISK 
FORGETSPACECR) 3 
DZt UNLOCKTOGCUSERDISKMASK)3 
$ POP OMIT 
BZ! END OF FORGETUSERDISK 3 
PROCEDURE KRUNCHERCH)$ ARRAY H(¥J$ FORWARDS 
PROCEDURE SCHEDLOOKCKTReTYPE)& VALUE KTReTYPES REAL KTRe TYPES 
BEGIN REAL TisT2eHisH2>MSeSeBUFFeESsLLeH2)} 
INTEGER I@NT1e JENT23 
LABEL NXTeENDITeESETC es LOOP eLOOPDs ERROR} 
LABEL STRM3 


IF KTR NEQ@ O THEN GO TO ESETC3 SES+XSeSVeRY 

IF SCHEDTOG THEN SLEEPCESCHEDWRDJs*0)3 
SCHEOWRD!*ABSCSCHEDWRD)3 

IF FRSTSCHED=SCHEDNUM THEN GO ENDITS 

TISSCFRSTSCHED INX "FILOOOO")&SYSNO(2414216])3 

NXT? LF CHISSDIRECTORYSEARCH(TI»®"SCHEDUL24)) LSS 64 THEN 

BEGIN T18*03 GO ENDITS ENDS 

IF T2 NEQ O THEN 

BEGIN MECH24¢29)18T13 HEADERUNLOCK(T2®"SCHEDUL"#H2) END} 
MEHL+28] 4072s T2eeTis H2teHis SteSoas TLtemMLH2+29]3 
IF TYPE THEN IF T1800 THEN GO ENDIT ELSE GO NXTB 


05847760 
05847790 
05847800 
05647810 
05647820 
03847830 
05847840 
05847850 
05847860 
05847870 
05847860 
058647890 
05847900 
05847910 
05847920 
05847921 
05847930 
05847940 
05847941 
05847950 
05847960 
05847980 
05847981 
05847985 
05847990 
05848000 
05848004} 
05648010 


%R5005849900 


05850000 
05650100 
05850200 
05850300 
05850310 
05850400 
05850500 
05850600 
05850700 
058650800 
05850900 
05851000 
05851100 
05651200 
05851300 
035851400 
05851500 


MSIsSPACEC10)3 


05851600 


i LtaM(H246)] DIV 36003 Jts] MOD 603 Jt2I DIV 603 05851700 
STREAMCT2sUSeM(H2+2)] oleJoTie(l GTR O)»MS)3 %09805851800 
BEGIN SIeSLOC T2s SIteS14+5s DSsoLIT" TASKE"$ DSI#3CHR3 05851900 

DSteLIT™s"s STteSl41s OStS7CHR:} 05852000 
TCDSta7LIT®™ AFTER "3 DSte2DECs DSssLiT*e*s DSte2DEC)3 05852100 
DSteLIT"e*s 05852200 
END} 05852300 
SPOUTCMS)3 IF Ti NEQ@ 0 THEN GO TO NXT3 05852400 

ENDITS IF T2sO THEN FRSTSCHEDS®SCHEDNUM 05852500 
EWSE 05852600 
BEGIN LSTSCHEDS#&T23 MLH242973703 05852700 

HEADERUNLOCK(T2>"SCHEDUL™+H2)3 05852800 

END} 05852900 
CHANGEDATECO)S SCHEDWRD?=NABSCSCHEDWRD)3 05853000 
IF TYPE LSS O AND & GTR O THEN 05853100 
BEGINS STREAMCSeTISeETIteSPACE(19))3 05853200 
BEGIN DSt=11L1T" THERE ARE"S TiteO1s STtaoc Ss 05853300 
DSt#4 DOECS DStsi5LIT" TASKS ON DISKe"; 05853400 

DIs*Tis DSte3 FILLE 058653500 

ENDS 05853600 
SPOUTCT1)3 05853700 

END} 05853800 
IF TYPE=0 THEN ® TS MESSAGE 05653900 
BEGIN Tit#SPACE(5)3 05853950 
IF S#Q THEN 05854000 
BEGIN STREAMC(T1)3 D0Sta20 LIT" NULL TASK SCHEDULE*®"sS END 05854050 

ELSE STREAMCT1)3 DSte7? LIT"END TSe™3 05854100 
SPOUTCTLD3 05854200 

END3 05854300 

PCXIT)3 05854400 

ESETC’ BUFF S=KTR$ 05854500 

LOOPS 3% 05854600 
STREAMCT#eO0OeoLLiwOeKTRiZiz( TYPE LSS 2)*BUFF)) 05854700 
BEGIN SIT s#KTR3 05854800 

Lis IF Sc=%«*" THEN GO TO L&43 05854900 
IF SC LSS "0" THEN BEGIN SI$#S1415 GO TO Li ENDS 05854925 

IF SC GTR "9" THEN BEGIN SJt=S1413 GO TO Li END: 05854950 
2C4OCTF Sca™e* THEN JUMP OUT 2 TO L2s DStSCHR))3 05855000 

L2t DS8eulT*e*s DIssLOC LLI = SITIseBUFFS 05855100 
3CIF SC LSS "0" THEN JUMP OUT3 05855200 

IF SC GTR "9" THEN JUMP OUT3 05855300 
TALLYGETALLY +13 STtaSi+t)3 05655400 
SJTtSBUFFS BUFF ISTALLYS 05855500 
ZCOLESDI+8s OL teDIeBUFFSOSSS®BUFF CHRS JUMP OUT TO L3)3 05855600 
OStsBUFF OCT) 05855650 

V3! IF SC#" © THEN BEGIN SJteS[4is GO TO L3 END! 05855700 
IF SCw%>o" THEN SITtsS]4t3 05855600 

IF SC#*%*" THEN 05855900 

W4t BEGIN TALLYs#13 TE#sTALLY END3 05856000 
KTRSSSI5 05856100 

ENDS 05856200 
KTResP3 LieePs TiswPy 058656300 
IF LL*®0 THEN GO TO ERROR3 05856400 
IF TYPE LSS 2 THEN &%ES OR XS 05856500 
BEGIN 05856600 
FORKCPCSCHEDIOLE eC NOT ODBLLULCCTCI&TYPEL2132216)20216020)505856700 

GO TO LOOPD: 05856800 

END} 05856900 
IF LL GTR LMAX THEN GO TO ERRORS 05857000 


IF NOT SCHEOLINECLLI THEN 05857150 
ERROR! BEGIN NTLas" INVALIM3 NT2SB" De "3 GO TO STRM END3 05857160 
SCHEOBUSYECLLISSTYPES 05857170 
NTiCRIF TYPE THEN * SAVED*" ELSE ™ READYS"™3 05857180 
NT2¢503 05857190 
STRM4 058657500 
STREAM(CLLeNTLeNT2eMSSSMSIESPACECS))3 05857550 
BEGIN DS##6LIT" LINE "3S ST#FLOC LL3 DSts3 DEC} 05857600 
2CSTteStegs OSte7 CHRIS DISSDI9173 OSte2 FILLS 05857700 

END3 05857800 
SPOUTCMS)3 T2tueT2413 05857900 
LOOPDS IF NOT Ti THEN GO TO LOOP3 05858000 
IF CTYPE®2) AND (T2 GTR 0) THEN 05858400 

IF SCHEONUM NEQ FRSTSCHED THEN FORKCPCeSCHEDIDLE) + O00216090)3 05858500 

END SCHEDLOOKS 05858600 
PROCEDURE SCHEDIDLECADR)3 VALUE ADRS REAL ADR} 058658700 
BEGIN ; 05858800 
REAL RCWR403 05858900 
ARRAY AC*]3 05859000 
REAL LLeNXTSCHED» TisT2sTo TIMES 05859100 
INTEGER ISNT13 05859200 
LABEL LINKITs LUKAGNe LINKED» INIT1Le FORGTis TERMNATE® 05859300 
REMOVITs EXITR 05859400 
LABEL INIT» STRT* RPT» RSTRT»+ FORGET» GOTO» EXIT 05659500 
REAL NieN2eSCHoFILES 05859600 
REAL CHARGES INTEGER AFTER 209805859610 
DEFINE PT#AC30)# 05859700 
» 1LOSAC31)# 05859800 
eDELTARAL32I¢ 05859900 
eNBAC33)# 05860000 
oStAC34a)# 05860100 
#REAC35)# 05860200 
#HEAL36)# 05860300 
ONRPAL37 14 05860400 
sMREAL36I)# 05860500 

; 05860600 
05860700 

DEF JNE FORGETDISK = 05860800 
BEGIN 058660900 
FOR TiseCM[T4+9)4+9) STEP 71 UNTIL 10 05861000 

DO IF MCTL+T] NEQ O THEN FORGETUSERDISKC(MECT1I+TJoMET+8))3 05861100 
END#3 05861200 
LABEL DLOUTS 05661300 
SUBROUTINE DELINKS 05861400 
BEGIN 05861500 
IF MET#28)80 THEN 05861600 
BEGIN IF ME£T#29]#0 THEN 05861700 
BEGIN FRSTSCHEDS=SCHEDNUMS CHANGEDATE(O)3 GO DLOUT END 05861800 

ELSE BEGIN FRSTSCHEDteM(T+29)5 CHANGEDATECO) END 05661900 

END ELSE 05862000 

IF (T2tSDIRECTORYSEARCH(M[T+#28])*SCHs4)) GEQ 64 THEN 05662100 
BEGIN MC T2429) teMeT+29)} 05862200 
HEADERUNLOCKC(MET+#26) eSCHeT2)3 05662300 

ENDS 05662400 

IF M(1429)20 THEN BEGIN LSTSCHEDSSM(T+28)5 CHANGEDATECO) END 05862500 

ELSE 05862600 

IF (CT2t@DIRECTORYSEARCH(MET+29]*#SCHe4)) GEQ 64 THEN 05862700 
BEGIN MET2428)18M(T+28)3 05862800 
HEADERUNLOCK(MET429) ¢SCHeT2)3 05862900 

ENDS 05863000 


DLOUT! 
END? 


DEFINE MYSTACK & 


CERCW) INX NOT 3),0CFI#) ‘ 


LUSFADRe (CFI SCHEE"SCHEDUL™S FILE S="F [LOOOO"&SYSNO(L2424236)3 
IF ADRsf1t1] THEN GO TERMNATES 
IF ADR,(C2#1) THEN GO LINKITS 
IF LL#®O THEN GO TO INITS3 
& "GO TO RECORD".+. MAY BE RESTART ALSO, 


SYSDISKIOCL ewLLeAteCLOQUERCGETAREACI241)9(00TC)))3 
NIsPACLI3 TiseAl2]3 Neseac3)s 

FORGETAREACL*®A INX NOT 0)3 

NXTSCHEDS2"(T1,(0CFI)3 

IF CT#SSEQARRAYILL) CCF J) LSS 512 THEN GO TO RSTRT3 
IF SCHENDCLL] THEN GO EXITS 
Ass(M(7T))&860(8:36810)3 

IF NOTCAC72),0121)) THEN SLEEPCCAL7T2I19°0)3 
AL7T2)]8=ABSC*PC DUP) )3 

IF NOTCAL32].£161)) THEN SLEEPCLAC32I}2°0)3 
AC32]55ABSC#PCDUP))3 

AC37IS*N2,CCFIUS AL7T7]b=N2eCFFI3 

GO TO GOTO 


® LINK IN NEW SCHEDULE TASK 


LINKIT#3 


IF SCHEDTOG THEN SLEEPCESCHEDWRDJ.=0)3 
SCHEOWRDS #ABSCSCHEDWRD)& 
NXTSCHED?®SCHEDNUM INX FILES 


PCOTRECTORYSEARCHCNXTSCHEDsSCHe 6) DEL D3 


LUKAGNE 


LINKEDS?3 


IF CTISDIRECTORYSEARCHCMLADR+5S) »*MCADR4+2)]24)) LSS 64 THEN 


BEGIN Tt#aDR#t FORGETDISK!S FORGETSPACEC(T)$ GO EXITR ENDS 

MET+6]22CNOT OVENXTSCHEDEICTC]3 

HEADERUNLOCKC(MLADR4+5] »MLADR+2)0T)3 

IF FRSTSCHED®SCHEDNUM THEN GO TO LINKED3 

TISSLSTSCHED INX FILES 

IF CTIMES@MCADR+6])=0 THEN 

IF CTIMES*XCLOCK) LSS 1728000 THEN TIME#251840003 

IF CNItSDTRECTORYSEARCHCTisSCHe4)) LSS 64 THEN 

BEGIN IF T2 NEQ@ O THEN HEADERUNLOCK(T2eSCHeN2)3 
SCHEOWRDE@NABSCSCHEDWRD)3 SCHEDLOOK(Us1)3 
T23803 GO LINKITS 

END3 

IF MEN14+6) GTR TIME THEN 

BEGIN IF T2 NEQ O THEN HEADERUNLOCKC(CT20SCHeN2)3 
T2e3Tis N2IEN13 
IF (CT4s3MCN2428)) NEQ QO THEN GO LUKAGN} 

END3 

MCADR+28)] teT1s MEADR4+29) teT23 

ENTERUSERFILEC*NXTSCHED*®SCHe ADR CCF I"1)3 

Ti@SCHEDNUM) 

STREAMCALE@12 AZta(T])3 

BEGIN S]%#LOc Als DSt#8 ADD END$ 

SCHEDNUMteIF T,CCFJ#0 THEN 1 ELSE T3 

IF T1 NEQ@ O THEN 

BEGIN MEN{+29]S=NXTSCHED? HEADERUNLOCKCT1sSCHeN1) END 

ELSE FRSTSCHED Pt @NXTSCHEDS ; 

IF T2s0 THEN LSTSCHED# =NXTSCHED3 

CHANGEDATE(O)3 

IF T2 NE@ O THEN 


05863100 
05863200 
05863300 
05863400 
05863500 
05663600 
05863700 
058638600 
05863900 
05864000 
05864100 
05864200 
05864300 
058664310 
05864400 
05864500 
05864510 
05864600 
05864700 
05864800 
05864900 
05865000 
05865100 
05865200 
05865300 
05865400 
05865500 
05865600 
05865700 
05865800 
05866000 
05866100 
05866200 
05866300 
05866400 
05866500 
05866600 
05866700 
05866800 
05866900 
05867000 
05867100 
05867200 
05867300 
05867400 
05867500 
05867600 
05867700 
05867800 
05867900 
05868000 
05868100 
05668200 
05868300 
05868409 
05868500 
05868600 
05866700 
05866800 
05868900 


® END OF 
INITER 
INITLis3 


STRTG3 


RPTS 


RSTRT¢:! 


FORGETS 


BEGIN MUN2¢28)8=NXTSCHEDS HEADERUNLOCK(T2*SCHeN2) ENDS 


FORGETSPACECADR): 

ADRE#03 

GO TO INITI3 

LINK IN NEW SCHEDULE TASK 

IF SCHEDTOG THEN SLEEPCESCHEDWRDIJ.°0)3 

SCHEDWRDtsSABSCSCHEDWRD)3 

a a THEN GO EXITR3 
120} 

IF CTIMESsXCLOCK) LSS 1728000 THEN TIMES#51840003 


IF LINEDISCCLL&I=LL+1) # SCHED THEN GO TO EXITRS 


IF STATABLECLLI],DIALEDUP THEN GO TO STRT3 
IF SCHEDBUSYCLLJ THEN GO TO STRT} 
IF SEQARRAYCLL) NEO O THEN GO TO STRT}3 
SEQARRAYCLLI+#13 
IF NXTSCHED20 THEN 
BEGIN SEQARRAYCLLI§#03 GO EXITR END3 
TLERENXTSCHED INX FILES Nist®N28=03 
IF CT3#=O01TRECTORYSEARCHCT1*®SCH*4)) LSS 64 THEN 
IF NXTSCHED LSS O THEN 
BEGIN ASB®EMESPACEC109)781008336410)3 
GO TO FORGT13 
END 
ELSE 
BEGIN SEQARRAYCLLI1503 Lis #03 
TRY TO RESTORE QUEUE 
SCHEDWRDESNABSCSCHEDWRD) 3 SCHEDLOOK(0e1)3 
GO TO INIT 
END: 
IF NXTSCHED GEQ@ O THEN 
BEGIN NXTSCHED?=M[T+29],0CF]3 
IF TIME LSS MET4+6) THEN 
BEGIN HEADERUNLOCK(Ti*SCHeT)3 
SEQARRAY(LLIJ:503 GO TO EXITR 
END3 
IF MCT#6),02¢1] THEN 31TS BEING TERMINATED 
BEGIN HEADERUNLOCKCT1*°SCHaT)3 GO TO RPT END? 
DELINK$ 
END3 
At®eCMCSPACE(80))188066136410)3 
ACOJI®O03 MOVEC7T9®AeA INX $98 BZERO OUT ARRAY 
DISKWAITC#CA INX 40)530eMET INX 10)])3 SFILL BUFF 
AC70]82T1,°CF]3 SSCHEDULE NUMBER 
AC7L] 827 0MASK3 
AC74)]teMET INX 6)323ROW LENGTH OF IP FILE 
AC75) ¢8MCT INX LO] 3ZADDRESS OF 1ST ROW 
AC76]4eT, CFFIS ADDRESS OF HEADER 
AL77I)8S8N2,CFFI3 
AL7B)8eMCT {NX 7])423 HNUMBER OF RECORDS 
AC37)$2N2,0CFI3 
Ni:aMCT INX 2) 2GET USERCODE 
N20@MCT INX 5)3 3GET O/P FILE NAME 


AFTERS#®ABSC MET JINX 6)) DIV 36003 &3TIME AFTER IN MIN 


CHARGESSM(T INX 27]3 &CHARGE CODE 
FORGETSPACECT)3 
IF CTRSDTRECTORYSEARCH(N2e*°Nie2)) LSS 64 THEN 
BEGIN 
TEFDIRECTORYSEARCH(T1#SCH98) 3 
FORGETDISK3 FORGETSPACECT)3 
IF NXTSCHED GE@ 0 THEN 


05869000 
05869100 
05869200 
05869300 
05869400 
05869500 
05869600 


%RB905869700 
%R8905669750 


05869800 
05869900 
05870000 
05870100 
05870200 
05870300 
05870400 
05870500 
05870600 
05870700 
05870800 
05870900 
05871000 
05871100 
05871200 
05871300 
05671400 
05871500 
05871600 
05871700 
05871600 


05871900 


05872000 
05872100 
05872200 
05872300 


209805872400 


05872500 
05872600 
05872700 
05872800 
05872900 
05873000 
05873100 
05873200 
05873300 
05873400 
05873500 
05873600 
05873700 
05873800 
05873900 
05874000 


2098605874010 
209805674020 


05874100 
05674200 
05874300 
05874400 
05874500 
05874600 


FORGT18 


GOTOSS 


END3 


BEGIN FORGETSPACECA)$ GO TO RPT3 END3 
SYSDISKJOC3e"LLeAd3 

ACO] ,DIALEDUPIFA(1)] 8203 
SYSDISKIOCOs*LLeA)s FORGETSPACECA)3 
GO TO EXIT} 


IF NXTSCHED GEQ@ O THEN 

IF MCT+4),03686]2TYPEINFO THEN 

BEGIN FORGETSPACECT)3 
FORGETSPACECDIRECTORYSEARCH(N2sN1012))3 


GO TO FORGET 


END ELSE BEGIN 


ENDS 


DISKWAITC@T CCF J]o30eT,LFFIJ)3 

MET+4),( 3686) 58TYPEINFOS 

DISKWAITCT CCF I 2300eT, CFF I)3 

STREAMCADS 

BEGIN OSte21 LIT*"YOUR TASK IS RUNNING,"}3 
DS:s53 LIT ™ "; DS:#8 LIT"00000001"3 
20(D0Sts8LIT ")3 

END3 

AC32]3"103 AL37) 8213 


AC31]4=10MASK3 
AC34)3=MET INX 633 
AL35]t=MCT INX 10]3 
AL36)8=T, CFF J3 


AC3B] SSAC 34]xMLT INX 91,0640398)x33 


FORGETSPACECT)3 
IF NXTSCHED LSS 0 THEN 


BEGIN 


JF AC37] GE@ ALC38] THEN AC37)832AC38)"13 
IF CN28@CAE37]) DIV 3) NE@ AL33) THEN 
BEGIN AC37)8"(C AC 33) 8FN2)x33 AL32)3"03 
IF €AC32) AND TOMASK)®0 THEN 
SLEEPCCAL3SLI J+ 1OMASK)3 
DISKWAITC*A, CCF J *®302A[36))3 
IF CN28BACCTESN2 OV AL34)])410)3)280 THEN 
GO TO FORGET3 
AL35)¢8N2"°(1xKA(34))3 
END3 
IF AC77] GEQ AL78) THEN AL77I]8*AL78] 
ELSE 
BEGIN AC72)8=C1383CA077)"1) MOD 3)x103 
IF CN23=8(AL7731"1) DIV 3) NEQ AC73]) THEN 
BEGIN AL73]%=N2) 
IF CACL71] AND JOMASK)#®0 THEN 
SLEEPCCALC7T2I)]¢10MASK)3 
DISKWAITC*™CA INX 4030 300AL76))3 
IF (N2t=ACCIT&eN2 DIV AL74))450))80 THEN 
AC77I13A(78) 
ELSE BEGIN 
ACTSIIMN2"CIKAL7T4) 23 
DISKIOCAC7I J] e*CA INX 39)%300N2)3 
END3 
END) 
END} 
IF SEQARRAYELLI,CEFIJ#0 THEN 
BEGIN STATABLELLL] ,DIALEDUPI«e13 
AC32]3@NABSCHPCDUPIIS AL72)9SNABSC#PCDUP) 3 
IF SEQ@ARRAY[LL) GEG O THEN GO TO EXIT) 


05874700 
05674800 
05874900 
05875000 
05875100 
05875200 
05875300 
05875400 
05675500 
05875600 
058675700 
05875800 
05875850 
05875900 
05876000 
05876100 
05876200 
05876300 
05876400 
05876500 
05876600 
05876700 
05876800 
05876900 
05877000 
05877100 


% MAX NUM OF OUPT RECS05877200 


05877300 
05877400 
05877500 
05877600 
05877700 
05877800 
05877900 
05878000 
05878100 
05878200 
05878300 
058678400 
05878500 
05878600 
05878700 
05878800 
05678900 
05879000 
05879100 
05879200 
05879300 
05879400 
05879500 
05879600 
05879700 
05879800 
05879900 
05880000 
05880100 
05880200 
05880300 
05880400 
05880500 


® END INI 
TERMNATES$ 


SEQARRAY(LL) 8% ABSC*#PCDUP))3 


FORKCPC,SCHEDIO)» 


CwLL de 


Oe 


Qe 


MYSTACK)3 


GO TO NOTHINGTODO; 


END3 
ENDS 
CONNECTCLLD3 
SEQARRAYCLLIIFA.(CFI3 
T $3 GETAREACO)3 


METI&STORSCLBLALs7IJALLC 2524088); 
METOLIGRNGRLLAS84781 J aNXTSCHEDLisitid3 


IF CN2t=DIRECTORYSEARCHCT1 INX FILE*®SCHe5)) NEQ@ O THEN 


BEGIN 
MCT#2] §@ MEN2 [NX 5]3 
FORGETSPACECN2)3 
END 
ELSE MET+2) t= NOT O3 
MUCT#3]9=CHARGES 


QUEVENTCT,CCF Je CANDEMIXCELLIJ)3 
AC32] 9=NABSC#PCDUP))3 AL/72I]8=NABSC*#PCDUP))} 
TS#SPACE(30)3 It#AFTER MOD 603 
STREAMOND eLLeCHARGEPAFTSBCAFTER DIV 60) 01+ 

XteCNOT CHARGE) sCitlJsYsaCAFTER NEG O)eT)3 
BEGIN DSteLIT” "3 SItsLOc Nis STs=ST+1s DSts7 CHR 


DSte5L1T" ON "$ THsDIS DStS3DEC# DSIe2LITS"3 
XCDSSELIT"C"S SLseS1413 DSI=7CHR} DSHELIT")")3 


YCDSSeLIT"C%3 STsSLOC AFT3 OSt#2 DEC 
OSseLIT*s"s OSte2 DECs DSteLIT")"%)3 
DSteLIT GLEFTARROWS OLS2T3 DSte2 FILLE 


END} 


LOGLINES=@10004LLS SPOUTITCTe INOUTK)3 

IF NXTSCHED LSS 0 THEN GO TO EXITS 
SYSDISKIOC3e"LLo CAtRARCGETAREACII4120CTCJ)2)3 
ACOJ,DIALEDUPHE1S ALLISSNIS ALSIteTIs ALCIIsH13 
SYSDISK]OCOs*LLeAd$ FORGETAREACT*®A INX NOT 093 


GQ TO STRT3 
TIATE/GOTO 


IF ADR «CFFJ NEQ 0 THEN GO REMOVITS 
® TERMINATE A RUNNING TASK 
IF SCHENDELL) THEN GO EXITS SCHENDELLIGa13 
AtSCMCSEQARRAY(LLI])&60(£68838:10)3 

IF NOTCAL72),01¢22) THEN SLEEPCLAL7T2ZI}«"0)3 


AC7T2] = ABS(*#P(DUP))3 


IF NOTCAL32),01311) THEN SLEEPCLAL32)]2°0)3 


AC32] 85ABSC#PCDUP))3 


IF DELTA NEQ@ O THEN DISKIOCIO&A,(CFI"1Le9300eR+N) | 


IF CAC71) AND TOMASK)®O THEN SLEEPCCAL7T19)]»1OMASK)3 


SYSDISKIOC3e*LLe40 INX ADS 


TISBALH2)3 


AC4O) ,DIALEDUPISA(L41 J SBAL42) SF AL43) tSSEQARRAY(LLJ 2203 


BSAVE NAME OF SCHEDULE IP 


STATABLE(LLJ,OJALEDUPI #03 
SYSDISKIOCOs*LLe40 INK ADS 
THESDIRECTORYSEARCH(T1eSCH»s8)ISDELETE DIR ENTRY 
Nis@eMCT INX 2]) N2tsmMET INX 5)3 


FORGETDISK3 


FORGETSPACE(T)3 


1F C10 AND TOMASK)#®0 THEN SLEEPCCIO] + 1OMASK)3 
FORGETSPACECDIRECTORYSEARCH(N2*Nie12))3 
IF CTS®DIRECTORYSEARCHCN2»N10e4)) GEQ 64 THEN 
BEGIN DISKWAITCPA,CCR]e30eCTINEMLT INX 10]))3 
STREAMCA)S 9CDSI38 WIT " ")} 


DISKWAITCA,LCFJs300T1)5 TIs=NR™13 FORGETSPACECA)S 


05680600 
05880700 
05680800 
05880900 
05881000 
05681100 
05881200 
05881300 
05881400 
05881508 
05661510 
05881520 
05881530 
05881540 
058681550 
05681560 
05681570 
05881600 
05661700 
209805881800 
%09805861610 
%09805881620 
05881900 
209805882000 
209805882020 
209805882040 
%09805882060 
309805882100 
05882200 
05682300 
05882400 
05882500 
035882600 
05682700 
05682800 
05882900 
05883000 
05883100 
05883200 
05883300 
05683400 
05883500 
05683600 
05883700 
05883800 
05883900 
05884000 
05884100 
05664200 
05884300 
05684400 
05884500 
05684600 
058684700 
05864800 
05884900 
05885000 
058685100 
05865200 
058665300 


ACCFIIRTS ALTISST13 ALSISEAL 6) 1203 05885400 

TUPSACLIS ALIIIEALB)3 05685420 

$ SET OMIT = NOT SHAREDISK 058685430 
ACA] teC#PCDUP)) OR 15 05885440 

$ POP OMIT 05685459 
KRUNCHERCA)S ALLIJs5T13 05685460 

$ SET OMIT = NOT SHAREDISK 05885470 
AC4]$=(*P(DUP)) AND NOT 13 05865489 

$ POP OMIT 05865490 
HEADERUNLOCK(N2»N10T)3 05885500 

END ELSE FORGETSPACECA)3 05885600 

ADRts0} 05885700 

IF FRSTSCHED NE@ SCHEDNUM THEN GO TO INITS 05885809 

GO TO EXITS 05885900 

% END TERMINATE A RUNNING TASK 05886000 
REMOVITS3 05886100 
%® TERMINATE A SCHEDULED TASK 05886200 
% OR LINK IT IN FRONT (XS) 05886300 
IF SCHEDTOG THEN SLEEPCESCHEDWRDJ»°0)3 05886400 
SCHEDWRD1*ABS(SCHEDWRD)S 05886500 

TLS®ADR INX FILES 05886600 

IF CTERDIRECTORYSEARCH(T1L**SCHe4)) GEQ 64 THEN 05686700 

BEGIN 05886800 

IF CNISRADR,C1612])NER® 3 THEN ® ES OR XS KEYIN 05886900 

BEGINS STREAM(N1sTieN2tsN23eSPACE(10))3 05887000 

BEGIN DSt=6LIT" TASK#"s SItsLOC T13 05887100 

STteS1453 DSs#3 CHR? 05887200 

NICDSas7LIT" RESET#"s JUMP OUT TO LDS 05887300 

DSts9L1T" REMOVEDS"3 05887400 

Lt ENDS 05887500 

SPOUT(N2)3 05887600 

IF Ni THEN & XS ** RELINK IT 05887700 

BEGIN MLT+6)t®NABSC(*PCDUP))3 %09805887800 

IF TieCCFISFRSTSCHED THEN 05887900 

HEADERUNLOCK( TL SCHeT) 05888000 

ELSE 05888100 

BEGIN DELINK$ MET+28)8=03 05888200 

MECT#29]8sT2t=FRSTSCHED INX FILES 05888300 

HEADERUNLOCK(T1¢SCHeT)3 05886400 

FRSTSCHEDI=T13 CHANGEDATECO)3 05888500 

IF (TI*DIRECTORYSEARCH(T2*SCHe4)) 05888600 

GEQ 64 THEN BEGIN M[T#28]4=T13 05888700 

HEADERUNLOCK(T2*SCHeT)3 05888800 

ENDS 05888900 

END} 05889000 

ADRIROS 05889100 

GO TO INITI3 05889200 

ENDS 05889300 

ENDS 05889400 

DELINKS 05889500 

IF CNL SSDIRECTORYSEARCHCMET#5]eM[T#2]94)) GEQ 64 THEN05889600 

BEGIN IF CMENI+#7) OR MEN144],03616])80 THEN 05889700 

BEGINS STREAMCXS*ADR CI7tL]eN2ZU@N288SPACE(10))5 05889800 

BEGIN DS#319 LIT"TASK TERMINATED BY "3 05889900 

XCDS#"8 LITUSER "sJUMP OUT TO L)3 058690000 

DSts8 LIT*OPERATOR"S 05890100 

Ls p$s"53 LIT" "y 05890200 

END} 05890300 
DISKWAITCN2*10oMEN1410))3 05890400 

FORGE TSPACE(N2)3 05890508 


cc a eee Fi 


END3 
MEN144),(3666] $3 633 % "ABORTED" 
MUONL 45] 2 eMEN146)3=03 
HEADERUNLOCKC(M( T4#5 3 oM[T4+2]9N1)5 
END} 
FORGE TSPACECDIRECTORYSEARCH(T1*#SCHe8))3 
FORGFETDISK3 FORGETSPACEC(T)3 
END 
ELSE IF CNIS#ADR,C1682])NEQ@ 3 THEN % ES OR XS KEYIN 
BEGINS STREAMCN1e TieZteTelLlitjaN2seN2seSPACE(10))3 
BEGIN DSteOLIT",TASK#™S S]ESLOC T13 
S1seS14#53 DS#tze3CHRs DSSeSLIT" NOT "3 
NiCDOSta5LIT"RESET®3 JUMP OUT TO L)3 
DSIF7LIT*REMOVED™3S 
La ZCDSES9OLIT*CIN USED*™3 JUMP OUT TO Li)3 
OSew14LIT"*CNoOT ON OYSK)« M3 
Lis 
END? 
SPOUT(N2)3 
END} 
% END TERMINATING OF A SCHEDULED TASK 
EXIETRIS SCHEDWRDIZNABSCSCHEDWRD) 3 
EXIT## KILUCERCW) INX NOT 293 
END SCHEDIDLE3 
PROCEDURE SCHEDIOCNUMe TYPE sADR)S SSIF FORQUED THEN ONLY 1 PARAM 
VALUE ADReNUMs TYPES REAL ADReNUM*TYPES 
BEGIN 
REAL RCW8+03 
ARRAY AC*]3 


REAL LULeT3 
REAL LSIZ®LLe KeT+ls LASRK+13 2 USED ONLY FOR WRITING. 
BOOLEAN FOLDINGFLAS#4{3 ® USED ONLY FOR WRITING, 


LABEL RDSTRT» FRSTRD«e RDe WRITAGNe® UPDATEs® UNLOCKI Te EXITS 
DEFINE PT#A(30]# 
elORAC31LI14# 
#DELTASA(L32)# 
oNFAL33I]2 
eS*ala4ale 
#REAC35I# 
eHBAl36)# 
eNR#AL37I1# 
sMR¥AC 36) 4 


IF CLLISADR,CFFIJ)80 THEN 
BEGIN LLSRADR,CCFI) ADRI#03 GO TO FRSTRD ENDS 
IF SCHENOCLLJ) THEN PCXIT)3 
ANSCMCSEQARRAY(LLIII&860(8138810)3 
IF ADOR,CiI8L) THEN ZINPUT 
% READ 
BEGIN As#40 INX AB’ GO TO RDS 
ROSTRT#?: JF NOT SCHEDLINECLLEsbLLo1) THEN GO TO EXITS 
IF STATABLEELL],DIALEQUP THEN 
IF SEQARRAY(LLJ.C1#2)52 THEN 
BEGIN SEQARRAY(LLIJ,CIt1] #*LOGLINE$ 303 


FRSTRDSss AtBEMCSEQARRAYECLL] INX 40]1860(6338:10)3 
60 TO RD} 
ENDS 
Seas GO TO ROSTRT}3 
ROt IF NOTCDELTA,CIt!I) THEN SLEEPCCDELTAJ+*0)3 


05890600 
05890700 
05890600 
05890908 
05891000 
05691100 
05891200 
05891300 
05891400 
05891500 
05891600 
05891700 
05891800 
05891900 
05892008 
058692100 
05892200 
05892309 
05892400 
05892500 
05892600 
05892700 
05892800 
05892900 
05893000 
05893100 
058693200 
05893300 
058693400 
05893500 
05893525 
05693550 
05893600 
05893700 
058693600 
058693900 
058694000 
05894100 
05894200 
05894300 
05894400 
05894500 
058694600 
05894700 
05694600 
05894900 
05895000 
05895100 
05895200 
05895300 
05895400 
05895500 
05895600 
05895700 
05895800 
05895900 
058960090 
05896100 
05696200 
05896300 


BEGIN KseTt#ADR3 


DELTAS=ABSC*#PCDUP))3 05896400 

IF C10 AND TOMASK)&®0 THEN SLEEPCOLIOJs IOMASK)3 05896500 

IF CNRE®NR+1) GE@ MR THEN SEOF 05896600 

IF CADR&®ADR,CCF))20 THEN &2C&8E REQUEST 05896700 

IF NR GEQ MR#2 THEN 05896800 
ACDELTAI!#@2270253737373737 2BYEenees 058696900 

ELSE SSEND PLAIN LEFT ARROW FIRST IN CASE 05897000 
ACDELTAJS#®NOT 0 2WE ARE IN SEQ MODE ogg 05897108 

ELSE BEGIN 05897200 
DELTASSNABSC#P(DUP))% TERMINATECPIMIX)3 05897300 
TERMINALMESSAGE (48) 05897400 

END3 05697509 
ACDELTA+9] 4a CNOT 0)3 05897600 

IF ADR NE@ O THEN 3NORMAL STATE PROGRAM 05897605 

IF NUM GTR O THEN %QUESTION MARK REQUIRED 05897610 
BEGIN 722@14370000000000003 05897612 
SCHEDIOC2s08A (CTE Je CCTIINXCORLLICTFI)))8 05897614 

END ELSE NUM?$*ABS(NUM)3 05897616 
SCHEDIOC7201 OR Me (A INX DELTA)J&LLICTF))3 ZWRITE IT QUTO0S897700 

IF ADR®O THEN &C&E REQUEST 05897800 
BEGIN ADR&*®GETAREAC2)3 05897900 
MCADRIPPORLLEL0NGOSB]&9L 2344s als ZSJZE AND MESSEND 05898000 
STREAMCSStSLACDEL TAI] e008 eaDRa7LCTF))3 05898100 

BEGIN SIt#SS3 DJ] 3201413 05898200 

3 IF SCFLEFTARROW THEN 05898300 
BEGIN DIt#DDs DItsDI +13 05898400 

DSISCHR3 058986450 

END ELSE 058985080 

BEGIN IF SC NE@ * " THEN DDt*DI3 05698600 

DStsCHRi GO TO L3 05898700 

ENDS 05698800 

END3 05898950 
GIVEAWAYCADR)3 05899000 

ADR3803 05899100 

END ELSE ZNOT CRE REQUEST 05899200 
BEGIN STREAMCNNS®I1F CTISNUM GTR 9) THEN 9 ELSE NUM» 05899300 
TisilF T THEN NUM"9 ELSE O» SS3eC(A INX DELTA)» 05899400 
ADRI#ADR,CCFI)3 05899500 

BEGIN SItwSS3 DSSENN WDOS? TC DSts& LIT" *) END3 05899600 

END} 05899700 

IF CDELTAIBDELTA4¢10)530 THENZEND OF DISK SEGMENT 05899809 
BEGIN [O8sDELTA3=03 05899900 

IF CN8e8N41) MOD S = 0 THEN ZSNEW ROW 05900000 

BEGIN DISKWAITC@A, (CCF 1+ 300H)3 05900100 

RtmACOnN DIV S)4+10]°N3 05900200 

ENDS 05900300 
DISKJOCTOsCl@Ag( CFI)» 30eR4N) 05900400 

END3 05900500 
DELTAS #NABSC*PCDUP))3 05900600 

IF ADR®O THEN GO TO RDOSTRTS 05900700 
PCXIT)3 059008600 

END3 05900900 
% WRITE 05901000 
PCO*e000)3 &B Ke LASe FOLDING 05901020 
IF TYPE,Citi) THEN PCXIT)$3 % 1/2ASC]1 STUFF NOT ALLOWEDO05901040 
IF NOT CDELTA,£181)]) THEN SLEEPCL DELTA) 0%0)3 05901060 
DELTA!IBSABSC*¥PCDUP))3 059010860 
ADRSFADR,CCFI3 05901100 
IF CLASS®TYPE,(2313) OR TYPE,CFFI OR NUM GTR 72"PT THEN 05901120 


® SCAN FOR * OR END OF DATA 05901140 


DO BEGIN 05901160 
STREAMCLASe Ts KE [SIF NUM GTR 63 THEN 63 ELSE NUM)305901180 

BEGIN S]teK} 059014200 
ICCIT8eC]4+Las? GO TO L3 05901220 

IF SCw"e" THEN 05901240 

BEGIN TeeSIs TALLY#=13 05901260 

JUMP OUT? 05901280 

END} 05901300 

Ls IF Sc#¥" * THEN BEGIN SI taSIe13 TteSt END ELSE 05901320 
SlaeS]41)3 05901340 

LASHSTALLYS Kg*ST3 05901360 

END3 05901380 

KtsPs TisP; 05901400 

END UNTIL P OR CNUM2®NUM"63) LEQ 03 05901420 
NUMSST,C3083]&CT#ADRI(30833315)3 05901440 

END) 05901460 
WRITAGNE IF NR GE@ MR THEN GO UNLOCKIT3 % DONT WRITE JF FULL 05901500 
JF CIO AND TOMASK)&=0 THEN SLEEPCOIOJ+ IOMASK)}3 05901550 
IF CDELTA)#®0 THEN 05901600 
BEGINS STREAMCAISAe([CFJ)3 05903700 
BEGIN DSts8 LIT" "3 SJs#As DOStF29 WDOS END 05901800 

END3 05901900 
NREaNR+13 Tea INX DELTA; 05902000 
STREAMCNNEBNRe T1i8T49)} 05902100 
BEGIN SIs*LOc NN DSt#8 DEC! END3 05902200 
IF NR+10*MR THEN % CONSIDER THE FILE FULL 05902300 
BEGIN 05902400 
STREAMCT)3 DSt=22 LIT"**END OF SCHEDULE TANK"$ 05902500 

IF AC77) LSS AT78) THEN AL77]4#AL78]3 %& FORCE EOF ON INPT05902600 

IF PiMIX GTR O AND PIMIX#CANDYINX THEN 05902700 

IF DATCPIMIX],NOSABLE THEN BREAK(LLJ $1 ELSE 05902800 
TERMINATE CPIMIX&67(LCTFJ)3 05902900 

END 05903000 
ELSE BEGIN 05903100 
IF FOLDING THEN % INDENT THE LINE 05903150 
BEGIN STREAM(T)$ BEGIN DIt#D14103 DSte2 ULT*xx™s END} 05903200 
PTt2123 05903250 

END3 05903300 

IF FOLDING: @=CCKE@NUM) GTR CLSIZ:e72°FT)) THEN 05903350 
BEGIN STREAMCADR! QteLSIZ"2e Q1:eP(DUP),£3983)>, 05903400 
Tt80F NUM>LSIZ+434 THEN 24 ELSE LSIZ+58"*NUMe DeeTe+9)3 05903450 

BEGIN SIt#ADR} 05903500 
Qi¢STseSie323 STteS14+32)3 STr#S$]+Q3 05903550 

Di1eO]"23 TALLY#523 05903600 

ICIF SC#* © THEN JUMP OUT TO L3 05903650 
TALLYISTALLY412 SlemSieds Dissdle4)3 05903700 

DLteOl +13 TALL YI 823 05903750 

Li DSie2 LIT%xx"3 ADRSSTALLY3 05903800 

END3 05903650 
Kt=LSJZ=PCXCH)3 05903900 

END) 05903950 
STREAMCADRS Ke [88K GTR 640 DieCTePT,€(4035) )&8PT63034533))305904000 
BEGIN SI&®ADRI DSteK CHRI 05904050 
ICDS8#32 CHR} DSt832 CHR); 05904100 

ADRIseS]} 05904150 

END} 05904200 
ADRt®P3 05904250 

IF FOLDING THEN 05904300 

. BEGIN 05904350 
UPDATE! IF CDELTASSDELTA INX 10)#30 THEN 05904400 


BEGIN JORtFDELTAtaO3 


05904450 


DISKIOCIOPASCCFIT1e 30s Ren) 3 05904500 

IF CCNS@N41) MOD S80 THEN % END OF THE ROW 05904550 

BEGIN RteGETUSERDISK( #6 )eN3 05904600 

SLEEPCLIO] + TOMASK); 05904650 

$ SET OMIT = SHAREDISK 05904690 
LOCKDIRECTORY3 05904700 

$ POP OMIT 05904710 
DISKWAITC™AgLCFJe™308H)3 05904750 

ALCON DIV S$)#10] 8=R4NI 05904800 

DISKIOCIO*AcICFI"1e"300H); 05904650 

&$ SET OMIT = SHAREDISK 05904890 
UNLOCKDIRECTORY$ 05904900 

$8 PQP OMIT 05904910 
END ENDS 05904950 

IF FOLOING THEN 05905000 

BEGIN NUMS#®NUM*K3 05905050 

GO WRITAGN3 05905100 

END3 05905150 

IF CTYPEt®(NOT 0) INX TYPE),( CF) # O THEN 05905200 

BEGIN NUMSsO8} 05905300 

GO WRITAGN} 05905400 

END} 05905500 

PTtRO3 05905600 

END ELSE 05905700 

IF TYPE,CCFIJ#O THEN 05905800 

BEGIN NR&eNR@ 1s 05905900 
DELTA,CFFJ8201003 05906000 

PTs aPT+K3 05906100 

END ELSE GO UPDATES 05906200 

END; 05906300 
UNLOCKITs 05906350 
DELTAI*NABSC*PCDUP))3 05906400 

PCXIT)3: 05906500 

EXITss KILLCERCWJ) INX NOT 2)3 05906600 
END SCHEDIO3 05906700 
PROCEDURE MDKBUSINESS(BUFF)S VALUE BUFFS REAL BUFFS 028705950000 
BEGIN 2028705950200 
REAL RCWH+0. 2028"05950400 
MIDSRCW+1e 4028705950600 
FIDSMID+1e %028705950800 

TMID#®F [Dele 05950900 
TFIDSTMI D410 05950950 
A@TFID41» 05951000 

BaAel; %028°05951200 

INTEGER N®B+13 %4028°05951400 
ARRAY HOBNGi Ce]; %028"°05951600 
BOOLEAN RDT&HD+13 05951700 
INTEGER CERDT +L eDeCeleleDel oda] ei eRedeleSmRele 05951800 
LABSH+LeSALENT2¢ 05951900 

HENT7 eK RNT6eLENTS e GENT Oo TaNT3»QRJUNK3 %028°05952000 

REAL EsLAet3 05952200 
REAL KTReB3 05952210 
REAL TYPESC3 05952220 
REAL WORDSD$3 05952230 
REAL HAJ} 05952240 
REAL HEADER#R} 05952250 
ARRAY HOR#EL*)3 05952260 
BOOLEAN FILTOG#E413 05952270 
REAL SEGS®FILTOG413 05952300 


LOs 


Lit 


10% 


Les 
Ti: 


SET OMIT = SHAREDISK 
ARRAY UTsHOEL*)]3 INTEGER AVS&SEGS413 DEFINE UsAVTABLESS} 
INTEGER SLEEPER@AVS413 
POP OMT 
SET OMIT = NOTCSHAREDISK) 
INTEGER BBBSEGS41e0LeBBeleoFEDLe1e+SLEEPERSF 413 ARRAY UFHD(¥*]3 
DEFINE UTSUS3 
POP OMIT 
LABEL VeWeXeVeZoAZeBZeCZeINUSESEXITS 
LABEL FILEIDeXDFILEsCONFLICTsFOUNDeMSGeFINIS3 
SET OM]IT = NOTCSHAREDISK) 
LABEL YZ} 7 
POP OMIT 
REAL SUBROUTINE DECWORD3 
BEGIN 
STREAMCT#*OsWe[WORDIJ)3 
BEGIN 
SleWs DIleLOC Ts DS#8DEC3 
END STREAM3 
DECWORDeP3 
END DECWORDS 
SUBROUTINE SCAN3 
BEGIN 
STREAMCKTRe TYPE*O8TeOeWeLWORDI)} 
BEGIN 
SI*KTR} 
IF SCs" " THEN BEGIN SI«S]4#13 GO LO END3 
IF S¢Cs""" THEN % STRING IDENTIFIER 
BEGIN 
SleSy#1s DSeLIT"O"; 
IF Scwe"™" THEN 
BEGIN 
SreSr+13 
IF Sca*"" THEN DS*CHR ELSE DOSeLIT" "3 
DS#6LIT" "3 
END ELSE 
BEGIN 
7CIF SC#""" THEN DS*CHR ELSE DS*LIT®™ "93 
IF Sc#""" THEN BEGIN SIeSI*1$ GO Lis END) 


SleSI+i3 
END} 
GO Ti13 
END$ 
IF SC#ALPHA THEN JF SC LSS "0" THEN 
BEGIN % IDENTIFIER 
DS#LIT*O"S 
TCIF SC#ALPHA THEN OS*CHR ELSE DS#LIT® ")3 
IF SC@ALPHA THEN BEGIN S]eSI]4¢13 GO Les END3 
TALLY«13 
GQ EXT3 
END3 
IF SC#ALPHA THEN IF SC LEQ "9" THEN 
BEGIN % NUMBER 


SleSy#13 TALLY#13 

7CIF SC#ALPHA THEN IF SC LSS "0O* THEN 

BEGIN TeTALLY3S SJeSI]*Ts JUMP OUT TO JD3 END 
ELSE IF SC LEG "9" THEN 

BEGIN S{e¢SI413 TALLY*+TALLY4+1s END)3 
TeTALLY3 SleSi*Ts DSeT OCT3 

TALLYe23 


05952399 
05952400 
05952500 
05952501 
05952505 
05952510 
05952520 
05952521 
05952600 
05952620 
05952690 
05952700 
05952701 
05952705 
05952710 
05952715 
05952720 
05952725 
05952730 
05952735 
05952740 
05952745 
05952750 
05952755 
05952760 
05952765 
05952770 
05952775 
05952780 
05952785 
05952790 
05952795 
05952800 
05952805 
05952810 
05952815 
05952820 
05952825 
05952830 
05952835 
05952840 
05952845 
05952850 
05952855 
05952860 
05952865 
05952870 
05952875 
05952880 
05952885 
05952890 
05952895 
05952900 
05952905 
05952910 
05952915 
05952920 
05952925 
05952930 
05952935 


seer Salata oe ih ed pi teed ne ta 


EXT! 


Lt 


END $ 
SUBRO 
BEGIN 


END M 
SUBRO 
BEGIN 


END E 


GO EXT} 
END3 
IF Sc#"«" THEN TALLY*#3 ELSE TALLY«53 
DS*7 LIT"O"3 DS*CHR3 
TYPE*TALLYS 
KTReS][5 
END STREAM$ 
PC ,TYPEsSTDe»KTReSTD)3 
CAN3 
UTINE MLOGITS 


S*#GETSPACEC1597300)423 
STREAMCBIDATE#D«S41)3 
BEGIN 
SI*LOC DATES DS*8 OCTs DI+D1I+83 
SIIB) 


2C6O3CTF Sc#"*" THEN DOS*CHR ELSE JUMP OUT 2 TO LL))3 


DS*LIT"e"s DI*DI713s BeDI} 
END STREAM 
LA* P INX 03 
MES)* CLA®S) DIV 53 
MES+2]¢]F FILTOG THEN *N ELSE SEGS3 
LINKUPC182S)3 
LOGIT: 
UTINE ENTERFILES 


FIXARRAYCHD?Bs30)3 
MOVEC302HD"™10HD)3 
HD£0)«@3600036000101;3 
STREAMCDATE »XCLOCKsH*HD INX 3)3 
BEGIN 
SJT*LOC DATES DS+80CT3 
DleD1I™203 Ste#SJ+4s3 DS#4CHRi 
Dle#DI"73 STeHs SleSl4+5$3 DS*3CHR3 
DIeHs DSe2LiIT*+#"s STeS1"33 DS*3CHR}3 
END STREAM3 
HOC4),C42t1)} 3513 % MAKE FILE NON*@MOVEABLE 
HNC7TI“CHDICSJeNI"CHDI9I] «193 
HDCLO] «a3 
ENTERUSERFILECMIDeFID,(6842)2871)3 
STREAMCMIDeFIDeNe TMIDeO TEI DoF ILTOGs 
BelF FILTOG THEN B FLSE BUFF)3 
BEGIN 
SyTe#LOC NS Dy*+LOC N3 DS+8DEC3 
DIeLOC NI OSe#7FILLS DI] «B3 
DSeLIT™ "3 ST*#LOC MID$ Sie*S]o1! DS*#7CHR} 
OS#LIT"/"3 SleSt4#13 OS«7CHR3 
DS*6LIT" SEGSE"3 DS*8CHRS DS*8LIT" CREATED" 
FILTOGCDS*6LIT"® FROM "3 ST#Sl#13 DSe7CHR3 
OSeLIT®™/™s SleSi¢13 DS*7CHR)3 
DSeLIT" es 
END STREAMS 
IF FILTOG THEN 
BEGIN 
MLOGIT3 
SPOQUTCB):; 
END ELSE 
FORGETSPACE(B)3 
NTERFILES 


PCOr0e0e0e0eBUFFeDUP)S BUFFeP,(15t15)"13 P(Or00B LSS 0)3 


05952940 
05952945 
05952950 
05952955 
05952960 
05952965 
05952970 
05952975 
05952980 
05952985 
05952990 
05952995 
05953000 
05953005 
05953010 
05953015 
05953020 
05953025 
05953030 
05953035 
05953040 
05953045 
05953050 
05953055 
05953060 
05953065 
05953070 
05953075 
05953080 
05953085 
05953090 
05953095 
05953100 
05953105 
05953110 
05953115 
05953117 
05953120 
05953125 
05953130 
05953135 
05953140 
05953145 
05953150 
05953155 
05953160 
05953165 
05953170 
05953175 
05953180 
059531865 
05953190 
05953195 
05953200 
05953205 
05953210 
05953215 
05953220 
05953225 
05953350 


PCOs0s0r0r Os 0e0e0e0e0n0)3 


& SET OMIT * NOTCSHAREDISK)3 


P(020)3 


$ POP OMIT 


IF BelCCFJ]*#O0 THEN® MAKE RESERVE/DISK 
BEGIN MIDRFw*RESERVE"3 FIDSs"DISK "3 
IF CAtBSDITRECTORYSEARCH(C*MI]DeF1D95))2#40 THEN 
BEGIN STREAMCBUFF)3 
DSts30LIT"® RESERVE/DISK ALREADY PRESENTe"3 
GO TO EXITS 
END} 
IF CA*GETUSERDISK(CN*RESERVEDISKSIZE)&10284781)))80 THEN 
BEGIN STREAMC BUFF )3 
DS#s32L1T%**NO USER DISK FOR RESERVE/DISK#"™}3 
GO TO EXITs 
END; 
GO TO CZ3 
END} 
IF ROT THEN 
BEGIN P(B)3 ASSMEBUFF JINX 0)3 N&sMCE BUFF INX 433 END ELSE 
BEGIN 
SCAN} 
IF TYPE31 THEN & IDENTIFIER 
BEGIN 
TMID*WORDi 
SCANS IF WORD#"/" THEN GO EXIT3 


FILEIO$ 


Vi 


SCANS IF NOTCTYPE®1 OR TYPE®2) THEN GO EXIT3 
TFID*IF TYPE®2 THEN DECWORD ELSE WORD} 
FILTOG+TRUES 
SCAN} 
ENDS | 
IF TYPES2 THEN % NUMBER 
BEGIN 
A*WORD3 
SCAN} 
IF TYPES3 THEN IF WORD#®"/" THEN 
BEGIN 
WORD*A} 
AeQ3 
TMIDeDECWORDS 
GO FILEID3 
END ELSE SCAN} 
IF TYPER2 THEN NeWORD} 
END} 
END$ 
SEGS*NeN+(NR0)3 
IF A#0O THEN 
BEGIN 
STREAMCASDS#(FIDI)3 
BEGIN SIssLOc As} DSt#8 DECS ENDS 


05953360 
05953369 
05953370 
05953371 

%028"05953400 

2028705953600 

%028"05953800 

$028°05954000 

$028705954200 

%028705954400 

%028"05954600 
05954800 

%028°05955000 

%$028"05955200 

%028°05955400 

4028705955600 

%028%05955800 

%028705956000 
05956250 
05956300 
05956350 
05956400 
05956450 
05956500 
05956550 
05956600 
05956650 
05956700 
05956750 
05956800 
05956850 
05956900 
05956950 
05957000 
05957050 
05957100 
05957150 
05957200 
05957250 
05957300 
05957350 
05957400 
05957450 
05957500 
05957550 
05957600 
05957650 
05957700 
05957750 

%028"05958600 

%028°05958800 


IF CJ#RA DIV 1000000) GEQ NEUP,NEUF OR A LSS DIRECTORYTOP44 THEN 05959000 


BEGIN STREAMCFID«BUFF D3 
BEGIN DSts22L1T" INVALID DISK ADDRESS "3 
ST*BL0C FIDI OStRBCHRS DOSHBLITM eo} 
DI] teDI9s NSIe7 FILLS 
END3 
GO TO EXIT3 


ENDS 


%028°05959200 
%028°05959400 
%028"05959600 
%028"05959800 
4028705960000 
%028"05960200 
8028705960400 


IF WAITIOCLEIDIINX@100000000@64r1B84FID.6581))ef4281) THEN GO TO V3 05960600 


ioc eaeat As ene tea SEL a Tn a a it ae Soe 


IF (CR#@FID.£1216)) GEQ 2 THEN & CHECK FOR 40 MIL ADDRESS 05960650 
ai NOT WAITIOCLEFIDIINX @140000000-0645184+FID,(581)),04321) 05960660 
THEN GO TO V ELSE IF R GEQ@ 4&4 THEN G0 TO Vie INV ADD 05960670 


END} 05960675 

IF FILTOG THEN GO XDFILES 05960680 

IF AsO THEN GO EXITS 05960685 
SLEEPCETOGLE Je USERDISKMASK)$ LOCKTOGCUSERDISKMASK)3 05960700 

$ SET OMIT = NOTCSHAREDISK) 05960705 
FIXARRAYCUsReAVS)3 DISKWAITC#Re "AVSPUSERDISKBOTTOM)3 05960710 

$ POP OMIT 05960711 
vedels 05960800 
BZs DIFCIe*CESFULCI) eSTARTWRD) MOD 303 2026705961000 
$ SET OMIT = NOTCSHAREDISK) 05961005 
IF (S*#Ke(C*E AND NUMENTM) + LeI) 2 (FeAVS) THEN 05961010 
BEGIN 05961020 

PCCDL * IF 1¢30 THEN O ELSE TF CUCO] AND NUMENTM) § 30 05961030 

THEN 30 ELSE 60)4D2eDUPeCe+e+DUPeDUP)3 05961040 

IF (F « P = P MOD 30 + 30) 2 AVS THEN 05961050 

BEGIN USERDISKSPECIALCASECO+ReUsFaDLECTFI)3 UsFLAGCP)SEND3 05961060 

IF [+P >AVTMAX4#D4+DL THEN GO Y3 05961070 

IF PCDL#0e0UP) THEN PCUTCDL@1]9XCH)3 05961080 
DISKWAITC*C(R+DL) oF" OL e BB © USERDISKBOTTOM+] DIV 30)3 05961085 

IF P THEN UTCDL"1) * PCXCH)S KePy LeP3 05961090 

END} 05961095 

$ POP OMIT 05961099 
$ SET OMIT = SHAREDISK 05961199 
AVStw30"(CSte(CIFE AND NUMENTM)4D)MOD 30453 2026"05961200 
FIXARRAYCUTPReAVS)S DISKWAIT(*ReAVSeBte] DIV 30+USERDISKBOTTOM)3 05961400 
KteS} LteDs Steeles %026"05964600 

$ POP OMIT 05961601 
GHFLTONT2rs(PCULU@1)2DUP) AND NUMENTM)4#PCXCH) «eSTARTWRD) 3 %028705961800 


SUPULI +L J eSTARTWROWS3 HeeksaKegs TF UTCT#sbL),DEND GTR A THEN GO Xs 05962000 
Wh TF UTCT#CHeLed) DIV 2),DEND > A THEN IF UTCH*T"1),DEND > A THEN GO W05962200 


ELSE ELSE IF UTET#T+1],DEND S$ A THEN BEGIN LeT4+13 GO W END3 %028"05962400 

Xt IF A GE@ LiaCHtRUT(T) DENDI*CQteUTCTI,DSIZE) THEN 05962600 
IF CLAtS(CA4N)) LEQ H THEN GO AZZ%AREA AVAILABLE 05962700 
ELSE IF LA LE@® SALSeCUTCT+1) DEND*UTCT4+1],0S1ZE) THEN 05962800 
N¢wLAtAtsH ELSE NizSAL*AtsH ELSE IF CLAS#A4+N) GTR L THEN 05962900 
NtsL"A ELSE RDTSeRDT OR #4000003 05963000 

GO INUSES 05963100 

Yt TMEpterr ROT THEN "DOKTEST “" ELSE "BADISK "3 05963800 
$ SET OM]T = NOTCDKBNODFX AND NOT DFX) 05963809 
IF FID,C5t1J) THEN TMID,C42%6)i8@223 % NAME CHANGE DKB 05963810 

& POP OM|T 05963811 
STREAMCTMIDeFIDeNeMI[ Do Be BUFF )3 05964000 
BEGIN DS#aLIT ","3 STaewLOc TMID$ STt*Sl4l1s NSIF7 CHR} 05964200 
DStsLiT "/"3 S1¢sS]4+13 DS3#7 CHR 05964400 
OStei3 LIT ™ NOT CREATED( "3 SIt*S1483 SKIP SB! 05964500 

IF SB THEN ELSE 05964600 

BEGIN SIteLOC Ni DSte7 DECS N8wOls DISeDI"73 DSte7 FILLS 05964800 

DIt®N3 OSte5S LIT ™ SEGS™S SltwSteis 05964900 

END$ DSt#ti LIT " IN USE BY "3 DSt#7 CHRIS DSIsLIT"/"s 05965000 
SissSleots OSt87 CHR} 05965200 

DSie2 LIT") 6"3 05965400 

END? 05965600 
FORGETSPACE(CR)3 . %028"05966100 

GO EXIT: 05966110 


INUSES % SEARCH THE DIRECTORY TO FIND THE NAME OF THE CONFLICTINGO5966200 
. ® FILE, SINCE USERDJSK REMAINS LOCKEDe DISK ALLOCATION 05966210 
® CANNOT CHANGE. HENCE» THE DIRECTORY NEED NOT BE LOCKED,05966220 


FORGETSPACECR)3 
FIXARRAY(UTsR2460)3 
FOR JispIRECTORYTOP+4 STEP 16 WHILE TRUE D0 
BEGIN DISKWAITC*Re4B800J)3 
FOR 13814 STEP =} UNTIL O DO 
BEGIN EsFUTC45042x1 03 
IFCE EQV @114)=NOT O THEN 
BEGIN MIDs2"SYSTEM "3 BIFFIDS GO Z3 END3 
IF CE EQV @44) NE@ NOT O THEN 
BEGIN BteUTC30x149)] AND 313 
FOR Kit STEP 1 UNTIL B DO 
IF (CC8SUTL30xT4+94+KIJINEQ O THEN 
IF A GE@ C THEN IF A LSS 
SAL§=(C4+DseUT(C30x]>+8)) THEN 
BEGIN MID&wEAC (LA LE® SA1) AND 
CROTeL18815)) Cis473113 
IF AN GTR SAL THEN N#SA1*A3 
BteUT(a5i¢2x1)3 
GO To é3 
END3 


END} 
Z3 
$ SET OMIT = NOT SHAREDISK 
UNLOCKCUSERDISKBOTTOM)$ 
$ POP OMIT 
UNLOCKTOGCUSERDISKMASK)3 
GO TO Y3 
Adt IF A NEQ@ L AND LA NEQ H THEN 
BEGIN IF S*0 THEN 
$ SET OMIT = NOTCSHAREDISK) 
BEGIN IF GeO THEN GO YZ} 
PCCG4+1) DIV 2)3 
IF BB>1 THEN 
BEGIN IF D#0 THEN 


YZ3 BEGIN USERDISKSPECTALCASE(2cE eUTeJ)3 
UT*FLAGCP)$ ReUT,CCFIJIBB*03 GO BZ3 
END? 
IF PCDUP)>D THEN PCDEL*D)3 
END3 
S + P} 


UCJIJeSTARTWRD « G*I*SSIF BB>1 THEN G © DL+DeS3 


K # G4C"13D « IF BB>1 THEN D#OL ELSE J[3 
$ POP OMIT 
$ SET OMIT & SHAREDISK 
BEGIN IF G®O OR DBO THEN 


BEGIN USERDISKSPECIALCASE(C2sEsUT#J)3 GO TO BZ END} 
SieIF PCCG+1) DIV 2eDUP) > D THEN PCDEL2D) ELSE PS 


oe UCI], STARTWRDtS#1°S3 GteDeS) KteGgecol3 
$ POP OMIT 
MOVECCOLCUTECDIJ Je CL UTEG]J)3 TeeTeSs 
END: 
FOR Gtsk STEP ©1 UNTIL T 00 UTLG+1] ssUTLG]3 
UTETISSARCA™LILTODSIZE)3 
UTET+1 2 ¢8H&CH*LAIETODSIZE)3 
Cracet? 
K « Ke{} 
END ELSE 
IF A®L AND LA®H THEN 


05966400 
3028705966600 
%028"05967000 
%026°05967200 
2028705967400 
2028705967600 

05967800 

05967900 
3028705968000 
%028°05968200 
%028°05968400 
%028"°05968600 

059688600 

05968900 

05969000 

05969100 

05969150 

05969200 
3028705969400 
%028°05969600 
%028"05969600 
%028"05970000 
%028"05970200 

05970300 

05970390 

05970400 

05970410 

05970500 
$028"05970600 

05970800 
%028705971000 

05971005 

05971010 

05971012 

05971015 

05971020 

05971025 

05971030 

05971040 

05971050 

05971060 

05971070 

05971080 

05971090 

05971098 

05971095 
%028°05971200 
%028"05971400 
202805971600 
$028°05971800 

0597180$ 
%028"05972000 
%026"05972200 
%028"05972400 
3028705972600 

05972800 
%028"05973000 

05973100 
%028°05973200 

05973400 


BEGIN CtsCe1s MOVECKToCUTET#2) Jo fFUTCTIID$ Kt=Km1 END 028705973600 
ELSE UTETISaCIF AL THEN H ELSE A)&COPN)ETODSIZE)3 %026"05973800 
UcJ] =NUMENT3 C3 %028"05974000 

IF Q@UfJU),MAXSIZ THEN %028°05974200 
BEGIN Q:eUTCHESK*C4+1),DSIZE3 05974400 
FOR HtSH STEP 1 UNTIL K 00 05974600 

IF PCUTCHI,NSIZE*DUP) GTR @ THEN Q@t3P ELSE PCDEL)3 2028"05974800 

ULI] eMAXSIZt #0; 2028"05975000 

ENDS 2026"05975200 
MIDSSIF RDT THEN “DKTEST " ELSE "BADISK "3 05975400 

$ SET OMIT = NOTCDKBNODFX AND NOT DFX) 05975404 
IF FID,(C531] THEN MID, (4236]%=@225 & NAME CHANGE DKB 05975405 

$ POP OMIT 05975406 
£ SET OMIT = NOTCSHAREDISK) 05975410 
SCRATCHDIRECTORYENTERCA®N)3 05975440 

IF BB>1 THEN 05975450 
BEGIN 05975460 

IF DL¥O AND UCJI4E THEN DISKWAITCR»DL*USERDISKBOTTOM)3 05975500 
DISKWAITCR+DLeF *D0L»BB)3 05975550 

END ELSE DISKWAITCRe AVSsUSERDISKBOTTOM)3 05975560 
UNLOCKCUSERDISKBOTTOM)3 05975570 

$ POP OMIT 05975571 
$ SET OMIT = SHAREDISK 05975595 
DISKWAITCR#AVSeB)3 ’028°05975600 

$ POP OMIT 05975601 
UNLOCKTOGCUSERDISKMASK)3 05975610 
FORGETSPACECR)3 05975620 
CZ: ENTERFILES 05975630 
GO EXIT: 05975640 
XDFILES 05975700 
IF CHEADER&S=DIRECTORYSEARCHCTMIDeNFLAGC™TFID OR M)e4)) LSS 64 THEN 05975750 
BEGIN 05975800 
TYPES SHEADER3 05975850 

GO MSGI 05975900 

END3 05975950 
HA*HEANDER.CFFI3 05976000 
HDR*CMEHEADER*HEADER INX 03) & 30(8:36310]3 05976050 
MID**"BADISK "3 05976100 
S*HDOR(8)3 ® SEGMENTS PER ROW 05976150 

IF A¥0 THEN 05976200 
BEGIN 05976250 
FOR I*HDRE9J STEP #1 UNTIL 1 DO 05976300 

IF CLA*HDRLEI4+93)#0 THEN 05976350 

IF A GEQ LA AND A LSS LA+S THEN % FOUND ROW 05976400 

IF A+N LE@ LA+S THEN GO FOUND ELSE GO CONFLICT 05976450 

TYPE #4} 05976500 

IF FALSE THEN 05976550 

BEGIN 05976600 
CONFLICTS TYPE*33 05976650 
SEGS*A4+NPLAPS3 05976700 

END3 05976750 
HEADERUNLOCK(TMIDeTFIO*®HEADER&HALCTFIJ)3 05976600 

GO MSG} 05976850 

FOUND 05976900 
HORE 1+9)«03 05976950 
DISKWAITCHEADERs 300HA) 3 05977000 

IF C1eA*LA) GTR O THEN FORGETUSERDISK(LAGI)3 05977050 

IF CYeLA+S*(LAeA+N)) GTR O THEN FORGETUSERDISK(LA»1)3 05977100 

$8 SET OMIT # NOTCOKBNODFX AND NOT DFX) 05977124 
IF FID,s(€581) THEN MID,£4286)'20223 % NAME CHANGE DKB 05977125 


$ POP OMIT 05977126 
ENTERFILES 05977150 

GO FINIS? 05977200 

END3 05977250 
NeSs SEGS*03 05977300 

FOR TeHOR(9) STEP “1 UNTIL 1 DO 05977350 

IF CA*HDRO14+9))#0 THEN 05977400 
BEGIN 05977450 
HORE 149703 05977500 
DISKWAITCHEADERs 302HA)3 05977550 

WORD*AS FID*DECWORDS 05977600 

$ SET OMIT & NOTCOKBNODFX AND NOT DFX) 05977624 
MID, C42:6)t20F FIDE5%1] THEN @22 ELSE @603 %& NAME CHANGE DKB 05977625 

$ POP OMIT 05977626 
ENTERFILES 05977650 
SEGS*SEGS+N3 05977700 

END} 05977750 
FINIS8 05977800 
FORGETSPACECHEADER)$ 05977850 
PCDIRECTORYSEARCHC*TMIDSTFID#6)eDEL)S 05977900 
TYPE +53 05977950 
MSGI 05978000 
STREAMCTMIDs TFID*+SEGSe As TYPE BUFF )3 05978050 
BEGIN 05978100 
SI*LOC SEGS$ DIle*LOC SEGS3 DS*8DECS LS*8DECS 05978150 

Di*LOC SEGS DS*S8FILLE DI«LOC A’ DS*8 FILLS DI*BUFFS 05978200 
DS*LIT%,"3 SI*LOC TMID$ SI*SI+1s DS*7CHRE 05978250 
DS*LIT"™/"S STeSlo1s DS#7CHRS 05978300 

DSe11 LIT" NOT XDR*EDC™S 05978350 
CIeCI+TYPE3 05976400 

GO TOs GO 113 GO T2s GO T33 GO T4s GO T53 05978450 

TOr DSe11 LIT*"NOT ON DISKS GO EXT 05978500 
T38 DS*8 CHR DSe6 LIT" SEGS 3 05978550 
Tit DS*6 LIT"IN USE"S GO EXT3 05978600 
T2t DS#11 LIT*SYSTEM FILE"S GO EXT3 05976650 
TAs ST*S1+83 D0S«8 CHR? 05978700 
DS*#12 LIT™ NOT IN FILE"S GO EXT 05978750 

T5t Dt*DI"ils 05978800 
DS*6 LIT” SEGS#"3 DS*8 CHRS OSe¢7 LIT" XD"EDe"S 05976850 

TYPE*DIS DI*BUFFS DS*LIT™ “3 DI* TYPES GO EXT3 05978900 

EXTs DSe2 LIT™)«"3 05978950 
END STREAMS 05979000 
Aels NeSEGS3 % FOR LOGGING 05979050 

GO EXITS 05979100 
EXITs 05979310 
IF A#0 THEN 05979320 
BEGIN 05979330 
BeBUFF 3 05979340 

MLOGITS 05979350 

ENDS 05979360 

IF ROT THEN MUSLEEFPER INX 0) 8#1 ELSE SPOUTCBUFF)3 05979400 

END} 4028705979600 
SAVE PROCEDURE DISKIOCLOCIODsCORE+SIZEsDISKI3% 06000000 
VALUE COREsSIZE»DISKsS 06001000 

REAL LOCIODsS 06002000 

INTEGER CORE *SIZEsDISKs% 06003000 

BEGIN REAL 10D» OLAYIO* FINS 06004000 

OLAYIO 8% SIZE,C3sLI3 SIZE,L381] 8% OF 06004010 

IF DISK,C18#1) THEN % DRUM OR AUXMEM 06005000 

BEGIN 06007000 


$ SET OMIT = NOTCAUXMEM) 
NT1 33 O3 
10D &* CORE,CCF) & DISK{CTF] & COREL231:1) & 
CSIZE INX 1)£88383910) @ 
CCSIZE #® DISK.0£3281))41)0494632) 
$ POP OMIT 
$ SET OMIT = AUXMEM 
BYBYC™INVALID AUXMEM 1/0 %e19)3 
$ POP OMIT 
END 
ELSE 
BEGIN 
10D t® ABSC(CORF) & SIZEL8:38810) & 
CCONTI3S51ZE) INX 29) DIV 30 + @1000)CCTF) & 
COREC2Z4¢181) & 37584632)3 
$ SET OMIT * NOTCSHAREDISK) 
DISK, CissiseSIZE.f181)3 
$ POP OMIT 
STREAMCDISK»sDt2CORE,(CF])3 


BEGIN ST « LOC DISKS DS « & DEC END33% 


SIZE «© 25% 
END?& 


FINGRIF OLAYIO THEN TOD8DISKECTCI&OISK(8#21:12) ELSE JOD; 


% ACTUAL DISK ADDRESS IN FINALQUE FOR OLAY 1/085 

LOREQUESTCNABSCFIN)&@37702534038) 5100s CLOCIODI Rs 
NT1C108291]8 
CSIZE+16)(12:42r6]R8OLAYIOL9#4711))3 

LOCIOD © O3% 

END DISKIO#% 
PROCEDURE FORGETESPDISK(S)$ VALUE S$ REAL S3 FORWARD} 
REAL PROCEDURE GETESPDISK)% 
BEGIN REAL TENTI3 

IF ESPCOUNT#O THEN 

BEGIN 
STREAMCD&=Tt2=SPACE(2))3 

DSt#12 LIT"NO ESPDISKe"; 

SPOUTCT)3 
SLEEPCLESPCOUNTJ»NOT 0)3 

END: 

STREAMCT*OsASESPTABIX#0) 3 

BEGIN Sleas 

Lit TF SCe*"" THEN BEGIN SIeSI413: GO TO Ld END; 
A*SI3 DIeas 

L2s JF SB THEN 


BEGIN TALLY*TALLY+13 SKIP SB3 SKIP D083 GO TO L2 END} 


TeTALLY$ DS#*SET3 
END3 
GETESPDISKt=(CPCDUP) CCF I*ESPTAB)x8 
+POXCH) 9 £30183])x64+P+ESPDISKBOTTOMS 
ESPCOUNTEBESPCOUNT"13 
END3 
PROCEDURE FORGETESPDISKCSEGMENT)3 VALUE SEGMENTS REAL SEGMENTIS 
BEGIN REAL SeT3 
IF SEGMENT LSS ESPDISKBOTTOM OR 
SEGMENT GTR ESPDISKTOP THEN 
BEGIN S «© FLAGC@"ESPDISK")3 T # FLAGC™"ERROR,«")3 
S © WAITIOCESEGMENT) INX 200225)3 
SLEEPCO20)3 
ENDS 
TH=CSU=CTIBSEGMENT*ESPDISKBOTTOM) DIV 6)x6"T3 


06007099 
06007100 
06007200 
06007300 
06007400 
06007401 
06007402 
06007450 
06007499 
06007500 
06011000 
06011100 
06011200 
06011300 
06012000 
06012499 
06012500 
06012501 
96013000 
06014000 
06015000 
06016000 
06016100 
06016200 
06017000 
06017500 
06018000 
06019000 
06020000 
06020500 
06021000 
06022000 
06022100 
06022200 
06022300 
06022400 
06022500 
06022600 
06022700 
06023000 
06024000 
06025000 
06026000 
06027000 
06028000 
06029000 
06030000 
06031000 
06032000 
06033000 
06035000 
06036000 
06037000 
06037100 
06037200 
06037300 
06037400 
06037500 
06037600 
06037700 


SeSel3O0s15IRSC3I084St3)+ESPTABE 06038000 

STREAMCT#S)% BEGIN SKIP T DBS DS*RESET ENDS 06038100 
ESPCOUNT¢ESPCOUNT +13 06038200 

END33 06045000 

£ SET OMIT = NOTCDEBUGGING) 06045999 
PROCEDURE NDISKBUGIS 06046000 
BEGIN REAL T32 06047000 
ISTREAMCT*+PC,DBADR) ®DBARRAY)3 06048000 

BEGIN DS t# 20 LIT "DISKBUGese, TRY “"s DI te DI"43 06048100 

S$] t= LOC Ts SI s® S14+63 SKIP 3 SBI 06048200 

3(0S 3™ 3 RESET; 06048300 

3CIF SB THEN DS?sSET ELSE DSS*RESET$ SKIP SB))3 06048400 

END STREAMING! 06048500 

T © WAITIOCDBARRAY ¢£33115) 20377025) 3% 06049000 

DDT3% 06050000 

WHILE DBADR # 0 002 06051000 

BEGIN DISKWAITC®CCDBARRAY INX 1)80BAVROE18131])¢ 06052000 

30° ABSCDBADR) )3 06052100 

DDOT3% 06054000 

END3% 06055000 

END 33 06056000 

$ POP OMIT 06056001 
$ SET OMIT ® NOTCDFX OR SHAREDISK) 06056099 
REAL LASTEUS COMMENT USED FOR ALLOCATING DISK FROM DIFFERENT EUSe %DFX06056100 
IF POSSIBLE3 SOF X06056200 

$ POP OMIT 06056201 
$ SET OMIT = NOTCSHAREDISK) 06057000 
COMMENT CLEANOUT PERFORMS THE FOLLOWING TASKS! 06057020 
i, REMOVES ALL CONTENTION BITS THAT WERE SET BY "SYS", 06057040 

2, UNLOCKS ALL ADDRESSES THAT WERE LOCKED BY "SYS", 06057060 

3. RETURNS ALL OF THE DISKSPACE THAT IS IN THE SCRATCHDIRECTORY 06057080 

OF THE SYSTEM THAT IS BEING CLEARED, 06057100 

4, REMOVES ALL FILES THAT WERE BEING LOADED BY THE SYSTEM THAT 06057128 

18 BEING CLEARED. 06057140 

S, CLOSES ALL FILES THAT THE OFFENDING SYSTEM HAD OPENED, 06057160 

6, REMOVES ALL ENTRIES IN THE HOLDLIST THAT WERE MADE BY THE 060571890 

SYSTEM BEING CLEARED, 06057200 

7, WAKES UP ALL PROCESSES JN OTHER SYSTEMS THAT WERE WAITING 06057220 

FOR A FILE THAT WAS IN USE (BY ANY SYSTEM), 06057240 

CLEANOUT 7~S CALLED WHEN THE KEYBOARD MESSAGE "CLSYN" 06057260 

IS ENTERED AND WHEN A SYSTEM 7S HALT/LOADED AND 06057280 

THERE ARE OTHER SYSTEMS RUNNING, 06057300 

END COMMENT3 06057320 
PROCEDURE CLEANOUTCSYS)3 06057340 
VALUE SYS3 REAL SYS} 06057360 
BEGIN 06057380 
REAL [eJeKaFeNo BS 06057400 
REAL TeTisFOURMASK »eNINEMASK) 06057420 
ARRAY NAC*¥] oF HE ¥] ¢BPE*)3 06057440 
REAL KLUDGEsHOLDERsNEXTSLOT»BYPASS3 06057450 
LABEL AGAINeFOUNDeZOTITPCLOSEIT&QUIT®FMeNM) 06057460 

IF SYS#SYSNO THEN % CL = LET THE OPTR 06057462 
BEGIN STREAMCS#sSYS4175 DteNseSPACE(5))3 ® KNOW THAT WE ARE 06057464 
BEGIN DS3#17 LIT” CLEARING SYSTEM "3 % WORKING ON IT, 06057466 

SIs*#LOC S$ STteS147% DSt=EcHR} 06057468 

DSte15 LIT" * PLEASE WAITe"; 06057470 

END} 06057472 

. SPOUTCN)S 06057474 
END? . 06057476 
T1B@40608SYS(3084632)) %8 CLEAR ALL CONTENTION BITS 06057480 


PCWAITIOCLT) INX @10000000050018)eDEL)3 06057500 
T,C37t2)8813 & UNLOCK ALL ADDRESSES 06057520 
PCWAITIOCETI INX @10000000020018)eDEL)S 06057540 
NBtweCMENs*SPACEC460))38460661383:10]);3 06057560 
FHS®CMCF8N4+33)I83118s38:10)3 06057580 
DISKWAITC*Fe"30*B+DIRECTORYTOP4+1)3 06057600 
IF CISsFHOSYS),.SLINK) NEQ@ 0 THEN 06057620 
BEGIN CLEAN OUT SCRATCH DIRECTORY 06057640 
DISKWAITC@Fe 3001) 3 06057660 
FHCL]seJdswd 3 06057680 

DO [F JteNOT J THEN SCRATCHCLEANCFHeN@ 191) 06057700 

ELSE SCRATCHCLEANCNBsFe1el) 06057720 

UNTIL [IO $ 06057740 
DISKWAITC*F 23008) FHESYS)«03 06057750 

END 3 06057760 
DISKWAIT(Fs"30%B)3 06057770 
KisSYS°413 ® LOD IS 1 WORD PAST LITC UNLESS IT [806057760 


FOURMASK!aP(,FMeKe+eL0D)$ 


BLAST SYLs IN WHICH CASE C IS COUNTED06057790 
% UP WHILE THE SUM POPS FROM B TO Ay 06057800 


NINEMASKS=PC ~NMo Keto L0OD) 3 


FOR J 
BEGIN 


AGAINS 


FOUND? 
ZOTITs 


b#DIRECTORYTOP+4 STEP 16 WHILE TRUE D0 


DISKWAITC*Ne48001)3 
FOR Jte478 STEP ™2 UNTIL 450 DO 
IF CNBEJ) EQV @114)=NOT O THEN GO QUIT ELSE 
IF CNBEJ) EQV @14) NEQ NOT O THEN 
BEGIN 
Fi=i5x(J°450)443 & NBLF] POINTS TO HEADERL4) 


06057820 
06057840 
06057860 
06057888 
06057900 
06057920 
06057940 
06057960 


IF NBCFJ,f181) AND NBCFIsf4t2)"SYS AND NBCFI261284) "0 THEN06057960 


BEGIN % FILE MUST BE REMOVED FROM DIRECTORY 06058000 
BPS™CMEBS=SPACE(60))1860(8238310)3 06058060 
DISKWAITC™Be"605T13=T SESCRAMBLECNB( J] +NBEJ41]) 3 06056060 
FOR KteO0 STEP 3 UNTIL 57 DO 06058100 

IF C(BPCK) EQV NBEJJ)=NOT O THEN 06058120 


IF CBPCK4i)] €QV NBCJ4#1])5NOT O THEN GO TO FOUND#06058140 


IF CT#sBPC2),CFF1)#0 THEN 06058160 
BEGIN DISKWAIT("Bs60-T)3 06058180 
GO AGAIN: 06056200 

ENDS 06056220 
STREAMCSS®(NBCUJ Je DFT s=SPACEC10))3 06058225 
BEGIN SIteSs SlteSi+1s OSteLIT™ "3 DSte7 CHR} 06058230 
DSteLIT"/"s SISSS1433 OSt=7 CHR 06058235 
DS:*34 LIT"™ NOT IN BYPASS* SHOULD COOL/START#"; 06058240 

ENDS 06058245 
SPOUTC(T)3 % TELL OPERATOR WHATS WRONG AND 06058250 
GO ZOTITS ® THEN REMOVE FILE AS PLANNED, 06058255 
FMs3a3 ® 4004370000000005 & 400200760000000% 06058260 
© 400100017400000» @ 400040000370000; 06058265 
NMeg2 ®2107600000000000» @1040174000000000» 06058270 
© 4200037000000005 ® 2100000760000003 06058275 
BPCK] 4,014; 06058280 
DISKWAITCB260eT)3 06058300 
DISKWAITC@CLHOLDERIJ c( CFI) »*3eDIRECTORYSEG)3 06056320 
PCNBL449))3 06058349 
DISKWAITC@CTERENBE4503),0CF1)9"°3091+15)3 06058360 
NBC J)+@143 NBEJ+L]«NEXTSLOT? NEXTSLOT#(U"450)/2413 06056380 
DISKWAITCT#*30°1415)3 06058400 
DISKWAITCCHOLDER] CCF Je=3eDIRECTORYSEG)3 06058420 
UNLOCKCT1)3 - 06058440 
PCCNBC4493)eSTD)3 06058460 
FORGETSPACECB)3 06058480 


CLOSEITS 


IF NBCF].C2t1) THEN 2 FILE WAS BEING LOADED FROM TAPE06058500 


FOR KteF+64tNB(F4+5),04335)] STEP "1 UNTIL F+6 DO 


IF NBCKJ#0 THEN FORGETUSERDISK(NBLKI »NBCF 44] )3 


END ELSE 
IF NBCFJ.C4s2]"SYS AND NBLFJ.C4491) THEN 
BEGIN % START LIBMAIN FOR ZEROING 


STREAMCASENB( J] +BteNB( J+] ) eo T&&T&SGETSPACE(1026420)44)3 


BEGIN DSt*1OLIT"CC REMOVE "3 SIt#®LOC As SIteSle13 
DSSE7CHRE DSteLIT"/"s STteLOc Bs STs#Sie13 
DSts7CHR DSte6LIT*S END, #3 

ENDS 

CCARDCTASIC 284216) 816834731))3 
END ELSE 
BEGIN 2 CLOSE ALL OPEN FILES 

IF NBCFJ.C281] THEN 

IF NBCFI,C482)5SYS THEN GO CLOSEITS 

IF CNBEF J AND FOURMASK)#0 THEN GO CLOSEIT;3 

IF CNBEF #5) AND NINEMASK)#0 THEN 

BEGIN 

DISKWAITC*CTSZSPACE(30)) e™30eKt=(J"450)/24])3 

IF (ME T+#4]2eC*#P(DUP)) AND NOT FOURMASK),(432) 
B SYS THEN MET4#4),6281) 3803 

MET+9)3=(#P(DUP)) AND NOT NINEMASK3 

DISKWAITCT»"300K)3 

FORGETSPACE(T)3 

END3 : 

IF SYS#®SYSNO THEN 

BEGIN 

PBCOUNT+PBCOUNT4+((CCNBEV] EQV "PBD "JENOT O 
OR (NBLJ) E@V "PUD ")sNOT 0) 
AND NBC J+) ) (CF IJ1)3 
END; 


DISKWAITC*CTHOLDERJ, (CFI) »*3eDIRECTORYSEG)3 
IF CESSHOLDER,CFFJ)2#0 THENS REMOVE ALL ENTRIES FOR THIS SYSTEM 
BEGIN % AND WAKE UP ALL OTHERS 


END} 


DISKWAITC™NeTsHOLDER,CCF))3 
FOR Jss0 STEP 1 UNTIL J*14 DO 
IF NBC JI].C2%2]58SYS THEN 
BEGIN & REMOVE ENTRY FOR SYSTEM BEING CLEARED 
MOVECI™ J" 1 e CNBC UHL J) ° (NBC VII)3 
Tss]ri3 
JeJrys 
END ELSE 
TF NBCJJ.C2I2)]#SYSNO THEN NBCUJtePCDUPeLODeSSN) ELSE 
IF NBEJ) GEQ FENCE THEN BRINGBACKCNB[J],(1088]) ELSE 
MONBCJ) CREF II ¢=13 
IF 1#0 THEN DISKWAITCNeTeHOLDER,CCF))3 
HOLDER, (FF J%a13 


$ SET OMIT = NOT STATISTICS OR OM]T 
BYPASSBOTTOMteBYPASS, (CFJ) 

$ POP OMIT 
DISKWAITCEHOLDERIJ LCF] e"3eDIRECTORYSEG)3 
IF SYS@SYSNO THEN 


BEGIN 


IF PBCOUNT#0 AND NOT AUTOPRINT THEN 


06058520 
06056540 
06058560 
06058562 
06056564 
06058566 
06056566 
06058570 
06058572 
06056574 
06058576 
06056580 
06058584 
06058600 
06058620 
06058630 
06058640 
06058650 
06058660 
06058670 
06058660 
06058690 
060586700 
06058705 
06058710 
06058720 
06058740 
060586760 
06058770 
06058780 
06056840 
06056660 
06058880 
060586920 
06059000 
06059020 
06059040 
06059060 
06059080 
06059100 
06059120 
06059140 
06059160 
06059160 
06059190 
06059200 
06059220 
06059230 
06059240 
06059260 
06059280 
06059300 
06059305 
06059310 
06059315 
06059320 
06059340 
06059360 
06059400 


BEGIN 
STREAMCPBCOUNT»D3=N)} 
BEGIN DSteti LIT” THERE ARE™S Ds=DI) SIsahOc PBCOUNTS 
OSt#4 DEC3 OS8=16 LIT*™ PB FILES ON DISKe"3 
DI:#ps 08323 FILL 
END? 
SPOUT(N)3 
END ELSE FORGETSPACE(N)3 
STREAMONSRNS2SPACE(5))3 OStFl19OLIT"CLEANOUT COMPLETED+"™3 
SPOUTCN)S 
END ELSE 
BEGIN 
DISKWAITC*N#"3000)? 
NBCIQ=1345xSY¥S]8sNBC14+1)3=03 
DISKWAITCN® "302093 
STREAMCS2#SYS4+4759N)3 
BEGIN DS8#18 LIT"#SYSTEM CLEAREDe"3 DISD] 7103 
SIsFLOC Ss SLteSl+73 OStSCHRS 
END3 
SPOUTCN)3 
END? 
ENDS % OF PROCEDURE CLEANOUT 
& POP OMIT 
SAVE PROCEDURE DISKWAITCCORE+SIZEeDISK)I 
VALUE CORE®SIZE «DISK; 
REAL CORE*SIZEsDISK! 
BEGIN REAL T3 
DISKIOCTs CABSCCORE @1)8CORELIS131)»9 SIZE» DISK)3 
SLEEPCE TJ +1 OMASK)3 
END3 
PROCEDURE DISKSQUASHCBUFF)3 
VALYE BUFF? REAL BUFFS 
BEGIN 
REAL Be Ee Fe Re Hie LOe 
CNT» USEr TOG JOD3 
REAL Te SUMAT3 
REAL Al» A2s A3Ze Ade ASS ® ARRAY VARIABLES 
REAL X40 X20 X39 X&4s X53 & SCRATCH VARIABLES 
REAL LOCIODAX4se HICNTRX4e LSTCNT#X53 
BOOLEAN CONFLICTse PASSTWOe EUNOTSQUASHED*s 
FELEOKe S@ALL} 
INTEGER Coe De Je Se EUe AVe 
AVSIZE»® DISKAVe SQSIZE} 
ARRAY UTC#)so MVEe)e DIRT #]e FUSE *)3 
REAL PRTADDRse PRIVALUES 
$ SET OMIT =» NOT SHAREDISK 
ARRAY UL«]3 
REAL Ris 
$ POP OMIT 
LABEL SCAN»eSPOUTERR®CKeOKINUSE eNOTOKeOKBOUNDS sMVEMORE oMVE> 
ENDMVE ®AGAIN®S OKaNEXTe SOI Te STOPSOOSTOPITsSDXITsOUT®F I XMVS 


DEFINE 

$ SET OMIT = SHAREDISK 
U = AVTABLE#:s 

$ POP OMIT 
LINK ® (12810) 48> 
ASIZE S C3819) 4» 
LOCKED © C2allbte 
FACTOR = 100008» 
MINSIZE = 108s 


06059420 
06059440 
06059460 
06059480 
06059500 
06059520 
06059540 
06059560 
06059562 
06059564 
06059580 
06059600 
06059620 
06059640 
06059660 
06059680 
06059700 
06059720 
06059740 
06059760 
06059800 
06059820 
06060001 
06061500 
06062000 
06063000 
06064000 
06065000 
06066000 
06067000 
06068000 
06066400 
06066200 
06068300 
06068400 
06068500 
06068600 
06068700 
06068800 
06068900 
06069000 
06069100 
06069200 
06069300 
06069400 
06069500 
06069600 
06069700 
06069800 
06069900 
06070000 
06070100 
06070200 
06070300 
06070400 
06070500 
06070600 
06070700 
06070600 
06070900 


COMMENT 


DEFINE 


MAXMVSIZE = 9008, 
KEYINMASK * [18545] #3 


FACTORS 


MINSIZES 


MAXMVSIZE8 


CELL 
STOP 
STOPCK 
MOVEABLE 
TEMPDSK 


THE MAXIMUM SEPARATIONse IN SEGMENTS»® ALLOWED 
BETWEEN TWO AVAILABLE AREAS WHICH ARE TO BE 
SQUASHED. IN GENERAL*® FACTOR SHOULD NOT BE MADE 
LARGER THAN THE CAPACITY OF A 20 ML SUBMOD»sI.Eys 
10/000 SEGMENTS, 

THE MINIMUM SIZE» IN SEGMENTS» ALLOWED FOR AN 
AVAILABLE AREA TO BE CONSIDERED AS A CANDITATE 
FOR SQUASHINGs, MINSIZE MAY BE MADE AS SMALL AS 
ONE» BUT AS SQUASH TIME VARIES INVERSLY WITH 
MINSIZEe SMALLER VALUES WILL INCREASE SQUASH® 
ING TIME PROPORTIONALLY, MINSIZE LIMITA® 

TIONS MAY BE OVERRIDEN BY THE LOOKAHEAD 
FACILITY, 

LIMITS THE NUMBER OF INDIVIDUAL AREAS IN AN 
INTUSE AREA TO BE AT MOST MAXMVSIZE/3 AREAS 

FOR SQUASHING TO OCCUR, 


NOTES 

1) MAXMVSIZE MUST BE LESS THAN 1024» 

2) MAXMVSIZE MUST BE A MULTIPLE OF 3, H 
MEPRTADDRI#> 
MEPRTADDRI #e 


IF MCPRTADDR) THEN GO STOPSQ#> 
NOT DIREX34+4),04231) 4» 
MVEI+#2),Citii a3 


SUBROUTINE SQUASHMESS; 


BEGIN 


IF (XitsPCXCH))>1 THEN X3t8IF SQSIZE#O THEN SQSIZE 
ELSE EUSLEUP1I],DSIZES 

STREAMCASZEUPML®BLEXt sCEEX3eCLSBOPC2SBOVCXEB0e 
NOSQtSEUNOTSQUASHEDs X2tex2t5SPACE(10))3 


BEGIN 


Ciescrs GO TO LOS 
ST#eLO0C As’ OSte4 LIT” EU "$s DSER2 DECS 
AtEDIS DIt=D1°2) DSteFILL$ DItRAs CLERCXs 


LOt cC2t=Cl3; GO TO L2s DSta4 LITYNULL™S CIEeCXs 
Lis OSs8#7 LIT™ SQUASH™S CII#CX3 
L2: Cle=cl+¢o3 
GO TO LLOs’ GO TO LLO’ GO 10 LL23 GO TO LL23 
LLO CXsecls CI8sC13 
BCNOSQCDSteLIT™ "3 CXsscls C1s#C2))3 
CXs*crs GO TO 43 
BCNOSQ( JUMP OUT 2 TO LL1)s DSte2 LIT*ED") 
JUMP OUT TO LL1i)3 
OS#*e3 LITMING™) 
LLit GO TO EXT} 
LL2t OSseLIT" "3 CXrecIs Cleace2s 
CXesCis GO TO Lis 
S1s#Bs 2C0SiseS1"8)3s Beasts 
BCCXasCIs Clteci)3 
DSt#2 LIT™ ("3 SpeelOc c3 
DOSt*6 DECS C#eDls DIteNl"63 DSte5 FILLE DI tacs 
OS:#19 LIT" SEGMENTS AVAILABLE": 
BC JUMP OUT TO LL3)3 DSte4 LIT" ON "3 
CXesCls Clesci3 
LL3t OSssLIT")*; 
EXT OStaL iT tery 
END? 


06071000 
06071100 
06071200 
06071300 
06071400 
06071500 
06071600 
06071700 
06071600 
06071900 
06072000 
06072100 
06072200 
06072300 
06072400 
06072500 
06072600 
06072700 
06072800 
06072900 
06073000 
06073100 
06073200 
06073300 
06073400 
06073500 
06073600 
06073700 
06073800 
06073900 
06074000 
06074100 
06074200 
06074300 
06074400 
06074500 
06074600 
06074700 
060746800 
06074900 
06075000 
06075100 
06075200 
06075300 
06075400 
06075500 
06075600 
06075700 
06075600 
06075900 
06076000 
06076100 
06076200 
06076300 
06076400 
06076500 
06076600 
06076700 
06076800 
06076900 


SPOUTCX2)3 
END PRINTING MESSAGES; 
SUBROUTINE SCANMESSAGE3 
BEGIN 
XPORCXSHSNEUPSC FFI )@is X20aBUFF,C30818)3 
FIXARRAYCEUS#A52X5)3 
MOVE CX5S2A5"™10A5)3 
: XSsert; 2 WILL BE GEQ ZERO AFTER FIRST PASS THRU SCAN 
CANS 
STREAMCAS#OSSIZ§S0eEULI STL eFUQZSE@LePERRTOGSEOINOS B0e 
BIBX5<KOSEUs#EOP5SHGODD0DQNON0NNDNNNsCAXLSOoCLIEROe 
CA2MeOeKTRIEX2)3 
BEGIN 
CissCls GO TO Lay 
IF SC<0O THEN 
AQOt BEGIN TALLY##13 NOSSTALLYS CIs*CX END3 
IF $C*#12 THEN GO TO AO} 
NlesLOc SIZ 
List IF SC GE@ O THEN IF SC<12 THEN 
BEGIN 
TALLYS=TALLYets 
STseseSlet) 
GO TO Li} 
END} 
NOSBTALLY3 
SlssSl"no3 
DS#*=NO OCT3 
TALLY8#03 NOSHeTALLYS 
C11*CX3 
L2: C2ssCl$3 GO TO STR} 
TALLYt#4s DIseLOc EUs 
IF 2 SC®8DC THEN % AN EU SPECIFIED 
BEGIN 
CXtaCIs GO TO L33 
IF SC GE@ O THEN IF SC<12 THEN 
BEGIN 
Sre=sS]ei13; DIseLoc Eul13 
IF SC GE@ O THEN IF SC<12 THEN 
TALLYt#®2 ELSE GO TO Ai3 
SlaeSteis NOSRTALLY] 
DSteNO OCT TALLY##03 
END ELSE GO TO Ais 
END) 
NOSBTALLYS Clerea3s 
Cle*A3 : 
L3s IF SCe" " THEN BEGIN SleeSle13 GO TO L3 ENDS CIaBcx3 
STR SLssKTRS Cle*Cl+Bs GO TO L53 GO TO L43 
Lat [IF SCee" THEN GO TO EXT? 
CXesCils Cli=Ci3 & SIZE CHECK 
NOCJUMP OUT TO L5)3 
CXs#Cis GO TO L33 
IF SC#"%e" THEN 
Alt 60 TO ERR3 
GO EXT; 
LSt AgsCls Clt*C23 & EU CHECK 
NOCJUMP QUT TO ERR)3 
IF SC#*"" THEN 
BEGIN 
STeaSleis CXseCls GO TO 433 
CXeeCl]3s Clsecis & SIZE CHECK 


06077000 
06077100 
06077200 
06077300 
06077400 
06077500 
06077600 
06077700 
06077800 
06077900 
06078000 
06078100 
06078200 
06078300 
06078400 
06078500 
06078600 
06078700 
06078800 
06078900 
06079000 
06079100 
06079200 
06079300 
06079400 
06079500 
06079600 
06079700 
06079800 
06079900 
06080000 
06080100 
06080200 
06080300 
06080400 
06080500 
06080600 
06080700 
06080800 
06080900 
06081000 
06081100 
06081200 
06081300 
06081400 
06081500 
06081608 
06081700 
06081600 
06084900 
06082000 
06082100 
06082200 
06082300 
06082400 
06082500 
06082600 
06082700 
06082800 
06082900 


pe R wean ra aaees Pade Sst): 


NOCJUMP OUT TO L6)3; GO TO L7}3 
L63 TALLYt"EULY EUZt=TALLYS 
At® CIS CIssc23 % EU CHECK 
NOCJUMP OUT TO ERR)3 
END} 
L7s AtseTALLYs & ZERO OUT A 
IF SCee" THEN GO TO EXT} 
IF SCB"e" THEN 
BEGIN SIt#Si4i13 AteSIS GO EXT END? 
ERRt TALLY!#13 ERRTOGISTALLYS 
EXT} 
END} 
IF P THEN % ERROR IN INPUT MESSAGE 
BEGIN 
SPOUTERR 
SPOUTCBUFF sLi5s15)°1)3 
FORGETSPACECAS)3 
POXIT)3 
ENDS 
IF (X3t#P) GEQ@ O THEN & AN EU RANGE SPECIFIED, 
BEGIN 
IF (X4¢@P)>X1 OR X3>X1 THEN GO SPOUTERR) 
FOR 1:8X3 STEP 1 UNTIL X4 DO EUSCL)] 8443 
PCDEL)# GO CK} 
ENDS 
XSt=PCXCH)s & SIZE OF SQUASH 
IF (X4seP) GEQ@ O THEN IF X4>X{ THEN GO SPOUTERR ELSE 
EUSCX4]:e18X5(TODSIZE) ELSE IF X550 THEN SQALL3#1 
ELSE SQSIZEtsx5: 
CKt IF (X29eP)#0 THEN GO SCANS % NOT FINISHED YET 
END SCANNING INPUT MESSAGES 
SUBROUTINE FIXANDWRITEHEADERS 
BEGIN 
MEA4494X2, (2685) Jtacy 
DISKWAITCA4» 30eX2,°CFJ)3 
END WRITING NEW HEADERS 
SUBROUTINE BOUNDARYCKS 
BEGIN 
LSTCNTS#O3 MCA2@1)¢=%13 
MVEMORES 
X3s"HICNTE#O3 STOPCKS 
FOR 1t3CNT STEP *3 UNTIL 0 DO 
IF PCMVE1)2*DUP}¢DEND>X3 AND PCXCH)>0 THEN 
BEGIN X31®MVCI]eDENDS HICNT#3] ENDS 
IF X30 THEN % REORDERING OF MV ARRAY COMPLETE 
BEGIN 
MVCLSTCNT+2] ,LINKIBO@17773 
GO OKBOUNDS3 
END} 
IF MECA2"1)<0 THEN MCA2Z*1)S8HICNT ELSE MVELSTCNT#2] »LINKSeHICNT? 
MVILSTCNTSaHICNTJI@NABSC*PCDUP))3 
MVCHICNT#1),C2126)38HI3 
HItBHI@CXSSSMVEHICNT),OSIZE)3 
IF X3 LE@ UTCAV41),ASIZE THEN 
OKt BEGIN 
MVCHICNT+234203 
GO MVEMORES 
END ELSE 
BEGIN % LOOKING FOR TEMPORARY STORAGE 
FOR Jt#S"2 STEP "1 UNTIL D DO 


06083000 
06083100 
06083200 
06083300 
06083400 
06083500 
06083600 
06083700 
06083800 
06083900 
06064000 
06084100 
06084200 
06084300 
06084400 
06084500 
06084600 
06064700 
06084800 
06084900 
06085000 
06085100 
06085200 
06085300 
06085400 
06085500 
06085600 
06085700 
06085800 
06085900 
06086000 
06086100 
06086200 
06086300 
06086400 
06086500 
06086600 
06086700 
06086800 
06086900 
06087000 
06087100 
06087200 
06087300 
06087400 
06087500 
06087600 
06087700 
06087800 
06087900 
060868000 
06088100 
06088200 
06088300 
06088400 
06088508 
06088600 
06088700 
06088800 
06088900 


— 


END3 


IF X3 LEQ UTCTIJ.ASTIZE THEN 

IF NOT UTCIJsLOCKED THEN 

BEGIN 
MVCHICNT+2)2RUTC IT eDEND&I(2:38s10)3 
GO MVEMORE3 


% OK FOR TEMP STORAGE 


END: 


IF PASSTWO THEN % NON*PROTECTED FILE TRANSFER 


BEGIN 


DISKWAITC™ASs 30eMVEHIGENTo2),°CFI)3 
STREAMCASSCMLAG+MVEIHICNT +2), CFF II) eX@sex2seSPACE (6) )5 
BEGIN 
OS#s27 LIT" #FILE INTEGRITY CONFLICTS "3 SItsa3 
ST*eSie41s DSte7 CHRE OSHSLIT"/") SIssSiel} 
DSte7? CHRS DStELI Te} 
END} 
SPOUTCX2)3 CELL eKEYINMASK3 973 
SLEEPCCPRTADDR INX M)e@77777)% STOPCK3 
IF CELL=2 THEN BEGIN CELL&SsO&810CTFIs GO TO OK END} 


END ELSE CONFLICT&sTRUES 
TOGH303 


OKBOUNDS!# 
END BOUNDARY AND CONFLICT CHECKINGS 
BOOLEAN SUBROUTINE INUSEOK3 


UTCAVeLISLLtLIS=NOT PASSTWOS TOGIFL3 CNTI=03 
FOR X£¢sDFRECTORYTOP4+4 STEP 16 WHILE TRUE DO 
BEGIN STOPCK3 


DISKWAITC™ALe480+X1)3 
FOR 13814 STEP *1 UNTIL 0 DO 
BEGIN STOPCK3 


IF CCESEDIRE4S5SO+PC] *¢DUP*+))) EQV @114)=NOT O THEN 


GO TO NOTOKS 
IF CE EQV @14)# NOT O THEN 
BEGIN FILEOKS#FALSES & INITIATE STATUS CHECKING 
BeeHNIRE(X38R30xK] 049),04345]3 
FOR X2t=ei1 STEP 1 UNTIL B DO 
IF (CHBDIREX3494X2))#0 THEN 
IF PCCeDUP)<HI AND PCXCH)>LO THEN 
IF FILEOK THEN GO FIXMV ELSE 


DIR(X344],(1284]80 THEN 


DIREX3+9].£1826))"0 THEN 
IF MOVEABLE THEN 


BEGIN 
FILEOKISTRUES & ELIMINATE STATUS CHECKING 
FIXMV! USE SFUSE*@CMVECNT J S=C&DIREIX3+8I 0 TODSIZEI) 
sOSIZES 


MVCCNT#1) eRCXL+L@X20C TF IS & HEADER INFO 


IF PASSTWO THEN & SAVE LOC OF FIDS 
MVCCNT4+2J) bm CX1L41 5 8CTX2I0CTE II 


IF USEsO THEN & FOUND ALL USERS OF [N*USE AREA 


BEGIN 
BOUNDARYCK3 
GO OKIJNUSE3 
END) 


IF USE<O THEN GO TO NOTOKS % DIRECTORY ERROR 


IF CCNTS@CNT4#3) MOD 150 @ 0 THEN 
BEGIN 


% CHECK STATUS 

IF NOT SYSTEMFILECEsDIRE4504P CT eDUPe+)41]) AND 

% NOT SYSTEM FILE 
IF CPCDIREX34#4)sDUP),01%3) OR PCXCH),£16:820) OR 
FILE NOT IN USE 
% NOT PERMANENT 


06089000 
06089100 
06089200 
06089300 
06089400 
06089500 
060869600 
06089700 
060898600 
06089900 
06090000 
06090100 
06090200 
06090300 
060904080 
06090500 
06090600 
06090700 
06090800 
06090900 
06091000 
06091100 
06091200 
06091300 
06091400 
06091500 
06091600 
06091700 
06091800 
06091900 
06092000 
06092100 
06092200 
06092300 
06092400 
06092500 
06092600 
06092700 
06092800 
06092900 
06093000 
06093100 
06093200 
06093300 
06093400 
06093500 
06093600 
06093700 
06093800 
06093900 
06094000 
06094100 
06094200 
06094300 
06094400 
06094500 
06094600 
06094700 
06094800 
06094900 


IF CNT=MAXMVSIZE THEN GO TO NOTOK3 
FIXARRAYCMVeXGe(CNT4150))3 


MOVECCNT»A2eX4)3 
FORGETSPACECA2)3 
A2tsxXa3 
END$ 
END ELSE GO TO NEXT ELSE GO TO NEXT? 
END} 
NEXT END} 
ENDS 
NOTOKs 
TOG3 03 
OKINUSE?S 
INUSEQKS=T0G3 


END SEARCHING IN USE AREAS} 
SUBROUTINE MOVEANDFIX3 
BEGIN | 
TteMCA2"1)3 STOPCK3 
WHILE 1<@1777 DO 
BEGIN 
DISKWAITC*ASe300CX23eMV(141)),0CFI)23 &¥ READ IN HEADER 
MVEN Xiswe303 FREPCMVEC IJ ©DUP),DEND+(BI=PCXCH) gASIZE)} 
IF PCMVET+2],DEND30eDUP) THEN C3#MVE141),.£2826] ELSE 
MVETI,DENDS#(CtaMVOC14+2].DEND) 983 
WHILE (X1$8X14309<B DO 
BEGIN 
IF STOP THEN % STOP SQUASH BUT BE CAREFUL 
BEGIN 
IF TEMPOSK THEN UTEMVC 1 +2),C2¢10])3"(*PC DUP) )=B3 
UTCAV41] OENDSSMVLI4+1),[(21826]3 
Cs*MVC1),DENDS FIXANDWRITEHEADERS 
GO STOPSQ$ 
END3 
EteiF PCCB"X1)2DUP)<30 THEN P ELSE PCDEL#30)3 
DISKIOCTe1*ASoExZ0eF seF7E); 
LODtF]ODRCEXIOCAt3SBr1OJRElL 2732 4296)3 
LOCTOD:#03 SLEEPCEI TJ)» TOMASK)3 
STREAMCALS SC 8eC™E se Bt eA3e1 )3 
BEGIN SItsLOC As’ DSt® 8 DEC END} 
TOREQUESTCNABS( 10D) 8@357( 258408830100» 
CLOCIODI&16£12142:6))3 
SLEEPCLLOCIODJ»IOMASK)3 
IF LOCIOD,£2881) THEN © WRITE LOCKOUT OCCURED 
BEGIN 
UTCIF P THEN AV41 ELSE MVC142).62:10)],LOCKEDs#13 
UTCAV41)DENDtamMV(£14+1).02126]3 GO ENDMVES 
END; 
END} 
FIXANDWRITEHEADERS 
IF NOT P THEN % TEMPORARY DISK STORAGE WAS USED, 
BEGIN 
MVOE142),0ENDEa03 
TEMPDSKiwd) 
GO TO MVE3 
END? 
: TesMVEL4+2),L1INK3 
ENDS 
% WILL NOW RECONFIGURE THE AVAILABLE TABLE 
UTLAVIEFHIGCUTLCAVI,ASIZE*UTCAVeL) »ASIZED£C@828120)3 
MOVECS*AVePCCUTLAV42]) sDUP) »NOT O INX PCXCH))5 


06095000 
06095100 
06095200 
06095300 
06095400 
06095500 
06095608 
06095700 
06095600 
06095900 
06096000 
06096100 
06096200 
06096300 
06096400 
06096500 
06096600 
06096700 
06096800 
06096900 
06097000 
06097100 
06097200 
06097300 
06097400 
06097508 
06097600 
06097700 
06097808 
06097900 
06098000 
06098100 
06098200 
06098300 
06098400 
06098500 
06098600 
06098700 
06098800 
06098900 
06099000 
06099100 
06099200 
06099300 
06099400 
06099500 
06099600 
06099700 
06099600 
06099900 
06100000 
06100100 
06100200 
06100300 
06100400 
06100500 
06100600 
06100700 
06100800 
06100900 


ee ene eee ee, 


ChecSiaSet)eis FOR reac STEP #41 UNTIL D DO 

IF PCUTCIJ,ASIZEsDUP)>USE THEN USES#P ELSE PCOELD3 
ULEU]tSPCDUPeLODeDUPIQUSEL1 828320 IRC PCXCH) ~NUMENT™@1)[ TONUMENT J 3 
EUNOTSQUASHEDS #FALSE3 

IF NOT S@ALL THEN 


BEGIN 


ENDS 
ENDMVES 


IF PC 
ELSE 
THEN 
PCDEL 


SQSIZE*DUP)#O AND PCXCH) LE@® USE THEN CELLs=1 
IF PCEUSCEU"1L I] ¢DSIZE»DUP)#0 AND PCXCH) LEG USE 
ELSE GO TO ENDMVEs 

>’ GO STOPSQ} 


END FIXING AND MOVING 
$ SET OMIT #* NOT SHAREDISK 
SUBROUTINE BUILDUSERDISK3 


BEGIN 


FIXARRAYCUsR1s30)8 
DISKWAITC™Rie*300eUSERDISKBOTTOM)$ & NOTE READ LOCK 


END? 
$ POP OM] 


T 


PRTVALUEt®MCPRTADORS SPC, DISKSQUASH) J3 
SCANMESSAGE} 

$ SET OMIT #& SHAREDISK 
LOCKDIRECTORY3 


$ POP OM] 


T 


SLEEPCETOGLE Je USERDISKMASK)3 LOCKTOGCUSERDISKMASK)3 
HALTS % STOP NORMAL STATE PROCESSING WHILE SQUASHING 
A4t@SPACE(30)3 

$ SET OMIT = NOT SHAREDISK 
IF SYSMAX#1 THEN BUILDUSERDISK ELSE 


BEGIN 


ENDS 


X25%S 
DISKW 
If PC 
BEGIN 


END E 
BEGIN 


END) 


& HALT OTHER SYSTEMS FOR SQUASH 
PACEC4)3 
AITCPA4 eS *@30eDIRECTORYTOP®7 )3 
MEAS#28),/0UP)>@20 AND PCXCH)<@25 THEN 
® SQUASH INITIATED BY ANOTHER SYSTEM 

UNLOCKCDIRECTORYTOP=7)3 
STREAMCAt8®M[A44+28]9X2)3 
BEGIN 

DSte28 LIT™ SQUASH INITIATED BY SYSTEM "3 

STtseLOc Ab STteSi473 DStSCHRs DStaLl Te"; 
END; 
SPOUTCX2)3 CELLS #03 


06101000 
06101100 
06101200 
06101300 
06101400 
06101500 
06101600 
06101700 
06101800 
06101900 
06102000 
06102100 
06102200 
06102220 
06102230 
06102240 
06102250 
06102260 
06102270 
06102280 
06102300 
06103300 
06103400 
06103500 
06103600 
06103700 
06103800 
06103900 
06104000 
06104100 
06104200 
06104300 
06104400 
06104500 
06104600 
06104700 
06104800 
06104900 
06105000 
06105100 
06105200 
06105300 


DISKWAITC™A4*®™30eUSERDISKBOTTOM)$ &% WAIT HERE FOR END 0F06105400 


UNLOCKCUSERDISKBOTTOM)3 ® SQUASH, 
GO TO SDXIT3 
LSE & THIS SYSTEM WILL INITIATE SQUASH 


BUILDUSERDISK3 
MCA44+26) 5 8SYSNO4173 

DISKWAITC AS*™30°DIRECTORYTOP#7)3 
STREAMCX2)3 

0St826 LIT"# SQ OTHER SYSTEMS PLEASES" 
SPOUTCX2)3 CELLEFOR3CCTFI3 
SLEEPCCPRTADDR INX M)2@77777)3 
DISKWAITC™ASe *302sDIRECTORYTOP"7)3 
MECA44+28)303 

DISKWAITC AMe*®30eDIRECTORYTOP"7)3 
IF STOP THEN GO TO SDXIT3 


06105450 
06105500 
06105600 
06105700 
06105800 
06105900 
06106000 
06106100 
06106200 
06106300 
06106400 
06106500 
06106600 
06106700 
06106800 
06106900 
06107000 


$ POP OMIT 
FIXARRAYCDIR2®A1°480)3 FIXARRAYCMVeA2e150)3 
A3t®SPACE(900)3 
TOD8™@140000100000000R8 (A3"1)ECTC)3 
IF NOT SQALL THEN FOR EUS*®1 STEP 1 UNTIL NEUPeLFF] DO 
IF CCELLS#(PCSQSIZEsDUP)#O AND PCXCH) LEQ ULEU).(1#20))) 
THEN BEGIN P(2)3 SQUASHMESS} GO STOPIT END} 
FOR EUt#! STEP 1 UNTIL NEUP,EFF1 DO 3% 


IF NOT CES*®ULEU]),EUNP THEN 


® NOT A DUMMY EU 


IF EUSfEURL) OR SQaLL OR SQS{ZE#O THEN % SQUASH THIS EU 


BEGIN 


EUNOTSQUASHEDI eS TRUES 

IF NOT S@ALL THEN & CHECK IF SQUASH IS NECESSARY 

IF CPCEUSCEUTI),DSIZEsDUP) LE@ £,[1820) AND P(XCH)#0) 
THEN BEGIN PC3)5 SQUASHMESSS GO STOPIT END3 
CELLEFORLCCTF Is 

PCO)8 SQUASHMESS} 

OISCIs=EeSTARTWRD) MOD 303 

AVSIZES®30"(S$SCE AND NUMENTM)4#D) MOD 304583 
FIXARRAYCUTsReAVSIZEDS 

DISKAV#S*l DIV 304USERDISKBOTTOMS 


$ SET OMIT = NOT SHAREDISK 


IF DISKAV®USERDISKBOTTOM THEN 

BEGIN 
IF AVSIZE>30 THEN DISKWAITC@R*302AVSIZE™30eDISKAVG1)3 
MOVEC30eR1 eR)? 


END ELSE 
$ POP OMIT 
DISKWAITC*ROAVSIZE sDISKAV)! 
AGAIN} SUMt SUSE S203 
FOR [##S*3 STEP "1 UNTIL D DO 
BEGIN STOPCK3 
IF CUTE IT41)2<O0)SPASSTWO THEN % NOT CHECKED THIS PASS 
IF COX¢SeUTC 1) ,ASIZE)+CX23RUTC141),ASI1ZE)) GEQ SUM 
THEN IF CX3URCCOX4PRUTEC I 41), DEND 1) °UTCI+1),ASI1ZE)" 
X§StecUTCI],DEND™1)) LE@ FACTOR THEN IF MINSIZE LEQ X2 
THEN IF MINSIZE LEQ X41 THEN 
BEGIN 
SQTts USEt#xX3s AVIR]3 
SUMteX14+X2s % SUM OF CURRENT AVAILABLE AREAS 
H]teX4) LO&ex5s; 
END ELSE IF I#0 THEN % LOOK AHEAD TO NEXT AREA 
IF CCMINSIZE LE@ UTCI™1),ASIZE) AND (CC XD"X4)= 
UTCI®1),DEND"1) LE@ FACTOR)) THEN GO SQIT3 
ENDS 
IF USE#0 THEN % FOUND A POSSIBLE SQUASH SITUATION 
BEGIN 
IF INUSEQK THEN MOVEANDFIX3 
GO AGAIN} 
END ELSE & TIME TO WRAP IT UP FOR THIS EU UNLESS pone 
IF CONFLICT THEN IF NOT PASSTWO THEN & » «CONFLICTS EXIST 
BEGIN 
PASSTWOtRTRUE?S 
GO AGAINS 
END ELSE 
BEGIN & CLEAN"UP PASS AFTER CONFLICTS RESOLVED, 
PASSTWOSSCONFLICTS#03 
GO AGAIN} 
ee he oe END) .. 
STOPSQ@! FOR 1:80 STEP 1 UNTIL S DO UTCI J smABS(PCDUPeL0D)80C28281))3 


06107100 
06107200 
06107300 
06107400 
06107900 
06108000 
06106100 
06108200 
06108300 
06108400 
06108500 
06108600 
06108700 
06408800 
06108900 
06109000 
06109100 
06109200 
06109300 
06109400 
06109500 
06109600 
06109700 
06109800 
06109900 
06110000 
06110100 
06110200 
06110300 
06110400 
06110500 


06110600— 


06110700 
06110800 
06410900 
06111000 
06111100 
06111200 
06111300 
06111400 
06111500 
06111600 
06111700 
06111800 
06111900 
06112000 
06112100 
06112200 
06112300 
06112400 
06112500 
06112600 
06112700 
061126800 
06112900 
06113000 
06113100 
06113200 
06113300 
06113400 


IF NOT EUNOTSQUASHED THEN 


$ SET OMIT = NOT SHAREDISK 


IF DISKAV#USERDISKBOTTOM THEN 


BEGIN 


MOVECCIF S>30 THEN 30 ELSE S)*DeLUTCD] J] »R1i+4+D)3 
IF AVSIZE>30 THEN DISKWAIT(C R#300AVSIZE*30eDISKAVElL) 3 


END ELSE 
$ POP OMIT 


DISKWAITC ReAVSIZEsDISKAV)3 


FORGETSPACECR)} 
P(1)3 SQUASHMESS3 
STOPIT! IF STOP THEN GO OUTS 
END EU LOOP? 
OUT! 
$ SET OMIT # NOT SHAREDISK 


& STOPCK GOT US HERE 


DISKWAITC Ris*30eUSERDISKBOTTOM)3 % NOTE WRITE UNLOCK 


FORGETSPACECR1)3 
$ POP OMIT 


FORGETSPACECAL)$ FORGETSPACECA2)3 
FORGETSPACECA3)# FORGETSPACECAS)3 


SDXIT?# 
FORGETSPACECA4)3 
CELLESPRTIVALUES 


STREAMCAS#BUFF.CIS315)°1)5 DSte13 LIT” END SQUASH,#"3 


SPOUTCBUFF,(C15815]91)3 

$ SET OMIT * SHAREDISK 
UNLOCKDIRECTORY3 

$ POP OMIT 
UNLOCKTOGCUSERDISKMASK)3 


NOPROCESSTOGS# @NOPROCESSTOG"13 


KILLCCBUFF) INX NOT 1)3 
END SQUASHINGS 


SAVE PROCEDURE INITIALIZE? 
REAL ACTDATE*INITIALIZES 
SAVE REAL PROCEDURE COREND?3 
REAL WEEKDAYSCOREND3 


FORWARDS 


FORWARD? 


PROCEDURE USERDISKSPECTALCASE(QsReUTod) & 
VALUE QeJs REAL ReJsb INTEGER Q@% ARRAY UTE*) 3 


BEGIN 


REAL BUFFRQeNFJeZEUTSE SR eWEWONTGOSRE 


$ SET OMIT = NOTCSHAREDISK ) 
INTEGER NTAJ 3 


REAL NEUBAVSS DEFINE UsUT #» UARUT #s NEULSNEUSJ #e NEUQENEU+NEUF3 


$ POP OMIT 
$ SET OMIT & SHAREDISK 
REAL NEUsNTS ARRAY UAL*) 


5 


DEFINE URAVTABLE #» AVS5B #e NEUL#J"1 #e NEU 


$ POP OMIT 
INTEGER NTLeNT3eNT49B 3 


LABEL LisL2eL3eUPePUsPBDeWHY eM1eT10 $ 


LABEL UNLOADER} 

SWITCH SWeLieL2eL3 3 

IF Q#0 THEN GO SWLQ"1) 3 
$ SET OMIT @ NOTCSHAREDISK ) 


IF (BisJ,fCFI)>1023 THEN GO BDS QE=SPACE(B)3 
FORGETSPACECR)S PCCCRISQIEBLTOSIZEJ) OR MeRTN) 3 


$ POP OMIT 


ULE BUFF ESR) 24803 UNLOCK TOGCUSERDI SKMASK )3 


WEWONTGO tm "13 


2eNT?1 #2 


MOVECJe[FFJeReQ) 3 


06113500 
06113600 
06113700 
06113800 
06113900 
06114000 
06114100 
06114200 
06114300 
06114400 
06114500 
06114600 
06114700 
06114800 
06114900 
06115000 
06115100 
06115200 
06415300 
06415400 
06115500 
06115600 
06115700 
06115800 
06115900 
06115990 
06116000 
06116010 
06116100 
06116200 
06116300 
06116400 
06179000 
06179400 
06179500 
06179600 
06179700 
06350000 
06350300 
06350600 
06351000 
06351050 
06351053 
06351055 
06351056 
06351100 
06351104 
06351105 
06351106 
06351250 
06351500 
06351600 
06351800 
06352000 
06352490 
06352500 
06352600 
06352601 
06353500 
06353600 


IF N LEQ RESERVEDISKSIZE THEN ® CALL OUT THE RESERVES 06353605 


IF (CZESDIRECTORYSEARCH( "RESERVE" s "DISK ",6))#0 THEN 06353610 
BEGIN FORGETSPACE(Z)3 06353615 
WEWONTGO 88% "03 06353620 
JF N GTR O THEN 06353625 
$ SET OMIT #» PACKETS 06353629 
IF NOT CLIBMSG AND CLOGLINEe£3387]#0 OR CANDYMESS)) THEN 06353630 
$ POP OMIT 06353631 
BEGIN STREAMCZ8=ZteSPACE(3))3 06353640 
OSte23 LIT***RESERVE DISK REMOVEDS"3) 06353650 
SPOUTERCZeUe (NOT LIBMSG) AND 1)3 06353660 
END? 06353670 
GO TO UNLOADER!S 063536860 
END OF RESERVE CALL UP3 06353690 
IF NOT Ngf2%1] THEN ~ 06353700 
BEGIN JF PIMIX#0 THEN 06354000 
STREAMC US BJARROWLPIMIX) ePIMIXe Ne BUFF D3 06355000 
BEGIN OS#14 LIT “#NO USER DISK3"5 06356000 
Sleds SIeSlets DS*7 CHR 06357000 
OSeLIT "/"s SleST#13 DSe7? CHR3 06358000 
SIle#LOC PIMIXS OSeLIT “e"3 DS#e2 DEC; 06359000 
JseDIs OL seDle23 OSSeFILLs DIseds OSteLITVes 06359500 
SISSLOC N3 DSt2B DECS DSEF7 LIT™ SEGS,e"} 06360000 
Dieeprrt5s OSts7 FILL 06360500 
END ELSE 06361000 
STREAMCN® BUFF) 06361500 
BEGIN DSt#20 LIT*#NO USER DISKEMCP * "3 06362000 
SIs*Loc N$ DSt®8 DEC; 06362500 
DSt76 LIT" SEGSe*;3 06363000 
Olssp19143 OSte7 FILL} 06363500 
END} 06364000 
SPOUTCBUFF 93 06364500 2 
END ELSE FORGETSPACECBUFF )3 06365000 
UNLOADERS 06368000 
IF AUTOUNLD THEN 06369000 
BEGIN PCPIMIX)3 AUTOUNLDSsP1MIX!#03 06369500 
STREAMCACTDATE eZt2ZisSPACE(10)4+2)3 06370000 
BEGIN DSie824 LIT"CC UNLOAD EXPIRED TO EXP™3 06370500 
Sl*LOC ACTDATES SteSI+#2s DS*4 CHR: 06371000 
DSs*9 LIT" =/S3 ENDS 06371500 
END! 06372000 
CCARDCZ83103843851)3 06372500 
PIMIXS FP} 06373000 
{F N GE@ O THEN 06373500 
BEGIN STREAMC(Z2=Z3eSPACEC10) 93 06374000 
pSs#18 LIT"19 AUTOUNLD RESETe™3 06375000 
SPOUT(Z)3 06376000 7 
END END AUTOMATIC UNLOADING? 06377000 
IF WEWONTGO THEN 06377100 
IF NOT N,C2%1) THEN % WAIT FOR DISK BUT 06377200 
BEGIN JF WEWONTGO.C1#1) THEN ® FIRST IF CANDE DOESNT06377300 
IF LOGLINE GTR O OR PiMIXe0 THEN % KNOWe 06377400 
BEGIN MEZSRGETAREACO)) 880 ePC DUP) &@LOGLINECCTFI& 06377500 
15£1884137)3 06377600 
MCZ+1) t O83 06377700 
MCZ+2) t N3 06377800 
QUEVENTCZsCANDYINX)3 06377900 
WEWONTGO te 801000013 06378000 
END3 06378100 a 
IF PiMIX80O THEN 06378200 


BEGIN CLICK#CLOCK4PCRTRI+16003 BWAIT 30 SECS, 
SLEEP C020)3 
END ELSE 
BEGIN PRTROWCPIMIXI],C781)5"13 
IF OUTWAITCFALSE) THEN 
BEGIN BUFFS ®SPACE(10)38 
GO TO WHY3 
END} 
PRIROWCPAUMIXI, C781) 3% 03 
END? 
WEWONTGO,S(ICF] ##% 03 
END WAITING FOR DISK TO SHOW UP3 
PCXIT)3 
L2: UCV]'SES EPSNEUSSCNTISNEUP, NEUF) +24+(NT#1IDIV 23 PCNT)3 Jeet 
$ SET OMIT = SHAREDISK 
NTLSENT+NTONTS FORGE TSPACECUT)$ FIXARRAYCUAMNT2eNT1)3 ERwO3 
$ POP OMIT 
UPs JF (NT4!32E MOD 30) LSS CNT3SZC(NTISSULCU],STARTWRD) MOD 30) 
THEN NT4s"NT3 3 
IF CNT295CQS8ULH) AND NUMENTM)4NT4) GTR 1023 
OR CCQSE+1) DIV 30419°F DIV 30) GTR 34 THEN 
BDOt BYBYC"ODISK IS TOO CHECKEREDes PLEASE COMPACT [T#"%543) 3 
DISKWAITC™CCUALNEULJ Sa CUALNEU2+U) 8 SSPACECNT2) 2 ¢NTAIPNTI) DP QeNT 30 
USERDISKBOTTOM4+NT1 DIV 30) 3 
$ SET OMIT & NOTCSHAREDISK ) 
IF J81 THEN MOVECNEUerULOJ I] »>Bs=UALNEV24+1)) 3 
$ POP OMIT 
$ SET OMIT = SHAREDISK 
IF J®1 THEN BESUALCCFIENTHNT@1 § 
$ POP OMIT 
MCB+JJ9SULUJRELCTOSTARTWROD] 3 
IF CNT{iseQ DIV 4) LSS AVDIFFMIN THEN NTIS#AVDIFFMIN 3 
IF CERsE+Q4NT12 GTR AVTMAX THEN GO TO BD} 
IF PCDUP) GEQ JteJe1 THEN GO UP3 Et*E"NTIS Utd 3 
PUL NT2ZISCNT3SSPCM(B4+U) 20UP)»STARTWRD)INTS3ePCXCH) AND NUMENTM 3 


063768210 
06378220 
06378230 
06378300 
06378400 
06378500 
06378600 
06378700 
06378800 
06378900 
06379000 
06379100 
06379200 
06380100 
06360120 
06360140 
06380141 
06380150 
06360200 
06380250 
06380300 
06380350 
06380400 
06380450 
06380490 
06380500 
06380508 
06380520 
06380525 
06360526 
06380550 
06380600 
06380650 
06380700 
06380750 


IF PCDUP)#J THEN IF CNT2"71)DIV JORCNT4SeM(B 441), STARTWRDIDIV 30 THENOD6380800 


MOVECNTLONT2 MOD JS0sUALNEULIJENTSPNTLe@NTI*#UACNEUI4F1I°NT4 MOD 30)3 


06380850 


DISKWATTCUACNEULIJPNTIeNT3 MOD 30eNTIFNTSsUSERDISKBOTTOM#NT3 DIV 307306380900 


$ SET OMIT & NOTCSHAREDISK) 
IF J NEQ@ 1 THEN ZSHAREDISK ONLY 
$ POP OMIT 
FORGETSPACECUALNEU2+J] )3 
IF PCDUP) GEQ Jt®J4+1 THEN GO PU 3 
$ SET OMIT * SHAREDISK 
MOVECNTe®(CUALINT#NTI J ef AVTABLELIJI) 3 
$ POP OMIT 
$ SET OMIT & NOTCSHAREDISK ) 
FORGETSPACEC(B) 3 
$ POP OMIT 
FORGETSPACECUA) 3 
$ SET OMIT # NOTCSHAREDISK ) 


06380924 
06380925 
06380926 
06380950 
06381000 
06381020 
06381070 
06381071 
06381075 
06381060 
06381081 
06381085 
06381095 


QEESPACECAVS:@CAVSi@IF E LSS AVSMIN THEN AVSMIN ELSt IF E GTR AVSMAX06381100 


THEN AVSMAX ELSE £)+30"CIF CEt®AVS MOD 30240 THEN E 
ELSE 30)) 3 
DISKWAITC™G*AVSPUSERDISKBOTTOM) 3 
8 POP OMIT 
PCDELPQRAVSETOSIZEJ OR MeRTN) 5 
L3s PCUCNEUP,NEUF#24(Qted DIV PCM1)) DIV 2)°IF @ THEN P,(6120] ELSE 
P,(28120)) 3 
IF ULQ#1}.SPEED © 2 THEN 


06381150 
06381155 
06361200 
06381201 
06381250 
06381300 
06381310 
06381320 


BEGIN 8 4O"MILL MASK CONSTRUCTION, 
Qi4P 3 
STREAM(CS#*030)3 

BEGIN 


S1s*LOC Os SKIP 28SBs DItelLOc Ss SKIP 8DB 3 
SC4CIF SB THEN DS32SET ELSE SKIP DBSSKIP SB)3 SKIP 4 DB) 
STaeLOC @3 SKIP 28 SRs DIFSLOC S$ DI tsDl +23 
5C4CIF SB THEN DSt*SET ELSE SKIP DB#SKIP SB) SKIP 4 DB)5 


END STREAM 3 
END 3 


STREAMCMSK ¢3O0eViwa7e(Jse( (Qt MOD PC MJ))+ABS(RI"1) DIV PCT10) 26 


WeeieJ7Q DIV PCT10))3 
BEGIN OIt*LOC MSK3 SKIP V DBs DSteW SET$ ENDS 
PCLNDeLNGe Os LNGe eeRTN) I 
Mines @36411003 % DECIMAL 1000000, 
T108rs @234203 ® DECIMAL 10000, 
END OF USERDISKSPECJALCASE 3 
PROCEDURE GETMOREOLAYDISK(MIX)3% 
VALUE MIX3% 
INTEGER MIX3% 
BEGIN INTEGER [e4iek% 


JE+20% 

T4352 
ARRAY AR+4( 4) 3% 
REAL RCWF403% 


LABEL EXIT#3 
DEFINE DALOCMAXSZ & 
$ SET OMIT = NOTCAUXMEM) 


11143; @DALOC SIZE MUST = 7 INITIALLY, 


$ POP OMIT 
$ SET OMIT # AUXMEM 
127#3 ZDALOC SIZE MUST & 
$ POP OMIT 
PCOs O» Os O73 


IF CT#DALOCEOMIX00),0CFJ41)=DALOCMAXSZ THEN BEGIN 


TERMINATECMIX & 370CTFIJ)3 
GO TO EXIT END3 : 
IF TRDALOCROWEMIX},(C8810) THEN’ 


BEGIN [FC JeT+PC(DUP)"1)9897 THEN JeDALOCMAXSZ3 
WHILE CI 8@ GETSPACECU» O» 3)42)82 DO 


SLEEPCECLOCK]» NOT CLOCK); 
MOVECT»® DALOCROWEMIX)s [D3 
FORGE TSPACECDALOCROW[MIXJ)3 


DALOCROWEMIX]) t# C#¥PCDUP)) & ICCTC) & J£8'38830)3 


END AIT TYPE ACTION32 


IF €1 * GETUSERDISK(500 OR MEMORY))&0 THEN GO TO EXITS& 


DALOCEMIX#0) © CHePCDUP))&CT+1)(CTC)&2 
DALOCEMIXeT] © 19% 
DALOCEMIXeT+1]) © 032% 

EXIT¢ OLAYMASK © TWOCMIX) OR OLAYMASK3% 
JOCOUNTEMIX) © #PCDUP)"18% 
KILLCEMIX) INX NOT 1)3 

END GET MORE OVERLAY DISK FOR A GIVEN JOBI 


REAL PROCEDURE SECURITYCHECKC(MIDsFIDsUSERIDs HEADER DS 


VALVE MIDeFIDeUSERID3 

REAL MIOsFIDeUSERIDs HEADERS 

% MID MULTI FILE ID OF FILE TO BE CHECKED 
% FIO. FILE IO OF FILE TO BE CHECKED 

% USERID USER IDENTIFICATION 


7 INITIALLY, 


06381330 
06381335 
06381340 
06381345 
06381350 
06381355 
06381360 
06381365 
06381380 
06381390 
06381395 
06381408 
06381405 
06381410 
06381450 
06381500 
06381550 
06400000 
06401000 
06402000 
06403000 
06404000 
06405000 
06406000 
06407000 
06408000 
06408100 
06408199 
06408200 
06408201 
06408299 
06408300 
06408301 
06409000 
06410000 
06411000 
06411010 
06411030 
06412000 
06413000 
06414000 
06415000 
06416000 
06417000 
06417500 
06419000 
06420000 
06421000 
06422000 
06423000 
06424000 
06425000 
06426000 
06427000 
06460000 
06460100 
06460200 
06460300 
06460400 
06460500 


3% 
z 
% 
% 
% 
% 
3% 
3 
3% 
% 
B 


LOOK? 
WHY? 


HEADER 


>512 
70» 


CORE ADDRESS OF HEADER IN 33815¢ JUST CHECK IT, 
<512 VALUE FOR DIRECTORYSEARCH, FIND THE FILE AND PASS 
BACK THE HEADER IN ADDITION TO SECURITY INFO, 


RESULT FROM SECURITYCHECK 


50 
R2 
23 
=7 


EGIN 


NO LEGITIMATE USER FOUND 

TERTIARY USER (¢ INPUT ONLY) 

SECONDARY USER CINPUT/OUTPUT) 

PRIMARY USER CINPUT/OUTPUT/LIB MAINT.) 


REAL T2eDKSGROWP CODES sROWS eROW® DKADReROWSZeCoUSER* TYPE® SH} 
REAL I"DKSGROWs FPBSIZE@CODES3 

ARRAY FHC *]eFPB@ROW(#)3 

LABEL FOUND3 

LABEL EXYT»NOTFOUND »s LOOK» WHY» FORGETS 

REAL SUBROUTINE DIRSRHS 


BEGIN 


IF CT2teDIRECTORYSEARCH(MIOeFIO*®HEADER)) LSS 64 THEN 


BEGIN 


FOUNDS 


ENOs 


IF T2"0 THEN FILEMESSCIF LOGLINE s(3387J)®0 THEN "#NO FIL” 
ELSE ="NO FILE"*®"0N DISK™oMIDeF 10200000) 
ELSE IF T2ei THEN BEGIN P(DEL)3 TYPEts"13 GO EXYT? END 
ELSE IF T2"2 THEN FILEMESSC"ESYSFIL™s"ERROR ', 
MIDeF ID 0e0e0)3 
REPLYCPIMIX] te" CSHISVWYRVOK[ 3684226) a8VILC30342:6))3 
IF PCOeRDSI>FENCE THEN SWAPCWAITSWAP21) ELSE 
COMPLEXSLEEPCREPLYCPIMIXJ>0 OR TERMSETCPAMIX))3 
IF TERMSETCPiMIX) THEN GO TO INITIATES 
IF NOT WHYSLEEPC(SH) THEN GO TO WHY3 
IF CSHSeT2teREPLYLPIMIXI].CFF J) GTR 32 THEN 2 IL 
BEGIN STREAMC(T23)3 
BEGIN SIt#T23 
LL: STesSi+13 IF SC#"L"™ THEN GO TO Lbs 
ST@eST4+13 T2easy3 
ENDS 
T2UsP$5 
FPBSIZEIE(FPBISPRICPIM[X03]),C8810)3 
FOR [880 STEP ETRLNG UNTIL FPBSIZE DO 
IF CFPBCI] EQV MIDISNOT O THEN 
IF CFPBCI4#1] €QV ABSCFID))*NOT O THEN GO FOUNDS3 
NAMEIDCC®T2)3 MID3C3 NAMEITOCCeT2)3 
NAMEIDCCeT2)3 FIDQSCRFIDCL&2141]3 
IF | USS 1020 THEN 
BEGIN FPBCIJ&eMI DI 
FPBCI4¢1)33C3 
ENO} 
FORGETSPACECSH"1 )3 
END} 
REPLYCPIMIX]:20;3 
GO TO LOOK} 


DIRSRH tm T23 
END DIRSRH} 

FHtsl[OQUERCIF HEADER GTR 512 THEN HEADER ELSE DIRSRHDECTCI3 
FRFCFH(2] EQV O)ZNOT O OR CABSCUSERID) EQV ABSCFHL2]))*NOT O 


OR CUSERID EQ@V MCP)SNOT O THEN TYPE*7 ELSES 


IF CFHES) EQV @14)eNOT O THENS 


IF CFHE6] EQV @14)8NOT O THEN TYPE*2 ELSE TYPE+3s% 


IF TYPE # O THEN GO TO EXyYT3 


06460600 
06460700 
06460800 
06460900 
06461100 
06461200 
06461300 
06461400 
06461500 
06461600 
06462000 
06462100 
06462105 
06462110 
06462120 
06462200 
06463000 
06463100 
06463200 
06463210 
06463220 
06463225 
06463230 
06463240 
06463250 
06463280 
06463300 
06463320 
06463340 
06463360 
06463380 
06463400 
06463420 
06463440 
06463460 
06463480 
06463500 
06463520 
06463540 
06463560 
06463580 
06463600 
06463620 
06463640 
06463660 
06463680 
06463700 
06463720 
06463740 
06463760 
06463780 
06463800 
06463810 
06463820 
06463900 
06463910 
06463920 
06463930 
06463940 
06463950 


C5).Citi] THEN 
IF CSHPZDTRECTORYSEARCHCABSCFH(5)) #FHE6] 219) #0 
THEN BEGIN TYPE%3203 GO TO EXYT ENDS 
MESH#4) ,CiLsijssis 
STREAMCDATEsJ#2593 BEGIN SITt*LOc DATES DS#te8OCTs$ END} 
MCSH#3),012818)s3JUNK3 
DISKWAITCSH, LCF] **309SH CFF J)S 
$ SET OMIT = SHAREDISK 
UNLOCKDIRECTORYS 
&$ POP OMIT 
DKSGROWSSMCSH INX 8]3 
CODES#eGETSPACE(C300000)+2sROWSS EC MESH JINX DJAND 31)"13 
FOR ROWS*0 STEP 1 UNTIL ROWS DO 
BEGIN IF (DKADR#tsMESH INX 104ROW])%0 THEN 
NOTFOUNDS BEGIN TYPE t# 03 
FORGET! FORGETSPACECCODES)# FORGETSPACE(SH)#3G0O TO EXYT? 
END3 
ROWSZ t# DKADR + DKSGROW3 
WHILE DKADR < ROWSZ DO 
BEGIN DISKWAITC*CODES*® 30*#DKADR)3 
FOR ct#0 STEP 1 UNTIL 29 DO 
BEGIN IFCCUSERTSNFLAGCM( CODES INX C]))EQV @114)= 
NOT 0 THEN GO TO NOTFOUND3 
IF (USER EQV @14)# NOT O THEN 
JF USER,£313]70 THEN 
BEGIN 
IF CUSERID EQ@V ABSCUSER)) NOT O THEN 
BEGIN TYPE 3 
IF USER < 0 THEN 2 ELSE 33 
GO TO FORGETS 
END} 
END ELSE 
BEGIN 
IF PiMIX # 0 THEN 
BEGIN 
IF LOGLINE,£33%7] NEO O THEN 


06463955 
06463960 
06463970 
06463980 
06463982 
06463984 
06463966 
06463988 
06463990 
06463992 
06463994 
06463996 
06464000 
06464100 
06464200 
06464300 
06464400 
06464500 
06464600 
06464700 
06464800 
06465000 
06465100 
06465200 
06465210 
06465220 
06465230 
06465300 
06465400 
06465500 
06465600 
06465700 
06465800 
06465805 
06465810 
06465812 
06465814 


USEREE"™ "RUSER(6$123 36] 8USER[3£3331306465816 


TFCABSCJARCPIMIX20] EQV 
USER,»£6842))5& NOT O THEN 
IFCCIF JAREPIMIX20)<0 THEN "DISK WELSE JARCPIMIXs1J)EQV 
MECODES INX C41).£6842))= NOT O 
THEN 
BEGIN 
TYPE 8@ USER,(383)3 


GO TO FORGET! 
ENDS CeFCol3 
ENDS % PIMIX NEQ VU 
END} 
END) % 30 USERS 
DKADR #@ DKADR + 13 
ENDs % ROW 
END &% ROWS 
GO TO NOTFOUND3 
ENDS % NO SECURITY BLOCK FILE 
TYPE $203 
EXYT3 
IF HEADER LSS 512 THEN HEADER! FHS 
SECURITYCHECK teTYPeEs 


06465820 
06465830 
06465640 
06465850 
06465860 
06465870 
06465880 
06465890 
06465900 
06465910 
06465912 
06465920 
06466000 
06466100 
06466200 
06466300 
06466310 
06466400 
06466500 
06466600 
06466620 
06466700 


fee 


END SECURITYCHECK3 06466800 
BOOLEAN PROCEDURE OUTWAITCB)8 BOOLEAN B3 06467000 
BEGIN REPLYLPIM[ XleVOKRVWYL3624286)81(6234731)3 06468000 
IF PCOsRDS)>FENCE THEN 06469000 
SWAPCWAITSWAPe1l) ELSE 06470000 
COMPLEXSLEEPC(B OR REPLYLPIMIX)>0 OR TERMSETCPIMIX)))3 06471000 
06472000 

IF TERMSETCPRIMIX) THEN 06473000 

IF (CJAREPIMIX20) EQV "LIBMAIN")4NOT O OR 06473100 
CJAREPIMIXe1)] EQV "DISK ")#NOT O THEN GO 10 INITIATE! 06473200 

IF REPLYCPIMIXIEVWY THEN QUTWAIT*NOT WHYSLEEPCVOK&VWYL3684216))3 06474000 
REPLYCPIMIX]«03 06475000 
END OUTWAIT3 06476000 
REAL PROCEDURE OUTRAN98O CADReNUMs TYPE sLCC9B)3 ; %10906500000 
VALUE ADRe NUM» TYPE LCC} 210906501000 
REAL ADReNUMP TYPE oe LCC eB3 210906502000 
BEGIN REAL CoTeWoLAS3 06503000 
REAL SPARESRADReDONES=TYPEsLSIZ=LCC3 06503100 

LABEL AGAIN} 06503200 
BeSPACEC 303413 06504000 
LAS#ReTYPE,(2%1)3 06504500 

JF TYPE,Ci8i) THEN 06505000 

BEGIN TeBs Cel END ELSE T#(C#B)+06777773 06506000 
STREAMCWHOEC©€0)3 06508000 

BEGIN WeCI3 GO TQ X3 06509000 

WCIF SC#"0" THEN BEGIN DS*LIT"<"3 GO TO L ENDS 06510000 

IF SCae"1i" THEN BEGIN DS*LIT">"3; GO TO &L END3 06511000 

IF SCw"™=" THEN BEGIN DS*LIT"S"3 GO TO L ENDS 06512000 

IF SC#"S" THEN BEGIN DS*LIT"2"; GO TO L ENDS 065143000 

IF SCe**" THEN BEGIN DS«LIT"#"3; GO TO & END$ 06514000 

OSe#eLIT MARKS 06515000 

Ls St*S]413 JUMP OUT TO Y)3 06516000 

IF SC#">" THEN GO TO E38 06517000 

IF SCe"«<" THEN GO TO £3 06518000 

IF SC#"2" THEN GO TO £3 06519000 

IF SC#"<S" THEN GO TO E3 06520000 

IF SC#%e" THEN GO TO £3 06520500 

IF SCR"#" THEN 06521000 

Es BEGIN DSeLIT MARKS SleSJ413 CleC END; 06522000 

DS#CHR3 06523000 

YI CleC) 06523100 

XVEND3 06524000 

WeP 3 06525000 

DO BEGINS 06525100 

IF TYPE.Citi] THEN 06526000 
STREAMCQS#O0*COADRe TELAS#GtaCeoWeNtsIF NUM GTR 63 THEN 06527000 

63 ELSE NUM)3 06528000 

BEGIN SI*ADR3 DI«T3 06529000 

NCIF SC#ALPHA THEN IF SCK<"0O" THEN 06530000 

BEGIN OS*CHRS GO TO L ENDS 06534000 

IF SCa"s#"” THEN 06532000 

BEGIN GCTALLY«0O3 JUMP OUT TO L1)3 TALLYe1} 06533000 

Lis G*TALLYS SieSI13 06534000 

IF SCo"F#" THEN DS*LIT MARKS 06535000 

Sil*S]4#2) GO TO U3 06536000 

END} 06537000 

CIseCI+LaSs GO TO L23 06537500 

IF SCm%e" THEN 06538000 

BEGIN TALLY«43 Q*TALLY’ DS*CHR?3 06539000 

Ol*DI71s JUMP OUT END} 06539100 


AGAINS 


L2s NteCIs Cltew3 06540000 

Ls 3)3 06541000 
ADR*SI3 TeDIs TALLY*G3 Ce#TALLY3 06542000 

END ELSE 06543000 
STREAMCQS EQS CeADRe TEL AS#GtsOeWeNS@®IF NUM GTR 63 THEN 06544000 

63 ELSE NUM); 06545000 

BEGIN SI*ADR}3 Dl¢c3 06546009 

NCIF SCB" "THEN DS*CHR ELSE 06547000 

BEGIN TeD]}3 06548000 

IF SC#eALPHA THEN DS*CHR ELSE 06549000 

BEGIN 06550000 

CIlVSc{[+LAS3 GO TO Lai 06550500 

IF SC=*o" THEN 06551000 

BEGIN DI#DI7ls TeDI3 06552000 

TALLY*13 QeTALLY3 06553000 

JUMP OUT$ 06554000 

END} 06555000 

L2s NteCIs Clean; 06556000 

END END); 06557000 

AOR«*SI3 CepDI3 06558000 

END3 06559000 

T*P3} ADReP3 CeP3 06560000 

END UNTIL CNUM@#NUM®"63)9<0 OR P3 06561000 
NUM#PCT*B +1 e DUP) -C308ZST8PCXCHIC3IO08 33215) %73 06562000 
IF TYPE,Ci81] THEN 06563000 
BEGIN STREAM(T)3 06563200 
DSseLIT LEFTARROWS 06563400 

END ELSE 06563600 
BEGIN IF LCC THEN LCC#S14(NUM48).(4084]3 06564000 
IF TYPE ECE] GTR 14 THEN TYPESCCFJ33143 06564250 
STREAMCT! XC8BLCCe CREBTYPESLFFI"1> LESETYPEDS 06564500 
BEGIN DIt#Ts DI tF0] +13 210906565000 
CRODSeLIT"S")3 06566000 

LFCDSeLIT%#")3 06568000 
XCCOS#eLIT*<")3 B LIT IS A LSS CHRe 210906568100 

DSeLI Te; 06569000 

TeDl3 06570000 

END} 06571000 

Ti*P3 06571500 
NUMSSCCEENUMD4TYPES(CPIMTYPE,L328LI)+hLCC +23 06572000 

IF LOC#O AND € GTR 72 THEN 2 FOLD THE LINE 06572500 
BEGIN SPARESte]F NUM>164 THEN 186°C ELSE 1073 06573000 

DONE t®LS[Zs8703 06573500 

IF CWHEIF CRLSIZ GTR 38 THEN 24 ELSE LSIZ+60"C) 06574000 

GEQ SPARES THEN WieSPARES3 06574500 
STREAMCNISCNUM47) C3986) *CDONE47) 6 3936)3 06575000 

NiteC Br PONE. £4543). 4533] 0 We T)3 06575500 

BEGIN SIssT3 STs#Sr183s Plieepl +a; 06576000 
NCOSteWwOSS STswSr"16s Oss] "16)3 06576500 

DSteWDS SLPSSIONG? OlesDIeNn4) 06577000 

WCIF SCH" © THEN 06577500 

BEGIN DSS#CHRS DItsD1"173 065786000 

JUMP OUT TO LJ 06578500 

END3 06579000 

TALLYSSTALLY4+13 DSSSCHR} 06579500 

SltisS~r2s Dl iepl"2)3 06580008 

SitaSrei7s Ol tedy715% OSsaw CHRS 06580500 

TALLY#FO8 DI teOleds 06581000 

Ls NE@eTALLYS OSt#16 LIT*xxs# xx} 06581500 

ENDS3 06582000 


NUMS=NUM4+163 
IF CCRSCLASHBPI4CPLSIZ) GIR 60 THEN 
BEGIN DONE S®DONE*74*LAS83 
SPARES?##SPARES*LAS3 
TteT+23 
LSIZi858}3 
GO AGAINS 
END END END} 
QOUTRANS80¢NUM3 
END3 
8 SET OMIT #* TWXONLY 
REAL PROCEDURE OUTRANBIDSCADReNUMsTYPE®BoT D3 
VALUE ADReNUMeTYPE3 
REAL ADReNUMe TYPE eBeT3 
BEGIN REAL DeXeV¥eZeNioNeQ3 
LABEL ZIT3 
BrSSPACEC 30) +13 
IF TYPE,C181] THEN 
BEGINS 
STREAMCY#eQT=O0rADRISNPSADRA D3 SBI) 
BEGIN SI&8#ADR} DI tRD3 


IF SCeALPHA THEN IF SC LSS 0 THEN GO TO B3 


At IF ScR*#"” THEN 
BEGIN DSS#CHR3 
IF Sc#*#" THEN 


Bt BEGIN TALLY8=413 YteTALLY$ GO 10 YIT ENDS 


DSItRCHRS GO TO AS 
END3 
YITt Ot2D13 ADRIaS]3 
END STREAM!) 
DtsP3 ADR&ePs XemYsaP3 
NUMEZNUM = ADR, C3083 RCADR®NDLC30833215])3 
END ELSE 


BEGIN STREAMCD&eQreBeXt=CNUMEXISLASS=ECNOT TYPE) ,C284)eADR)3 


BEGIN DJ s=D$3 
XCSITSeADR} 
IF SC#LEFTARROW THEN 
BEGIN C1l8eCI+LASs GO TO L3 
TALLY&#03 XS STALLY3 


END ELSE 
Ls OS@aLIT*#")3 
OreDI3 
END3 
X¢eYisPs HvsP; 
ENDS 
he] 


BEGIN Ne®lF CNi88NUM GTR 63) THEN 63 ELSE NUM3 
IF TYPE.sCisi1) THEN 
BEGIN} 


STREAMCDISCHBOeADRaDeZoXeVPRQtLAStaC(NOT TYPE) sC2S1) eNeNie 
At2®1660140206557501 58! #8@2072350304000000» 


ChwmOeClemOeC2teOoC3ta0)s 
BEGIN SIS#ADRS DI tads 

Cisscys GO TO NEXTS 

YOST ssSiel3 

IF Sce"#" THEN STeSIel ELSE 
BEGIN TALLYI#s03 YSRTALLY? 

TALLY%315 JUMP OUT TO RETURNS 

END) 

XCTALLY#®03 JUMP OUT TO L193 


06582500 
06583000 
06583500 
06584000 
06584500 
06585000 
06585500 
06586000 
06587000 
06588000 
06588990 
06590009 
06590100 
06590200 
06590300 
06590400 
06590500 
06590600 
06590700 
06590800 
06590900 
06591300 
06591400 
06591500 
06591600 
06591700 
06591800 
06591900 
065924090 
06592500 
06592600 
06592700 
06593100 
06593200 
06593300 
06593320 
06593340 
06593360 
06593380 
06593400 
06593420 
06593440 
06593500 
06593600 
06593700 
06593800 
06593900 
06594000 
06594100 
06594200 
06594250 
06594300 
06594400 
06594500 
06594600 
06594700 
06594800 
06594900 
06595000 
06595100 


TALLYt 313 


Lit OStRCHR} 
RETURNS XieTALLY3 CI82C33 


NEXTS C2:scis GO TO STARTS 
IF Sc#te"” THEN 
BEGIN DSt®3 LIT"1 "3 DSS=CHRS 


IF SC#"«x" THEN OS#®3 LIT "3 “s GO BACK END} 


IF Sce*e" THEN 
BEGIN SIeaSint3 


IF Sce""" THEN BEGIN SIt8SI+23 GO BACK END3 


S]ssSl#13s OSse3 LIT" "3S DOStSCHRE 
GO BACK3 
END3 
CeeOl? DIseLoc a3 
7CIF ScsDC THEN 
BEGIN DItscs SIte5l"13 
DStseCHRs JUMP OUT TO BACK 
END ELSE SI]tsS]"71)3 
6CIF SceDC THEN 
BEGIN DI8*C3 SIteSI1"13 DPSt=sCHR3 
IF Scs" © THEN 
BEGIN SltwS]413 
IF SC NEQ @ * THEN DStSLIT™ "3 
SLrsSpris 
END ELSE pSs#2 LIT" "3 
JUMP OUT TO BACK? 
END ELSE SI]ssS1"1)3 
STtsSte¢13 Dlaacs 
BACK? Clisc3} 


START: NCIF SC#"#" THEN 
BEGIN C3ssCI3 Cls*C1s GO TO L ENDS 
IF Sce®e" THEN 
BEGIN CI¢*CI+LaASs JUMP OUT TO LAS 


XCOSS=LIT MARKS SIt=S]41s JUMP OUT TO L$ 


GO TO CM3 
END} 
XCOSseCHRS JUMP OUT TO L)? 
IF SCSALPHA THEN JF SC LSS "0" THEN 
BEGIN YCJUMP OUT TO AOK)3 
DSeLIT™#"3; TALLY*13 YeTALLY? 
AOKI DStsCHR3 GO TO L3 
ENDS 
CMI YCOSeaLIT7#"3s TALLY? #03 YESTALLY)3 


06595200 
06595300 
06595400 
06595500 
06595600 
06595700 
06595800 
06595850 
06595900 
06596000 
06596100 
06596200 
06596300 
06596400 
06596500 
06596600 
06596700 
06596800 
06596900 
06597000 
06597100 
06597200 
06597300 
06597400 
06597500 
06597600 
06597700 
06597800 
06597900 
06598000 
06598100 
06598200 
06598300 
06598400 
06598420 
06598440 
06598460 
06598480 
06598500 
06598600 
06598700 
06598800 
06598900 
06599000 
06599100 


IF Sce#e"S" THEN BEGIN TALLY#t#4s JUMP OUT TO LAR END306599200 
IF Sca"#" THEN BEGIN TALLYsais JUMP OUT TO LAR END#06599300 


C3sncls Clixc23 


La 43 
NICJUMP OUT TO YIT)3 
LAS StseStei3 


XCIF SC#"#" THEN DSeLIT*#" ELSE 
BEGIN DIs#DI°1s TALLY##03 XteTALLY END? 
JUMP OUT TO LL)? 
YCDOSeLIT"#")3 
LL’ ss TALLY 3203 
LARS DStSLIT GEFTARROWS DISCIETALLYS 
Y{Ts DISDI$ ADRtzSI3s Z 12 OT3 
ENDS 
QrePs; XteP} 


06599400 
06599500 
06599600 
06599700 
06599808 
06599650 
06599900 
06600000 
06600100 
06600200 
06600300 
06600400 
06600500 


END 
ELSE 
BEGIN? 
STREAMCDISCimBbe ADRe Deo Ze VYtLASi=TYPE L281] »NoN1LeXe 
CRISTYPE CEFF IL eLFaeRTYPE e LCF J "CPC DUP) #0)» 
RLF &eCTYPEs0)-Q)3 
BEGIN SI#sADRi DI teDs TALLY#=03 
NCIF Sc # LEFTARROW THEN 
BEGIN 
LASCZt2N13 DISCEFTALLYS JUMP OUT 2 TO L3)3 
OSiFLIT MARKS SI]ssS]e13 
GO SETZ$3 
END ELSE 
BEGIN IF ScCB"*#* THEN DSteLJTV#"3 
IF SCe" " THEN DSSSCHR ELSE 
BEGIN DSItSCHRI 
SETZ3 Z3B013 
END3 
END)3 
NiCJUMP OUT TO YIT)3 
L3s DISCCSITtsLOC Zs SJeseSt+53s DLsFLoc 23 
IF 3 SC#0C THEN 
BEGIN DI] s#Q2 XCYtsTALLY)3 
JUMP OUT TO L2 
END ELSE JUMP OUT)3 
DIseZs | XCDSHeLIT*#") 3 
L2s CRODSteq LIT™1L #3 
LFCDOSt#4 LIT™1 «&")3 
RLFCDSts3 LIT"3 "93 
DSs=LIT LEFTARRONW3 
ZIEDI3 
YITs DtKBFDOIs ADRIZS]; 
ENDS 
YsuP3 
END3 
ZtePxs DssPs ADRY=P3 
END 
UNTIL PCCTJ*®SND) NEG 8&8 OR CNUMS=NUM"63) LEQ O73 
OUTRANBIDS1#Z,(3083]4862°8)(308333915)3 


06600600 
06600700 
06600750 
06600800 
06600850 
06600900 
06601000 
06601100 
06601200 
06601300 
06601400 
06601450 
06601500 
06601600 
06601650 
06601700 
06601750 
066001800 
06601850 
06601900 
06602000 
06602020 
06602040 
06602060 
06602080 
06602100 
06602200 
06602300 
06602350 
06602400 
06602500 
06602600 
06602700 
06602730 
06602760 
06602600 
06602900 
06603000 
06603100 


TemTQYCQ2A7sLURCIF TYPE,CI81) THEN (X OR Q) ELSE NOT CTYPE LFF J06603200 


® 0 OR TYPE,CCFI] # 0))C4384781)3 
ZIT$’ END OUTRAN BIDS3 
REAL PROCEDURE QUTRANTCCADR®NUMe TYPE s Be) 
VALUE ADRe NUMe TYPE! 
REAL AORe NUMe TYPEs Bo C3 
BEGIN REAL De Xe Yo Ze Nie Neo Q3 

B 8® SPACEC30)+13 
IF TYPE,C181) THEN 

BEGINS 

STREAMCYSROeADRISNIwADReDIBBs D3 

BEGIN SI1tsADR} DIeeads 

At IF SC & "#" THEN 
BEGIN OS##CHR3 
IF SC NEQ *#" THEN 
BEGIN TALLYt#i1s YsRTALLY3 GO TO YIT END} 
DStsCHRs$ GO TO A 
END} 
YiT! DteDs AODRs#S]} 
END STREAM) 
De=P3 ADRESPS XzgzVeeP3 


06603300 
06603400 
06610000 
06610100 
06610200 
06610300 
06610400 
06610500 
06610600 
06610700 
066106800 
06611200 
06611300 
06611400 
06611500 
06611600 
06611700 
06611800 
06611900 
06612000 


NUMSBNUM @ ADReL302 3) CADRONDL30833815)3 
END ELSE ZBCL SCAN 
BEGINS 
STREAMCDOSBQReBeXtSCNUMFODILASIBCNOT TYPE) C281) 2° ADR) 
BEGIN O148D3 
X(STRSADRI 
IF SCe®LEFTARROW THEN 
BEGIN Cliecl+LAS# GO TO Ls 
TALLY!##03 XYsTALLYS 
END ELSE 
Ls DSSeLiT"#")3 
DseOl3 
END STREAM} 
XeweYeePs DtsPs3 
END) 


BEGIN N#®IFON1$*2NUM GTR 63) THEN 63 ELSE NUM3 


IF TYPE.C1#1) THEN BMORE SICASCII 
BEGINS 


06612100 
06612200 
06612300 
06612400 
06612500 
06612520 
06612540 
06612560 
06612580 
06612600 
06612620 
06612640 
06612700 
06612800 
06612900 
06613000 
06613100 
06613200 
06613300 


STREAMCDISCISBsADReDeZsX8LASte(NOT TYPE) ,C2%i Jd eNoNi 001820003820) 306613400 


BEGIN SI]#eADR3 Oted3 

Cileecrls GO TO STARTS 

XCTALLY##03 JUMP OUT TO L1)3 

TALLY te13 

bis DS##CHR} XI=TALLY 
Cl:sC3} 
STARTS NCIF SC & "#" THEN 

BEGIN C3seCls Cleacis GO TO L ENDS 

IF SC # LEFTARROW THEN 

BEGIN CIisC1+LAS3 JUMP OUT TO LA3 

X(DSseLIT MARK)3 GO TO LO} 

END} 

XCOStSCHRS JUMP OUT TO L)3 

IF SC ® ALPHA THEN 

BEGIN IF SC="5" THEN GO TO LO} 
IF SCa"7" THEN GO TO LO; 

END ELSE 

BEGIN IF SCa"&" THEN GO TO LOS 
IF Sca#™<s* THEN GO TO LOS 
IF SCw"%3" THEN GO TO LO3 
IF Sca”"" THEN GO TO LOS 
IF SCe"2" THEN GO TO LO3 


IF SCca"#"” THEN BEGIN TALLYSe1% JUMP OUT TO LAR END3 
IF Sc#"$" THEN BEGIN TALLY#=4s JUMP OUT TO LAR END! 


END; 
DStsCHR} GO TO L$ 
LOr SteseSleis 
Li 393 
NICJUMP OUT TO YIT)5 
LAt SiseStets 
XCIF SC NEQ "#" THEN DStsLIT "#" 


ELSE BEGIN DI tmDIwis TALLY#e03 XteETALLY END)3 


TALLY #80} 
WAR? DSs#LIT LEFTARROWS DISCS*TALLY3 
Yuts DiFeDIS ADRERSIS Zeepss3 
END SICASCII] STREAM} 
XeePs 
ENO 
ELSE RSCAN SOME MORE BCL 
BEGINS 


06613500 
06613600 
06613700 
06613600 
06613900 
06614000 
06614100 
06614200 
06614300 
06614320 
06614340 
06614360 
06614400 
06614500 
06614600 
06614700 
06614800 
06614900 
96615000 
06615100 
06615200 
06615300 
06615400 
06615500 
06615600 
06615700 
06615750 
06615800 
06615900 
06616000 
06616100 
06616200 
06616300 
06616400 
06616500 
06616600 
06616700 
06616800 
06616900 
06616950 


STREAM(DISCI#BOeADReDeZeYILASSElTYPE,L2tlieNeNioXeCRISTYPE,CFFI"1 206617000 


LF&eTYPEsQ)3 06617100 

BEGIN SIHZADR3 DI8FNs TALLY! 203 06617200 

NCIF SC * LEFTARROW THEN 06617300 

BEGIN 06617400 

LASCZIsHIs DISCteETALLYs JUMP OUT 2 TO L3)3 06617500 

S1t#SI4+i13 DSteLyT MARKS 06617550 

GO TO SETZ3 06617600 

END ELSE 06617650 

BEGIN IF SC#"#" THEN DSSeLIT#"%3 06617700 

IF Sce™ " THEN DS#SCHR ELSE 06617750 

BEGIN DSt=CHR3 06617800 

SETZ!3 Zt=013 06617850 

END3 06617900 

END)3 06617950 

NICJUMP QUT TO YIT)3 06618000 

L3t DISCCSY##LOc Zs SlteSi+5s DIteboc Z3 06616100 

IF 3 SC2DC THEN 06616120 

BEGIN DI] %eQs XCYt*TALLY)3 06618140 

JUMP OUT TO L2 06618160 

END ELSE JUMP OUT)3 06618180 

Di1eZs | XCDSewLIT "#")3 06618200 

L2: CRCDSSSLIT *"")3 06618300 
LFCDSt=LIT "e")3 06618400 

DSs# LIT LEFTARROW; 06618500 

Zt=D13 06618600 

YITs DtedI3 ADRt#S13 06618700 

END BCL STREAMS 06618800 

YosP} 06618830 

END) 06618860 

ZtaP3) OrePs ADRISP3 06618900 

END 06619000 
UNTIL PCCCJ]*SND) NEQ B OR CNUMSSNUM"63) LEQ O3 06619100 
OUTRANTC83Z,(3083)8¢Z27B)£30233115)3 06619200 
CeFCRYCAs47sLIRCIF TYPE,CI81) THEN X ELSE 06619300 
NOTCTYPE,CFFJ&0 OR TYPESCCF) NEG 0))L1847321)3 06619400 

END OUTRANTC3 06619500 
$ POP OMIT 06619501 
Be eu ee ee ee ee Ke OK ee ee ee RK ee ee Ke *ZIS06B45900 
DEFINE KLUMPw@17G#3;% @173 IS RESERVED FOR THE DISK ADDRESS 07000000 
COMMENT LASTCONUMs FIRSTDECKs AND LASTDECK ARE STORED IN THE 07000010 
FIRST THREE WORDS OF THE DISK SEGMENT LOCATED AT DIRECTORYTOP 07000015 

43, IN A NON SHARED DISK SYSTEM» THEY ARE WRITTEN OUT EACH 07000020 

TIME ONE OF THEM IS CHANGED SO THAT THEY WILL BE PRESERVED 07000025 

IF A HALT/LOAD OCCURS, IN A SHARED DISK SYSTEMs THEY ARE 07000030 

READ INTO THE PRT WITH A READ#*LOCK COMMAND EACH TIME THEY ARE 07000035 

USED, THIS PROVIDES CONTROL DECK INTERLOCKING BETWEEN SYSTEMS 07000040 

IN ADDITION TO PASSING THE INFORMATION BETWEEN SYSTEMS, 07000045 

END COMMENTS 07000050 
INTEGER LASTCDNUMm@4743 07000100 
REAL FIRSTDECKs@175) 07000200 
REAL LASTDECKmO4763 07000300 
DEFINE LOCKCONTROLDECKS«BEGIN SLEEPCLTOGLE) »COMASK)S LOCKTOGCCDMASK)) 07001000 
$ SET OMIT #& NOTCSHAREDISK) 07001099 
DISKWATTCPKLUMPe*3eNTRECTORYTOP43)3 07001100 

$ POP OMIT 07001101 
END#e 07001200 
UNLOCKCONTROLDECKS*BEGIN 07001300 

_$ SET OMIT ® NOTCSHAREDISK) 07001399 
DISKWAITCKLUMPs*32DI]RECTORYTOP4+3)3 07001400 


$ POP OMIT 
UNLOCKTOGCCDMASK) E 
REAL PROCEDURE NEXTCONUMCUPD 
BEGIN 
LOCKCONTROLDECKS; 
LASTCDNUM $t@ CLASTCDNUM MOD 9999) +413 
STREAMCCDNUM3203 LNUME&LASTCDNUM)3 
BEGIN 
SEt®LOc LNUMS DIsS#LOC CDNUMS DSt#6 DEC} 
END3 
NEXTCONUM ts P} 
IF UPDATE THEN 
BEGIN 
DISKWAITCKLUMPe@*3eDIRECTORYTOP4+3)3 
UNLOCKTOGCCOMASK)3 
END3 


ND#3 
ATE); VALUE UPDATES BOOLEAN UPDATES 


END3 
PROCEDURE STARTADECKCN)$ VALUE N$ REAL N3 FORWARD? 
PROCEDURE ENTERCONTROLDECK(CH)S VALUE H? ARRAY HE*J3 FORWARDS 
REAL RUNUMBERSS 
PROCEDURE COM235;% 
BEGIN® 
REAL INBUFF*® ADDRESS OF THE INPUT BUFFER, 
" ” 


OUTBUFF 2% " OUTPUT BUFFER. 
FIRSTCARD#s% * " " CARD IMAGE OF THE FIRST CARD 
OUTBUFFOLD+% r fs " LAST OUTPUT BUFFER, 
RESERVE s% as " 30 WOS OF CORE USED TO BUILD THE 
ToTieT2s® TEMPORARY VARIABLES,» 
ReLeNed us ® USED TO COUNT CARD IMAG 


Q»% USUALLY INDICATES COL 1 HAS A QUESTION MARK 

1Us% UNIT NUMBER OF THE INPUT UNIT, 

OUss * " " © OUTPUT UNIT, 

FIRST#® TRUE IF THE FIRST CARD OF A DECK, 

S:% USED AS A TEMPROARY VARIABLE IN SUBROUTINE 
% AND TO HAND THE UNIT NUMBER TO SUBROUTINE § 

03% USED AS A MASK TO SLEEP UNTIL DISK OPERATJO 
% ARE COMPLETED, 

$ SET OM]T = NOTCPACKETS) 
REAL VERYFIRST» &%TRUE IF THE FIRST CARD OF THE FIRST DECK 
ZIN SINCE LOAD CONTROL WAS EXECUTED, 


FIRSTORSEC*® %TRUE IF THE FIRST OR SECs CARD OF NEW DECK 


PTYPEs% CONTAINS THE RESULT OF REAL SUBROUTINE 
PACKETCARDsSAVING SOME NEEDLESS EXTRA 
CALLS ON IT TO CHECK THE TYPE OF A CARD, 
THE VALUE OF PTYPE IS AS FOLLOWS! 
0 = NOT A PACKET CONTROL CARD 
1 = "PACKEND"CARDe CUSED BY THE 
OPERATORS TO END A GROUP 
OF PACKETS BEING LOADED T0 
DISK) 
3 © "PACKET" CARDe (FIRST CARD 
OF A PACKET) 
5 = "END PACKETS" CARDe CUSED BY 
THE OPERATORS TO BOTH END 
A GROUP OF PACKETS AND 
SIMULTANEOUSLY DISCONTINUE 
LOAD CONTROL), 
TRUE IF THE LAST “PACKET” CARDCI eb oe 
PTYPES3)» WAS BOTH THE START OF A NEW 
PACKET AND WAS USED TO "PLUG" THE END 


PLUGGED) 


Be DE BK BE BR BK BE BE BE BE BE BE BE DE OR BE BL de 


07001401 
07001500 
07001600 
07001620 
07001640 
07001660 
07001660 
07001700 
07001720 
07001740 
07001760 
07001780 
07001800 
07001820 
07001640 
07001860 
07001880 
07002000 
07002100 
07003000 
07004000 
07005000 
07006000 
07006010 
07006020 
07006030 
07006040 
07006050 
07006060 
07006070 
07006080 
07006090 
07006100 
07006140 
07006150 
07006160 
07006161 
07006169 
07006172 
07006174 
07006176 
07006180 
07006190 
07006200 
07006210 
07006220 
07006230 
07006240 
07006250 
07006260 
07006270 
07006280 
07006290 
07006300 
07006310 
07006320 
07006330 
07006340 
07006350 
07006360 


% OF THE LAST PACKET WITH AN ARTIFICIAL 


3 "QUESTION MARK®™ PACKET," CARDS3 
$ POP OMIT 
BOOLEAN CDONLY3 
INTEGER Ael3% 
$ SET OMIT = NOTCPACKETS) 
REAL CONTINUE ®DISKCHAIN®SADECKS LABEL DK3 
LABEL INPUTLS 
$ POP OMIT 
LABEL AGAIN« INLeERROR*eSUPER*BOMBeSKIPITOEXITS 
ARRAY FPBC*¥]sH(¥13% 
SUBROUTINE STOP3% 
BEGIN IF S # 18 THEN’ 


BEGIN READY * NOTCQ «+ TWO(S)) AND READYS% 


RRRMECH * NOT @ AND RRRMECH OR @ AND SAVEWORDSS 


LABELTABLE[S] * @1143% 
ROCTABLE[S] © MULTITABLELS] © 04 
ENDS% 
FPBECT+1J]© *PCDUP)+CLOCK4PCRTRIES 
FPBCTI.C24:12] © TINULSJ].£18:1213% 
TINUCSI,£1681212=0; 
ENDs% 
$ SET OMIT & PACKETS 
SUBROUTINE FORGETIT#3& 
$ POP OMIT 
$ SET OMIT = NOTCPACKETS) 
SUBROUTINE FORGETONES 
$ POP OMIT 
BEGIN Ti © HL9]+93% 
FOR T2 ¢« 10 STEP 1 UNTIL Ti DOZ% 
FORGETUSERDISKCH(IT2J3*+"HL8))3 
ENDS 
$ SET OMIT = NOTCPACKETS) 
SUBROUTINE FORGETITS 
BEGIN FORGETONES 
WHILE DISKCHAIN NEQ@ O 00 
BEGIN DISKWAITC*(H INX 0)230eDISKCHAIN)3 
DISKCHAIN#=H(6),CFFI3 
FORGETONES 
ENDS 
END FORGETITS 
$ POP OMIT 
SUBROUTINE BOMBTIME3% 
BEGIN WHILE PRTROWEPIMIXJ],CPSFJ>1 po 
STOPMS 
IF TERMSETCPIiMIX) THEN GO BOMB} 
; ENDS 
$ SET OMIT = NOTCPACKETS) 
REAL SUBROUTINE PACKETCARDS% THIS USED TO BE "ENDCARD" 
BEGIN IF @ THEN’ 
BEGINS® 
STREAMCXS@"PACKETS™IYse"CONTINUTs ZEEMENDe 
BEGIN SI © INBUFFS2 


Lf SI « Sl#i3 IF SC = " " THEN GO TO Ls 


DIeLOC X3 DieDI413% POINT TO “PACKETS" 


IF 4SC®DC THENS A "PACKET® OR "PACKEND® CARD 


IF 2SC®80C THEN TALLY*3% A "PACKET" CARD 
ELSE TALLY*#1% A “PACKEND™ CARD 


ELSE BEGIN Di*D1"43% POINT TO “"PACKETS® 


"»sINBUFF)3 


IF 7 SC#DC THEN TALLY3#®5 S"END PACKET" 


07006370 
07007000 
07007001 
07007100 
07008000 
07008199 
07008200 
07008300 
07008301 
07009000 
07010000 
07011000 
07012000 
07013000 
07014000 
07015000 
07016000 
07017000 
07018000 
07019000 
07020000 
07021000 
07021999 
07022000 
07022001 
07022099 
07022100 
07022101 
07023000 
07024000 
07025000 
07026000 
07026099 
07026100 
07026200 
07026300 
07026400 
07026500 
07026600 
07026700 
07026800 
07026801 
07027000 
07028000 
07028100 
07028800 
07028900 
07028999 
07029000 
07030000 
07031000 
07032000 
07033000 
07034000 
07035000 
07036000 
07036100 
07036150 
07036200 
07036210 


Srmreercmaeeman acme cents ioc mi naa te A ene eta nntmuinanentat emanated 


ELSE BEGIN SI #teS]"113 DI$sLoc Y3 
DIsteDI +13 0F 7SC20C THEN TALLY1I36 
ELSE BEGIN DIt*LOc ZiDltepl+i3 


SLQesir73 
IF 3SC™DC THEN TALLY 373 
ENDS END3 
ENDS% 
X « TALLY3% 
END3% 


END ELSE P(0)3% 
PTYPE GP} 
IF PTYPE®6 THEN BEGIN PTYPE!2#33 CONTINUESSTRUE END 
ELSE CONTINUE SsFALSE3 
IF PTYPE®? THEN PTYPES@ADECK3 
PACKETCARDS#PTYPES 
END3% 
$ POP OMIT 
$3 SET OMIT * PACKETS 
BOOLEAN SUBROUTINE ENDCARD3 
BEGIN IF Q@ THEN 
BEGIN MCINBUFF49]2808","(184355)3 
STREAMCXES"END*SINBUFF D3 
BEGIN SIteINBUFFS 
Le SissSt413 JF Sce™ @ THEN GO TO L3 
DIt*eLOc Xs DIssD1 +53 
IF 3 SCs0C THEN TALLY3 #13 
X¢seTALLY3 
ENDS 
END ELSE P(0)3 
ENDCARDISP3 
END) 
$ POP OMIT 
REAL SUBROUTINE ADRsS3 
BEGIN IF (T2 © HECTI © R OV 200)410)) = O THEN? 
BEGIN H{9] © T1+13% 
H{( T1410] «© T2 © GETUSERDISK(200);% 
END3% 
ADR © R MOD 2004+T2% 
ENDj2 
SUBROUTINE INPUT3% 
BEGINS 
IF IU < 16 THENS 
$ SET OMIT * NOTCPACKETS) 
BEGIN 
INPUTL3 T © WAITIO (€@120540000000 + INBUFF >» 
060000409 I1U)3 
IF T=@40 THEN GO TO INPUTL3 
JF T#0 THEN 
BEGIN 
P(DEL)3 
GO TO ERROR 
ENDS 
$ POP OMIT 
$ SET OMIT = PACKETS 
BEGIN IF FIRST THENS 
T © WAITIOC@140000000 +¢ INBUFF 6% 
OGQOeTU5% 
T © WAITIOC@120540000000 + INBUFFe2 
C20000000TUIE4 
& POP OMIT 


07036220 
07036230 
07036240 
07036250 
07036260 
07036270 
07036400 
07037000 
07038000 
07039000 
07039100 
07039200 
07039300 
07039410 
07040000 
07041000 
07041001 
07041099 
07041100 
07041110 
07041120 
07041130 
07041140 
07041150 
07041160 
07041170 
070411860 
07041190 
07041200 
07041210 
07041220 
07041221 
07042000 
07043000 
07044000 
07045000 
07046000 
07047000 
07048000 
07049000 
07050000 
07051000 
07051099 
07051100 
07051110 
07051120 
07051130 
07051140 
07051150 
07051160 
07051170 
07051160 
07051161 
07051999 
07052000 
07053000 
07054000 
07055000 
07056000 
07056001 


$ 


END3% 


Q « MCINBUFF SL Ie932 
END® 
ELSE BEGIN WHILECQeWAITIUC@4QQ0Q000004INBUFF oF IRSTX44 
@40000000TUI>, £4541) BO 
IF FIRST AND CDOONLY THEN GO EXIT ELSE 
BEGIN SLEEPCLTOGLE) sSTATUSMASK)3 
RRRMECHeRRRMECH AND NOT QeTwOClIu)3 
READY*READY AND NOT Q@3 
DO BEGIN CLICK*CLOCK+PCRTR) +643 
SLEEPCC READY] »Q)3 
BOMBTIME3 
END UNTIL CREADY AND Q)#03 
END} 
IF @ «© @ # O THEN 
UNITCIU),£(5%13)]¢03 
T + O83 
ENDS 


SET UP INPUT VARIABLES 

SET OMIT = NOTCPACKETS) 
OU*PSEUDOMIXEPIMIX]3 
PSEUDOMIX(CPIMIXI] «03 


POP OMIT 


IF CDONLYtS¢€PRTICPIMIX*2@25)3>22) THEN 

BEGIN JUSsPRTICPIM]X2@25]3 
PRTICPIMIXs@25] 2203 % DISK 

END ELSE 

BEGIN IF CIUSSFINDINPUTC®CONTROL™* "DECK 

0002) LSS O THEN GO INITIATE? % BEEN DS*ED 

IF IU GE@ 32 THEN PCXIT)3 

ENDS 


SET OMIT = NOTCPACKETS) 
PSEUDOMIXEPIMIX] «OU; 


POP OMIT 


STARTIMINGCO*IU)3 
FPBtePRTICPIMIXe3]3 


IF NOTCJAREPIMIXe9),f2411) THEN & DONT SUPPRESS MESSAGE 


FILEMESSAGEC™ IN "&TINULTUJ£6230%18190+ 


"CONTROL™e "DECK "e0s0e020PNMESS OR OPENK)3 


ROCTABLELIU],[(6#6) « PIMIXs% 
IF IU LSS 16 THEN 


BEGIN FPBE3),(C23¢:1)] 5213 & SET INPUT FLAG FOR LOG 


TIBWAITIOC@540000005Se0e1U)3 
ENO 
ELSE IF TUS23 AND READERA NEQ O THEN 
BEGIN FORGETSPACE CREADERA®™2)3% 
READERA ©¢ 03% 
ENDS 
ELSE JF IU=24 AND READERB NE@ O THEN 
BEGIN FORGETSPACECREADERB?2)5% 
READERB ©« 03% 
ENDS% 
INBUFF © GETSPACEC11e001) + 23 
FIRSTCARD © GETSPACE(100001)+23% 


SET UP OUTPUT VARIABLES 


IF PRTCPIMIXs@25) THEN 
BEGIN OU ¢ LABELASCRATCH(T #% 


TAPELABELC*CONTROL™s "DECK “ohete100))8% 


FORGETSPACE(T) 33% 
FPBC3J.02321)3703 


200000202000» 


® SET OUTPUT FLAG FOR LOG 


07057000 
07058000 
07059000 
07059100 
07059110 
07059200 
07059300 
07059400 
07059500 
07059600 
07059700 
07059600 
07060000 
07061000 
07066000 
07067000 
07068000 
07069000 
07071000 
07071899 
07071900 
07071910 
07071911 
07072000 
07072100 
07072200 
07072300 
07072400 
07072500 


2 EOU IF PSEUDODCK07072600 


07072700 
07072899 
07072900 
07072901 
07073000 
07073500 
07074090 
07074100 
07074200 
07075000 
07076000 
07076010 
07077000 
07077010 
07078000 
07079000 
07080000 
07081000 
07082000 
07083000 
07084000 
07085000 
07086000 
07087000 
07088000 
07089000 
07090000 
07091000 
07093000 
07093010 


OU + 483% 
END3% 

STARTIMING(5*20U)3 

FPB&SPRTICPIMIX93J3 B STARTIMING MAY HAVE MOVED ITe 
2 SET OMIT #& NOTCPACKETS) 

VERYFIRST#133 
$ POP OMIT 
% BEGIN ONE DECKS 
AGAIN# OUTBUFF «© QUTBUFFOLD?:% 

L «© N @ Of3% 
$ SET OMIT = NOTCPACKETS) 

FIRST*FIRSTORSEC*D*1s ADECK*0O; 
$ POP OMIT 
$ SET OMIT = PACKETS 

FIRST « D © 43 
$ POP OMIT 


ENDS 


ELSE BEGIN OUTBUFFOLD «+ OUTBUFF © GETSPACE(C609001)+252% 


RESERVE © GETSPACE(300001)423% 
H * [MEGETSPACE(302001)421)830(8838810)3% 


IF OU = 18 THENS 
BEGIN HE 9] © 03% 
MOVEC20*eCHI9}J*CHL10)))3 
H{6J]«2003 
ENDs% 


% BEGIN ONE CARD2% 
INL 


$ SET 
$ POP 
$ SET 
$ POP 


$ SET 


$ POP 
$ SET 


$ POP 


$ SET 


$ POP 
$ SET 


$ POP 


OMIT = NOTCPACKETS) 
IF PTYPE NE@ 3 OR VERYFIRST THEN 
OMIT 
INPUTS 
OMIT & NOTCPACKETS) 
IF FIRSTORSEC THENS 
OMIT 
IF FIRST THEN 
BEGIN 
OMIT = NOTCPACKETS) 
PLUGGEDtSVERYFIRST3 
OMIT 
OMIT # PACKETS 
FIRSTI*FALSES 
OMIT 
MOVECLO*s INBUFFeFIRSTCARD) 34 
OMJ]T = NOTCPACKETS) 
IF PACKETCARD LSS 3 AND PKTONLY 
THEN BEGIN VERYFIRST#23% 
GO TO ERRORS 
END ELSE &% INV PKT CARD 
IF PTYPE®5 THEN 
IF OU<16 THEN FIRSTS*®VERYFIRST$=0 ELSE 
GO TO EXIT ELSE 
IF PTYPE#3 OR CONTINUE THEN 


BEGIN 
ADECK3813 GO DK3 
END} 
END ELSES THIS MUST BE THE SECOND CARD IN 
OMIT 
OMIT = PACKETS 
END3 
OMIT 


07094000 
07095000 
07096000 
07097000 
07096000 
07103000 
07104000 
07104500 
07105499 
07105500 
07105501 
07106000 
07107000 
07108000 
07108099 
07108100 
07108101 
07106999 
07109000 
07109001 
07110000 
07111000 
07112000 
07112100 
07113000 
07114000 
07115000 
07115099 
07115100 
07115101 
07115200 
07115499 
07115500 
07115501 
07116000 
07117000 
07117099 
07117100 
07117101 
O7117199 
07117200 
07117201 
07118000 
07118099 
07118100 
07118200 
07118300 
07118400 
07118500 
07118510 
07116520 
07118550 
07118600 
97118690 
07118700 
07119000 
07119001 
07119009 
07319010 
07119011 


Seen ee een 


omer: eh AP atlases ed eeue este 


$ SET OMIT = NOTCPACKETS) 07119099 


DK 3 IF @ THEN FIRSTORSEC2 #0 ELSESBAD SEC,/FIRST 07119100 
BEGIN VERYFIRST#a} ® CARD 07119200 

GO TO ERROR} 07119300 

ENDIS INV DECK SET#UP 07119400 

$ POP OMIT 07119401 
IF T NEQ O THEN 07120000 

$ SET OMIT = NOTCPACKETS) 07120009 
IF PTYPE NEFQ@ 3 OR VERYFIRST THEN 07120010 

$ POP OMIT 07120011 
GO TO ERRORS . 07120020 

BOMBTIMEs% 07121000 

IF OU «< 16 THEN? 07122000 

BEGIN 07122010 

$ SET OMIT = NOTCPACKETS) 07122999 
PLUGGED ¢ VERYFIRST OR CPACKETCARD#3) 07123500 

OR FIRST? 07124000 

IF PLUGGED THEN 07124500 

$ POP OMIT 07124501 
TeWAITIOCINBUFF&@5000(16233815) 07125000 

&(107Q)(8338810)»0r0U)3 07125500 

$ SET OMIT * PACKETS 07125599 
IF NOT ENDCARD THEN GO TO INL$ 07125600 

$ POP OMIT 07125601 
2 SET OMIT = NOTCPACKETS) 07125999 
IF VERYFIRST THEN VERYFIRST#PTYPE«03 07126000 

IF FIRST THEN FIRST#PTYPE*O3 07126500 

IF PTYPE=O THEN GO TO INL3 07127000 

$ POP OMIT 07127001 
MCINBUFF®1] + €17370000000000003 07127500 

T © WAITIOCINBUFF™120520U)3 07128000 

SUPER! 07129000 

$ SET OMIT = NOTCPACKETS) 07129099 
IF PTYPE#5 THEN GO TG EXIT3 07129100 

IF PTYPE®1 THEN VERYFIRSTS®TRUE; 071429200 

GO TO AGAINS 07129300 

$ POP OMIT 07129301 
$ SET OMIT & PACKETS 071429999 
STREAMCX#se*CONTROL™SINBUFF D3 07130000 

BEGIN SItSINBUFFS 07130100 

E: If SC NEG "E* THEN 07130200 

BEGIN SI «# S]J#13 GO TO £ END32 07131000 

SI] ¢« SI+¢33% 07132000 

Lit IF sc = * * THENS 07133000 

BEGIN SI « SIi#13 GO TO L END3% 07134000 

DI «© LOC X3 DI © Die1ss 07135000 

IF 7 SC = DC THEN X «& TALLYI2 07136000 

END3% 07137000 

IF P # O THEN GO TO AGAIN ELSE GO TO EXIT34 07138000 

$ POP OM]T 07138001 
END3SZ 07439000 

IF D ® QO THEN SLEEPCEDJeNOT 093 07139500 

 $ SET OMIT #& NOTCPACKETS) 07139509 
IF PACKETCARD NEQ 0 AND NOTCADECK AND PTYPE®1) THEN 07139510 
BEGIN IF NOTCPLUGGED OR FIRST) THEN? 07139511 
BEGIN STREAM(CD*OUTBUFF)$ BEGIN DS«27 LIT 07139512 

"CC ENDeeso IN CASE YOU FORGOT*sDSe45LIT" * ENDS 07439513 

IF NOT PKTONLY THEN IF PTYPE#3 AND NOT CONTINUE AND NOT ADECK THENO7139520 
BEGIN STREAMCFIRSTCARDse T#T+SPACE(13))3 07139530 


BEGIN DS*24LIT"#NO PACKEND CARD» PKT © "3% SI*#FIRSTCARD?3 07139540 


END: 


DS*9 WOSst DSeLIT%«™3 


END3 
SPOUTC(T)3 


END ELSE MOVEC10+ INBUFF sOUTBUFF 3% 
END ELSES 


$ POP OMIT 
$ SET OMIT s 


$ POP OMIT 


$ SET OMIT # 


$ POP OMIT 
$ SET OMIT 


$ POP OMIT 


& SET OMIT 
$ POP OMIT 
$ SET OMIT 


$ POP OMIT 
$ SET OMIT 


$ POP OMIT 


MOVEC1O¢INBUFF eOUTBUFF )3% 
NOTCPACKETS) 
IF VERYFIRST THEN PLUGGED*03% 


IF @ THEN? 
BEGIN IF L DIV 6 # N DIV 6 THENS 
BEGIN R * L DIV 33% 
A « ADRIS 
DISKWAITC*RESERVE» 309A)3 
MCIl*eL MOD 3x10494RESERVE] «+ N3S 
DISKWAITCRESERVE? 302A)3 
END% 
FLSE MEI «CL*N)x1049¢0UTBUFF) «© N3S 
L * MCOUTBUFF 49) © Nee 
END3% 
IF N & 42000 THEN? 
BEGIN T ts SPACE(14);3 
STREAMCFIRSTCARD?#T)3 
BEGIN DS « 32 LIT& 
NOTCPACKETS) . 
“#MORE THAN 12000 CARDS IN PKT * "3 


PACKETS 
"#MORE THAN 12000 CARDS IN "3 


SIT*FIRSTCARDSDS*9WDSIDS*LIT "%e"3 
END 

GO TO SKIPIT3 

END3% 

IF (CN © N+1) MOD 6 = O THEN’ 

BEGIN R « N DIV 3°23% 
A « ADRS 
OUTBUFF « OUTBUFFOLD32% 
DISKIOCD»OUTBUFFM12600A)3 


END ELSE OUTBUFF « OUTBUFF4103% 
NOTCPACKETS) 
IF FIRST THEN FIRST+PTYPE+O3% 
IF VERYFIRST THEN VERYFIRSTS#PTYPES=03 


NOTCPACKETS) 
IF PTYPE®O THEN GO INL 


PACKETS 
IF NOT ENDCARD THEN GO TO INLS% 


IF D ® 0 THEN SLEEPCEDI]eNOT 0)3 


QUTBUFF © OQUTBUFFOLD32 
R ¢ N DIV 6"232 

A @ ADR3% 

IF N MOD 6 # QO THEN 
BEGIN 


07139550 
07139560 
07139565 
07139570 
07139575 
07139590 
07139591 
07140000 
07140099 
07140100 
07140101 
07141000 
07142000 
07143000 
07144000 
07445000 
07147000 
07148000 
07150000 
07151000 
07152000 
07153000 
07154000 
07155000 
07156000 
07157000 
07157099 
07157100 
07157101 
07157999 
07158000 
07156001 
07159000 
07160000 
07161000 
07162000 
07163000 
07164000 
07165000 
07166000 
07167000 
07168000 
07169000 
07169099 
07169100 
07169110 
07169201 
07169499 
07169500 
07169501 
07169999 
07170000 
07170001 
07171000 
07172000 
07173000 
07174000 
07175000 
07475100 
07175200 


$ SET OMIT 


IF 


POP OMIT 
SET OMIT 
POP OMIT 


ERRORS 
SET OMIT 


POP OMIT 
SET OMIT 


POP OMIT 
SKIPIT!: 
SET OMIT 


POP OMIT 
SET OMIT 


POP OMIT 


DISKWAITCOUTBUFF »602A)3 

END#& 

IF R#2 < 200 THEN 
BEGIN HEB] © R+23 

FORGETUSERDISKCA+2+R"198)3 

END3 

HO7JeN"13 

H{4)]¢HL6)+03 

H(5)ie% °0}3 

NOTCPACKETS) 

HCGJ*ORDISKCHAINECTFI&CIF IU<23 THEN 2 ELSE 1U*23) 

[284236]3 


CONTINUE THEN 


BEGIN 
HO2]:@NEXTCDNUMC1) 5 
DISKCHAINISGETESPDISKS 

DISKWAITCH INX Of 300eDISKCHAIN)E 
STREAMCASSH( 2] sBteFIRSTCARD»INBUFF )3 
BEGIN SI%=B) DSt#8 CHR} 

DSt=15 LIT" CONTINUES PKT#&"3 

SIteLOC AZ STtBST4+4s NSFF4 CHRE OSSeLIT 9"; 
ENDS 

END ELSE 

BEGIN DISKCHAIN? #03 


ENTERCONTROLDECKCH)3 
NOTCPACKETS) 
END} 


GO TO SUPER} 
T §® SPACE(12)3 
NOTCPACKETS) 
STREAMCFIRSTCARDsXeVERYFIRSTs1T)38 
BEGIN SI*#LOC X$8 SI#SI473 IF SCE"2" THEN 
DS«16 LIT "#INV PKT CARD = "3% 
ELSE IF SCe"4" THENS 
OS+16 LIT "#INV DECKePKT = "% 
ELSE DS¢16 LIT "#READ ERRePKT = "3% 


PACKETS 
STREAMCFIRSTCARDe ST) 3% 
BEGIN DS «+ 16 LIT "#READ ERROR FOR "33% 


SI * FIRSTCARDS DS © 9 WDOS DS © LIT %e"3% 


ENDS 
SPOUTCT)3 
DO BEGIN INPUT332 
BOMBTIME3% 
PACKETS 
END UNTIL ENDCARDS% 


NOTCPACKETS) 
END UNTIL PACKETCARD NEQ@ O83 


IF OU « 16 THENS 


BEGIN DO BEGIN T «+ WAITI0NC@340000005»60/0U)5% 


BOMBT IME 3% 
END UNTIL T,C4281)3% 
T © WAITI0C@1400000052@6000U) 3% 
ENDS 


07176000 
071786000 
071786100 
07178200 
07178300 
07178400 
07179000 
07179050 
07179100 
07179199 
07179200 
07179202 
07179205 
07179210 
07179220 
07179230 
07179250 
07179260 
07179270 
07179280 
07179290 
07179300 
07179310 
07179320 
07179321 
07180000 
07180009 
07180010 
07480041 
07181000 
07214000 
07214099 
07214100 
07214110 
07214120 
07214130 
07214140 
07214150 
07214151 
07214999 
07215000 
07216000 
07216001 
07217000 
07218000 
07219000 
07220000 
07221000 
07221999 
07222000 
07222001 
07222099 
07222100 
07222101 
07223000 
07224000 
07225000 
07226000 
07227000 
07228000 


BOMB? 3 


EXIT! 


ELSE FORGETITS& 
GO TO SUPERS% 


FORGE 


TIT3% 


SLEEP CLTOGLE J ¢STATUSMASK)3 
IF 1U GE@ 23 THEN UNITCODELIU"23]4=("0)3 
S$ « [US T © 33 STOPSS 
S + OUS T « 85 STOPS% 
FORGETSPACECINBUFF)3% 
FORGETSPACE(FIRSTCARD)3% 
IF OU > 16 THENS 
BEGIN FORGETSPACECH)3% 
FORGE TSPACE COUTBUFFOLD) 5% 
FORGETSPACE (RESERVE) 3% 


END COM2332% 
PROCEDURE STARTLOADNCKTR)$ VALUE KTRI REAL KTR3S 


TRYAGAINS 


END}2 


BEGIN REAL IeHDReSEGOeFeCeT$ ARRAY SHEAT(*]3 


LABEL TRYAGAIN*eLOCNTRL» DISK} 
STREAMCKeOUKTRIIS 

BEGIN SI # KTRI% 

La IF SC = " ™ THENS 


Cc * P 


BEGIN SI « SI#13 GO TO L END3S& 


Ol « LOC K3 DI © DI4+6s DS * 2 CHRIS 


END3% 
$% 


T * KTRgCIS¢15)"13% 
IF €C NEQ@ "MT" AND C NEQ "DK") OR 
= "OK" AND CDUNLY ? THEN 


Cc 


SPOUT(T) 


ELSE BEGIN C * C = "MT"3% 


IF CHDRESDERECTORYSEARCHCPCLOCNTRL De PCDISK)03)) # 0 THEN 


BEGIN 
SHEAT 


STREAMCStaF@hs 


BE 


$= (MOF ERBGETSPACE(3126400)42)) & 3006338:10)3 
D?sF)3 & ZERO QUT THE SHEAT ENTRY 


GIN 


S1s®S3 DSte30 WDS3 


EN 


Ds 


SEGO §* GETSPACEC3026420)423 


DISKWAITC@SEGOe 


F CFF 
SHEAT 
SHEAT 
SHEAT 
 SHEAT 


® C431) IN SHEETC2) MEANS SUPRESS BOJ/EOJ MESSAGES 
ie OC3777777777773 & TIME LIMITS 


SHEAT 
SHEAT 
SHEAT 
SHEAT 


STREA 
B 
tS) 


30* MEHDR INX 10])3 


07229000 
07230000 
07231000 
07232000 
07232500 
07233000 
07234000 
07235000 
07236000 
07237000 
07238000 
07239000 
07240000 
07241000 
07242000 
07243000 
07244000 
07244100 
07245000 
07246000 
07247000 
07248000 
07249000 
07250000 
07251000 
07252000 
07253000 
07253100 
07254000 
07255000 
07255100 
07256000 
07256200 
07256400 
07256600 
07256600 
97257000 
07257200 
07257400 
07257600 


J t@ HORS % CORE ADDRESS OF HEADER IN CFF) OF PARAM, 07257800 


{7) t= SEGO?3 


(0) t= SHEAT(CI4) t= PCLDCNTRL)3 
[1] #8 PCDISK)3} 
C2] := 0 @€ 5£6:36:10)3 


(16) :@ SHEAT(17) 
C19] 38 C3 

[20] 3s= 43 

C21] ss 1503 


MCAS@O 3 
EGIN 
TtxS} 


% COMMON VALUE 
% CORE ESTIMATE 
® STACK SIZE 


$= PC,»SCHEDULEIDS))3 


47CSKIP SBS SKIP DBS TALLYteTALLY+13 
IF SB THEN ELSE JUMP OUT)3 
OSHSSETI ALSTALLYS 

END STREAM STATEMENTS 


I 48 


P3 


® CORE ADRS,OF SEGMENT ZERO IN SHEAT( 7107258000 


07258200 
07258400 
07258600 
07258800 
07259000 
07259200 
072594080 
07259600 
07259600 
07260000 
07260200 
07260400 
07260600 
07260800 
07261000 
07261200 
07261400 
07261600 


LOCNTRLGES 
DISKs33 


ENDS% 


SHEAT£3],(8210) ts 13 % SCHEDULE NUMBER 
SHEAT(23] te (CLOGK + PCRTR)) DIV 603 
SHEAT(24] t% MCPS 
SHEAT(C25] t= HORCFF I$ & DISK ADDRESS OF FILE HEADER 
SHEAT(C26) t= "318 % LOGLINE 
STREAM(Ce T)}3 
BEGIN 
DSte27LIT"CC RUN LOCNTRL/DISKICOMMONe"} 
SUt*sLOc CC! OS#e8DEC: 
DSteOLIT™ SEND OS 
END STREAM STATEMENT3 
SHEAT([6] 8s GETESPDISK3 
DISKWAITCTs® 102 SHEATE6))3 
FORGETSPACECT)3 
FORKCPC,SELECTRUN)» Fe Of 160% 0); 
END ELSE % IF IN DIRECTORY 
BEGIN 
ENTERSYSFILEC2)3 
GO TRYAGAIN3 
"LDCNTRL 3 
"DISK le 
END3 
END?% 


PROCEDURE TABLEOFCONTENTS(BsCOUNT)3%& 
VALUE BeCOUNTS REAL BeCOUNTS% 

BEGIN REAL J» ToNeAs TUSTA3 

$ SET OMIT & NOTCPACKETS) 


$ POP 


$ SET OMIT & 


_§$ SET. 


$ POP. 


OMIT 


» OMIT 


REAL FIRSTeSTARToFINALePKTICTSS 


LABEL LeEXIT»sG3% 
NOTCSHAREDISK) 
REAL SYS3 
IF CSYSS#UNITINCTINUs®B8)737)>3 OR SYS LSS O THEN 
BEGIN 
STREAMCASS"ALL"3B)3 
BEGIN SIt#B3 
63CIF Sc#” " THEN JUMP OUTSSI3SI41)3 
DIs#LOC AsNTAeDI+530F 3 SC#RDC THEN 
TALLY t353ASSTALLY?3 
END} 
IF NOT (CSYSte®P) THEN SYSt#eSYSNO3 
ENDS 


AteBeCIStiSIe13 
TUSTASSMEATIIS 
LOCKCONTROLDECKS3 
AteFIRSTDECKS 
NOTCPACKETS) 
FIRST#13% 


IteSPACEC13)5 

IF A 2 0 THEN GO TO EXIT32% 
DISKWAITC™]e120A)3 
AteMC14+6],(CE]3 

NOTCSHAREDISK) 

IF SYS LSS 5 THEN 

IF SYS#MC144),0482)] THEN GO TO G3 
THeeME144),0482)4613 


07261800 
07262000 
07262100 
07262200 
07262400 
07262600 
07262800 
07263000 
07263200 
07263400 
07263600 
07263600 
07264000 
07264200 
07264400 
07265000 
07265100 
07265200 
07265300 
07265400 
07265500 
07265600 
07266000 
07267000 
07268000 
07266100 
07269000 
07269099 
07269100 
07269101 
07270000 
07270099 
07270100 
07270200 
07270300 
07270400 
07270500 
07270600 
07270700 
07270600 
07270900 
07271000 
07271100 
07271101 
07271900 
07272000 
07272500 
07273000 
07273099 
07273100 
07273101 
07274000 
07275000 
07276000 
07278000 
07279000 
07279100 
07279200 
07280000 
07280001 


SET 


POP 


SET 


POP 
SET 


POP 
SET 
POP 
SET 


POP 
SET 


POP 
SET 
POP 
SET 
POP 


SET 


POP 


SET 


POP 
SET 


POP 
SET 


POP 
SET 


N * MC]+2)3% 
OMIT = NOTCPACKETS) 
IF NOT COUNT THEN® 


BEGIN’ 
OMIT 
DISKWAITC#1"359eMC 1410) )3 
STREAM(NeTes1)3 
BEGIN SI * LOC N& SI © ST+13% 
OMIT = NOTCPACKETS) 


O0S#e8 LIT * PACKET “30S38=5 CHR3 

OMIT 
OMIT = PACKETS 

OS « 6 LIT ™ DECK "3 DS « 5S CHRES 
OM] T 
OMIT = NOTCSHAREDISK) 

DS#®6 LIT™ CSYS "3S1esS]+9s 0S 2 aCHRs 

DIteDI™1LSSKIP DBIDSSFSETSOSseL IT) "3 
OMIT 
OMIT = SHAREDISK 

OS:28 LIT" "3 
OMIT 
OMIT = NOTCPACKETS) 
DSte3 LIT * S$ 
OMIT 
OMJT = PACKETS 
DS « 5 LIT ™ [St "3% 

DI! © DI+403 DI «© DI+432s DS «© LIT “oe 
OMIT 
OMIT = NOTCPACKETS) 

DIESDI+4O0s DL 8 aD +1 9sOSseL I Tees 


OMIT 
END3% 
SPOUTCI)32% 
OMIT & NOTCPACKETS) 


END ELSE% 
BEGINS OPERATOR WANTS A COUNT 
IF FIRST THEN BEGINS STORE FIRST DECK #, 
FIRST*O$ START#N3S% 
END3% 
PKTCT*PKTCT¢13 FINALENS% 
FORGETSPACE(1)3% 
ENDS% 
OMIT 
GO TO L3% 
EXITSIF N80 THEN 
BEGIN STREAMCI1)3 
OMIT = NOTCPACKETS) 
DS1#20 LIT ™ NO PACKETS ON DISKe"3 
OMIT 
OMIT = PACKETS 
DStei6 LIT * NO DECKS ON DISKe"}$ 
OMIT 
SPOUTCI)3% 
OMIT = PACKETS 
END ELSE FORGETSPACECI)3 
OMIT 
OMIT = NOTCPACKETS) 
END ELSE%® CHECK FOR COUNT REQUEST, 
IF COUNT THENS 
BEGINSSTREAMC(C#PKTCT»S#START 0% 


07281000 
07281099 
07281100 
07281200 
07281201 
07282000 
07284000 
07285000 
07285099 
07285100 
07265111 
07285999 
07286000 
07286001 
07286100 
07286200 
07286309 
07286301 
07286400 
07286500 
07286501 
07286509 
07286510 
07286511 
07286999 
07287000 
07288000 
07288001 
07288099 
07288100 
07286101 
07289000 
07290000 
07290099 
07290100 
07290200 
07290300 
07290400 
07290500 
07290600 
07290650 
07290700 
07290701 
07291000 
07292000 
07293000 
07293099 
07293100 
07293101 
07293199 
07293200 
07293201 
07294000 
07294899 
07294900 
07294901 
07294999 
07295000 
07295010 
07295020 


£ 


POF OMIT 


ENDS 


FeFINALeTLe0sT2¢00] 3% 
BEGIN DSeLIT " "3 T2eDI3% 
Sfe*LOC C3} Die* LOC T1334 
DS#2 DECS SIl#LOC T1s Di+T23 
DS#2 CHRI T2+DI3 DiebI"23% 
DSeFILL$ DJl«T23% 
DSe7 LIT © PACKET"3% 
SI*LOC Cs S]eS14+73% 
IF SC#"1" THEN®S ONLY 1 DECK 
BEGIN DS#2LIT "es "3% 
SI*LOC FR SleSI+13% 
DS*5 CHR3% 
END ELSE% MORE THAN 1 
BEGIN DS«3 LIT "S» 3% 
SIeLOC Ss SIeS1+15% 
DS*5 CHRS% 
DS*6 LIT ™ THRU "3% 
Sl#S14#43 DS*4 CHRIS 
END32 
DSe#LIT “o"3% 
ENDIS 
SPOUTCI)3% 
END ELSE FORGETSPACE( 123% 


UNLOCKCONTROLDECKSS$ 


PROCEDURE REMOVEDECKCNeU)$ VALUE NoUS REAL Nous 
BEGIN REAL ITeTsAslilsJs]eL2eVss 
SET OMIT ® NOTCPACKETS) 


$ 


POP OMIT 


SET OMIT 
FAILS 
POP OMIT 
SET OMIT 


POP OMIT 
SET OMIT 


POP OMIT 


SET OMIT 


REAL 33 
LABEL FAIL» CONTINUES 


LABEL LeEXITrREMOVESS 
LOCKCONTROLDECKS3 

IF CI * DIRECTORYSEARCH( "DECK 
NOTCPACKETS) 


"eNe5)) & 0 THENS 


BEGIN I t#® SPACE(5)3 
STREAM(CNG1)3% 
NOTCPACKETS) 
BEGIN OS#*5 LIT ™ PKT "3 


PACKETS 
BEGIN DS «© 6 LIT * DECK "3% 


SI] « LOC NS SI © SI413 DS «© 5 CHRIS 
pS « 13 LIT ™ NOT ON DISKe"3% 
ENDSS 
GO TO EXITs% 
END? 
NOTCSHAREDISK) 
IF CTSeME14+4)2,0291) THEN 
IF Tel482)#SYSNO THEN 
BEGIN 
STREAMC(N@ AT, (C432) 4lelel INX 0)3 
BEGIN DSt86 LIT" DECK "sS]eeLOC NIST taStei3 
DSt®5 CHRIDSte18 LIT™ IN USE BY SYSTEM "3 
STteSL+9s;DSteCHRIDT SDT eLsSKIP DBsOStaSET3 
DSteL ITs 


07295030 
07295040 
07295050 
07295060 
07295070 
07295080 
07295090 
07295100 
07295110 
07295120 
07295130 
07295140 
07295150 
07295160 
07295170 
07295180 
07295190 
07295200 
07295210 
07295228 
07295230 
07295235 
07295240 
07295241 
07296000 
07297000 
07298000 
07299000 
07299499 
07299500 
07299600 
07299601 
07300000 
07301000 
07303000 
07303499 
07303500 
07303501 
07304000 
07305000 
07305099 
07305100 
07305101 
07305999 
07306000 
07306001 
07307000 
07308000 
07309000 
07310000 
07311000 
07311199 
07311200 
07311210 
07311220 
07311230 
07311240 
07311250 
07311260 
07311270 


mo 


POP 
SET 


POP 


SET 
POP 
SET 
POP 
SET 
POP 


SET 
POP 
SET 


POP 


SET 


POP 
SET 


POP 


SET 


POP 
SET 


POP 
SET 


POP 
SET 


ENO3 
GO TO EXIT: 
ENDS 
OMIT 
OMIT NOTCPACKETS) 
L3IPMCI+6), CFF J3 
OMIT 
L2¢eM(1+6),(CF)3 
IF CASEFIRSTOECKI&(LI 81 .0FF 12 THEN 
BEGIN 
OMIT PACKETS 
IF CFIRSTDECK!#L2)80 THEN LASTDECK!I=03 
OMIT 
OMIT NOTCPACKETS) 
FIRSTDECKS#IF L3 NE@ O THEN L3 ELSE L23 
TF L280 THEN LASTDECK*IF L3 NE@ O THEN L3 ELSE 03 
OMIT 
DISKWAITCKLUMPs 3esDIRECTORYTOP43)3 
OMIT NOTCPACKETS) 
IF &3 NE@ O THEN GO TO CONTINUE ELSE 
OMIT 
GO TO REMOVE? 
END3 
Joe [330151798 
Ls 
DISKWAITC #2 300A)3 
lf CVEEMECJ46),0CF1)50 THEN 
OMIT NOTCPACKETS) 
IF ARL1 THEN GO REMOVE ELSE BEGIN FORGETSPACEC(T)3 GO FAIL 
ENDS 
OMIT 
OMIT PACKETS 
GO TO REMOVES 
OMIT 
IF V # L1 THENS 
BEGIN A «© Vi GO TO & END3S 
OMIT PACKETS 
MECJ+6)], CCR I] 822; 
OMIT 
OMIT NOTCPACKETS) 
MCJ#6] ,0CFJeIF L340 THEN L3 ELSE L23 
OMIT 
DISKWAITCU2300A)3 
IF L2 = O THENZ 
BEGIN 
OMIT PACKETS 
LASTDECKS A} 
OMIT 
OMIT NOTCPACKETS) 
LASTDECKI=IF L3 NE® O THEN L3 ELSE A} 
OMIT 
DISKWAITCKLUMPe 3eDITRECTORYTOP+3)3 
OMIT PACKETS 
END? 
OMIT 
OMIT = NOTCPACKETS) 
END ELSE IF L320 THEN ELSE 
CONTINUES 


BEGIN Jel INX QO} 
DISKWAITC™Je309L3)3 


07311280 
07311300 
07311310 
07311311 
O7311499 
07311500 
07311501 
07312000 
07313000 
07314000 


"07314099 


07314100 
07314101 
07314109 
07314110 
07314120 
07314121 
07314200 
07314289 
07314290 
07314291 
07314300 
07314400 
07315000 
07316000 
07317000 
07318000 
07318009 
07318010 
07318012 
07318013 
07318019 
07318020 
07318021 
07319000 
07320000 
07320999 
07321000 
07321001 
07321099 
07321100 
07321101 
07322000 
07324000 
07325000 
07325999 
07326000 
07326001 
07326099 
07326100 
07326101 
07327000 
07327999 
07328000 
07328001 
07329999 
07330000 
07330050 
07330100 
07330200 


$ POP 


$ SET 


$ POP 
$ SET 


$ POP 


EXITs 


MEJ46).0CFI)eL23 
DISKWAIT( Je309h3)3 
ENDS 

OMIT 

REMOVES 
FORGETSPACECI)3 
LisDIRECTORYSEARCH( "DECK 
T # MET+9)3% 
FOR V « ¢ STEP 4 UNTIL T DOR 
IF MC1+V49)#0 THEN FORGETUSERDISKC(MEI+V4+9)] eMC 148) 93 

STREAM(Ne 13% 

OMJT = NOTCPACKETS) 
BEGIN DS335 LIT ® PKT 3 


"sNe8),CCFI3 


OMIT 
OMIT = PACKETS 
BEGIN DS « 6 LIT ™ DECK "3% 


OMIT 
ST ¢ LOC NS ST © SI+i1s} DS * 5S CHR32% 
DS ¢ 9 LIT " REMOVED#"3% 
END34 
SPOUTERC I eUsLIBMSG)3 
UNLOCKCONTROLDECKS3 


END3& 


PROCEDURE DECKREMOVER(B)) VALUE Bs REAL B33 


GIVEUP3 


TRYIT? 
£ SET 


BEGIN REAL KeNoF ad 
INTEGER US LABEL ONsERRS 
REAL Ds 
LABEL Le TRYIT#GIVEUPS 
K @ B,CISHiS)e15% 
Lt STREAMCX#12eBthe0) 33 
BEGIN SI # BI’ 
Us IF SC = " * THEN BEGIN SI*SIl¢13 GO TO U ENDS 
IF SCE"E" THEN BEGIN DI*LOC Xs DI*D1+63 DS*CHR?3 


07330300 
07330400 
07330500 
07330501 
07331000 
07332000 
07333000 
07343000 
07344000 
07345000 
07346000 
07346099 
07346100 
07346101 
07346999 
07347000 
07347001 
07348000 
07349000 
07350000 
07351000 
07352000 
07353000 
07354000 
07355000 
07355100 
07355200 
07356000 
07357000 
073586000 
07359000 
07360000 
07360100 


SleSIi71s BeSt}i GO TO E ENDS07360200 


IF SC = "#" THEN SIt#Sle13 


BL: IF SCe&" © THEN BEGIN SI8=S]413G0 TO BLE END; 07361500 
DItebLOc XF OLtFONT +13 OSsed LIT “"#0000"3 2033°07362000 

4cirF Sc < "0" THEN JUMP OUT TO ENS 4033707363000 

IF SC > "9" THEN JUMP OUT TO EN3 4033707364000 

S]t*S leis TALLYteTALLysi1)3 $033"07 365000 

ENt AS@TALLYS S]teSI*As DIteDI@"AS DSYRA CHR} %$033°07 365500 

Nt IF SC = " * THEN BEGIN SI*SI413 GO TO N ENDS 07366000 

DS « CHR} B « S144 07367000 

Et ENDS 07368000 
PC,Been Noe) 3h 07369000 
FeNsl3646)3 Nel 3626) e%eN; 07370000 
IF Fa®e" OR Fets* OR FsteP THEN 07371000 
BEGIN JF Fas" THEN 07371100 
BEGIN IF DsO0 THEN D t® SPACE(30)3 07371200 
LOCKCONTROLDECKS3 07371300 

IF CNSBFIRSTDECK)#O THEN 07371400 

07371450 

BEGIN Finte™} 07371500 
UNLOCKCONTROLDECKS3 07371600 

GO ON3 07371700 

END? 07371750 
DISKWAITC*Ds300N)3 07371800 

OMIT * NOTCSHAREDISK) 07371809 
IF MED44)e0C442]4#SYSNO THEN 07371810 


033707361000 


IF CNS@MCD046),fCFI2#0 THEN GO TRYIT ELSE 07371820 


Be BR BA DE DE BE BE 


$ 


POP OMIT 


GO GIVEUPS 


NteM([D+2])3 
UNLOCKCONTROLDECKS3 
END$ 
FOR UeO STEP 1 UNTIL 3 DO 
IF CIDROWLUJ#0 THEN 


IFCCIDTABLELUe2] EQV N)=NOT O THEN 


IF LABELTABLELU432)20 


$ SET OMIT = NOTCPACKETS) 


$ 


POP OMIT 


ERR: 


EN 


BOOLEAN PR 


VA 

BE 
HO) & 
HO1) 
HE 2) 
H(3] 
HE4) 
Ht5] 
HE?) 


AND LABELTABLELU+32)#@214 AND 
PACKETACT(U)=0 


THEN 
BEGIN 
ENDOFDECKCU)S 
GO ON} 
END ELSE GO TO ERR: 
REMOVEDECKCN#0)3 
ON$ IF F#"%e" THEN GO TO L3 
FORGETSPACECK) 3% 
END ELSE 
SPOUTCK)3 
IF D#0 THEN FORGETSPACE(O)3 
03% 
OCEDURE READEMFROMDISK(HeJB)2% 
LUE He TBs ARRAY H{*)] e+ IBL¥I13% 
GIN2 
ADDRESS OF BUel (B)3% 
ADDRESS OF B24!% 
DECK NAMES 
RECORDCOUNT (N)2 
NEXT CONTROL CARD (L)% 
RECORDS USED IN THIS BLOCK x 10 ¢€R)2 
H(30]) ARE FILE HEADERS 
REAL AsBs% 
OEF INE NHL 3) #+LAH(4 ee RZHL SJ HS 
INTEGER IBA3% 
B «+ HLO}s% 
IF R &® O THENS 
IF (MCB*"2] AND [OMASK) & O THENZ 
SLEEPCEMEB®2) )] 2 1OMASK) 3% 
STREAM(B*B+Re IB) 3% 
BEGIN SI « BS DS « 10 WDOS ENDSS 
MCIB INX NOT OJ «© 103 
IF CREADEMFROMDISK © NaL) THEN? 
L «© [B(9)3% 
IF CA © N © *PCDUP)4¢1) > HO7] THENS 
BEGIN READEMFROMDISKS #13 
STREAMC]B)3 


§ SET OMIT = NOTCPACKETS) 


$ 


$ 


POP OMIT 
SET OMIT 
POP OMIT 


BEGIN 


DS:37 LIT "CC END,"3 
zm NOTCPACKETS) 
DSeLIT™ "3 BC DS*B8LIT™ “95 ENDS 


END 
ELSE BEGIN IF (R * *PCDUP)*10) * 30 THEN’ 
BEGIN 18 * CM(B"2])3% 


07371830 
073718651 
07371900 
07371950 
07372000 
07372090 
07372100 
07372200 
07372300 
07372309 
07372310 
07372320 
07372321 
07372330 


2030°07372400 


07372500 
07372600 
07372700 
07372800 
07372900 
07373000 
07374000 
07374100 
07374200 
07375000 
07376000 
07377000 
07378000 
07379000 
07380000 
073861000 
073682000 
07383000 
07384000 
07385000 
07386000 
07387000 
07388000 
07389000 
07390000 
07391000 
07392000 
07393000 
07394000 
07394500 
07395000 
07396000 
07397000 
07398000 
07398100 
07398109 
07398110 
07398114 
07398200 
07398209 
07398210 
07398211 
07398300 
07399000 
07400000 


END$3 


R « 03 
A «+ A DIV 3413 
T*HEA DIV HL8J4+10)+A MOD HI8)3 
DISKIOCIBsi*B e300] 3% 
HLO) + HELIGS 
HL1) + Bsa 
END} END} 


BOOLEAN PROCEDURE PRINTORPUNCHWAITCQsPNCHIS VALUE Q@»+PNCHSREAL Q»*PNCH3 


FORWARD} 


PROCEDURE ENDOFDECK(R)$ VALUE RI REAL R3 
BEGIN ARRAY HL#*]3% 


$ SET OMIT & 


REAL BelsS 
BOOLEAN TOG) 
NOTCPACKETS) 


REAL DISKADsePBREC+T3 


$ POP OMIT 


$ SET OMIT 


-$ POP QMIT 


LABEL EXITS 
TOG*R,LLS1]3 ReABS(R)} 
IF CHI®CIDROWER])#0 THEN GO TO EXIT3 
LABELTABLELR+32]) + 61143 
MULTITABLELTR#32] + RDCTABLECR+32) ©¢ 05 
UNITCODECR+9)tm=03 
IF NOT TOG THEN REMOVEDECKCHE2)¢R432) ELSE 
PCDIRECTORYSEARCH( *"DECK "eHC2)914)9DELD3 
FOR I « O STEP 1 UNTIL 1 002% 
BEGIN B © HEI ]5% 
IF (MCB"2) AND LOMASK) & O THEN 
SLEEPCEMEB*2)] + 1QMASK) 3% 
ENDS2 
IF CIDROWERI=O0 THEN GO TO EXITS & FIXES TIMING PROB, 
IF Hel18815) # O THEN 
FORGETSPACECH,£18#15)"2)3 
NOTCPACKETS) 
IF PACKETPBOCR] GEQ 11 THEN 
BEGIN 
PBCOUNT s# PBCOUNT#1; 
1 t* 001 & CIDTABLECR#6)(6t6824)3 
IF CPBREC #* DIRECTORYSEARCH(*PBD 
BEGIN 
IF PACKETPAGELRI>1 THEN 
BEGIN 
PBREC #8 PBREC,(CFJ3 
DISKAD t* MCPBREC4+10)+23 
DISKWAITC*PBREC® 30eDISKAD)3 
IF (MCPBREC+12] EQV C="ABORTED") SNOT O THEN 
STREAMCBISPBREC411)3 
BEGIN 
DSteBLIT™&xOx0000"% DStSBLIT"OPACKET "3 
END3 
DISKWAITCPBREC*30°DISKAD)3 
END; 
PCOIRECTORYSEARCH(#"PBD 
IF AUTOPRINT THEN 
PCPRINTORPUNCHWAITC 120) sDEL)3 
FORGETSPACECPBREC)3 
ENDS 


"51014)»DEL)3 


ENDS 
PSEUDOCR] ts 


CIDROWECR) s® O8 


"e1°5))#0 THEN 


07400400 
07400500 
07401000 
07402000 
07403000 
07404000 
07405000 
07405100 
07405110 
07406000 
07407000 
07408000 
074086100 
07408199 
07408200 
07408201 
07408500 
07406600 
07409000 
07409100 
07409200 
07409300 
07410000 
07410010 
07411000 
07412000 
07413000 
07414000 
07415000 
07415100 
07416000 
07417000 
07417099 
07417100 
07417200 
07417300 
07417400 
07417500 
07417600 
07417700 
07417800 
07417900 
07418100 
07418200 
07418300 
07418500 
07418600 
07418700 
07418800 
07418900 
07419000 
07419100 
07419200 
07419300 
07419400 
07419500 
07419600 
07419700 
O7419701 
07419800 


EXITS 
ENDE% 


IF CRUNUMBER®RUNUMBER+1)>0 THEN 
STARTADECKCIF TOG THEN "HE2] ELSE 0)3 
FORGETSPACECH)3 


PROCEDURE STARTADECK(N)3 VALUE N3 REAL NI 
BEGIN LABEL EXITeLePOSSIBLE sNEXT3% 


$ SET 
$ POP 
$ SET 


$ POP 


$ SET 
$ POP 
$ SET 


_ $ POP 


8 SET 


_ $ POP 


REAL TeReTeAeS3 

ARRAY HE #132 

REAL SDED$ 

LABEL AGAIN®STARTI 

IF NeCitild THEN BEGIN SDED*ABS(N)$3 NeO ENDS 
LOCKCONTROLDECKS3 

IF RUNUMBER LEQ O ANT) NO THEN GO TO EXIT} 


AGAIN? 


FOR R « O STEP 1 UNTIL 3 DOS 

IF CIDROWCR] & 0 THEN GO TO POSSIBLEs% 
STREAMCS*S*¢SPACE(C4))3 
OSt#27 LIT™ ALL PSEUDO*READERS IN USE} 
SPOUTCS)3 
GO TO EXITs% 


POSSIBLE $% 


Lt 


OMIT 
OMIT 
OMIT 


OMIT 
OMIT 


OMIT 


OMIT 


OMIT 


OMIT 


OMIT 


IF CANEFIRSTDECK) #0 THEN GO TO EXIT; 
H * CIDROWER] «© (CMES¢GETSPACE(9426401)42])894(8138810)3 
HE2) «+ O03 
DISKWAITC#S2300A)3 
IF N#0 THEN 
BEGIN 
IF HO2),012824]4N THEN GO TO NEXT? 
JF HOC4),£281] THEN 


BEGIN 
STREAMCAS*®( HL 2) J» 
NOTCSHAREDISK) 
NeHES) (482) 417% 
$23 
PACKETS 


BEGIN SISsAsS]TtsS] 41s OSte6 LIT™ DECK "3 


NOTCPACKETS) 
BEGIN SPswasSTtwSiepsOSee5 LIT" PKT "3 


DSte5 CHRIDSte7LIT" IN USE"? 


NOTCSHAREDISK) 
DOS$ta11 LIT”™ BY SYSTEM "3S1ERLOC N3 
SI*SJ473 DS*CHR! 
DSteL] Te "3 
END} 
SPOUT(S)) 
CIDROWERI $803 
GO TO EXIT) 
END? 
END ELSE 
IF H0O9),.0281] OR (SDED#0 AND HL2]*SDED) 
NOTCSHAREDISK) 


OR HE4),£4:27#SYSNO AND NOT RNALL 
OR CBATCHTOG AND HO4)ef741)) 


THEN GO TO NEXTS 


07420000 
07420010 
07420050 
07420100 
07421000 
07422000 
07423000 
07424000 
07425000 
07425100 
07425500 
07425700 
07426000 
07426100 
07427500 
07428000 
07429000 
07429100 
07429200 
07429300 
07430000 
07431000 
07432000 
07433000 
07434000 
07435000 
07436000 
07436100 
07436200 
07436300 
07436400 
07436500 
07436509 
07436510 
07436511 
07436520 
07436599 
07436600 
07436601 
07436609 
07436610 
07436611 
07436700 
07436799 
07436600 
07436900 
07436901 
07437000 
07437100 
07437200 
07437300 
07437400 
07437500 
07437600 
074376800 
07437899 
07437900 
07437910 
07437911 
07436000 


HCA] 9 = C#PCDUP)IB2L2846r2IRSYSNOL414632)3 
DISKWAITCS#300eA)3 

HCO] «+ S4#325% 

HCiJd « S+#64a3% 


T © CHO30I]]3 DISKIOCTe1*H(CO],30eHL10))3% 
IF HE7] LSS 3 THEN HC62I)3310MASK ELSE 
BEGIN Tis(H{62))) IF HES8J=1 THEN 
DISKIOCTeteHCt)+300eHL11)) ELSE 
DISKIOCTs1*HC1)530eHL 10741); 
ENDS 
TISGETSPACE(1326405)443 
MCT INX 10] 32 H(5]3 

$ SET OMJT & NOTCPACKETS) 
TeC24t6)eH(6),0216)3 

$ POP OMIT 
H{(3) t® HEA) t* HE5) te HL6) t= O3 


LABELTABLELR4+32)12"014; SLET IT BE MOVED 
1L}SREADEMFROMDISKCHe CMETI3&81008%38310))3 
FREECARDCT&RE384345]))3 
IF CRUNUMBER*RUNUMBER®1) LEG® 0 OR N#0 THEN GO TO EXIT3 
GO TO AGAIN} 
NEXTSIF CAt®HL6),.£CF 940 THEN GO TO L3 
IF N#0 THEN 
BEGIN 
STREAM(N®S)3 
$ SET OMIT & PACKETS 
. BEGIN SI!8e#LOC NsSteeS]+4s0Stu7 LIT" DECK #3 
$ POP OMIT 
$ SET OMIT # NOTCPACKETS) 
BEGIN SI*LOC NS SIeSI1+43 DS*6 LIT™ PKT #3 
$ POP OMIT 
DS##4 CHRIDSIS13 LIT* NOT ON DISKe"3 
END; 
SPOUTC(S)3 
END ELSE FORGETSPACECS)3 
CIDROW(IR] «© 033% 
EXIT: UNLOCKCONTROLDECKS? 
END32 
PROCEDURE RUNTHEDECK(B)SVALUE 83 REAL BIS 
BEGIN REAL J]eJ3% 
STREAMCS#eO0sBeAbellI)3 
BEGIN SI ¢ B3 
Ls IF 8C # " ® THEN 
BEGIN SI © SI¢13 GO TO L END3 
IF Scr" #" THEN 
BEGIN LitS]&sS]leisI1F SCs" ™ THEN GO TO LI3 
DSte4 LIT"OOOO*ZSDS3=24 CHRSTALLY%&13GO TO EX3 
END? 
Ol * Ad DI © DI4+73 OS © CHR 
EX: SteTALLY?3 
END3 
JEEPS 
Beebe C15s15I]°13 
IF J THEN 
BEGIN 
FORGETSPACECB)3 
STARTADECK(1)3 
END ELSE 


07438100 
07438200 
07441000 
07442000 
07443000 
07444000 
07445000 
07445100 
07445200 
07445300 
07445400 
07446000 
07446100 
07446149 
07446150 
07446151 
07446200 
07447000 
07448000 
07448500 
07449000 
07450000 
07450200 
07451000 
07452000 
07452100 
07452200 
07452299 
07452300 
07452301 
07452309 
07452310 
07452311 
07452400 
07452500 
07452600 
07452700 
07453000 
07455000 
07456000 
07457000 
07458000 
07461000 
07461100 
07461200 
07461300 
07461310 
07461320 
07461330 
07461340 
07461400 
07461450 
07461500 
07461560 
07461570 
07461600 
07461700 
07461800 
07461900 
07462000 


BEGIN 
IF I GTR 4 THEN J t®NABSCRUNUMBER) ELSE 
BEGIN 
RUNUMBERG&]) 
FOR Js#O STEP 1 UNTIL 3 DO 
RUNUMBER?t#®RUNUMBER*@(CIDROWD JI #0); 
ENDS 


07462100 
07462200 
07462250 
07462300 
07462400 
07462500 
07462600 


STREAMCXL¢GSLe] Clit deX2t=RUNUMBER L141) 91 2=ABS(1)2B)307463000 
BEGIN CI 8eCie#Xis GO L1s DSss1OLIT" WILL USE "3G0 L2s 07464000 


Lit CleeCy+X2s GO L2s DSteLIT"s Las 
Syr!sLOC L#D$t#2 DECS 
DS « 13 LIT ™ PSEUDO"RDRS#"3 
END32 
SPOUTCB) 
IF RUNUMBER GTR O THEN STARTADECK(CO)S 
END} 
END3% 


PROCEDURE EXTERNALEND(CB)$ VALUE Bs REAL B3 


BEGIN REAL US LABEL EXIT3 
Ue UNJTINCTINU® B23 
B* ByliSsi15)"13 
IF US35 AND U232 THEN 
IF VABELTABLECU) 2 0 THEN 


$ SET OMIT = NOTCPACKETS) 


IF LABELTABLECUJ NEQ @214 AND PACKETACT(U"32]=0 THEN 


$ POP OMIT 
IF CIDROW(U*32) # 0 THEN 
BEGIN 
ENDOFDECK(U"32)3 
FORGETSPACE(B)3 
GO TO EXIT3 
END3 
SPOUTC(B)3 
EXITSEND3 


PROCEDURE CHANGEPRIORITYCBUFFeMIX)3 VALUE BUFF eMIX? REAL BUFF eMIXS 
BEGIN INTEGER PRIORITY? REAL B3 
ARRAY LINKR & NTIC¥]3 
$ SET OMIT = NOTCPACKETS) 
DEFINE UNITNO © PSEUDOMIXEMIXJ] #3 


$ POP OMIT 
BUFF © CCBeBUFF)« LCISsi5]7*1 @MCPCDUP I *1I098989)3 
STREAMCPRIORITY#B)3 
BEGIN SI+B3 
N3 IF SCa™e” THEN GO TO X3 
IF SC<"0O" THEN BEGIN SJe#S]4#13 GO TO Ni ENDS BeSI]3 
Ki IF SC2"0" THEN IF SCS"9" THEN 
BEGIN TALLY«TALLY4#1£3 SieS]y4+13 GO TO K END3 
SI*B3 DI*#LOc PRIORITYS BeTALLY# DS#B OCT3 GO TO Z3 
Xq DIe#LOC PRIORITYS SKIP DBS DSe11 SET3 
Z3 


END STREAM} 
IF CPRIORITY*P) 2 O THEN 
IF CMEMEMIXeOJ Ig CCF IZFENCE THEN 
IF JARCMIXe*#]#0 THEN 
IF PUTORTAKECMIX*(PRYOREMIXJ)+120) 2 0 THEN 
BEGIN NTL*#PUTORTAKECMI Xe CPRYOREMIXJ J ¢OePRIORITY)S 


B * PUTORTAKECMIXeCJARCMIXe2] ]9120)3 

B,CCF) «© IF PRIORITY?32767 THEN 32767 ELSE PRIORITY? 
NTL © PUTORTAKECMIXe(JAROMIX®2)]902B)3 
STREAMCJ*#PUTORTAKECMIXs(JARECMI Xe OJ) Joie0)e 


07464100 
07465000 
07466000 
07467000 
07468100 
07469000 
07472500 
07473000 
07473100 
07474000 
07475000 
07476000 
07477000 
07478000 
07478099 
07478100 
07478101 
07478500 


4030707479000 


07479100 
07480000 
07481000 
07482000 
07483000 
07484000 
07485000 
07486000 
07486100 
07486499 
07486500 
07486501 
07487000 
07488000 
07489000 
07490000 
07493000 
07492000 
07493000 
07494000 
07495000 
07496000 
07497000 
074968000 
07500000 
07501000 
07502000 
07503000 
07503100 
07503200 
07503500 
07504000 


T©PUTORTAKE CMI Xe (CJARE MI] Xei J) 5190) 07504100 

MIXePRIOKITY* BUFF 23 07504¢00 

BEGIN DS*10 LIT ® PRIORITY="3 07505000 

ST*LOC PRIORITYS BUFFeDI3 DS*6 DEC} Dl ebDI “63 07506000 

OS¢5 FILLE DI*BUFFs DJ *DI463 DSeLIT%I"3 07507000 

S]*LOc J3 OCS]¢S1413 OSe7CHR? OSeLIT*/")3 DLeDIT 1? 07508000 

DS*#LIT%="3 STe#LOC MIX DS*2DEC! DSeLI Te} 07509000 

DI*D1"33 DSeFILL: 07509500 

END END? 07510000 
SPOUTERCBUFF eUNITNO#1)3 07511000 

IF STASUSEMIX] & RUNNING THEN 07511100 

IF MIX=P2MIX THEN PRYOREP2MIX] © PRIORITY ELSE 07511200 

BEGIN LINKR «© BED13 07511300 

DO IF NOT (CB * LINKRE2)*MIX) THEN LINKR © LINKRED] 07511400 

UNTIL B3 07511500 

LINKREO) « CePCOUP)) & CPRIORITY+64)(CTFI3 07511600 

END} 07511700 

END CHANGEPRIORITY3 07512000 
PROCEDURE ENTERCONTROLDECKCH)3 VALUE H# ARRAY H{¥*]} 07541000 
BEGIN REAL ReSoTeTirl23 07542000 
INTEGER 13 07543000 

$ SET OMIT * NOTCPACKETS) 07543099 
LABEL MORE} 07543100 

$ POP OMIT 07543101 
% 07544000 
T#"DECK "Q@HCOGI]L184781)3 % FOR SCRATCHUIR DELETE 07545000 
St®NEXTCDNUMCO)3 07547000 
DISKWAITCKLUMP»s 3eDIRECTORYTOP+3)3 % CHANGE LASTCDNUM ON 01SK07547100 

$ SET OMIT = NOTCPACKETS) O7547499 
MORE $ 07547500 
$ POP OMIT 07547501 
H(0]:200012000360003013 07548000 

$ SET OMIT = NOTCPACKETS) 07548099 
T2eHCO) 6CFFI3 HLOJLFFI6Ti3 07548100 

$ POP OMIT 07548101 
STREAMCDATE*® B*CHI3)])3 07549000 
BEGIN SJT*LOC DATEs#08S+8 OCTIDIeDI*8FDSe2? LIT*+7"3 ENDS 07549100 

H£4)] te 08 07550000 

$ SET OMIT = NOT SHAREDISK 07550003 
SYSNOL434632]8 07550005 

$ POP OMIT 07550007 
1501284434)]3 07550010 
HOLJ*CXCLOCK+PCRTR) &HE3I66930316)3 07550100 

HO 2788838014801 26614236)8S(128 24824180370 3684216)3 07557000 
TALBEUFCTeSeHy (CF J°1)3 07559000 

$ SET OMIT = NOTCPACKETS) 07559099 
IF T2 NEQ O THEN 07559100 
BEGIN DISKWAITC™CH INX 0)2 308 T2)3 07559110 
FORGETESPDISK(T2)3 07559120 

S*H(2]3 GO TO MORES 07559180 

END? 07559190 

$ POP OMIT 07559191 
HL2I*LASTCONUMS 07559500 

IF FIRSTDECK#®O THEN FIRSTDECK$SsT1 ELSE 07560000 
BEGIN 07561000 

$ SET OMIT = SHAREDISK 07561990 
LOCKDJRECTORY3 07562000 

$ POP OMIT 07562010 
DISKWAITC*CITS*SPACEC30))*"*30"LASTDECK) S$ 07564000 

MEI+6) CCF] se T13 07565000 


DISKWAITC Lo *30eLASTDECK)3 
FORGETSPACECI)3 
$ SET OMIT = SHAREDISK 
UNLOCKDIRECTORYS 
£ POP OM]JT 
END) 
LASTDECK2=T1;3 
DISKWAITCKLUMPs"3e+DI]RECTORYTOP+3)3 
UNLOCKTOGCCDMASK )$ 
IF RUNUMBER GTR O THEN STARTADECK(O)3 
END ENTERCONTROLDECK? 
BOOLEAN PROCEDURE MTIXINC 1 *+UeBUFF) 3% 
REAL UsBUFFS INTEGER I3% 
BEGIN LABEL EX] TeX3s 
Uo « UNITINCTINUeBUFF )3 
BUFF «© BUFF,.C15%15)]913 
If U > 15 THEN 
BEGINSSTREAMCBUFF)S DS * 8 LIT "INV KBD "3% 
GO TO EXITS2 
END ELSE I * TWOCU)3 
STREAMCA*TINUCUJSBUFF)3% 
BEGIN SI#LOC As S]Te#S{+53 DSeLIT™ "3 DS*3 CHRIS 
DS « LIT " "3 A © DIES 
END3% 
PCCBUFF Jee) 3% 
IF LABELTABLECU) # @114 OR LABELTABLECLU) = @214 THENS 
BEGIN 
STREAMCSAVS2=((] AND SAVEWORD) NEQ@ O)* BUFF)3 
BEGIN 
DStRe1OLIT*"NOT READYe*3 
SAVED] #200 "15 OSteBLIT"C SAVED) «")3 
END3 
GO TO EXITS 
END3% 
IF LABELTABLETUJ < 0 THENS 
BEGINSSTREAMCBUFFEFIS DS © 7 LIT "IN USEo"*GZS 
ENDS 
ELSE GO TO X3% 
EXITe#MTXIN ©« TRUES 
XSENDSS 
PROCEDURE TAPEPURGECBUFF)S VALUE BUFFS REAL BUFFS 
BEGIN LABEL EX]T3% 
REAL JeU3% 
REAL ReT3 
BOOLEAN TESTS 
REAL WHAT ® BUFFS 
IF MTXINC] *UeWHAT) THEN GO TO EXIT3% 
STREAMCBIeRBUFFeTe£1I)3 
BEGIN SI]teBs SI etsS[+6} 
IF SC#"*" THEN 
BEGIN Sl] ##S]+13 
5SCIF Sca®e" THEN JUMP QUT} 
TALLYS@TALLY¢12S]eeS]e1)3 
Bt=TALLY? SI3sSIl"Bs OS8*B OCTI 
END3 
END} 
LABELTABLECU) «+ "8143 
IF CReWAITIO(@500000000001772U))#0 THEN 
IF R#®120 THEN ERROR OTHER THAN WRITE LOCK 
BEGINS STREAMCUeTINUCU) s BUFF )3 


07566000 
07567000 
07567990 
07568000 
07568010 
07569000 
07570000 
07571000 
07572000 
07573000 
07575000 
08000000 
08001000 
08002000 
086003000 
08004000 
06005000 
08006000 
08007000 
06008000 
08009000 
08010000 
06011000 
08012000 
06013000 
08014000 
06015000 
08015100 
086015200 
08015300 
06015400 
086015500 
08016000 
06017000 
08018000 
08019000 
08020000 
08021000 
08022000 
08023000 
08024000 
08025000 
08026000 
06027000 
08027100 
08028000 
08029000 
06029015 
08029020 
08029025 
08029030 
08029035 
08029040 
08029045 
08029050 
08029055 
08029100 
08030000 
08030100 
08030200 


BEGIN DS«14 LIT “"#CANNOT PURGE "3 
ST*LOC Us SI*SI1+5% DS*+3CHR3 
DSeLIT%e"3 
ENDS 
LABELTABLECUJ+@214;3 
GO TO EXIT3 
END ELSE %NO WRITE RING 
BEGINS STREAMC(BUFF)? DS * 11 LIT "WRITE LOCK#e"3% 
LABELTABLE[U} * @1145 
GO TO EXITs#& 
ENDS% 
IF T=0 THEN 
BEGIN TSsPRNTABLELU),£30%18]3 TEST:=® TRUE ENDS 
STREAMCA!&3T eBUFF)3 
BEGIN DI ¢ DJ] + 33 OS © B LIT * LABEL *3 
BCOSe2 LIT "OX")3 
24(0S"2 LIT "O")$ DSe2 LIT “243 
DI « DIe2t3 ST * LOC AS’ DS + 5 DECES 
ENDS 
RRRMECH © J OR RRRMECHSS 


MULTITABLELU] «+ 038% 

PCWATTIOC@420000000020sU) sDELIS& 

R * WAITIOCBUFF INX @120500000001+@20000000U) ORS 
WAITIOCBUFF INX 102@2000000°U)33% 

IF MOD3IOS THEN 


08030300 
06030310 
08030320 
08030330 
08030400 
08030500 
08030600 
08031000 
08031100 
08032000 
08033000 
08033980 
08033990 
08034000 
08035000 
08035100 
06036000 
08037000 
08036000 
08039000 
08040000 
08041000 
08042000 
08043000 
08044000 


A108044500 


DO UNTIL PCWAITIOCBUFF INX @34000001220@500U))s@10 20108044600 


ELSE 
PCWAITIO(C@420000000000eU) eDELDF% 
SLEEPCETOGLE J *STATUSMASK )3 
RRRMECH * RRRMECH AND NOT 13% 
READY * READY AND NOT [3% 
IF R = O THEN BEGINS 
LABELTABLELCU) « @11433 
IF TEST THEN BEGIN STREAMCBUFFISDS#sOLITTPGREDe"JEND 
ELSE BEGIN STREAMCAS ST eBitaPRNTABLELUJ],({30%18) BUFF); 
BEGIN DS#teL1OLIT*PG@EDCPRNS*"3 
STtsLoc AF OS%te5 DECI 
DStmSLIT*eWAS “3 
SItmLOc Bs DS2?#5S DECINS#R2LIT") oe} 
END3 
FND} 
EXITSSPOUTCBUFF )3 
END ELSE BEGINS 
LABELTABLELU] © @2143% 
FORGE TSPACEC BUFF) 3% 
ENDS% 
END}3 
PROCEDURE MIXPRINTCBUFF)3 VALUE BUFFS REAL BUFF 3% 
BEGIN REAL ColsT) 
FOR 1 * 1 STEP 1 UNTIL MIXMAX DOZ 
IF JARCTe«) # 0 THENS 
BEGIN 
TABCNICIIJ@*eTABCNTLI 3413 
IF T THEN BUFFS *®BUFFBSPACECS)I(CTC)3 


IF CCUSPUTORTAKE CIT oC PRYORE 1) 201610284711) ,0)) # 


NOT O THEN STREAM(C» 
JEMPUTORTAKECT® CJARC 120] J5100)s 
KHFPUTORTAKECI® LC JARC Let ijetr0)» 


Us*PUTORTAKECI ® LUSERCODELT JJ 019°0)— 


%A108044700 


08045000 
08046000 
08047000 
08046000 
08049000 
08050000 
08051000 
08051010 
08051020 
06051030 
08051040 
08051050 
08051060 
08051070 
06052000 
08053000 
08054000 
06055000 
08056000 
08057000 
08058000 
08059000 
08060000 
08061000 
08062000 
08062025 
08062050 
08063000 
08063050 
08063100 
08063200 
08063300 


Xs#3"DATCIINDSABLE® 08063400 
TeBUFEF)3 08064000 
BEGIN ST*LOC C3 DS*6 DEC} 08065000 
DIeO1"6s DS*5 FILLS 06065100 
DI©BUFFS Dl*D1+63 DSeLIT "83 08065200 
STtsLOc Js AXCSTeHSleys 08066000 

DS*#7 CHR} DSeLIT"/")3 O1e01%1306067000 


DS « LIT "&"3 SI ¢ LOC 13% 08068000 
DS*2DEC3 DSeLITM+ "3 06069000 
DI*D1°3s DS*FILL? 08069500 


END 08070000 


ELSE STREAMCI»BUFF)3 08070100 

BEGIN DSte4 LIT"MIX "3 08070200 

SIteLOc 1s DSs=2 DECI 08070300 

DSte9 LIT™ 1S HUNGe"3 08070400 

DIssplet1s DSsa2 FILL; 08070500 

END} 08070600 
TABCNTCIJSSTABCNTCII@13 08070900 
SPOUT (BUFF )3% 08071000 

To 13% 08072000 
ENDS% 08073000 
If 1 THEN 08074000 


BEGIN STREAM(BS*BUFF&eSPACEC4))$ DS#S7 LIT"END MX*"3 END 08075000 


EUSE STREAMCBUFFIS DSte9 LIT*NULL MI Xe"; 08076000 

SPOUTCBUFF)3 08077000 

ENDs3% 08078000 
PROCEDURE REWINDANDLOCKCWHAT)3 VALUE WHAT REAL WHAT332 08079000 
BEGIN REAL BUFF EWHAT»USS 08080000 

INTEGER 13% 08081000 

LABEL EXITI® 08082000 

IF MTXINCTsUseBUFF) THEN GO TO EXIT}32 08083000 

RRRMECH «© RRRMECH OR 13% 08084000 
LABELTABLELU) « 7@149% 08085000 
MULTITABLECU] © 09% 080860080 
PCWATTIOC@4200000000200eU) DEL) 3% 08087000 
SLEEPCELTOGLEJ*STATUSMASK)} 08088000 

RRRMECH «© RRRMECH AND NOT 13% 08089000 

READY « READY AND NOT [33 08090000 
LABELTABLECU] « @2143% 06091000 
STREAMC(BUFF)? DS « 5 LIT "RW/LeMsS 08092000 
EXITISPOUTCBUFF)3 08093000 

ENDI% 08094000 
PROCEDURE GIMEDATE(BeDT)3 VALUE BeDTs’ REAL BeoDTs FORWARD3 ZRH 08094500 
PROCEDURE PRINTDIRECTORYCBUFF)3 208%08095000 
VALUE BUFFS REAL BUFF? %0S8%08095100 

BEGIN ARRAY HDRE*]eNBE¥]3 210808096000 
REAL CODEs RCWe+03 %08%06096100 
DEFINE LETELEFTARROWS3) 2% 210408096200 
REAL AeBeCeoTeCReN3 08097000 


REAL INFOTYPEs TNF Os [NFOTEMP} 
LABEL GETADATEs INFOUTS 
INTEGER fed} 
WABEL GETHDRe INeOUT*® AROUND sXOUTS 
ARRAY D#NB[¥*]3 
REAL USERID»PG3 
NAME ADDR}. 
INTEGER Jie Jd2eJ3eK 12 K23 
REAL PBOTOGeLABELRECS 
SUBROUTINE FINDWHATINEO? 
BEGIN 


ZRH 08097100 
ZRH 08097200 
086098000 
08098100 
210408098200 
08098300 
08098400 
060986500 
06098550 
BRH 08099000 
ZRH 08099100 


IF INFOTYPE®"DATE " THEN 

BEGIN 
INFOTEMPESHDORE3),030318)810194355)3 
GO GETADATES 

END ELSE 

IF INFOTYPE="LAST " THEN 

BEGIN 
INFOTEMPS®HOREC3).0125186)820134395)3 
GO GETADATES 


END ELSE 

IF INFOTYPE®"RECS " THEN 

BEGIN 

IF CA EQV "PBD ") = NOT O OR 
CA EQV “PUD ") = NOT O THEN 


INFO ¢® CHDORO7)x5)8301843:35] ELSE 
INFOS SC HORE 7)4+13830134325)3 
GO TO INFOUT3 
END ELSE 
IF INFOTYPE&*SIZE " THEN 
BEGIN PGS#HDR(I9] AND @373 


INFOs#O3 WHILE CINFOSFINFO+1) LEQ PG DO IF 
HDREINFO#*9]#0 THEN INFOTEMPS2INFOTEMP 41 3 
INFOTEMP# #03 


INFOSeCINFOTEMPXHORES) 840184395 )3 
GO TO JNFOUTS 

END3 

GO TO INFOUTS 


GETADATES 


STREAMCAS®INFOTEMP,C30816Je 13" C INFO) DS 
BEGIN STssL0C AsOS8s68 DEC END? 
GIMEDATECCINFOJ «(CFI s*INFO)3 
INFOsLisSISSINFOTEMP.L ISIS 


INFOUTS 


END} 


PCDEL)3 
GO TO IN3 


CODE t3 BUFF e(916)3 
BUFF e(CeBUFF),CI5¢15)°13 
NBtFLMESPACE(60))186018838810)3 


NAME! 
NAME] 
NAME] 
CeO} 


IF (CA EQ@V BISNOT 0) AND CCA EQV "eo 
IF CA EQV "ee 
IF (B EQV “ee 


OCAeCI3 
OCBeC)3 IF Bat/ 
DCINFOTYPEs+C)3 


" THEN NAMEIDCB9C)3 


")=NOT 0 THEN Ace "3 
")s NOT O THEN Be" "3 


JiseJ3eeOe KiseK2;eMOOULUS"15 
IF cCODE#3 THEN 


BEGIN 


®RH 


08099200 
06099210 
08099220 
06099230 
08099240 
08099300 
08099310 
08099320 
08099330 
08099340 
06099400 
08099410 
08099412 
08099414 
08099416 
08099420 
08099430 
08099440 
080995080 
08099510 
08099520 
068099530 
08099540 
08099550 
080995680 
08099570 
08099700 
08099718 
08099720 
08099739 
06099740 
08099750 
08099760 
08099770 
08099800 


208308099900 


RH 


")8NOT 0) THEN GO XOUTS 


08100000 
08101300 
08102000 
08102100 
08102200 
08103000 
08103100 
08103200 
08103300 


10406103400 


IF A,C686) NE@ LFT THEN J198K192(A,(6318)4A,(24824)) MOD MODULUS} 
IF Byf636) NEQ LFT THEN J388K2t8(B,06818)+B,024824)) MOD MODULUS; 


ENDS 


IF CCINFOTYPE EQV eo 


IF CODE#4O0 THEN HDR#@1OQUEBSPACEC3000CTCI3 
FOR JiteJl STEP 1 UNTIL Ki 00 

FOR J2tsJ3 STEP 1 UNTIL K2 00 

BEGIN Js®SCRAMBLECU1eJ2)3 


DO BEGIN 


BEGIN DISKWAITC#NBalCFIJ2600J)3 


FOR J#*0 STEP 3 UNTIL 57 00 
IF CTS*NBCIJ) NE@ @14 THEN 


")# NOT 0 AND CODE#0) THEN CODEt#53 


2RH 


08103450 
08103460 
08103500 
08103600 
08103650 
08103700 
08103900 


%10808104000 
210806104100 
%10408104200 
%10406104300 
%10408105000 
%10408107000 
%10408109000 


IF CODE#3 THEN COMMENT UOD3 GO GETHDR ELSE 08110000 

IF CT EQV Ade NOT 0 OR CA EQV “eo *)= NOT OQ THEN 08111000 
IFCNBCI417EQV B)=NOT O ORCB EQV%e *)sNOT O THEN 08112000 

1F CODE#0 AND USERID20 THEN GO TO IN ELSE 08113000 

GETHDR: BEGIN TE®HDR,CCFIANBL J +2ICCTF)3 210408114000 
DISKWAITC@T,CCFI]e300eTsLFFJ)3 08115000 

IF CODE&5 THEN FINDWHATINEOS ZRH 08115060 

IF CODE=O THEN IF SECURITYCHECKC(NBC I JeNBCI4+1)-USERJO0eT 908115300 

#0 THEN GO TO IN ELSE GO TO AROUND} 08115200 

IF CODE#1 THEN COMMENT EX3 08116000 

BEGIN} 08116700 
STREAMCA*CALCULATEPURGE C*HDRE3)e¢(2%10))*BeLPG))#08116800 

BEGIN SI*LOC AsDS*8 OCT END3 08116900 

IF PG>HDRE3),f12%18] 08117000 

THEN GO IN ELSE GO AROUND3 08117100 

END? 08117105 

IF CCNBEIJEQV "DECK *")eNOT 0) AND 06117110 

CCONBEI+12AND @©77000000007777) EQV 08117120 

@12000000003714)*NOT 0) OR 08117130 

FALSE THEN GO AROUND? &% 06117140 

IF CODE#4 THEN COMMENT SB3 086117200 

IF HDRCS5SJ"12 THEN GO AROUND Ne¢HDR[6]3 08117300 

IF CODE22 THEN COMMENT UDeCR»sSB3 06117400 

IFCNOTCCRESHDREIF CODES4 THEN 5 ELSE 2).£6842)]))08117500 

= NOT 0 THEN IF CODE#2 THEN GO AROUND? 06117600 

IF CODE#2 THEN IF CPBDTOG*(PCNB[IJ»DUP) EQV 06117610 

*PBD ")aNOT O OR CPCXCH) EQV "PUD ") 06117620 

= NOT 0) THEN 08117630 

$ SET OMIT = PACKETS 06117631 
IF NBCT4#1).030816) NEQ "001" THEN GO AROUND £L8608117632 

$ POP OMIT 08117633 
$ SET OMIT = NOTCPACKETS) 08117634 
IF NBCI4¢1),£4236) NEQ "1" THEN GO AROUND ELSE 08117635 

$ POP OMIT 06117636 
BEGIN 086117640 

IF LABELREC®0 THEN LABELREC*SPACE(30)3 08117650 

DISKWAITC*LABELREC® 30eHDRL10)+2)3 08117660 

INFO,f185]7¢03 GO INS 08117670 

END ELSE IF NOT CRENOT O THEN GO AROUNDS 08117680 

IF CODE#3 THEN COMMENT UD3 08117700 

IFCCR EQV A)D#NOT O ANDCA EQV "eo *)#NOT 0 08117800 

THEN GO TO AROUND3 06117900 

INt BEGIN CeSPACE(12)3 06118000 
STREAMCFISCOCT JI PCReNeXte(CODE22 AND CODE<5)» 08119000 

YIsCODE*4e INE CBCODESS es INFOS TNFNOt@ ZRH 081191400 

INFO, CLt5)*PBDTOGeLReLABELREC INX 120C)3 06119200 

BEGIN S]t#Fs OSteLIT™ "3 SJswSi413 DSse7 CHR} 08120000 

S1teSyols OSteLIT"s/"3s OSe7 CHR} 08121000 

YCDS##6 LIT" SECURED"3)3 08122000 

XCOSt#4 LIT" BY "3 SIVELOC CRE SleSleli3 08123000 

DSt#7 CHR)3 08124000 

YCOSHeLIT"/"3 SLteSlet13 DSt®7 CHR) 08125000 

PBDTOGCOS#44 LIT™ ISS SI eaLRs 08125010 

2CSTtsS1413 DOStS7 CHRE DSseLIT"s")3 08125020 

DIteDl°1s DS8$24 LIT " OF 3 08125030 

2(STt#S1413 OSte? CHRS DStabLIT"/")3 , 086125040 

DIiseole1)3 08125050 

INFCCLS®CI*¥INFNOSGO ERRSGO INF13GO INF23 08125100 

GO JNF33GO JNF4S ZRH 08125410 

INF 18 RH 08125120 


DSes1OLIT* CREATED: 3 ZRH 06125130 

DATES SI&%#LOc INFOS ZRH 08125140 

ST@*eST +25 0832 CHRI2ACOSteLIT/ "3 ZRH 06125150 

DSt:#2 CHR)3GO INFENDOS ZRH 08125160 

INF28 RH 08125200 

DSss11LI7" ACCESSED: "3G0 DATE? ZRH 08125210 

INF 33 ZRH 06125300 

DSts1OLIT" RECORDS: "3 ZRH 08125310 

DECM3 BRH 086125320 

ST2:sLOC INFOsSDS#S6 DECIHAIEDI} ZRH 08125330 

De teO]"6s08IF5 FILLS DL eX; RH 08125340 

GO JNFEND}3 ERH 08125350 

INF 4S ARH 08125400 

DSte1 LIT” SEGMENTS&s "3G0 DECM3 ZRH 08125410 

ERR: INFEND#)3 RH 086125420 

DSteLI Te} 08126000 

ENDS 08127000 

SPQUT(C)3 08128000 

AROUND! ENDS END3 ENDS 08129000 
END UNTIL (CJSeNB(2), CFF I) 203 10408129100 
ENDs 210408129200 
OUT? IF CODE#0 THEN FORGETSPACECHDR)3 08130000 
XOUTS FORGETSPACEC(NB)3 08130100 
IF LABELREC#0 THEN FORGETSPACECLABELREC)3 08130200 

IF c = O THEN 086131000 

BEGIN MC BUFF JI sFLAGCNABSC NULL "))3 06132000 

SPOUTC BUFF )3 06133000 

END ELSE FORGETSPACECBUFF D3 08134000 

END PRINTDIRECTORY!S 086135000 
PROCEDURE PBIOCA#P)3 VALUE AS REAL AsP$ FORWARD? ZP 06170100 
PROCEDURE CONTINUITYBIT3S2 08171000 
BEGIN REAL Te lQDeLINKe USS 08172000 

ARRAY Al¥#)3 08172500 

REAL RCW#403% 08173000 

ARRAY Rewal*)3 DEFINE FIBRAR} ZP 08173100 

CHECKSTACKSPACE 3% ZWF 08173200 

U #CLINK « NFLAGCMECTOD «© NFLAGCMET*PRIEPIMIXe9J3]) [NX% 08174000 
PCO#eLNG*XCH)) INX NOT 0))),012%6)3% 08175000 

IF U 2 32 THEN 08175100 

BEGIN A « MET]; 08175200 

IF READEMFROMDISK(CIDROWCU*32)2A) THEN 08175300 

MET) © A@ILS7H47E1 ROL 2r4781) ELSE 08175400 

MET) * Rs GO TO RETURN} 08175500 

END3 08175600 

MCIOD INX NOT GIJeFLAGCLINK)S FIBeMET?3)3 %P 086176000 

MEFIBCL4JVINX 1L7)¢CMECF IBIS] gLFFIVI&810006323430)80L2032081)3 08177000 
SFIBCSJePCDUP»LODe Oe de CFXeADD)3 BP 06177100 

IF FIBCL4), CFF IJSFIBC14),0CF) THEN %&% BUFFER FULL ZP 08177200 
PBIOCTeF1B(14)) ZP 08178000 

ELSE ¥P 08179000 

BEGINS STREAMCASFIBLI4),(CFJe BeFIBCI4), CFF IJ)3 ZP 08179600 

BEGIN SI©A’ DS¢18 WOS END} ZP 06179700 

FIBCI4I CFF ICFIBCI4I CRF IT183 ZP 08179800 

END? SP 08179900 

GO RETURN Z2P 08180000 

END CONTINUITYBITS SP 06181000 

BOOLEAN PROCEDURE PRINTORPUNCHWAITCQsPNCHISVALUE QePNCHSREAL Qe PNCHI 08255000 
% 08255050 
% THIS PROCEDURE JS RESPONSIBLE FOR STARTING PRNPBT/DISKe IT CHECKS 08255055 
% FOR 1/0 UNITS AS REQUIRED ANDe IF AVAELABLE*® GRABS THEMes THE 08255060 


Be BL BW BC BL BR BE DE BC BE BL BE BC BE BL dC 


PARAMETERS ARE$ 


Q $716 


77160 


>0 


PNCHeC4731) 


LOGICAL UNIT NUMBER FOR OUTPUT, TAPES ANDO DISK ARE 
SEARCHED TO FIND A FILE TO PRINT. THIS IS USED ONLY 
WHEN AUTOPRINT IS SET OR FOR RE, 

$0 LOGICAL UNIT NUMBER OF A BACK*UP TAPE, CHECK FOR AN 


AVAILABLE OUTPUT UN 
FID OF A DISK FILE, 
ON FOR PUNCH BACK*U 


IT e 


CHECK FOR OUTPUT UNIT, 


Pe 


N PB MSG. 


NUMBER OF COPIES FROM PB MESSAGE, 
IF TAPEs NUMBER OF FILE TO PRINT CFROM PB), 
IF DISKe #0 IF ENTIRE PACKET SHOULD BE PRINTEDs 


ON IF CALLED FROM PRINTBACKUP» [,E» A PB MESSAGE, 


£39388) 
£3138) 
NOT, 
(3 ) ON IF =O WAS USED 1 
{2 
Ci ON IF CALLED FROM PRKNPBT/DISK, 


BEGIN INTEGER UeVelTodo dle J2953 
REAL AeHOReSEGOKESsFeJ3 
REAL PBTsePUD>PBD3 
ARRAY D(*J]*+SHEAT#0(*]3 
LABEL TRYAGAINsPRNPBT es DISK$ 
LABEL PBTAPEsFOUNDe FIRES TUPsQUIT3 
DEFINE MFID ® CIF V®22 THEN PUD ELSE PBD)D#}3 
SET OMIT *® SHAREDISK 


DEFINE SIXTY 


= 60#;3 


SET OMIT = NOT SHAREDISK 
INTEGER SIXTY3 
POP OMIT OMIT 


PBT #*® "PBT 


"3 PUD t= "PUD 


IF Q2¢°15) THEN %8% PB GIVEN 
BEGIN IF PNCH THEN IF LABELTABLE[V*221]#0 THEN Ve#O ELSE ELSE 


IF LABELTABLELV*20)]#0 TH 
IF LABELTABLECV*24]#40 TH 
IF V#0 THEN 

IF @>0 THEN 

BEGIN Utei183 


"3 PBD 


t= "PRD OMS 


$ LOOK FOR LP, 


EN 
EN VeO3 


B® WE HAVE AN OUTPUT UNIT 
a BACK*@UP DISK 


IF AUTOPRINT THEN & CHECK JF A PRNPBT WAS STARTED? 


2 IF SO» 


START THIS ONLY FOR PB, 


IF CANSDTRECTORYSEARCHCMFID+Q019) 930 
THEN IF PNCHeC291) THEN ELSE GO QUIT 
ELSE BEGIN IF MEA+4),£631) 


SET OMIT = NOT SHAREDISK 


POP OMIT 


THEN 


UNLOCKCA,CFFJ) 


ELSE BEGIN 


MCA+4),C6OtLI3e13 
DISKWAITCA,CCE J] e*300A,CFFJ)3 


ENDS 
FORGETSPACECA)3 
SET OMIT # SHAREDISK 
UNLOCKDIRECTORY3 
POP OMIT 
END3 
END 
ELSE GO TO PBTAPE3 
END ELSE 


BEGIN V#SABS(Q)3 


BEGIN IF Ve22 THEN 
BEGIN Ats"PUTMCP "3 


% LP COR PUNCH) GIVENe LOOK FOR FILE, 


® CHECK FOR TAPE 


08255065 
08255070 
08255075 
08255080 
082550865 
08255090 
08255095 
08255100 
08255105 
06255110 


#1 [F08255115 


08255120 
06255122 
086255130 
06255135 
08255140 
08255200 
08255400 
08255500 
08255600 
08255700 
08255800 
06255900 
06256190 
08256200 
08256210 
06256220 
08256230 


08256500 


08257000 
08257500 
08257600 
08258000 
082586200 
08258400 
06256600 
08258800 
08258990 
08259225 
08259250 
08259275 
08259300 
08259325 
08259350 
08259375 
08259400 
08259425 
06259450 
06259500 
086259525 
08259550 
08259575 
08259600 
08259625 
06259600 
08260000 
08260250 
08260500 
08261000 
08261250 


PBTAPE3 


SET 
POP 


SET 


POP 


SET 


POP 


SET 
POP 


SET 
POP 


SET 


, POP 


OMIT 


OMIT 


OMIT 


OMIT 


PNCHS=PNCH OR 13 


08261500 


END ELSE 08261750 
ANS"PBTMCP "3 08262000 

FOR Qt=0 STEP 1 UNTIL 15 DO 08262250 

IF CMULTITABLELQ) E@V A)=NOT O THEN 08262500 

IF CLABELTABLELQ) EQV ©122212342546447)=NOT 0 THEN 08262750 

1F RDCTABLECQ).(14210J=1 THEN 086263000 
BEGIN RRRMECH#=TWO(W) OR RRRMECHS 08263250 
LABELTABLELUSSABS(Q)) te 06263500 
PRT&TINUCVIC6s30818] 821018430555 08263750 

MULTITABLELV] $® PBT} 08264000 
LABELTABLE[V] te 08264500 
PBT&TINULUICOF3081BJ8O210184385)3 08265000 

GO FIREITUP 08265500 

END$ 06266000 

END SEARCHING FOR TAPES 08266500 
IF PBCOUNT#O THEN % TRY FOR DISK 08267000 
BEGIN Dt®(MESPACE(90)J1890[8136310]3 08267500 
SHAREDISK 08267990 
LOCKDIRECTORYS 08268000 
08268010 

AtSMFID} 08268500 
J11SCA,06118) + A,yl24124)) MOD MODULUS: 08268600 

FOR J28=0 STEP 1 UNTIL (MODULUS#1) DO 08268700 
BEGIN 08268750 

NOT SHAREDISK 08268790 
SIXTY t=" 60} 06268800 

S41 08268850 

08268860 

JesSCRAMBLE (Ji 9J2)5 08268900 

DO BEGIN DISKWAITC™CD INX 30)0SIXTY*#J)5 08268950 

FOR 14#30 STEP 3 UNTIL 87 LO 08269000 

IF COLI] EQV A) # NOT O THEN 08269100 

IF DE1+1).0CFI#1 THEN 08269200 

BEGIN DISKWAITC*De(CFIs"300DL14+2),(CFJ)$ 08269300 

1F OF4),0183] # 0 OR OL4),(681) 08269400 

NOTCPACKETS) 08269509 
OR LABELTABLELIF V=20 THEN 21 ELSE 08269510 

IF Ve21 THEN 20 ELSE 22],(6124) 08269520 

BOCI+13.06324] 08269530 

08269531 

OR (DL4J,016220] OR DE9Iel1328))#0 08269600 

THEN 08269650 

NOT SHAREDISK 08269690 
UNLOCKCOL1+2),1CF IJ) 08269700 

08269710 

ELSE 08269750 

BEGIN DC4).f681)]8213 08269800 

PBCOUNTt=PBCOUNT@13 08269900 
DISKWAIT(DelCFIs"30sD01%2),0CF)) 08270000 

NOT SHAREDISK 08270040 
UNLOCK(S)3 08270050 

08270060 

UI=18} 08270100 

QtEDLI+1)3 08270200 

GO FOUNDS 08270300 

END ENDS 08270350 

NOT SHAREDISK 08270390 
SIXTY 3605 08270400 

06270410 


END UNTIL (Jts0032),0FF))*03 


$ SET OMIT * NOT SHAREDISK 


UNLOCK(S)4 
$ POP OMIT 
END} 
FOUND} FORGETSPACECD)3 
$ SET OMIT = SHAREDISK 
UNLOCKDIRECTORY3 
$ POP OMIT 
END SEARCHING FOR DISK$ 
END} 
% IF WE HAVE BOTH AN INPUT FILE AND AN OUTPUT UNIT» 
% FIRE UP PRNPBT/DISK, 


FIREI 


TRYAGAIN? 


IF U#0 AND V#0 THEN 
BEGIN 
BEGIN LABELTABLECVJ$=Q8@21(0124325)3 
MULTITABLELVJ$sPBD3s 
END: 
TUP3: 
AtFVRULISt43s5)8PNCH(21130817)3 
IF PNCH,C181J THEN PCA) ELSE 
BEGIN 


IF CHDRI=DIRECTORYSEARCHCPCPRNPBT)»PCDISK)#3)) # 0 THEN 
BEGIN 
Tt PimM[X NEQ@ O THEN 
BEGIN 
F&sGETSPACE( 3026490) +23 
MOVEC30* HDR [NX Os F)3 
FORGETSPACE CHDR)3 
HDR CCF IISF3 
ENDS 
SHEAT 8= [MCF SSGETSPACE(C3126400)42)) & 30[£8338210)3 
MOVEC 300F *19F)3 
SEGO t® GETSPACE(3006400)+42;3 
DISKWAITC*SEGO* 302 M[EHDR INX 101])3 
FeCFFI ¢* HDR$ & CORE ADDRESS OF HEADER 
SHEAT([7) %& SEGOs % CORE ADDRESS OF SEGMENT ZERO 
SHEAT(CO) t© SHEAT(14) $* PCPRNPBT)3 
SHEAT(L1] &* PCDISK)3 
SHEATC2] t® 0 & 5(63386310)] & & PRIOR{TY#O*eRUN CODE 
CPNCH,C2¢1J50)(484791)3 & SET NOT "PB" 


08270450 
086270490 
08270500 
08270510 
08270550 
08270600 
06270640 
08270650 
08270660 
08270700 
08270725 
08270740 
08270745 
06270750 
08270800 
06271000 
08271250 
08271500 
06271750 
08272000 
08273250 
08273500 
08273600 
06273750 
08274000 
06274010 
08274020 
08274030 
08274040 
06274050 
06274060 
08274070 
08274250 
086274500 
08275500 
06275750 
08276000 
08276050 
06276100 
08276150 
08276200 
08276205 


SHEATE16) &$® SHEATECA7I] 8% @3777777777773 & TIME LIMITS06276210 


% COMMON VALUE 
% CORE ESTIMATE 
® STACK SIZE 


SHEAT(C19] 82 AJ 
SHEAT{20] ¢= 43 
SHEATC21) 8 1503 


STREAMCAI®O0 3! S te PC,SCHEDULEIDS))3 
BEGIN 
SIs#S) 
47°(SKIP SB$ SKIP DBS TALLY#*TALLY413 
IF Sb THEN ELSE JUMP OUT)3 
DSteSETsS ASBTALLY3 
END STREAM STATEMENT? 


I 38 P3 

SHEAT(C3],08t10] s* 13 ® SCHEOULE NUMBER 
SHEAT(23] 88 (CLOCK + PCRTR)) DIV 603 

SHEATL24) 83 MCP? 

SHEAT(C25] t= HDR.CFF Is &® DISK ADDRESS OF FILE HEADER 


086276220 
06276230 
08276240 
08276250 
08276260 
08276270 
06276260 
08276290 
08276300 
08276310 
08276320 
08276330 
08276340 
08276350 
08276360 
08276365 
08276370 


SHEAT(26) #8 "313 


® LOGLINE 


STREAMCA® TSS] 1=GETSPACE(1026420)+2)3 


BEGIN 


DS:*#26LIT"CC RUN PRNPBT/DISK3 COMMONS" S$ 


STs#LOC As DS3e8DEC3 
DStF6LIT"SEND "5 


END STREAM STATEMENT; 
DISKWAITC]» 10+ SHEAT(6O) 


FORGETSPACECIY3 


t= GETESPDISK)3 


FORKCPC SELECTRUN) oF 20216000)3 


PC1)3 


END ELSE &@ IF IN DIRECTORY 


BEGIN 
ENTERSYSFILEC3)3 
GO TRYAGAINS 


PRNPBT333 "PRNPBT "J 
OISKss3 "DISK ae 
END} 
ENDS 
PRINTORPUNCHWAIT##P3 


END ELSE 


QUIT? IF V#O THEN LABELTABLE[V)+03 
END PRINTWAITS2 


PROCEDURE PRINTBACKUPCBUFF)3 VALUE BUFFS REAL BUFFS 


<PB MSG> $38 PB<INPUT FILE><PB SPECS> 


WR BA RW BE BWC BL JE Be 


BEGIN REAL UsTeCOPYsMSsBeBUFF3 
LABEL OK*BADe SPITS 
STREAMC(PCPY8#1» NUMBS215 Nisle 
BEGIN SIl¢Bs DI*LOC N3 


Le IF SC#" " THEN BEGIN SIe#SI413 


THIS PROCEDURE HANDLES THE PB MESSAGE» 
AND THEN CALLING PRINTORPUNEHWAIT, THE SYNTAX OF THE MESSAGE 1583 


CPYtse"O3 


<INPUT FILE> $8 <TAPE UNIT> / <DISK FILE NUMBER> 
<PB SPECS> 84% <PgR FLEMENT> / <PB ELEMENT><PB SPECS> / <EMPTY> 
<PB ELEMENT> 882 P / =<NUMBER OF COPI[ES> / #<STARTING FILE NUMBER>08282170 


GO TO L ENDS 


BI=BUFF 3 


aP 


MAKING THE NECESSARY CHECKS 


aP 
aP 


IF SC<"0" THEN BEGIN DS#5 LIT"4+0000"3 DS*3 CHR END ELSESP 


BEGIN BtSSt} 


SCIF SC<"0O" THEN JUMP OUTS TALLY*TALLY4+13 SleSJo1)3 


SITt®ps BPETALLYs DT] seD1 +53 


DS*B CHR} 
END$ 


LLt IF SCe® © THEN BEGIN SIte51+13 GO TO LL ENDS 
IF SCats* THEN BEGIN DItmLOC CPY3 GO TO CNT ENDS 


IF SC#"#" THEN 
BEGIN D1#=sLOC NUMB3 


CNT8 SLteSTeds BlsSTs TALLYs #03 


DI+FDI°B3 


3CIF SC < "0" THEN JUMP OUTS 
IF SC > "9" THEN JUMP OUTS 
TALLYSETALLY415 SlteSyei)s 

SIt#B? BIeTALLYS DSI*B OCT 


GU TO LL 
END3 
IF SC#8"P" THEN 


BEGIN TALLY#303 PCPY&STALLYs STteSl+43 


SCIF SCBALPHA THEN IF SC<"0" THEN SIs#S]41 ELSE 
JUMP OUT ELSE JUMP OUT)3 


GO 10 LL 


aP 


08276360 
08276390 
08276400 
08276410 
08276420 
08276430 
08276440 
08276450 
06276460 
08276470 
08276480 
08276490 
06276500 
06276510 
06276520 
08276530 
08276540 
08276550 
08277000 
086277500 
082768000 
06279000 
08280000 
06281000 
08282000 
08282100 
082682110 
08282126 
08282140 
08282150 
08282160 


08262160 
08263000 
08284000 
08285000 
08286000 
08287000 
08286000 
08289000 
08289500 
08290000 
086290500 
086291000 
08291025 
06291050 
08291075 
08291100 
08291125 
08291150 
06291175 
08291200 
08291225 
06291250 
08291275 
06291300 
08291325 
08291350 
08291375 
06291400 


ENDS 
END3 
COPYtS(COPYSEPIACNOT COPY s NOT 0)(313 


Be ae ae 


IF CUS=P) < QO THEN 
BEGIN COPYSSCOPY&(PCXCH)"1)£3284036)3 
IF NOT MTIXINC]¢UsB) THEN 
IF CI#=MULTITABLELUJ#"PBTMCP ") A 
MULTITABLELUJ#"PUTMCP * THEN 


BEGIN STREAM(BUFF)$ DS#®19 LIT" NOT A BACKUP TAPE*"3 


GO TO SPIT$ 
END 
ELSE 


IF PRINTORPUNCHWAITC™Us T&COPYL30831%17] OR M) THEN 
GO TO OK ELSE BEGIN MS38"1; GO TO BAD END 


ELSE GO 10 SPIT} 
END} 


BL Ie 32 BR ac 


STREAMC] s#Ps UtslU))3 
BEGIN SITs#LOC Ts DIss01+53 
DSt#3 DECS 
END} 
1tsPeh) 
IF CCOPY OR I)efCFI=O THEN PC(DEL) ELSE 
COPYSSCOPY&PCXCHI(39%4781)3 
BUFF SSBUFF,ALIS#iSjei3 
IF CLtaDIRECTORYSEARCK("PBD "ee5)) 


IF CLésDIRECTORYSEARCH( "PUD ",Ue5))20 THEN GO TO BAD 


ELSE MSteis 
PCMCI+4))3 
FORGETSPACECI)3 
IF PeC2%i) THEN BEGIN MSt23 GO TO BAD 
IF PBCOUNT LSS 1 THEN PBCOUNT##13 


IF PRINTORPUNCHWAITCUs MS&COPY(30831%17) OR M) THEN 


OKs FORGETSPACE (BUFF) 
ELSE 
BEGIN MS313 


BADS STREAMCMSs XtSMS<0»o UtelF PCDUP) THEN TINU[LU] ELSE Us 


BUFFS *BUFF CCF 1)3 
BEGIN DSt#6 LIT™ NULL PBS 
SEteLOC Us CIlESCI4+X3 GO TO D 
SP#sS1453 DSts3 CHRS GO TOL 
DKs SIseSt+ls OSted CHR; 


BUFFSEDT? OLtep["4s OSse3 FILLS DIS SBUFFS 


LLs DStw2 LITMWC"S 
CIsect]+MS3 GO TO LOs3 GO TO L 
DOSt# 6 LIT"IN USE" GO TO Ls 
Lit DStet14 LIT"NO OUTPUT UNITS 
LOs OSte11 LIT"NOT ON DISKS 
bo § OSt= 2 LIT") +") 
END3 
SPITS SPOUTCBUFF )3 
ENDS 
END OF PB KEYBOARD MESSAGE HANDLER} 


47%1)3 


BACK UP TAPE. CHECK THE LABEL THEN CALL PRINTORPUNCHWAIT, 


ND 


BACK UP DISK, SET FIRST REEL NUMBER,» IF COPIES OR REEL NUMBER 
GIVEN» DIAL IN *P" BITs ELSE LEAVE IT OFF TO PRINT ENTIRE 
THING, CHECK FOR THE FILE» THEN CALL PRINTORPUNCHWAIT, 


z0 THEN 


END3 


K3 
Le? 


13 
GO TO L3 


08291425 
06291450 
08291460 
08291470 
08291475 
08291480 
08291500 
06291750 
08292000 
08292500 
08293000 
08293500 
08294000 
08294500 
08295000 
08295209 
08295600 
08295800 
08296000 
08296460 
08296170 
08296180 
08296190 
06296200 
08296225 
08296250 
06296275 
08296300 
08296325 
06296350 
08296375 
08296400 
08296600 
082968600 
08297000 
08297200 
08297300 
08297400 
08297600 
08298000 
08298200 
08298400 
08298600 
08298800 
08299000 
08299200 
08299400 
08299600 
08299800 
08300000 
06300200 
08300400 
08300600 
08300800 
08301200 
08301400 
08301600 
08301800 
08302000 
08302500 


PROCEDURE TIMEQUT (B)3 VALUE BS REAL B38 


BEGIN INTEGER MeHe C32 
C #XCLOCK/360033% 
Me C MOD 6032 
H«* C DIV 603% 
STREAMC He Me BSS 
BEGIN DS « 9 LIT ™ TIME IS "32 
S] « LOC Hs DS «© 2 DEC# DS « 2 VDECIS 
OS « LIT *e"Z% 
END32 
IF SWAPEND#0 THEN CHANGEDATE(O)3 
SPOUTITC(CBeTIMEK)3 
ENDS 


PROCEDURE GIMEDATE(BeDT)3 VALUE BeDI? REAL BeDT3 


%% PARAMETER USE IS! 
%% BeOUTPUT AREA FOR MESSAGE OR DATE 
SEDTSO RECONVERT ACTDATE*WEEKDAY THEN SPOUT TIME MSG 
%% OT>O0 SPOUT TIME MSG ONLY 


BE DT<O CONVERT MMDDYY USING NT CACTDATE* WEEKDAY NOT CHANGED) 


BEGIN REAL MepeYeNcVeNMG} 
REAL SUBROUTINE DAY3 
BEGINSSTREAMCMEX*02Y¥eOeZe0)3 


08305000 
08306000 
08307000 
08308000 
08309000 
08310000 
086311000 
08312000 
08313000 
08314000 
08315000 
08315100 
08316000 
068317000 
08317100 
08317200 
08317300 
08317400 
08317500 
08318000 
08316100 
08318200 


BEGIN DI*LOc Xs DS#24 LIT*O00+OR1LY2G2V3P3T4A4 S5>7508318300 


SI*LOC X3 SI*SI+Ms SI*SI4+M3 
DI*#LOC M3 DJ *DI1+63 DS*2 CHR} 
ENDS 
DAYeP} 
END DAY3 
LABEL DAYSS 
LABEL ONS 3% 
IF NOT CNCV#(DT>0)) THEN % NOT PRINT ONLY 
BEGIN 


STREAMCDATE SIF CNMG?3DT,C131]) THEN DT ELSE DATE*RizlY))3 


BEGIN SI # LOC DATES SI ¢ SI+33% 
DS*#2 OCT) N]*DI7163 DS*3 OCTS 
ENDS% 
If Y MOD 4 = O AND Y # O THEN 
BEGIN IF D = 60 THEN’ 
BEGIN Me*23 GO QN END} 
IF D > 60 THEN D #D"132 
END3S3 
FOR Mel STEP 1 UNTIL 11 DO 
IF DAY2D THEN GO ON3 
ONt Meme; 
DeD"DAY3 
IF M<2 THEN PCY*™41eM411) ELSE PCYomM@l)3 


08318400 
08318500 
08318600 
06318700 
08316800 
08318900 
08319000 
08319700 
08319900 
08320000 
08321000 
08322000 
08323000 
08324000 
086325000 
08326000 
08327000 
08328000 
08329000 
08330000 
08331000 
08332000 
086332100 


PC26exe2eme1Or I DVeDeteXCHePCDUP) of 36810) e+e ee 7eRDVe Se 1SN) 108332200 


$t PC aDAYSe4eLOD)3 
MeMel3 
END ELSE PCWEEKDAY)3 
STREAMCMe¢(M] »NMGoNCVsMDY*(ACTDATE Je BoUWe (WEEKDAY) D3 
BEGIN NMGCJUMP OUT TO NOMSG)3 
SI*LOC MB SIeSI*163 
NeovCSleSI+23 JUMP OUT TO NOCNV)3 
DS*#WDS3 SI#SI1°63 


NOCNVS O1*Bs DOS*9 LIT" DATE IS "3 DS*6 CHR? 

DS*S LIT*DAYe “S$ BeDIS NCVCJUMP OUT TO NULCV)3 
NOMSG!3 St*MS NMGCD]*©Bs JUMP OUT TO NULMS)3 

DI*MDYS 


NULMS$ DS¢4 DECS DS*#2 DEC$ DS*2 DEC} 


08332300 
08332400 
06332500 
08333000 
08334000 
086334100 
08334300 
08334500 
08334700 
08334900 
08335000 
08335200 
08335400 


NMGC JUMP OUT TO OXI1)3 DIe«B3 08335600 

NULCV8 SLeMDY3 S]eS]423 08335800 
DS*2 CHR} 2CDS*LIT “/*3 DSe2 CHR) 08336000 

DS «© LIT "es S] «Bg 08337000 

3(DI « BS DS + FILLS SI « SI+#33 B #S])3% 08338000 

OXITs END} 08339000 
08339100 

IF NOT NMG THEN SPOUTITCBeDATEK)3 08340000 

PCXIT)3 08340100 

DAYSt&3 " MON"e” TUES» "WEDNES™e™ THURS *»® FRIM»™ SATUR"S 08340200 
e SUNS. 08340300 

END3% 08341000 
PROCEDURE DISKLOGCMIDeFIDeH)s VALUE MIDeFIDeHSREAL MIDeFIDSARRAY HE*¥]$ 08341100 
BEGIN 08341120 
INTEGER HRSoMIN@SECOSIX3 % DO NOT CHANGE ORDER 08341140 
REAL SEGeTeDTI 08341160 
DT&eH(9),(4315)493 08341180 
FOR Tss10 STEP 1 UNTIL DT DO 08341200 
IF HCTI]#0 THEN SEG*SEG+H(8)3 08341220 
SIX*(T+#H£1].025323)) MOD 603 08341280 
SEC#(T DIV 60) MOD 603 08341300 
MINe@(T DEV 3600) MOD 603 08341320 
HRS«T DIV 2160003 06341340 
TSSSPACEC10)3 08341360 
STREAMCAH(11,C6818)eD+lDTI93 08341368 
BEGIN SI*LOC As DS*8 DEC END} 08341400 
GIMEDATECCOTI] e(CFIJe"DT)3 08341420 
STREAMCOTeTIME*CHRSJ se FNG©LMIDJ »USER*CHL 2] I) +SEG*( SEG] °T)3 08341440 
BEGIN DSeLIT * "$3 STeFNS SI#Sl413 08341460 
DS#7 CHRS DSeLIT "/"3 SleSJfo13 DSe*7 CHRS DSeLIT "/ "3 08341480 
ST*USERS ST*S14+13 DSe7 CHRS DSeLIT “s"s3 ST*SEGs 08341500 

DS*8 DECS SEG*DI$ DIeDI*83 OSe7 FILL’ DI*SEG} 06341520 
OSe15 LIT " SEGS**CREATED “3 Sy*LOC DT3 08341530 
S1*S142s DS*2 CHRIS 2COSeLIT "/"3 DS*#2 CHR) 08341540 

DS#4 LIT™ AT "s ST*TIMES DS#2 DEC DSeLIT@s "3 08341560 

DS#2 DECS DSeLIT"8"3s NSe2 DECE DSeLIT™E"s OS*2 DECS DSeLITe"3 08341580 

ENDS 08341600 
IF MJ]D,C6912] GTR 9 AND &% NOT O1%SLLL>e MAYBE 1SLLL * 11208341610 
(MID. C686] GTR 9 OR MIDe6636) 50) THEN®S NAME OR ONAMEs %11208341612 
SPOUTITCTsDISKLOGGER+DKLOG) ELSE FORGETSPACECT)3 %11208341620 
HCLISEXCLOCK+PCRTR) 3 %11208341622 
STREAMCOSE( DATE) oHteCHl1))°T##0)3 %11208341624 
BEGIN SJ#=D3 DIt=LOc Ts DSt28 OCTS SIs#Loc T3 %11208341626 
= SLteS1+5s OLseHns OL 8eOT 413 OSte3 CHRS %11208341628 
END STREAM} %11208341630 
END} 08341640 
DEFINE DATEQUTCDATEOUTIL BGIMEDATECDATEOUT120)#5 ZSCHANGE DATE & SPOUT JT 08342000 
PROCEDURE SETDATECBUFF)S VALUE BUFFS REAL BUFFS 08343000 
BEGIN REAL DYeMNoYRS INTEGER DeDYs REAL Be TmMNI 08344000 
REAL SUBROUTINE C3 08344300 
BEGINESTREAM(CeO0tBe(B))3 08344200 

BEGINS 08345000 

S] + BF SI + SI#5s SI ¢ SCH 08346000 

Ls IF SC < "0" THENS 08347000 

BEGIN IF SC = "e™ THEN GO TO X32 08348000 

SI © Sl#13 GO TO Ls 08349000 

END} 08350000 

Ki IF SC 2 "0" THENS 08351000 

BEGIN TALLY © TALLYo13% 08352000 

S] « SI+#13 GO TO K END33 08353000 


END3% 
PROCEDURE CHA 
BEGIN 


M 


Ci3GE 


END3% 
PROCEDURE SET 
BEGIN 


D1 « Bs Be ST# SI « LOC Bs DS © WOS3% 
St + Bi B «+ TALLYS DI « LOC C38 


SI * SI*Bs DS © B OCT3% 
XtENDSS 
C+P3 
END C3 
B « BUFFS? 
MN©C3 DY*C3 YReC3 
BUFF © BUFF sCi5si5)713% 
IF MN > 0 AND MN ¢€ 12 ANDSZ 
DY > 0 AND DY € 31 AND3 
YR > 0 THEN? 
BEGINS STREAMCMeMN@12Xe¢0eYeOnZe0)3 


08354000 
08355000 
08356000 
06357000 
08358000 
08356100 
08359000 
08360000 
08361000 
08362000 
08363000 
08364000 
08365000 


BEGIN DI*LOC Xs DS*24 LIT"000¢081,1Y2G2V3D3T4A4 5>"308365100 


ST+LOC Xs STleSI+Ms SleSl4ms 


DI*LOC M$ DI*DI+63 DS*2 CHR: 


END3 
DY*P+DY3 


IF YR MOD 4 = 0 AND MN > 2 ANDCYR MOD 100 # O OR¥ 


YR MOD 400 = 0) THEN’ 
DY © DYeis3% 
D « YR MOD 100 x 10004DY3% 
STREAM(CDsAe( DATE] )33% 


BEGIN SI *« LOC D3 DS + 8 DEC ENDS 


CHANGEDATECBUFF ) 3% 
END ELSE SPOUTCBUFF)3 


NGEDATECBUFF)3 VALUE BUFF} REAL BUFFSS 
REAL BeCoD3% 

SLEEP CL TOGLE]»HOLDMASK)3 
LOCKTOGCHOLDMASK)3 

B $® SPACEC30)3 
DISKWAITC*Bae*30eDIRECTORYTOP = SYSNO)3 
Diw MCB+1I35% 

MEBJ©OPTION} 

MCB+1] « DATE3% 

MEB+L8I] 8 SXCLOCK3 

MCB+20),018830) S=LOGARRAY(33)} 
[B+21)9=SCHEDWRD? 
DISKWAITCBe*"30eDIRECTORYTOP = SYSNO)3 
IF BUFF#O THEN 

BEGINS 

DATEOUT CBUFFD3% 

TSPACE(59905)423 

MECC 288 MEC4+2]3% 03% 

MCCe3)] = D3 


STREAMCDATEsAtsC41)3 BEGIN SI#t#LOc DATES DSs=8 OCT END32 


LINKUPC17sC)3% 

END} 
FORGETSPACE(B)32 
UNLOCKTOGCHOLDMASK) 3 


IMECBUFF)S VALUE BUFFS REAL BUFFS 
REAL BSBUFFsT3%& 

REAL [eR3% 

LABEL EXITS% 

REAL CLOCKmXCLOCK33 

INTEGER CLCKRCLOCK33% 

T © "15% 

STREAM(BeTe(T1)3% 


08365200 
08365300 
08365400 
08366000 
08367000 
08368000 
08369000 
08370000 
06371000 
08372000 
08373000 
08374000 
08375000 
08376000 
08377000 
08378000 
08379000 
08380000 
08381000 
08381100 
08382000 
08383000 
08383100 
08383200 
08383210 
086384000 
06384100 
06384200 
06385000 
06385100 
08385208 
06385300 
06385400 
08385500 
08385600 
08387000 
08368000 
08389000 
08390000 
086391000 
08392000 
08393000 
08394000 
08395000 
08396000 
08397000 


08432000 


BEGIN SI « B#8 08398000 
Lt oF SC =" " THENS 08399000 23 _— 
BEGIN SI « St+#i# GO TO L ENDS% 08400000 
IF SC < "0" THEN GO TO X3% 08401000 
Kt IF SC 2 "0" THENS 08402000 : 
BEGIN SI « ST#1s TALLY « TALLY413% 08403000 
GO TO K END$% 08404000 
B * TALLYS SI * SI*Bs DS © B OCTES 08405000 
X98 08406000 
ENDS 08407000 
BUFF © BUFF,CI5s15)"153 08408000 : 
IF T 2 0 AND T DIV 100 < 24 AND T MOD 100 «< 60 THENS 08409000 
BEGIN RESGETSPACE(5 #995) 423 08410000 
MCR#2)1= XCLOCKSS 08410100 
CLCKt® (T DIV 100 x 60 # T MOD 100)x360033 08410200 
CLOCK ¢ (CLOCK OR @77)415% 06411000 
TIMEOUT (BUFFS 08412000 
MER]$= MCR¢3)3= O58 08412100 
STREAMCDATE SALSR41) 92 08412200 
BEGIN SItSLOC DATES DSt=8 OCT} ENDIS 08412300 ‘ 
LINKUPCI7*R) 5% 08412400 
GO TO EXITs3 08413000 
ENDS% 08414000 ‘ eee ce 
SPOUTCBUFE )3 08415000 
EXITS 08416000 
END) 08417000 ; 
REAL PROCEOURE FORMESSC(BUFFeH1)$ VALUE BUFFeH1s REAL BUFF eH) 08418000 
BEGIN REAL BeHoUs 08418500 
INTEGER 18 08418700 . 
LABEL AGAIN®EXIT*AWAYS 08419000 
IF H1=0 THEN 08419100 
BEGIN STREAMCUS#0*BS=BUFFI)S 08419150 2 ; 
BEGIN SI1=B3 08419200 
Lt IF SCe" * THEN 08419258 
BEGIN SIs#SI#1s GO TO L ENDS 08419300 
Biss; 08419320 
IF SC GEQ@ "O" THEN 08419350 
IF SC LEQ "9" THEN TALLY#=13 08419400 sadness ; ae 
UN=TALLY) 08419450 
ENDS 08419500 
BUFF IEP? 08419520 a ee eee 
IF P THEN 08419550 
BEGIN SCHEDLOOK(BUFFe2)3 08419600 
GO AWAY 08419650 Mla glee ae Oe ee wa 
ENDS 08419700 
ENDS 08419750 
USeFORMESS#SUNITINGTINU®BUFF) 3 08420000 eee 
IF US31 THEN BEGIN SLEEPC{TOGLE) »STATUSMASK)3 08421000 
IF LABELTABLF(U) < 0 THEN 08422000 
BEGIN STREAMCAT=TINU(U) eBtsBteSPACE(5))3 08424000 az 
BEGIN SI ¢ LOC AF SI * SI + 53 US © 3 CHRIS 08425000 
DS#s24LIT" IN USECTO BE READIED) «™3 08426000 
ENDS 08427000 Sees 
SAVEWORD t® SAVEWORD AND NOT TWOCU)S 08427100 
SPOUTCB)3 08428000 
1F H1 THEN GO AWAY ELSE GO TO EXITS 08429000 = eT 
ENDS 08429500 
LABELTABLELUJI=@L148HI0 18478193 08430000 
MULTITABLELU] « 03% 086431000 ae fi a act Saar ot cate NT Lichen atone 
1 + TWOCU)SS 


EXIT! 


AWAY! 


END3 


IF Hi THEN Bt=NOT O ELSE 
BEGIN BS=NOT Js He=lteO03 
IF Us23 THEN HisP(,READERA)3 
IF Us24 THEN Hi=PC(,READERB)3 
IF H NEQ 0 THEN 
BEGIN UNITCODELU"23) 33°03 
IF C#H),CCF] NEQ O THEN 
BEGIN 
FORGETSPACEC*H™2)3 
MECH] $803 
END} 
END3 
END} 
READY «+ READY AND B OR [34 
RRRMECH * RRRMECH AND B OR 13% 
SAVEWORD «+ SAVEWORD AND B OR J52 
END3 
IF NOT Hi THEN 
BEGIN IF U GTR 31 THEN 
BEGIN STREAMCBUFF eBt=Bt2=SPACE(5))}3 
BEGIN DSt#i{0 LIT"INV KBD RY"™3 
SI¢**BUFFS DSt#3 CHR: 
DSteLIT*e"3 
END; 
SPOUT(B)3 
END} 
STREAMCOKS2O0eBUFFS)3 
BEGIN SIisBUFFS 
3CIF Sts” " THEN JUMP OUT} 
IF Sce™.™ THEN JUMP OUT} 
IF Sca"e" THEN JUMP OUT TO L33 
S]se$l+i)3 
Lit IF Sca* " THEN 
L2t BEGIN STseSiei13 GO 710 Li END} 
IF Sc#™," THEN GO TO L23 
BUFF YsS]3 
IF Sc#"e* THEN TALLYS315 
L3% OKYF=TALLYS 
END? 
BUFF ESP3 
IF P THEN GO AGAIN} 
FORMESStsej3 
END3 


08433000 
08434000 
%R7608434100 
%R7608434200 
%R7608434300 
%R7606434310 
06434400 
%R7608434500 
%R7608434600 
%R7608434700 
%R7608434800 
%R7608434900 
086434910 
06435000 
08436000 
06437000 
08437050 
08437100 
08437150 
08437200 
08437250 
08437300 
08437350 
06437400 
08437450 
08437500 
06437550 
08437600 
08437650 
08437700 
08437750 
084376800 
08437858 
08437900 
08437950 
06436000 
06438050 
08436100 
06438150 
08438200 
06438250 
08438300 
08438350 
08438500 


PROCEDURE SUSTATUSCAeDDD2B)s VALUE AeDDDeBs REAL AeBs ARRAY DDDI*]3 08438900 


FORWARD3 


PROCEDURE OUTPUTLABEL(B)3 VALUE B3 REAL Bs 
BEGIN REAL BUBB eUsTras® 


REAL GeQ3% 
REAL TEMP3 
BOOLEAN SCRTOG3 
REAL BLURB» MIX} 
LABEL EXITs% 
SUBROUTINE DOIT3% 
BEGINS STREAMCA*TINULU]3B)3% 
BEGIN ST * LOC AS ST © SI+53 0S « LIT" "3% 
DS * 3 CHRS DS « LIT * "$3 A © DI ENDSE 
A « PS} T * LABELTABLECUJ3% 
IF U USS 16 THEN TEMPS #PRNTABLELU).(30%18)3 
IF TsO THEN 


08438910 
08439000 
08440000 
08441000 
08441050 
08441100 
06443200 
08442000 
08443000 
08444000 
08445000 
08446000 
08447000 
08447400 
08448000 


STREAMCBESTEMP,Vis(U LSS 16)0A)3 
BEGIN SITtsLOC ViSIisSf+73 
IF SC NEQ "O" THEN BEGIN SI8eL0C BsSDSte5DEC END} 
DSts9LIT" SCRATCH" END 
ELSE 1F T = @114 OR T © @214 THENS 
BEGIN 


STREAM(SAVSSCCTWOCU) AND SAVEWORD) NEQ 0)sA)3 


BEGIN 
DStF1OLIT"NOT READY«";3 
SAV(DISeDI*13 DStSBLIT™CSAVED) &*)3 
END 
END 
ELSE IF ABS(T)#@344 THEN 
STREAM(BISTEMPeViwe(lU LSS 16)0A)3 
BEGIN STtslLOc Vs SIlesS1473 
IF SC NEQ "O" THEN BEGIN SItsLOc BSDS3=5DEC END? 
ODSseii LIT " UNLABELED]; 
END 
ELSE BEGINS 
STREAMCKIST<0O8 TEMPe V83U<i6e A)3 
BEGIN VCSTtsLOC TEMPS DSt#5 DECS DSteLIT" ")3 
CleesCl#Ks GO TO LABS 
DSt#6 LIT"IN USE" GO TO L3 
LAB? DSts7 LIT"LABELED"3 
Lt DSseuLiT” “3 KEEDI3 
ENDS 
A * Pt 
IF (MIX © ROCTABLECUJ.(8:6]) # O THEN 
IF JARROW( MIX) # O THEN 
BEGIN TABCNTCMIXJ] 8=TABCNTEMIXJ 413 
BLURB&tsPUTORTAKE CMI Xe LJARCMI X20) J 21020)3 
TABCNTECMIXJS=TABCNTCMIXJ 943 
STREAMC(CJSSBLURB$ MIXe ADS 
BEGIN DS «© 3 LIT "BY "$ SI © Jaa 


SI * SI+¢1s DS ¢« 7 CHR#S 
DS « LIT "/"3 ST « Si+13% 
DS * 7 CHR# DS © LIT "arse 
S] « LOC MIX$ DS «+ 2 DEC; 
DS « LIT "s"s Ye DISS 
DIi*D1°3s DSeF ILL: 

END I% 

A @ P32 


FORGETSPACEC BLURB) 
END ELSE ELSE 
IF T<O AND (Us23 OR UR24) THEN 
BEGIN 
STREAM(S#a0 ¢ ADS 
BEGIN 
OSt#22LIT*BY AUTO LOAD CONTROLS "3 
SteD]3 
END) 
As=P3 
END ELSE 
IF U GE@ 20 AND U LEQ 22 THEN 
IF LABELTABLE(UJ.0185J=@21 THEN 
BEGIN STREAMC(CS#wOtA)3 
BEGIN 
DSt13 LIT “BY SCHEDULED "3 
DSt®13 LIT “"PRNPBT/DISKSs "3 
StsDI3 


08448050 
06448100 
064486110 
08448150 
08449000 
08450000 
06450100 
08450200 
08450300 
08450400 
08450500 
08450600 
06451000 
08451100 
08451200 
08451210 
08452000 
08452100 
08453000 
08454000 
08454500 
08455000 
08455500 
08456000 
08457000 
08458000 
08459000 
08460000 
08461000 
08461250 
08461500 
08461750 
08462000 
08463000 
08464000 
086465000 
08466000 
08467000 
08468000 
08468500 
08469000 
08470000 
08470100 
08471000 
08471010 
08471020 
08471030 
08471040 
08471050 
08471060 
08471070 
08471080 
06471090 
08471100 
06471105 
08471110 
086471120 
08471130 


08471140 


06471150 


SET 


POP 
SET 


POP 


SET 


POP 
SET 


POP 


END3 
AleP; 
END} 
STREAMCS*OtKeMULTITABLE(LUJ eT» 
ReRDOCTABLE(UI],CI4¢10] ¢DeROCTABLELUI.C24%17)>» 
CeROCTABLECUI C4187) 2A)3 
BEGIN SI « LOC K3 
2CS1 * SI+i3 DS © 7 CHR DS «© LIT ™* %)52 
DS « 3 DEC; OS « LIT ™ 33 
DS « 5 PECs DS « LIT * 3% 
DS * 2 DEG) 
DS « LIT%e"$3 
S¢D13 
ENDS 
AeP3 
JF U232 THEN IF CIDROWLU "32)#0 THEN 
STREAMCOK*CIDTABLECU $32e2)eA)3 
BEGIN 
DieDI"13 
OMIT = NOTCPACKETS) 
DSt#5 LIT "ePKT "3 
OMIT 
OMIT # PACKETS 
DS*6 LIT “eDECK "3 
OMIT 
SleLOc DKs SI*SI1+13 
DS¢7 CHRI 
END) 
END) 
SPOUT(B)3 
Be OF% 
END3% 


IF (U © UNI TINCTINUsBU)) < 35 THEN 
BEGIN B © ByCi5si5)*13% 
IF CU OR 12219 THEN SUSTATUS(Be05U) ELSE 
DOITSS 
GO TO EXITS& 
ENDS% 
OMIT = SHAREDISK 
SCRTOG + U=363 
OMIT 
OMIT = NOTCSHAREDISK) 
SCRTOGte(UE40)}3 
OMIT 
STREAMCA*OSB)I% 
BEGIN SI + B42 
Lt IF Sc =" ™ THENS 
BEGIN SI] « S115 GO TO L ENDSS 
DI « LOC As’ DI © DI+63 DS «© 2 CHRI’ 
ENDS% 
Q@¢ P} B * Bel15815J)°153 
FOR U « O STEP 1 UNTIL 35 DO 
IF TINUCUJ],£30812) = Q@ THEN? 
IF (G * LABELTABLE[U])40 AND G#@114 AND G#@214 
AND NOT SCRTOG OR G0 AND SCRTOG THEN 
BEGIN IF BO THEN B #® SPACE(10)3 
DOITS& 
ENDI% 
IF B # 0 THEN’ 


08471160 
06471170 
08471180 
08472000 
08473000 
08473500 
06474000 
08475000 
08476000 
08477000 
08478000 
08478300 
08478500 
08478600 
08478700 
08476800 
06478900 
08479000 
08479100 
08479109 
08479110 
08479111 
08479199 
08479200 
08479201 
08479300 
08479400 
08479500 
08479600 
08480000 
08481000 
08482000 
08482050 
08483000 
08484000 
08484500 
08485000 
08486000 
06487000 
OB4BT099 
06487100 
08487101 
08487199 
06487200 
08487201 
08486000 
08489000 
08490000 
08491000 
08492000 
08493000 
08494000 
08495000 
08496000 
08497000 
08497100 
08498000 
08499000 
08500000 
08501000 


BEGINS STREAM(QeB) 3% 08502000 


BEGIN DS « 6 LIT ® NULL "3% 08503000 

SI « LOC Qi SI «© SJ+63 DS © 2 CHRIS? 08504000 

DS « 7 LIT " TABLEe™3% 08505000 

ENDIS 08506000 

SPOUTC(B)3 08507000 

END33 08508000 
EXIT# ENDS 08509000 
PROCEDURE TIMEUSED(BeX)3 VALUE BeXs REAL BoX3% 08525000 
BEGIN INTEGER HeMeSe Qe T3 08526000 
$ SET OMIT & NOTCPACKETS) 08526499 
DEFINE UN] TNO = PSEUDOMIXC XI] #3 08526500 

$ POP OMIT 06526501 
T © PUTORTAKECX eo CUAR[X#3)]] 9120) 08527000 

+ PUTORTAKECXsCPROCTIMEC XI J] 9100)3 08527100 

IF X®P2MIX THEN T © T#CLOCK4¢PCRTR) 3% SWF 08528000 
FORMTIMECE MJ] eT )3 08529000 
TeCCCLOCK4PCRTR) )/60)"PUTORTAKE( Xs 08533100 
CUVEXe9 J] ) 0100), C1817)3 08533150 
FORMTIMEC{Q]9Tx60)3 06533200 
STREAM(C J#PUTORTAKE (Xp LUAREX*OJ J] 94970) % 08534000 
KePUTORTAKE (Xe (JAR(Xet J) 0120)eXeHe LH] oB)3 08534100 

BEGIN DS « 10 LIT ® TIME FOR "3% 08535000 

Sl*LOC Js 2CSTeSi+13s DS*7 CHRS DSeLIT "/")3 086536000 

DIeDI"1s DSeLIT "R"3 DSe2 DEC 08537000 

08538000 

XeDis DIieDIe2t DSe*FILLI DI«Xs 08538500 

OS « 3 LIT ™ [S"3% 08539000 

SleHs SIeS1+83 O08¢8 CHR3 08540000 

086540100 

OS « 3 LIT ™ IN" 086540200 

SfeS]4+83 0DS«8 CHR} 08540300 

DSeLIT%e"3 08541000 

ENDS 08542000 

ZWF 08543000 

SPOUTERCBeUNT TNOe 1 )3 08544000 
END3% 08545000 
REAL PROCEDURE ANVILCILeZ)3 VALUE ILeZ3 REAL ILeZ3% 08546000 
BEGIN REAL BRZsUs+132 08547000 
REAL 223 08547050 
LABEL EXIT 08547100 
ZZtsZ} 06547200 
NAME ID(UeZZ)3 08547300 
NAMETDCUsZZ)3 06547400 
IF Us"/ " THEN 08547500 
BEGIN Us#Z,£15115)3 GO EXIT END ELSE 08547600 
IF CU © UNITINCTINU*®B)) S$ 35 THEN 06548000 
BEGINS 08549000 

IF LABELTABLECU) = @114 OR LABELTABLE(U) = @214 THEN’ 08550000 
BEGIN 08551000 
STREAMCASRTINUCUJ »SAVEBSCCTWOCU) AND SAVEWORD) #€ O )» 08551100 
X9eZ,015815]°1)3 06551200 

BEGIN 06551300 

SrrsbLOc As’ ST8#ST4+53 OSte#3cHRI 08552000 

DSts11LIT"™ NOT READY} 08553000 
SAVCD]9sD171s DSIEBLIT"CSAVED) &")3 08554000 

END) 08554100 

Ue#36}3 08555000 

END ELSE 08556000 


IF LABELTABLELU] < 0 THENS 08557000 


BEGINSSTREAMCASTINULUJ ®Xe2Z,015315)"1)3% 
BEGIN SI * LOC As SI © SJ4+53% 
DS « 3 CHR} DS « 6 LIT * IN USEe*3g 
END32 
U«363 
END3& 
IF U < 35 THEN 
LABELTABLECU) © =CIF JTL THEN *PCDUP) ELSE @314)33 
EXIT: ENDS END3 
PROCEDURE SAVETHEUNITCB)$ VALUE B3 REAL BSS 
BEGIN REAL A®BreTeUe [3 
LABEL AGAINeEXITS 


STREAMC(CUS800B1)3 
BEGIN SIlssB3 
Ls IF Sc#* * THEN BEGIN SIt#S]413 GO TO L ENDS 
BteS]} 
IF Sc GEQ "0" THEN 
IF SC LEQ "9" THEN TALLY: #13 
USSTALLY} 
END3 
BiePs 
IF P THEN BEGIN SCHEDLOOK(Be3)3 GO TO EXIT END3 
AGAINS TseSPACE(10)3 
IF CUSBUNITINCTINU®A)) GTR 31 THEN 
STREAMCA®T)3 
BEGIN DSt#10 LIT"INV KBD SV"3 
STsteas OS8=3 CHR} 
DStsLp Tes 
END ELSE 
BEGIN I * TWO(U)3% 
SLEEPCLTOGLE J »STATUSMASK)3 
IF LABELTABLECU) 2 0 THEN’ 
BEGIN LABELTABLECU] + @0114;5% 
MULTITABLECUJ*ROCTABLECUJ©0O3 
RRRMECH ¢ RRRMECH OR 13% 
READY © READY OR [32% 
SAVEWORD 3:* SAVEWORD OR I3 
ITe«* "3% 
END3 
ELSE BEGIN SAVEWORD © SAVEWORD OR 13% 
]1 « " TO BE'3% 
END33 
STREAMCA*TINUCUJ# lo T)3& 
BEGIN DS * LIT ™ 3% 
SI] « LOC Al SI © SI4#53 DS + 3 CHRS% 
SI ¢ SI#23 DS «© 6 CHRIS 
DS « 7 LIT ™ SAVED#"3% 
ENDS% 
END3% 
SPOUT(T)3 
STREAMCOKS#00A!)3 
BEGIN SItsA3 
3CIF Sc=#” ™ THEN JUMP OUTS 
IF SCw"s" THEN JUMP OUT? 
IF Scae" THEN JUMP QUT TO L33 
SleeSle¢1)3 
Lit IF Sc#e* * THEN 
L2t BEGIN SI8®S1+15 GO TO Li END} 
IF Sce™e"” THEN GO TO L23 


06558000 
08559000 
08560000 
08561000 
08562000 
08563000 
08564000 
06565000 
08566000 
06575000 
08576000 
08576100 
08576150 
08576200 
08576250 
08576300 
08576320 
08576350 
08576400 
08576450 
08576500 
08576520 
08576550 
08577000 
08578000 
08578100 
08578200 
06576300 
08578400 
08578500 
08579000 
08580000 
08581000 
08582000 
08582100 
08583000 
08584000 
085841008 
08585000 
08586000 
08587000 
08586000 
08589000 
086590000 
08591000 
08592000 
08593000 
08594000 
08595000 
08596000 
06597000 
08597050 
08597100 
08597150 
08597200 
08597250 
08597300 
08597350 
08597400 
08597450 


AteS]3 
IF Sc#¥%e" THEN TALLYI513 
L3s OKSB@TALLY3 


END? 
AtSP3 
IF P THEN GO AGAIN$ 
EXIT: 
ENDS 
BOOLEAN PROCEDURE WHYSLFEFEPCMASK)3 VALUE MASKS REAL MASK} 
BEGIN 
REAL Ae B3 
IF REPLYCPIMIXIJ*®VWY THEN 
BEGIN 
BIeSPACECKEYMSGSZ)3 


DISKWAITC*BsKEYMSGSZ»MESSAGETABLE(2],.[22826])3 
STREAMCBsMASKe TI E0s 08 eOeD tar At BASBSPACE(4))3 
BEGIN 
SPs*LOC MASK; 
BCIF SCe"O" THEN GO TO NEXT 
IF SC#VWY THEN 
BEGIN 
DIS®AS DSt=3LIT" DS"s AtEDI# GO TO NEXT 
END3 
TesSI3 DItebLOc OF DItsD1+73 DSIsCHRS 
STS*LOC 08 DIsSLOC DS OLsFD1+65 DSt2DEC3 
S1'*B} 
Rt SPteS[+6s DI tedI "23 
IF SC#"*" THEN % END OF FIRST PART OF TABLE 
BEGIN 
STt®Ts GO TO NEXT 
ENDS 
IF 2SC NEQ@ OC THEN GO TO R$ 


ST*eS[763; OLsmas OSteLIT™ *3 DSte2CHR} AtRDIS SI] &eT3 


NEXT SIseS]el)3 
DIteAs DSteLIT%+ "3 
END STREAM STATEMENT? 
SPOUTCA)3 
FORGETSPACE(B)3 
END 8 IF “WY” 
ELSE WHYSLEEPSSTRUES 
END PROCEDURE WHYSLEEPS 
PROCEDURE CHANGEOPTIJONCBUFFsRS)3% 
VALUE BUFF eRSSREAL BUFF RSS 
BEGIN REAL BeTsOP>+BUS+MASKeOPTER} 
SLEEPCETOGLE J» HOLDMASK)3 
LOCKTOGCHOLDMASK)3 
BUS 3" BUFF,CI5S¢15)°13 B $® SPACEC30)3 
DISKWAITC"Bs30eDIRECTORYTOP*SYSNO)3 
OPTER + SPACECOPTIONSZ)3 


DISKWAITC*OPTERSOPTIONSZeMESSAGETABLE[0],(22:826))3 


STREAMCBUFF »sT*#OcOPTEReRe (OP) )3% 
BEGIN2 


Sl] «© BUFFS 63CIF Sc3" ™ THEN SI © SI*#1 ELSE JUMP OUTS 
TO L)s Ls IF SC GE@ "0" THEN GO L43 
63C1F SC#" " THEN ST#SI#1)5 L16OCIF SCH" " THEN STS] 413% 


DIe*LOC Ts 

8C]F SC#* " THEN JUMP OUT TO L1 ELSES 
IF Sc="e" THEN JUMP OUT TO Li ELSES 
IF SC2"0" THEN JUMP OUT TO L1 ELSES 
DS*1 CHR)ILII2 


08597500 
08597550 
08597600 
06597658 
08597700 
06597750 
08597900 
08598000 
08599000 
08600000 
08601000 
08602000 
08603000 
08604000 
08604100 
06605000 
08606000 
08607000 
08608000 
08609000 
08610000 
08611000 
08612000 
06613000 
08614000 
08615000 
06616000 
08617000 
08617500 
08618000 
08618500 
086619000 
06619500 
08620000 
08620500 
08621000 
08621500 
06621600 
08622000 
08622500 
08623000 
08624000 
08625000 
08626000 
08627000 
08628000 
08629000 
08630000 
08631000 
08631100 
08632000 
08633000 
08634000 
08635000 
08636000 
08637000 
08638000 
08639000 
08640000 
08641000 


END3% 


TALLY*OSBUFF*¢SISSJ*OPTERSS 
63(DI*+LOC Ts IF 8 SC#0C THEN 
BEGIN IF SC#%e" THENS 


BEGIN TALLY*48sJUMP OUT TO L3 ENDS 
ELSE TALLY*TALLY412 


END ELSE JUMP OUT TO L2)sTALLY*483G0 TO L3sLas% 
IF SC#"e" THENS 
BEGINS 


ENDS% 


SI+BUFFS63CI1F SC<"0" THEN SIe#SI+1 ELSE JUMP QUT 
TO L4DFLASDIeLOC TISieS]+13% 
IF SC<"0" THEN BEGIN SleSIwis DSe1 OCT END ELSE 
BEGIN SleSI*1:0Se2 OCT ENDSS 
TALLY 473 TCTALLY*TALLY4+63) 32 


L3ITeTALLYSSTeLOC TID LeRIDSeWDSI2 


IF COP®35) AND NOT RS THEN 
BEGIN REMOTE ¢ FALSE3 
SPREADTHEWORD} 
RS * NOT REMOTES 


ENDS 


IF OP<47 THEN 
BEGINSSTREAMCA « IF RS THEN ™ RESET" ELSE * SET" ed 


Le 


ENDS 


OsOPTER INX OP*® OP «+ 47"0PeBUS)3% 

BEGIN DS « LIT " "3 SI * LOC OP DS « 2 DECI 
DS « LIT * "3 SI © O2% 
BCIF SC#O0 THEN JUMP OUT TO L$ DSeCHR)3% 
SI « LOC As SI © SJ4#23 DS © 6 CHRIS 
DS + LITMe"3% 

ENDS 

MASKeTWOCOP) 33% 


SPOUTCBUS)3 


08642000 
08643000 
08644000 
08645000 
08646000 
08647000 
08648000 
08649000 
08650000 
08651000 
08652000 
08653000 
08654000 
08655000 
08656000 
08657000 
08657400 
08657500 
08657600 
08657700 
08657800 
08658000 
06659000 
08660000 
08661000 
08662000 
08663000 
98664000 
08665000 
08666000 
08667000 
08668000 
08669000 
08670000 


MEBJ©OPTION*IF RS THEN OPTION AND NOT MASK ELSE OPTION OR MASK308671000 


DISKWAITCBs"™302DIRECTORYTOP™SYSNO)3 
FORGETSPACECOPTER) 32 
FORGETSPACE CB) 5% 
UNLOCKTOGCHOLDMASK) 3 


END33 


PROCEDURE TYPOPCKTR»sP0)3 VALUE KTRePO$S REAL KTRePO?3 
BEGIN REAL VASE*NeXsOPTERS 

LABEL INCR3 
REAL SUBROUTINE SETTI 


BEGIN 


STREAMCOPTS#(LOPTION] SOPTER®NeNBS2247"Ne VASE DS 


BEGIN 


EXITS 
ENDS 


DItaD1+43 


SI*¢OPTERSNCSI@#SI+8)3,F SCe%e" THEN GO TO EXIJT33 

BCIF SC<*0" THEN DS*CHR ELSE DSeid LIT™ ")30Se2 LIT" "3% 
S1:"OPT3 SKIP NBS SB} 

IF SB THEN TALLY##1 ELSE 

BEGIN DSte3 LIT"NOT™; TALLY@ts23 ENDS 

DS*5 LIT" SETeMES 


DIS®VASES 


S}ssLOC NBS# DSteLIT” "3s DSts2 DEC? DSIELIT” "3 


OPTS#TALLYS 


SETT#P3 


END SETTS 


08672000 
06673000 
08674000 
08676000 
08677000 
08678000 
08679000 
08680000 
08680500 
08681000 
08681100 
08681200 
086841300 
08682000 
06683000 
08684000 
08684500 
08685000 
08685500 
08686000 
08686500 
08687000 
06688000 
08689000 
06689100 


fe ae es 


SLEEP CE TOGLEJ eHOLDMASK )3 
LOCKTOGCHOLDMASK )3 

VASEQEKTR«CIS#si5)eis 

OPTER * SPACECOPTIONSZ)&0PTIONSZ( 8836810) 


DISKWAITC*OPTER® OPTIONSZsMESSAGETABLELO],£22126] )3 


IF PO THEN 
BEGIN 
STREAMCBUFFEEKTRe T8200 OPTERe DS EN] )3 


BEGIN SI*BUFFI63CIF SC#" * THEN SIl#S]4+1 ELSE JUMP OUT TO LdJLS 


IF SC GEQ "0" THEN GO TO L4s 

DreLoc Ts 

BCIF SC#" " THEN JUMP OUT TO Li ELSE 
IF SC#"e" THEN JUMP OUT TO Li ELSE 
IF SC2"0" THEN JUMP OUT TO 1 ELSE 
DSe¢1 CHRIS Lis 

TALLY*0Os BUFFS*SIS SI*OPTERS 

63CDI+LOC TEIF 8 SC¥DC THEN 

BEGIN IF SC#"%«" THEN 


BEGIN TALLY*483; JUMP OUT TO L3 END 


ELSE TALLY*+TALLY+1 


END ELSE JUMP OUT TO L2)3 TALLY*48sG0 TO L33L2! 
IF SCH&%e" THEN BEGIN SI*BUFFI63CIF SC<"0" THEN SIeSI41 


ELSE JUMP OUT TO L4)3 L4t DIeLOC Te SteSl+l3 


IF SC<"O" THEN BEGIN SI*SI713 DS¢1 OCT END ELSE 


BEGIN SI*S]"13 DS*2 OCT ENDS 
TALLY©473 TCTALLY*TALLY4+63)3 


END3 
L3' T#TALLY3 SJe*LOC Tt DIle*Ds DS* WDS; 
END3 
IF N LSS OPTER, £82103 THEN PCSETTeDELD3 
SPOUTCVASE)3 
END ELSE 
BEGIN 


STREAMCKTR!)3 
BEGIN SI #skTR3 
IF Sc=e"S" THEN TALLY?:*1 ELSE 
IF SCE"R"™ THEN TALLY3%2 ELSE TALLYt#33 
KTRIeTALLY3 
ENDS 
XtaP} Newerd; 
INCR! NOaNe13 
IF CCKTR##SETT) AND X) # O THEN 
BEGIN SPOUTCVASE)3 
VASEEBSPACEC3)3 
GO TO INCR? 
END3 
IF KTR#O THEN 
Ip X#3 THEN 
BEGIN STREAMCX82X810 VASE)3 
BEGIN DSt#12 LIT® ALL OTHERS "3 
XCDSte4 LIT"NOT %)3 
DSt#4 LIT*SETo*3 
END! 
SPOUTCVASE)3 
END ELSE FORGETSPACECVASE) 
ELSE GO TO INCR}3 
END) 
FORGETSPACECOPTER)3& 
UNLOCKTOGCHOLDMASK)3 
ENDI& 


08689200 
08689300 
08689900 
08690000 
08690020 
08690080 
08690090 
08690100 
08690110 
08690120 
08690130 
08690140 
08690150 
08690160 
08690170 
08690180 
08690190 
08690200 
08690210 
06690220 
08690230 
08690240 
08690250 
08690260 
086690270 
08690280 
08690290 
08690300 
06690310 
08690400 
08690600 
08690800 
08691000 
08691200 
08691400 
08691600 
08691800 
08692000 
08692200 
08692400 
08692600 
06692800 
08693000 
08693200 
08693400 
06693600 
08693800 
08694000 
08694200 
08694400 
08694600 
08694800 
08695000 
08695200 
08695400 
08695600 
08695800 
08696000 
08696100 
08697000 


% THE FOLLOWING THREE DEFINES MUST EACH BE CHANGED IF THE 
% DISK ROW SIZE OF PBD AND PUD FILES JS TO BE CHANGED. 


32 


Be Be BE BE BE BE 


PBDROWSZ IS THE DISK ROW SIZEs 


PUD FILESs PBDROWSZ MUST BE A MULTIPLE OF THREE, 


DEFINE PBDROWSZ z 


900# 


#PBDRECS = 


300# 
PBORECS#PBDROWSZ/3 
*PBDOTOTRECS = 


60008 
PBDTOTRECS®PBDRECSx20 & NO, OF TOTAL RECORDS PER BACK*UP FILE. 
PROCEDURE PBIOCALPHAsPOINTER)#$ VALUE ALPHA’ REAL ALPHA» POINTERS 


NO. OF LOGICAL RECORDS PEK ROW, 


IN SEGMENTS* OF PBD AND 


THIS PROCEDURE HANDLES 10 FOR THE CREATION OF BACK*UP FILES. FOR 


DISKa 


OUT OF FILES» 


1T OBTAINS NEW ROWS AND NEW FILES AS NECESSARY, 
HEADER(5),£4%1] 18 SET AND THE JOB TERMINATED» 


ONE BLOCK FOR THE LABEL AND DS MESSAGE, 


ZB ALPHA IS ADDRESS OF TOP 170 DESCRIPTOR, <Q MEANS READ 
® POINTER {8S FIB(14) 
BEGIN NAME HEADER} 
REAL T3"20e10D9HeS3 
INTEGER I10D3 


$ SET 


LABEL OK3 


POINTER,CFFI*POINTER INX 723 


IF CHEADER*POINTER,(C3815))#0 THEN 
BEGIN 


SZ22PB 0N DISK 


HEADER ¢* CMEC*HEADER) I )3 


IF HEADERE7] GEQ@ PBOTOTRECS"™2 THEN % CHECK FOR NEW FILE 


BEGIN 


OMIT = PACKETS 


IF HEADER(C6),030118)=#"999" THEN 
$ SET OMIT = NOT PACKETS 
IF HEADER(I6],(42:6)]5"9" THEN 


$ POP OMIT OMIT 


IF 17 RUNS 
LEAVINGO8700930 


RELES 


IF HEADEREC 7] GE@ PBDTOTRECS THEN PCXIT) ELSE 
IF HEADERE5],(4831] THEN GO TO OK ELSE 
BEGIN STREAMCF3*PRTICPIMIXe3] INX MOMCALPHA™3) JINX 4),08709600 


END3 


IF HEADER( 7] GEQ PBDTOTRECS THEN 


BEGIN 


C1L3ti1 Je 


Ht SHt=NABS(SPACE(12)))3 


BEGIN SItsrs STseS 413 
DSt#24 LIT"TOO MANY BACKUP RECS ON "3 
DSts7 CHRS DSteLIT"/"3 SpsseStets DS8#7 CHRI08710400 
DSss2 LIT"s¢"}3 


END} 


HEADERS) eC 4tiis¥is 
GO TO OK} 


IF IS*HEADER(5),03%1)] THEN HEADERE(5],C384)8803 
H*SPACE(30)3 SeMCHEADER INX NOT OJ3 
DISKWAITC™He 3005S)! 
MCH+71¢HEADER(7)3 
MCHt5) ,£2311¢03 
DISKWASTCHe 3095)3 
MCH#7 J eMC H+9) 60) 
MOVE C20 eH4+9eH410)3 
MEH+5Je(*#PCDUP)) OR MI 
HEADERESI],C3sil)sats 


SET PUNCH BK UP TOG 


&P 


&P 
BP 


& GET A NEW FILE 


08699000 
08699050 
08699100 
08699150 
08699200 
08699250 
08699300 
08699350 
08699400 
08699450 
08699500 
08699550 
08700000 
08700900 
08700910 
08700920 


08700940 
08700950 
08701000 
08702000 
08703000 
08704000 
08704100 
08704500 
08705000 
08706000 
08707000 
08707500 
08708000 
08708200 
08708400 
08708600 
08708800 
08709000 
08709200 
06709400 
08709500 


08709600 
08710000 
08710200 


08710600 
08710800 
08711000 
086711200 
08711400 
08711600 
08711800 
08712000 
086712100 
08712110 
08712120 
06712130 
08712140 
08712150 
08712160 
06712170 
08712200 


OKs 


HEADEREI7] t2 O03 
HEADERL3) 1% XCLOCK + PCRTR)3 
STREAMCONE $315 HISLHEADERL6)))3 
BEGIN STt#LOc ONES DSI88 ADDI 
DIseD1+243 20CDSHFS LIT"O")3 
END3 
MCH+7)]¢PBDROWSZ DIV 33 
HEADERL OJ *MCH+9 J) «13 
HEADERI 10] eMC HF+10 J ¢GETUSERDISK(C*CPBDROWSZ41))3 
MEHEADER INX NOT OJ] #8 EVFC@CIF | THEN "PUD " 
ELSE "*PBD “)eHEADERL GO) eH"1)3 
FORGETSPACECH)3 
FILEMESSAGECCIF I] THEN "PUD " ELSE 
“PBD "JEHEADERL 6) (2436424), 
“OUT " G@HEADER(L6]£30:130018) 5 
Or* 2000800 
(CPBDREL OR OPNMESS) OR OPENK)3 
END3 
END ELSE 
IF HEADERE 7] MOD PBDRECS#0O THEN %#GET NEW ROW 
BEGIN Ht*SPACE(30)8 StSMCHEADER INX NOT OJ3 
DISKWAI] TC *He 3005S)3 
HEADERLO+HEADER( 9) **PC OUP +1 J¢ 
GETUSERDISKC*=(PBDROWSZ+1))3 
MLHF+9+HE ADER( II] J*HEADER(O+HEADER[ OJ I: 
MEH#9 I] *HEADER(9I3 
MOH+7]*HEADERE 7) + PBDROWSZ DIV 33 
DISKWAITCH® 30°S)3 
FORGETSPACECH)3 
END} 


STREAMCA*I*HEADERCHEADER(9I4+9)*CHEADERE7) MOD 
PBDREES)x3eD*POINTERS (CF I"1)3 
BEGIN SI*LOC As’ DS*8 DEC END} 
HEADERE7 J«(#PCDUP)) +13 
100+@1413301004777773 
END ELSE %% ON TAPE &% 
10D+@21320500000000R8MEPOINTER INX NOT 310381434]3 
TOREQUESTCMCALPHA]*POINTER INX ITOD&ALPHAC243131)0 
MEPOINTER INX NOT 1))3 
METJ*JOD INX METIRO(268268738001981931) AND NOT M3 
IF H LSS 0 THEN 
BEGIN TERMINATE CPIMIX)3 
TERMINALMESSAGECH)3 
END} 


END PBY03 


PROCEDURE TIMERELAXERCKTRe TYPEOMIX)33 


VALUE 
REAL 
BEGIN INTEGER BUFF ePRTs TOT» TeP§ol13% 


KTReTYPEeM[ X32 
KTRe TYPE sMIX3% 


LABEL SPI]T32% 
ARRAY VUE eJeVUC«)3 


$ SET OMJT =& NOTCPACKETS) 


DEFINE UNITNO = PSEUDOMIXEMIXJ#3 


$ POP OMIT 


BUFF * KTR,Ci5815)"132% 
VewsEMCPUTORTAKECMIXe CJARCMIX 00) 36500))J8508338810)3 
IF TYPE#VTL THEN 
BEGIN 

STREAMCTOT¢OsPRT*0»CODE*O$ KTR)3% 


aP 


08712500 
08713000 
08713250 
08713500 
08713750 
08714000 
086714110 
08714120 
08714130 
08714140 
06714150 
08714170 
08714300 
08714310 
086714320 
08714330 
08714340 
08714400 
08714500 
08715000 
08715100 
086715200 
08716000 
08716010 
08716100 
08716110 
08716200 
08716300 
08716500 
08716600 
08716800 
08717000 
08718000 
08720008 
08721000 
08722000 
08723000 
08724000 
06726000 
08727000 
08728000 
08728500 
08728609 
08728700 
087288008 
08729000 
08730000 
08731000 
08732000 
08733000 
08734000 
08734100 
08734499 
08734500 
08734501 
08735000 
08735100 
08736000 
08736500 
08737000 


END; 


BEGIN SlekTRS JF SCe"™ * THEN BEGIN Lit STeS]ogse 
IF Sca*® " THEN GO L1 ENDS IF SCaw*e" THEN GO L538 
IF SCe%s" THEN GO L2s IF SC<*O" THEN GO EXITES 
KTR*ST$ L3t TALLY*TALLY413 SIeS]+i3 
IF Sc2"0" THEN GO L33 STeKTRS CODE*TALLYS 
DI*#LOcC PRT3 DS*CODE OCT? TALLY*+0332 

WSs IF Sc="™ " THEN BEGIN L4t SJeSl413% 
IF Sc#" " THEN GO L4 END; IF SC#e™e"™ THEN GO L233 
TF Sce*e" THEN TALLY#13 GO EXITIS 

L223 SleSjeis; IF SC" " THEN BEGIN L6t SIeS[o15% 
IF Sce" " THEN GO LO END 3 KTReSI3% 
IF Sc="*" THEN BEGIN TALLY«#13 GO EXIT END3% 
IF SC<"0" THEN GO EXITS L778 TALLY*TALLY 414% 
STe«Sy413 IF SC2"0" THEN GO L73 DIe* LOC JOTs% 
ST*KTR3S CODE*TALLYS DS*CODE OCT3 TALLY#15% 

EXIT: CODE*TALLY?)3 

END STREAM3% 

IF NOT P THEN GO SPIT3% 

PRT © Px36003 JOT © Px360033% 

VUSSEMECPUTORTAKECMIXsCUVEM]Xs0J)*1490)))]814(8338410)8 

IF PRT#0 THEN 

BEGIN 
THe(TYPERVCT)xVE3]°PRT3 
NTLSSPUTORTAKECMIXe® CUVEMIXeL IJ eOsVULCLI eT) § 
NTLSSPUTORTAKECMIX® LUVEMI Xel 3] ) 0 Oe VULI3) +193 
VES] :eC*PCDUP))=T3 

END3 

IF 10T#0 THEN 

BEGIN 
TteC(TYPESVCT)xVE4)"10T3 
NTISsePUTORTAKECMIXeLUVIMIXsOJ J] Oe VULOI4+T)3 
NTVSSPUTORTAKECMIXe(UVEM] Xeli J] eOeVUL1L1I4T)3 
VCA] saCePCDUP))&T3 

END} 

STREAMCTEST#OIXeL VCO] eMIXeZePRT#0e le lOT#EOsS 

Kt=TYPES330 TeaTt=Vu.Ccr))3 % 335XT 
BEGIN DSe*LIT " "3 ZeDS#4 LIT "PRT "3 TALLYe#13% 


TCDSe4 LITVAND "))8 ICDSe#4 LIT "LOT "3 TALLYe1 93% 


DS*B LIT "ESTIMATE™S ZCICDS*LIT "S%))3% 


DS*BLIT" CHANGED™S KCDI©DI"™73 DS*BLIT*EXTENDED™) 3% 
DS*#SLIT® FOR™S STeXs SteS]+138 DS*7CHRS SleS1l413% 


DSeLIT"/"3 DS*7CHRE DSeLITa"s STeLOcC 23% 
SleS["83 DS*2DECs DSeLJT%+"3 TESTe TALLY? 
DI*DI]"3) DS#*FILLS 

END STREAM33% 

IF P THEN SPOUTERCT®UNITNO*®1) ELSE 

FORGETSPACECT)} 


10T © PRT ¢ 032% 


IF PCVE3)*DUP) GEQ @7777777777 THEN PCDEL) ELSE 
P1 * (PRT © P DIV 3600)*60xC(PRT © PRT DIV 60)3% 
IF PCVE4)sDUP) GEQ @7777777777 THEN PCDEL) ELSE 
Tt + CIOT © P DIV 3600)"60xC(10T © JOT DIV 609% 
STREAMCX@CVLCOJ J oMIXePRToPLolOTo li eBUFF DS 


BEGIN DS*17LIT" TIME LIMITS FOR"S STexXs SteSi+i3 DS*7CHRS% 
DSeLIT@/"s SteSTeis DSe7CHRs DSeLIT"8"3 STeLOC MIX} 


DS*2DECH MIX#DI} DieDI@2) DSeFILL3 DI eMIX3 
DS*10L1T" ARES PRTR"S IF SCH" THEN 


BEGIN SfeS1416s DS#BLIT"NO LIMIT" END ELSE BEGINS 
DS*BDECS NSeLIT™E"S OS*2DEC3 BUFFeDIS DJeDI "115% 


08738000 
08739000 
08740000 
08741000 
08742000 
08743000 
08744000 
08745000 
08746000 
08747000 
08748000 
08749000 
08750000 
08751000 
08752000 
08753000 
08754000 
08755000 
08756000 
08757000 
087586000 
08759000 
08760000 
08761000 
08762000 
08763000 
08764000 
08765000 
08766000 
08767000 
08768000 
08769000 
08770000 
08771000 
08774000 
08775000 
08776000 
08777000 
08778000 
08779000 
08780000 
08781000 
06782000 
08782500 
08783000 
08764000 
08784100 
08785008 
08786000 
08787000 
08768000 
08789000 
087900080 
08791000 
08792000 
08793000 
08793500 
06794000 
08795009 
08795500 


BEGIN REAL FACTOReBeTs 


DS¢/7FILL3 


OS*2DEC3 


END STREAM32 
SPIT&8% 
VEOVS=VC3I3 VELIsev04)3 
TISPUTORTAKECMIXe CJAREMI[Xe3] ) 9"2ey ENX 0)3 
SPOUTERCBUFF eUNITNO#1)$ 

END TIMERELAXER3 
PROCEDURE CHANGEFACTOR(BUFF*TF)$ VALUE BUFFsTFS REAL BUFFS BOOLEAN TFS 


LABEL TYPEOUT#EXITS 
BUFF © CCBeBUFF) gCIStiSI"LIOMEPCDUPIA1LIC9S9I9IS 
IF TF THEN GO TYPEOUT? 
STREAMCANS*0tB)3 
BEGIN SI*BS DI*LOc BE DS*BLIT"O0000000"3 DieDIee3 
IF SC = " " THEN BEGIN SIeSt+13 GO TO L ENDS 
THEN GO TO LI? 

THEN GO TO Li3 


TYPEOUTS 


L 


Lid 
L2s 


Lt 


IF SC < "oO" 

IF SC > "9" 

SIT *#S[4e13 

IF SC «< "0" 

IF SC < "9" 
THEN 


ELSE ONECHRS 


IF SC = *,* 
IF SC # ?* 
ST#SI413 

IF SC < "0" 
IF SC > "9" 
DS*CHR; 

Ir SC 2 "oO" 
IF $C =" 
IF SC & "e" 


ERRORSDIeLOC ANS 


CONVERTS 


EXITS$ 
END STREAM$ 
PC eFACTORe©)3 
IF FACTOR < 0 THEN GO TO EXITS 
CORE ,C4#14] * FACTORS 
SLEEPCETOGLE] *HOLDMASK)? LOCKTOGCHOLDMASK)3 
B §8 SPACE(30)3 
DISKWALTC*Be*30eDTRECTORYTOP*SYSNO)) 
MCB+9] © CORES 
DISKWAITCBe*30°DIRECTORYTOP*SYSNO)3 
FORGETSPACE(B)?3 
UNLOCKTOGCHOLDMASK)3 
SELECTIONS 


N1i*BUFF ENDS 
DS*1OLIT"NO LIMIT,s+” ELSE BEGIN DS*8DEC3 
DS#2LIT*,e"3 


DS*6LIT%3 10TH} 
DSeLIT™INES 


DI*DIel13s DS*7FILL ENDS 


INTEGER TEMPeT3 


THEN GO TO ONECHRS 


BEGIN SI*SI*13 DleDI"23 DS*2 CHR END 


THEN 
THEN 


THEN 
THEN 


THEN 
THEN 
THEN 
SKIP 


GO 
GO 


GO 
G0 


TF 
GO 
GO 


BEGIN SleSI*t1s Dile*DI"1s DSe1 CHRS ENDS 


TO L2 ELSE GO TO L33 
TO ERROR} 


TO ERROR} 
TO ERRQRY 


SC £ "9" THEN DS*CHR3 
CONVERT? 
CONVERTS 


1 DBs OS* 10 SETS GO TO EXITSs 


ST*LOC Bs SteSI+4s DI*LOC ANS DS*4 OCT3 


4 CHANGE FACTOR 


_ STREAMCLeCFACTOR@CORE ¢{4414]) DIV 1000 FReCTEMP*FACTOR MOD 100). 
MX*(TEMP*CORE «LCF Jx64xF ACTOR/100)» US*COREs(FFIJx64e BUFF) 


BEGIN DS¢9 LIT*FACTOR = "3 


Sl*LOC 15 DS#2 DEC 
DS*L17","§ DSe2 DEC} 

MAX CORE = "3 DS7 DEC} 

1eDIS OleD1"73 OS*6 FILLE Diels 

USING "S$ DS#7 DECS DSeLITte®s 

DIeDI"8s DSe6 FILLS 


DS#13 LIT. 


DS* 8 LIT", 


END STREAMS 
EXITs SPOUTCBUFF)S 


1+DIs5 DileDIJ*2s OSeFILLS Dleys 


IF Sc#e"e" THEN 08796000 


08796500 
08797008 
08797500 
08798000 
08798059 
08798100 
08798500 
08799000 
08800000 
06601000 
06802000 
08802500 
08803000 
08804000 
08805000 
08806000 
08807000 
08808000 
08809000 
08810000 
08810500 
08611000 
068812000 
08813000 
08814000 
08815000 
08816000 
08617000 
08818000 
08819000 
08620000 
06821000 
08822000 
08623000 
08824000 
08825000 
08826000 


06826000 


08629000 
08830000 
08831000 
08832000 
08833000 
08834000 
06835000 
08836000 
08836500 
06837000 
08638000 
08839000 
08840000 
08841000 
08842000 
08843000 
08644000 
08845000 
08846000 
08847000 
08848000 


END CHANGEFACTOR . 
PROCEDURE SHEETDIDDLER(BUFF»TYPE+SI0)$ VALUE BUFF TYPEsSID} 


REAL BUFF eTYPEsSID3 


COMMENT TYPE = 58 PS = CHANGE PRIORITY OF JOB IN SCHEDULE 


a 73 XS =" EXECUTE JOB IN SCHEDULE CFORCE SELECTION) 


© 61 ES *" ELIMINATE JOB FROM SCHEDULE CFORCE SELECTION, 


THEN "DS") 
= 4: TS *" TYPE OUT SCHEDULES 


BEGIN REAL [10DsTePRIORITYS 


INTEGER LEVELeNEXTLINKe THISLINKeLASTLINKS 
INTEGER ESsEMeEH? DEFINE ET = EHMS 
BOOLEAN LASTPASSED»ATLEASTONES 

ARRAY SC#]eDLUNK(*]3 


$ SET OMIT = NOTCPACKETS) 


DEFINE UNITNO & §(23),0216]#3 &% ORIGINATING UNIT 


$ POP OMIT 


TS3 
TS13 


LABEL CONTINUEs CL» READIN®GNXeTSoTSleTS2e 
XSES*#ESLLePSoPSiePS2>SPITeEXIT3 


SUBROUTINE GETNEXT % READS IN NEXT JOB SHEET ENTRY 
BEGIN 
CONTINUES LASTLINK © THISLINK? 

IF CTHISLINK*NEXTLINK) # 0 THEN GO TO READIN 
ci IF CLEVEL#LEVEL4¢1)>SHEETMAX THEN 

BEGIN LASTPASSED *« TRUE$ GO TO GNX END$ 

LASTLINK #« NEXTLINK « 03 

IF CTHISLINK*SHEETCLEVELJ.£CF)) & O THEN GO TO Ci3 
READIN? DISKWAITC@S, LCF] *+30eTHISLINK)3 

NEXTLINK « S(29]3 

IF $€0),0€3636)3@14 THEN GO CONTINUES@PASS LM ENTRY 
GNX$ 
END GETNEXT) 


SLEEPCELTOGLEJ*SHEETMASK)S LOCKTOGC(SHEETMASK)3 
StBCMEGETSPACE(C312205942)1830(8238810)3 

LEVEL # "13 LASTPASSED © FALSE} 

IF TYPE LSS 0 THEN GO ESLLSSES A JOB ON LOGICAL LINE = SID 
BUFF © COCT#BUFF) sCI1S5t15I*1 @MCPCDUPI=13L593939)3 

IF TYPEs4 THEN GO TS$ IF TYPE®5 THEN GO PS3 GO XSESI 
ATLEASTONE * FALSES 

GETNEXTS IF LASTPASSED THEN GO TO 1TS23 


IF ATLEASTONE THEN BUFF eCCFJ t# SPACEC10)3 
ET#CCCLOCKS#PCRTRI)/60)"S(£23),(24:24)3 


ES ¢ ET MOD 603 ET « ET DIV 605 EM «© ET MOD 603 EH & ET DIV 603 
STREAMCCOLEVELsJeS(C#)e1DeS(3),C8I10)eJ1(S£03<0) OR CCCSLO) EQV 


"LIBMAIN™)@aNOT OAND(CSE1] EQV "DISK ")SNOT 0)» 
J2eS(C27]2EHPEMsESe AeS[20)x64eBUFF)3 


BEGIN ST*LOC Cs DS*6 DECS DIeDI"6s DSe5S FILLE Die BUFFS DleDI +463 
DSeLIT*E"s Steds STeST413 DS*7 CHRIS DSeLIT"/") SreSiai3 


DSte7CHREJLCOSHELIT™ "SSTE@BLOC J2IS1taS]ei13DSta7CHR)3 
DSteLIT"e"sSrieLOc IDsOStw2 DEC 
DOSe*7 LIT*® IN FOR"S SyeLOc EHS 
3¢pS «© LIT*:"3: pSe2 DEC)§ ES*DI3 DIeDI"9$ DS*#B FILLE 
DI©ES3 pSe8 LIT» NEEDS "3 
SteLOcC As’ DS*5 DEC? OS#LIT™=#"s DIieDI"6s DSe*4 FILL} 
END STREAMS 
SPOUTERCBUFFeIF SID¥63 THEN UNITNO ELSE Oo1)3 
IF SID NE@ 63 THEN BEGIN TYPE8343G0 EXIT ENDS & 48TS 


08848500 
08849090 
08850000 
08850100 
08650200 
08850300 
08850400 
08850500 
08850600 
08851000 
08852000 
08852500 
06853000 
08854000 
06854499 
06854508 
088654501 
06855000 
08856000 
08857500 
08856000 
08859000 
08860000 
08860500 
08861000 
08862000 
08863000 
08864000 
08865000 
08867000 
08868000 
08869000 
08870000 
08871000 
08880000 
06881000 
088682000 
06862100 
06882500 
08883000 
08884000 
08685000 


IF SID NE@ 63 THEN BEGIN IF SC3)},(8#10) NE@ SID THEN GO TS1 END ELSE08885500 


08886000 
08886300 
08886600 
08887000 
08887100 
08887200 
08888000 
08889000 
08890000 
08890010 
08891000 
08892000 
08893000 
08899000 
08900000 
08901000 
08901500 


TS23 


ESLLS 


XSESS8 


PSt 


PSit 


ATLEASTONE*TRUES 

GO TO TSi3 

IF ATLEASTONE THEN GO TO EXITS 

IF SID NE@ 63 THEN TYPEt84 ELSE &% 48TS 
STREAMCBUFF)S DS «+ 15 LIT * NULL SCHEDULE o"33% 
SPOUTCBUFF)?! GO TO EXIT3 


GETNEXTS 

IF LASTPASSED THEN GO TO EXIT3 

IF $£26).€4036] NEQ@ SID THEN GO TO ESLL3 

SC2U,0C182)8533 DISKWAITCS (CFI *30eTHISLINK)S GO TO EXIT; 


GETNEXT: 

IF LASTPASSED THEN BEGIN SPOUTCBUFF)# GO TO EXIT ENDS 

IF S€3},C8tL0)#SI1D THEN GO TO XSES3 

SC2J.Cis2]eecile TYPE#7 THEN 2 ELSE 3) & C182)820XS)-83(ES) 
DISKWAITCSs CCF) e300 THISLINK)3 

GO TO SPIT3 


STREAMCPRIORITYST)3 
BEGIN SI«T3 
Nt IF Sca™e” THEN GO TO X}3 
IF Sc<"O" THEN BEGIN SI*SI141) GQ TO NB END? TeSI3 
KI IF Sc2"0" THEN IF SCS"9" THEN 
BEGIN TALLY*TALLY4#1# SJeS]4i13 GO TO K END$ 
SI*Ts Dle*kLOc PRIORITY? TeTALLY3 DS*T OCT? GO TO Z3 
X$ DIe*LOC PRIORITYS SKIP DBS DS*11 SET? 
Zt 
END STREAMS 
IF CPRIORITY#P)<O THEN BEGIN SPOUTCBUFF)# GO TO EXIT ENDS 


GETNEXTS IF LASTPASSED THEN BEGIN SPOUTCBUFF)S GO TO EXIT END3 


IF $£33,C8:10J#SID THEN GO TO PS13 


% DELINK AND RELINK THIS SHEET ENTRY 


PS2i 


SPIT+ 


DUNKS EMC GETSPACE(310205342)1830(6838110)3 
IF NEXTLINK ® O THEN SHEETCLEVELIJ CFF) © LASTLINKS 


BWE 


08902000 
08903000 
08904000 
08904050 
08905000 
08906000 
08907000 
08907500 
08908000 
08908500 
08909000 
08909500 
08910000 
08911000 
08912000 
08913000 
08915000 
08915100 
08915500 
08916000 
08917000 
08916000 
08919000 
08920000 
08921000 
08922000 
08923000 
06924000 
08925000 
08926000 
08927000 
08928000 
08929000 
08930000 
08931000 


IF LASTLINK * 0 THEN BEGIN SHEETCLEVELIJ,CCFJ*© NEXTLINKSGO PS2 END306932000 


DISKWAITC*DLNK oe (CFI) e300 LASTLINK)3 
DLNK(29] + NEXTLINKS 
DISKWAITCDLNK CCF) »e30eLASTLINK)} 


SC2),CCFI © IF CSCIBI*PRIORITY) > 32767 THEN 32767 ELSE PRIORITY! 


LEVEL © IF PRIORITY>SHEETMAX THEN SHEETMAX ELSE PRIORITY? 
IF SHEETCLEVELJ],(CF] # O THEN 
BEGIN DISKWAITC™DLNK, CCF] s30eSHEETCLEVELIJ.CFFI)3 
DLUNK(29] © THISLINK} 
DISKWAITCOLNK, CCF] e30eSHEETCLEVEL), CFF I)3 
END ELSE SHEETCLEVEL] © THISLINK3 
SHEETECLEVELI CF FI © THISLINK3 


$€29] « 08 Sf3) «© ABSCSE3])3 & TO GET SELECTION TO PRINT MESSAGE3 


DISKWAITCS, CCF J +300 THISLINK)3 
FORGETSPACECDLNK )}3 
IF BUFF#¥0O THEN 


$ SET OMIT # NOTCPACKETS) 


JF UNITNO GEQ@ 32 THEN 
BEGIN 

MOVEC9*BUFF +1 eBUFF)S SPOUTERCBUFF PUNITNO®64)3 
END ELSE 


$ POP OMIT 


EXITs 


FORGETSPACECBUFF)}3 
UNLOCKTOG(SHEETMASK)3 


08933000 
08934000 
06935000 
08936000 
08937000 
08938000 
08939000 
08940000 
08941000 
08944000 
08944500 
08945000 
08946000 
08947000 
08947100 
08947199 
08947200 
08947300 
08947400 
08947500 
08947501 
08947600 
08948000 
08997000 


FORGETSPACE(S)3 08998000 
IF TYPE#4 THEN BEGIN KEYBOARDCOUNTER © KEYBOARDCOUNTER@13 % 42TS 08998200 
SELECTION} 08998400 

KEYBOARDCOUNTER © KEYBOARDCOUNTER#13 08998600 

END ELSE SCHEDLOOK(OsO0)IRTYPE OUT SCHEDULED TASKS 08998800 
END SHEETDIDDLERS 08999000 
PROCEDURE LOGOUT? 09000000 
BEGIN ARRAY L=LOGARRAY(*J3 09001000 

REAL DT»sBHeRCWH+03 09002000 

INTEGER AH» DAGN$ 09003000 

LABEL STARTSEXITS 09004000 
SUBROUTINE UNLOCK} 09004100 

BEGIN UNLOCKTOGCHOLDMASK)3 09004200 
SPOUTCAH)3 09004400 
FORGETSPACECDT)3 09004500 
FORGETSPACE(BH)3 09004600 

END3 09004700 

STARTS 09005000 
OT $# SPACEC30)3 09006000 

IF LO€33)80 THEN 09008000 
BEGINSSTREAMC(CDT)3 DS*9 LIT "NULL LOGe"; 09009000 
SPOUTCDT)3 09010000 

GO TO EXIT 09011000 

ENDS 09012000 

SLEEP CCE TOGLEJ*HOLDMASK)$ LOCKTOGCHOLDMASK)3 09012100 
DISKWAITC*D0Te"30eDIRECTORYTOP*SYSNO)3 09012200 
AHI1SM(DT+20),08910)3 09013000 

po 09013600 

BEGIN AH$®(CAH4+1) MOD 10003 09013700 
STREAMCAH® N82{NJ})3 09013800 

BEGIN S]%#LOC AHS DS##8 DEC END$ 09013900 
NISNRACTDATE(6312124])3 09014000 

END 09014100 

UNTIL AH®999 OR DIRECTORYSEARCHC*Ns "LOG id 09014200 

$ SET OMIT = NOTCSHAREDISK) 09014299 
&CSYSNO417)02424216) 09014300 

$ POP OMIT 09014301 
05)*03 09014400 
MCDT+20]3508AH(8338810)3 09014500 
SLEEPCECLE32]}0°0)3 LIS2I©ABSC*PCDUP))3 09015000 

SLEEPCELLE 31) 7° 1OMASK)3 09016000 

AH t® SPACEC30)3 09017000 
MOVEC30eAH@1eAH)3 09018000 

BH t® SPACE(30)3 %L0G09019000 

IF DA®0 THEN 09019100 

IF (MEAH+10) S®PETUSERDISK(*LO34)*1))80 THEN 09019200 

BEGIN STREAMCNe AH) 09019300 

BEGIN DSt#18 LIT"#NO USER DISK FOR "3 09019400 

S1lssLOC Ni SIseSlets DSt=e7 CHR 09019500 

DS#®5 LIT*/LOGe"3 09019600 

ENDS 09019700 

LL 32) 5 3NABSC*#PCDUP) )3 09019750 

UNLOCK? 09019800 
DAS*®GETUSERDISK(LE34)8201346:2))3 09019900 

GO TO STARTS 09020000 

END ELSE ELSE MLAH#+10)8sDAi 09020100 

MCBH] #2 NOT O3 09020200 
DISKWAITCBHeleMCAH4+10))5 09020300 
DISKWAIT(C*BHe300L( 36) )3 09021000 
MOVEC109BHsAH)3 09022000 


MCBH+4)8£085(984583)3 09024900 
STREAMCATS(DATE] *BtepHeseCtR0)3 09025000 

BEGIN 09025100 

STs#At DISSLOC Cs DSteB OCT SIs#LOc C3 09025200 

Sr1eS1+53 D1t#Bs DIlteD1+53 OStse3 CHR} 09025300 

END3 09025400 
LEIS}*MLAHS10);3 09026000 

Lb£33)3*0;3 09027000 
LOI2]:*NABSC#PCDUP))3 09027500 
ENTERUSERFILEC™Ne "LOG " 09028000 

£ SET OMIT ® NOTCSHAREDISK) 09028049 
&CSYSNO4+17)(2484216) 09028050 

$ POP OMIT 09028051 
eBH™4)3 09028400 

MCAH*7] te MCAH+B8Jx3 * (CMCAH*O] te 173 %L0609028200 

DISKWAITCAHs 300L[36))3 09029000 

STREAM(Ne 09030000 

$ SET OMIT = NOTCSHAREDISK) 09030099 
SteSYSNOO17>» 09030100 

$ POP OMIT 09030101 
AH)3 09030200 

BEGIN DS*23LIT “axwee NEW LOG FILE IS "3 09031000 

SIe*LOC NS SI*S[+13 DS*7 CHR3 09032000 

DSt=6 LIT*"/LOG "3 09033000 

$ SET OMIT = NOTCSHAREDISK) 09033099 
DIt=DI2sSTeeLUc SsSTteS[+73DStsCHR3 09033100 

$ POP OMIT 09033101 
ENDS 09034000 
DISKWAITCDTe*300eDIRECTORYTOP™SYSNO)3 09036000 

UNLOCK$ 09037000 
TIMEOUTCSPACE(10))3 09037100 
GIMEDATECSPACEC10)01)3 09037200 

EXIT: 09036000 
END} 09040000 
PROCEDURE LOGDISK3 09050000 
BEGIN REAL FID»sMIDeCeN3 REAL RCWe+03 09051000 
LABEL SEEKS 09052000 
C03 09052500 
SEEK! 09053000 
SEEKNAMC*Le™LeCoMIDeFIDeN)3 09054000 

IF c#0 THEN 09055000 
BEGIN 09056000 

IF NOT SYSTEMFILECMID*FID) THEN 09056500 

IF CMIDIFSDIRECTORYSEARCHCMIDeFI1D215))#0 THEN FORGETSPACEC(MID)3 09057000 

GO SEEK! 09058000 

END! 09059000 
STREAMCNS #NSSSPACE(10))3 09060000 
DS#29 LIT"#DISK FILE LOGGING COMPLETED+"3 09061000 
SPOUTCN)3 09062000 
END} 09064000 
PROCEDURE LINEMESSAGESCBUFH)3 VALUE BUFHS REAL BUFHS 09100000 
BEGIN 09101000 
REAL LINE *CHRS+ 1 eBFeUZERS 09102000 
LABEL ERROR* EXIT» CLEANUP? 09103000 
ARRAY INFC¥)3 09104000 
BOOLEAN COLAPSES3 09105000 
09106000 

09107000 

REAL SUBROUTINE SHOVEITOUTS 09108000 
BEGIN 09109000 


IF PCSTATABLECLINEGI.OIALEDUPeDUP) THEN 
BEGIN 
IF COLAPSE THEN 
BEGIN 
COLAPSE* FALSE) 
STREAM(S* BUFH! BF)3 
BEGIN 
Ste Si 
OSteB LIT*me#ATING "| 
x3 IF SC#%e" THEN 
BEGIN 
IF SC#" © THEN 
BEGIN 
DSt*=CHR} 
BB} IF SC & * * THEN 
BEGIN SI3#S]+413 GO BBs END3 
GO TO X3 
END} 
IF SC = "#" THEN 
BEGIN DSs=LIT MARK$ SI]t#SI+43 END ELSE 
DS©« CHR? 
GO X3 
END} 


DSt3 LIT # an; 
Se DI3 
END3 
CHRS* (CCHRS* P),C3St153"°BF)xB+CHRS,(3033)3 
END} 
TWXOUTCBFsCHRSe@lo LINE D3 
END} 
SHOVEITQUT« P3 
ENDS 
BFe BUFH,C15#i5)"13 
COLAPSE* TRUE? 
STREAMCRESULT© *19S¢ Of Be BUFHe A® "ALL™)3 
BEGIN 
Ste BI 
DD! IF SCE" " THEN BEGIN Sle SI+#13 GO DD ENDS 
S* SIs DI*LOC a3 
IF SC<"0" THEN 
BEGIN 
Die DI+53 
IF 3 SC#DC THEN 
BEGIN 
IF SCSALPHA THEN GO US 
RESULT* TALLY 


END 

ELSE 

Us BEGIN 
DI* LOC RESULTS ODS* 8 LIT "4 "3 
Sle S$ Die LOC RESULTS Die Di+13 
7CIF SCmALPHA THEN DS*CHR ELSE JUMP OUT)3 
END 

END 

ELSE 
BEGIN 


IF SC>9 THEN GO EX]3 
Sle S]¢1! Ole* LOC RESULT? 
IF SC<O THEN GO ONES 


09110000 
09111000 
09112000 
99113000 
09114000 
094115000 
09116000 
09117000 
09118000 
09119000 
09120000 
09121000 
09122000 
09123000 
09124000 
09125000 
09125600 
09128000 
09129000 
09129500 
09130000 
09131000 
09132000 
09133000 
09134000 
09135000 
09136000 
09137000 
09138000 
09140000 
09141000 
09141500 
09142000 
09142300 
09142600 
09143000 
09144000 
09145000 
09146000 
09147000 
09148000 
09149000 
09150000 
09151000 
09151100 
09151200 
09152000 
09152100 
09153000 
09154000 
09155000 
09156000 
09157000 
09156000 
09159000 
09160000 
09161000 
09162000 
09163000 
09164000 


ONES 
SUC# 
EX] 


CLEANUPS 
ERRORS 


IF SC>9 THEN GO ONE3 


Sl« $3 DS+ 2 OCT3 GO SUC; 
SIl* 83 DS* 1 OCT3 
ENDS 

S* SIs 

ENDS 

BUFHe P3 


IF (LINES SP)2C"4) OR SYSD]SKADR®O THEN GO ERRORS 
IF LINE<O THEN 
BEGIN % USERID WAS GIVEN 
INF PS CME SPACECSYSOISKRLIIJJ&SYSDISKRL(8336410)3 
UZER* ABSCLINE)3 1+03 
FOR LINE&= 0 STEP 1 UNTIL STATIONMAX DO 
BEGIN 
SYSDISKIOCLeLINE s INF D3 
IF CUZER E@V INFC1]22NOT O THEN 
BEGIN 
le I+SHOVETTOUTS 
END 
END3 
SYSDISKIOCL eSTATIONMAX4+1 ee 1NF D3 
FORGETSPACECINF)3 
IF 180 THEN 
BEGIN 
LINE* NABSCUZERD3 
GO ERROR} 
END 
ELSE 
GO CLEANUP} 
ENDS 
IF LINE GTR STATIONMAX THEN GO ERROR3 
JF LINE>O THEN % LINE WAS GIVEN 
IF SHOVEL TOUT THEN GO CLEANUP ELSE 
BEGINS 
STREAMCLeLINEs TeL#(LINE>9) 0 BF D3 
BEGIN 
DS* 5 LIT "LINE "3 
Sle LOC Ls pS* T DECI 
OS* 15 LIT ™ NOT DIALED@UP}e"3 
ENDS 
SPOUTCBF)3 
GO EXIT; 
END$ 
le 03 %’ SS ALL 
FOR LINE $= { STEP 4 UNTIL STATIONMAX 00 
Ie I+ SHOVEITOUTS 
IF 10 THEN 
BEGINS 
STREAMC(BF)3 DS* 19 LIT "NO LINES DIALED@UPe"™)} 
SPOUTCBF)3 
GO EXIT) 
ENDS 
FORGETSPACECBF)3 
GO EXITS 
IF LINE>O THEN 
STREAM(L« LINE» BF)3 
BEGIN 
DS* 5 LIT "LINE "3 
Sle LOC Ls DS* 2 DEC 
OS* 15 LIT * NOT AVATLABLEe"3 


09165000 
09166000 
09167000 
09168000 
09171000 
09172000 
093173000 
09474000 
09175000 
09176000 
09177000 
09178000 
09179000 
09180000 
09181000 
09182000 
09183000 
09184000 
09186000 
09187000 
09187500 
09188000 
09488500 
09189000 
09189300 
09189500 
09190000 
09190500 
09191000 


09192000 


09193000 
09194000 
09195000 
09196000 
09197000 
09196000 
09199000 
09200000 
09201000 
09202000 
09203000 
09204000 
09205000 
09206000 
09207000 
092086000 
09209000 
09210000 
09211000 
09212000 
09213000 
09214000 
09215000 
09216000 
09217000 
09218000 
09219000 
09220000 
09221000 
09222000 


END 09223000 
ELSE 09224000 
IF LINE<C*#1) THEN 09225000 
STREAMC(L® LINES BF)3 09226000 
BEGIN 09227000 
Sle LOC Ls Sle SI413 09228000 
DS* 7 CHR} 09229000 
OS* 15 LIT " NOT DIALED*UPe"; 09230000 
ENDS 09231000 
SPOUT(BF)3 09232000 
EXITS 09233000 
ENDS 09234000 
PROCEDURE CALLCANDECBUFH* TYPE) VALUE BUFH» TYPES REAW BUFHe TYPES 09300000 = Deg 
BEGIN 09301000 F Alf ( Al) D , 
REAL BUFF eAsLoFs 09302000 Cy be tL. - 
BUFF® BUFH.L15815)"13 09303000 
IF TYPE*O THEN PCBUFH) ELSE 09303500 
STREAMCBUFHIT® TYPE)3 09304000 
BEGIN 09305000 
Die BUFHs DI© DI"°3s BUFH* DI Sie LOC T# Sl* SI+63 09306000 
DS* 2 CHR DSe LIT * *%3 09307000 
ENDS 09308000 
BUFHe P3 09309000 
DO BEGIN 09310000 
Ae GETAREAC2)3 09311000 | 
STREAMC(CReOsBUFHRA® A INX 4)3 09313000 
BEGIN 09314000 
Sl* BUFH3 09315000 
2C56CI1F Sc#%e™ THEN DS* CHR ELSE 09316000 ion, 
BEGIN DS* LIT "e™3 TALLY® 13 Re TALLY? 09317000 
JUMP OUT 2 TO E END))3 09318000 
Et  BUFHe SI} 09319000 
ENDS - 09320000 
BUFH* Ps Fe P} 09321000 
IF L#0 THEN 09322000 
BEGIN 09323000 
MCAJ* PCDUPsLOD) & L CCTF]3 09324000 
MCLJ* PCDUPsLOD) & A [CTCI3 09325000 
END} 09325500 
Lewas 09325600 
END UNTIL F3 09326000 ie a eee ee ne eel 
MEA] »MESSENDS #13 09327000 j 
GIVEAWAYCA)3 09328000 
FORGETSPACECBUFF)3 09329000 YN pees ts ins na eee oe 
END CALLCANDE} 09330000 
$ SET OMIT =» NOTCAUXMEM) 09400000 
REAL PROCEDURE NEXTAUXMEMWORD(CHEADER#FILEPARAM*DISKADDRESS)3 09400100 : Bie esol 
REAL DISKADDRESS+FILEPARAMS ARRAY HEADERL*])3 09400200 
BEGIN 09400300 
REAL T$ LABEL EXITS 09400400 
ARRAY AC#)3 09400500 
DEFINE EOFPTR = HEADERE7I]#» 09400600 
ROWSIZE * HEADER[B)#> 09400700 
MAXROWS = HEADER(9).C43% S)#e 09400800 
SEGMENTCOUNT & FILEPARAM,(16315J#e 09400900 
WORDCOUNT = FILEPARAM,(123 6)#» 09401000 
ROWCOUNT * FILEPARAM,L 6% 6)#3 09401100 
A t* JOQUE & FILEPARAMCCTC]3 09401200 
IF DISKADDRESS = 0 THEN % FIRST CALL ON PROCEDURE 09401300 bE mlog ae eieaad ce ee if 
BEGIN 09401400 ee 


IF CDISKADDRESS t& HEADER([10])) LE@ 0 OR EOFPTR LSS O OR 
CHEANERLOJ EQ@V #0003600036000101) NEQ CNOT 0) THEN 
BEGIN 
STREAMCINTS#FILEPARAM LSS Os TteTieSPACE(4))3 
BEGIN DSt#26 LIT" IMPROPER AUXMEM MCP FILE*"$ 
INTCDI2=D1°93 DSte3 LIT™INT")3 
END3 
SPOUTC(T)# GO TO EXITS 
END} 
DISKWAITC™A,CCFJ*30eDISKADDRESS)S SEGMENTCOUNT t# 13 
NEXTAUXMEMWORD 3© NFLAGCALOIJ) LICE Is 
GO TO EXIT 
END3 
WORDCOUNT #& WORDCOUNT + 13 
IF WORDCOUNT GTR 29 THEN 
BEGIN 
SEGMENTCOUNT $= SEGMENTCOUNT#413 
IF SEGMENTCOUNT GTR ROWSIZE THEN 
BEGIN 
SEGMENTCOUNT te 13 
ROWCOUNT &® ROWCOUNT + 13 
IF ROWCOUNT GTR MAXROWS THEN GO TO EXITS 
DISKADDRESS #2 HEADERL10 + ROWCOUNT]} 
IF DISKADDRESS LE® O THEN GO TO EXIT3 
ENDS 
IF (CSEGMENTCOUNT+ROWCOUNTXROWSIZE*1) GTR EOFPTR THEN GO EXITS 
DISKWAITC™AcLCE IJ» 30eDISKADORESS+SEGMENTCOUNT™1)3 
WORDCOUNT 3 03 
END} 
NEXTAUXMEMWORD #® NFLAGCALWORDCOUNTI)afCF Js 
EXIT&’ END PROCEDURE NEXTAUXMEMWORD3 
PROCEDURE. TRANSFERMCPTOAUXMEMCHDRADRS# MAXLOC)$ VALUE HORADRS»MAXLOC3 
REAL HDRADRSsMAXLOC3 
BEGIN 
REAL AUXADDRESS+ AUXWORDSe CELLS» CELLVALUE® CODEADDRESS» 
CODESIZE® DISKADDRESSe FSPBITADDRESSs» ESPBITCELLe FILEPARAMs PRTICELL,» 
RSLTe ABCELLVALUES 
ARRAY HEADER[*]3 
LABEL ERRORsLOOPsSTOPTRANSFERS 
READER t® 1OQUE & HDRADRS(cTC]J3 
FILEPARAM t# SPACEC30),(CFI3 CODEADDRESS#® SPACEC1024)3 
RSPBITCELL t= PC,ESPBIT)$ ESPBITADDRESS#SNFLAG(MCESPBITCELLI), (CF ]3 
LOOPS: 
OF CPRTCELLESNEXTAUXMEMWORDCHEADER es FILEPARAMsDISKADDRESS)) > O THEN 
BEGIN 
IF PRTCELL LSS @200 OR PRICELL GEQ@ MAXLOC THEN 
BEGIN 
ERROR! STREAMCPRICELLSALEAS®SPACE(10) 23 
BEGIN 
DSt#26LIT"INVALID MCP?AUX PRT CELLs@"3 
S1seLOc PRTICELLS 


09401500 
09401600 
09401700 
09401800 
09401850 
09401900 
09401950 
09402000 
09402100 
09402200 
09402300 
09402400 
09402500 
09402600 
09402700 
09402800 
09402900 
09403000 
09403100 
09403200 
09403300 
09403400 
09403500 
09403600 
09403700 
09403800 
09403900 
09404000 
09404100 
09404200 
09404300 
09404400 
09404500 
09404600 
09404700 
09404800 
09404900 
09405000 
09405100 
09405200 
09405300 
09405400 
09405500 
09405600 
09405700 
094058600 
09405900 
09406000 
09406100 
09406200 
09406300 


16COS8e3 RESETS 3CIF SB THEN DSI#SET ELSE DSteRESET# SKIP SB))109406400 


DStsLITMe"s Di eeOrei7s OSswis FILLE 
END STREAM3 
SPOUTCA)3 GO TO LOOPS 
END IF BAD PRT CELL NUMBERS 
IF CCELLVALUEF@NFLAGCMEPRTCELLJ)),(CF) NEG ESPBITADDRESS THEN 
BEGIN % CHECK FOR PRESENT» NON®SAVE SEGMENT 
IF PCMEPRTICELLIJ+®TOP) THEN BEGIN PCDEL)& GO ERROR? END ELSE 
IF NFLAGCP),CiIt7) NE@ @165 THEN GO TO ERRORS 


09406500 
09406600 
09406700 
09406800 
09406900 
09407000 
09407100 
09407200 


END} 
IF CELLVALUE,£f691] THEN GO TO LOOPS % ALREADY WRITTEN 
IF PRICELL#@PC ,DISKORAUXERROR) OR PRICELL#PC,REENTER) THEN GO ERRORS 
CODESIZE 85 CELLVALUE,(8810]3 


09407300 
09407400 
09407410 
09407500 


IF CAUXADDRESS#®AUXILIARYSPACECCODESIZE)) GTR 9 THEN %SPACE AVAILABLE09407600 


BEGIN 
DISKWAITC*CODEADDRESSe CODES] ZEoCELLVALUE.(FFJ+MCPBASE)} 
MECODEADDRESS®1)tsO&8CODESIZECCTF Js 
DISKIOCRSLT eCODEANDDRESS*™1e(CODESIZE&1[ 384721] )» 
"CORAUXADDRESS[32236312)))3 
SLEEPCCRSLTJ] 21 OMASK)3 
IF RSLT.62637) NEO O THEN & AUXMEM ERROR FOR MIX ZERO 
BEGIN 
STREAMCALSASFSPACE( 10993 
DSte27LIT*AUXMEM TRANSFER TERMINATED]"3 
SPOUTCA)3 
GO TO STOPTRANSFER} 
ENDS 
MEPRTCELL] &8& C#PCDUP)ISAUXADDRESSU(CTFI&I(C684731]3 & 6315AUXMEM 
AUXWORDS t* AUXWORDS + CODESIZEs(38#6)+13 
CELLS 13 CELLS + 13 
GO TO LOOP: 
END % IF AUXILIARY SPACE AVAILABLE 
ELSE GO TO STOPTRANSFER3 
ENDS % IF PRTICELL GTR O 
STOPTRANSFERS 
IF CELLS GTR O THEN 
BEGIN 
STREAMC CELLS e AUXWORDS 8 BC AUXCODE(O]SSAUXWORDS )x160AEBASBSPACE(10))3 
BEGIN 
ST#BLOC CELLS DS3se3 DECS AtsOT$ DI seD1 "33 DSte2 FILLS DI teas 
PSIS37LIT" MCP SEGMENTS TRANSFERRED TO AUXMEM ("3 
DStsSDECS DSteBLIT™ WORDS) «3 
END STREAMS 
SPOUTCA)3 
END 3 % JF CELLS GTR O 
FORGETSPACECFILEPARAM,(CFJ)3 FORGETSPACE(CODEADDRESS)3 
END PROCEDURE TRANSFERMCPTOAUXMEMS 
$ SET OMIT & NOTCAUXMEM OR MONTTOR) 
PROCEDURE SETMONITORFILECSTOP)$ VALUE STOPS REAL STOPS 


BEGIN 

DEF INE 

SYSMTRFLAG & CTABLEL4]),(CO1:01)#2 & ON® IF MONITORING SYSTEM 
HDRDISKADRS = CTABLE(4],(18:15]#+0 % DISK ADRS OF SYSTEM/MONITOR HEADER 
TABLEOFFSET = CTABLE(4],€633815]#%2 % AVAILABLE WORD IN SYSMTR TABLE 
MAXROWADRS #& CTABLE(5],(O2#23]#0 B MAX DISK ADDRESS FOR THIS ROW 
ROWADRS ® CTABLE(S),£25823]#3 2 CURRENT DISK ADRS FOR THIS SEGMENT 


REAL IT*#KeHDRe MAXROWS ROWSIZE PROWSTART OF LLENAME eROWCOUNTeNEWROWS 
REAL CELL®I se DESC#Ke SIZESHDR» AREARMAXROWS} 

INTEGER MAXSEG3 
LABEL GETDISKe FORGETHEADERe FIRSTRECORDs STOPPe EXITS 
FILENAME Ss"SYSTEM " 

$ SET OMIT = NOT SHAREDISK OR OMIT 

&CSYSNO¢17)£42:4216) 
& POP OMIT 


3 
IF STOP THEN GO TO STOPPs % STOP MONITORING AND RELEASE FILE 
SIZES #CDESCSBNFLAGCMICELL IPC sENTERSYSMTR)J)),LH810)3 
_ AREASBGETSPACE(SIZEs6501)423 % GET SAVE CORE AREA 
$ SET OMIT = NOTCAUXMEM) OR OMIT 


09407700 
09407800 
09407900 
09408000 
09408002 
09408005 
09408010 
094086015 
09408020 
09408025 
09408030 
09408035 
09408040 
09408100 
09408200 
09408300 
09408400 
09406500 
09408600 
09408700 
09408800 
09406900 
09409000 
09409100 
09409200 
09409300 
09409400 
09409500 
09409600 
09409700 
09409800 
09409900 
09410000 
09410100 
09410200 
09410300 
09410400 
09410500 
09410600 
09410700 
09410800 
09410900 
09411000 
09411100 
09411200 
09411300 
09411310 
09411319 
09411320 
09411321 
09411330 
09411400 
09411500 
09411600 
09411700 


IF DESC,£6%1) THEN &% STORED ON AUXMEM 
DISKWAITC@AREA®SIZEs@CORDESCE329214812))) 
ELSE 
$ POP OMIT 
DISKWAITC*AREASSIZEsDESCaLFFJ+MCPBASE)S % GET CODE SEGMENT 
MCAREA*LIISCELL&SIZELCTFI$ MCCELLISSFLAGCDESCIBAREACCTCI3 
AREAS #GETSPACE(640001)423 & SAVE CORE AREA FOR SYSMTR 
CTABLELO JS eC HPC DUP) &CARFASIIICTFIQCAREA+33)(CTCI3 
SYSMTRSeCTABLEL6),CFFIs CTABLEL6O)],(1:4]1583 & USE LOWER CORE AREA 
MECTABLELG), CFF] INX 30]8=MECTABLE(6],°CF] INX 30]8@NOT 03 & MARKERS 
IF CHDORSSDTRECTORYSEARCHCFILENAME® "MONI TOR",37))80 THEN & NOT THERE 
BEGIN % BUILD HEADER 
HOR*eSPACE(30)8 MLHDR]$e03 MOVEC29e¢HDReHDR41)3 
MEHDR] $4@0003600036000101%3 & 30 WORD UNBLOCKED RECORDS 
STREAMCDATE®H38®HDR+3)3 
BEGIN 
SIt#LOc DATES DS!#80CT3 % CREATION DATE 
DItSeH33 OSHZ2LIT 4#"3 % NEW FORMAT» SAVE FACTOR#®10 
STt®H3s SLeBS14+53 DSte3CHR} % ACCESS DATE 
END STREAMS 
MCHDRO4), C98 JEBLS 2 MARK AS DATA FILE 
MCHDR*7)582993 MCHDR+8)263003 MCEHOR+9I) 2203 & [203300] 
IF CMCHNR+LO]SSPETUSERDISK(300810284781)]51))50 THEN % NO DISK 
BEGIN 
STREAMCFILENAME HDR) SB 
BEGIN SI8*LOC FILENAMES SiTteSlet3 
DSt#18 LIT "NO DISK SPACE FOR "3 
DS8*7 CHRS DSt14 LIT */MONITOR FILE@"3 
END STREAM) 
SPOUTCHOR)$ GO TO EXIT3 
END’ ¥ If NO DISK 
HDRDISKADRS##EUF CF ILENAME® "MONI TOR’ s+ HDR@1)3 
ROWADRSESMEHDRO10)3 MAXROWADRStSMCHOR+10]¢MELHDR+B8J 913 
FORGETSPACECOIRECTORYSEARCHCFILENAME® "MONITOR" 917))3 
STREAMCFILENAMEsKiskt=SPACE(4))3 
BEGIN SIteLOc FILENAMES SItsS]4+13 DSteLIT ",%3 
DSte7 CHRs DSte22 LIT "/MONITOR FILE CREATEDES 
| END STREAM} 
SPOUTCK)3 
FIRSTRECORD! 
MCESYSMTRIZeNOT OF 3 END OF FILE MARKER 
TABLEOFFSET&SeMECSYSMTR4+1]5203 MOVE C28eSYSMTR4+19SYSMTR42)3 
DISKWAITCSYSMTRe 30eROWADRS)) & WRITE FIRST RECORD 
SYSMTRFLAGHFL$ GO TO FORGETHEADERS 
END? ® IF SYSTEM/MONITOR WAS NOT PRESENT 
IF CMCHDR INX 0) EQV @0003600036000101) NEQ@ (NOT 0) THEN 
BEGIN 3 SHOULD BE 30 WDS/RECORDP UNBLOCKED 
STREAMC FILENAME *®HDRESHDR, [CF] )3 
BEGIN SIteLOc FILENAMES S]teSl41s DS8=#10 LIT *,IMPROPER "3 
. DSts7 CHRS 0S#514 LIT "/MONITOR FILEO"S 
END STREAMS 
SPOUTCHDReCCF J) GO TO STOPPS 
ENDS &% IF IMPROPER SYSTEM/MONITOR FILE 
HDRDISKADRSt®HDR,(18%15)]3 ROWSIZEt@MCHDR INX 8)3 
MAXROWS ¢@ MCHDR INX 93,04315]3 
Tt=MAXROWS#93; WHILE MCHDR [NX 1]80 AND | GTR 9 DOJ te 1 = f3 
IF J] LSS 10 THEN % NO DISK ADDRESS 
BEGIN 
 , Pssi0s 
GETDISK: 


09411710 
09411720 
09411730 
09411740 
09411750 
09411800 
09411900 
09412000 
09412100 
09412200 
09412300 
09412400 
09412500 
09412600 
09412700 
09412800 
09412900 
09413000 
09413100 
09413200 
09413300 
09413400 
09413500 
09413600 
09413700 
09413800 
09413900 
09413950 
09414000 
09414100 
09414200 
09414400 
09414500 
09414600 
09414700 
09414800 
09414900 
09415000 
09415100 
09415200 
09415300 
09415400 
09415500 
09415600 
09415700 
09415800 
09415900 
09416000 
09416100 
09416200 
09416300 
09416400 
09416500 
09416600 
09416700 
09416800 
09416900 
09417000 
09417100 
09417200 


ROWSTARTL=MLHDR INX J) s#PETUSERDISKCROWSIZER1C284711)]01)3 
IF ROWSTART * O THEN % NO DISK 
BEGIN 
STREAMCF TLENAME sHDRS®HDRESHDRe (CF ))3 
BEGIN SIt#LoOc FILENAMES SItaSlet3 
DSt#18 LIT "NO DISK SPACE FOR "3 
DSt*7 CHR$ DSt214 LIT "/MONITOR FILES" 
END STREAM3 
SPOUTCHDR)3 GO TO STOPP3 
ENDS &® IF NO DISK 
NEWROWE@TRUES & DONT SEARCH FILE IF NEW DISK ROW 
END ELSE ROWSTARTt=M(CHDOR JINX 1]3 
STREAMCFILENAME ®KtekKteSPACE(4))3 
BEGIN SI]s*LOC FILENAMES SIse#SIl+t3 DSt= LIT ", "3 
DSts? CHR} DS#e20 LIT "/MONITOR FILE FOUNDe'S 
END STREAMS 
SPOUTCK)3 


ROWCOUNT? 81°93 ROWADRS!=ROWSTARTS MAXROWADRSIZSROWSTART+ROWSIZE™23 
MAXSEG#SMLHOR INX 7) MOD CROWCOUNTxROWSIZE)3 % ACTUAL EOF POINTER 


MCHDR INX 7] $® ROWCOUNTxROWSIZE “13 %® ADJUST EOF POINTER 
DISKWAITCHOR, CCF IJe3O*HORDISKADRS)$ & REPLACE HEADER 
IF NEWROW THEN GO TO FIRSTRECORDS &® DONT SEARCH DISK ROW 
] te *%3 
DO BEGIN ® SEARCH FOR EOF MARKER 
DISKWAITC*SYSMTRe 302ROWSTART+(1Lielel) 23 
IF MCSYSMTR) & NOT O THEN & MARKER #® EOF 
BEGIN 
ROWADRS#tFROWSTARTS 13 
IF ROWADRS © MAXROWADRS THEN 2 FULL ROW 
BEGIN 
IF ROWCOUNT = MAXROWS THEN ® FULL FILE 
BEGIN 
STREAMCFILENAME sHORISHDRISHDR, CCF) )3 


BEGIN SItseLOC FILENAMES SltsSl¢is OSteLIT ","3 
DSte7 CHRS DSte19 LIT “/MONITOR FILE FULL” 


END STREAM? 
SPOUTCHDR)3$ 
GO TO STOPP; 
ENDS 8 IF FULL FILE 
MESYSMTRI##0862(384216)3 & RESTART MARKER 
MCSYSMTR INX 132086303842:6]5 % END OF ROW MARKER 
MESYSMTR INX 2]8803 MOVEC27T#SYSMTR+2eSYSMIR+3)3 


DISKWAITCSYSMTR»30*ROWADRS)S & WRITE LAST RECORD IN ROW 


TtsROWCOUNT + 403 GO GETOIJSK3 
END’ & IF FULL ROW 
MCSYSMTRJ$%08620314216)3 3 RESTART MARKER 
MESYSMTR41)9303 MOVEC 28 e¢SYSMTR4+1eSYSMTR#2)3 
TABLEOFFSET& 1s SYSMTRELAGISTRUES 
GO TO FORGETHEADERS 
ENDS % IF MARKER WAS FOUND? 
END UNTIL I#ROWSIZE*1 OR | GEQ@ MAXSEG! 


ROWADRS $@ ROWSTARTS % START AT BEGINNING OF ROW IF NO MARKER 


SYSMTRFLAG?tSTRUES CTABLEL7]#=03 &% [0 FINISH RESLT DESCR 
FORGETHEADERS FORGETSPACECHDR INX 0)3 GO TO EXITS 
STOPPs SYSMTRFLAGE#O3 

DESCEBNFLAGCME(CELLESPC SENTERSYSMTR)DI)3 

FORGETSPACECDESC INX 0)3 

MI CELLISSFLAGCDESCKC#PC,ESPBITIIICTCI)3 
FORGETSPACECCTABLE(6),0FFJ"1)) CTABLEL6]##03 


09417300 
09417400 
09417500 
09417600 
09417700 
09417800 
09417850 
09417900 
09418000 
09418100 
09418200 
09418300 
09418400 
09418500 
09418600 
09418700 
09418800 
09418900 
09419000 
09419100 
09419200 
09419300 
09419400 
09419500 
09419600 
09419700 
09419800 
09419900 
09420000 
09420100 
09420200 
09420300 
09420400 
09420500 
09420600 
09420700 
09420800 
09420900 
09421000 
09421100 
09421200 
09421300 
09421400 
09421500 
09421600 
09421700 
09421800 
09421900 
09422000 
09422100 
09422200 
09422300 
09422400 
09422500 
09422600 
09422700 
09422600 
09422900 
09423000 


OF CKESDIRECTORYSEARCHCFILENAME "MONITOR" 916),0CFJ)80 THEN K¢meSPACE(4)3 09423100 


STREAMCFILENAME oK)3 
BEGIN SIteLOC FILENAMES SIs¢eS]+13 DSteLIT 7,"3 
OSts7? CHR! DSt216 LIT “/MONITOR RE@SETe$ 
END STREAMS 
SPOUTCK)3 
EXITS 
END PROCEDURE SETMONITORFILES 
PROCEDURE GETMONITOROW; 
CTABLEL4],COLSOLIJSMONITOR FLAG CONe IF MONITORING SYSTEM) 
CTABLEL4),£18:15]"DISK ADDRESS OF SYSTEM/MONITOR FILE HEADER 
CTABLELS)] .COZ}23] MAXIMUM DISK ADDRESS FOR CURRENT FILE ROW 
CTABLE(5),(25:23)2DISK ADDRESS OF CURRENT SEGMENT IN FILE 
CTABLEL6),COL#0LJSFLAG FOR LOWER CORE AREA (SYSMTR) IN USE 
CTABLEL6],(O2Z80LJ5FLAG FOR UPPER CORE AREA (SYSMTR) IN USE 
CTABLEL6},CO3IOLIJ@F LAG FOR DISK 10 IN PROGRESS 
CTABLEL6),COS4104]@FLAG FOR MONITOR FILE ROW FULL 
CTABLEL6),0IBSiS5JRADDRESS OF LOWER CORE AREA FOR SYSMTR 
CTABLEL6],0332:15]*®ADDRESS OF UPPER CORE AREA FOR SYSMTR 
CTABLE(7] eRESULT DESCRIPTOR FROM DISK ]0 
BEGIN 
REAL RCW3403 
REAL IT*HOReMAXROWS3 
LABEL STOPITs*EXIT3 
HORt#eSPACEC30)3 
MCHDR1820863(384286]3; ® END OF FILE ROW MARKER 
MEHOR+1) 8203 MOVE C28 eHDR41eHOR+2)3 & ZERO REMAINDER OF RECORD 
DISKWAITCHDR» 30eCTABLEL5}3,(25:323))s % WRITE LAST SEGMENT 
DISKWAITC*HDRe 30eCTABLE[4)—£16815)])3 % GET MONITOR FILE HEADER 
® SEARCH HEADER TO FIND NEXT AVAILABLE SLOT FOR NEW ROW 
TteCMAXROWSS=MCHDR [NX 9),(4385))493 % INDEX TO LAST SLOT 
WHILE MCHDOR INX 1]%0 AND 1 GTR 9 DO IS#I7413 
IF T®MAXROWS49 THEN & FILE IS FULL 
BEGIN 
STREAMCSi="SYSTEM * 
$ SET OMIT = NOT SHAREDISK OR OMIT 
&CSYSN0417)9(64234236)] 


BR BA DE BC BR BE BL BE JE BR BE 


$ POP OMIT 
elrzle=SPace(4))3 
BEGIN SIla*S3 SrsaSl+1$3 DStw LIT ","3 
DSs:#7 CHR? DS:#19 LIT “/MONITOR FILE FULLe™S 
END STREAM} 
GO TO STOPIT3 
END2 & IF FILE FS FULL 
[se1413 % INDEX TO NEXT AVAILABLE ROW SLOT IN FILE HEADER 
IF CMEHDR INX [JFEPETUSERDISKCMCHDR INX 8)81(294781)21))80 THEN 
BEGIN % NO DISK AVATLABLE 
STREAMC(CSte"SYSTEM * 
$ SET OMIT ® NOT SHAREDISK OR OMIT 
&CSYSNO41790642342:6) 
$ POP OMIT 
elselseSPACE(4))3 
BEGIN SI13#L0Oc S3 SIa*SI413 DStei8 LIT "NO DISK SPACE FOR "3 
DSt®7 CHRS DSt#13 LIT "/MONITOR ROWe"$S 
END STREAM$ 
STOPIT!’ SPOUTCT)3 
SETMONITORFILEC1)3 
GO TO EXIT3 
ENDS % IF NO DISK OR FULL FILE 
CTABLELS),.£02823)tMCHOR JINX JJ#MCHDR INX BJ]e13 2 MAX ROW ADRS 
CTABLELS),C25:23)3"MC HDR INX 3$)3 % STARTING ROW ADDRESS 


09423200 
09423300 
09423400 
09423500 
09423600 
09423700 
09423800 
09423900 
09424000 
09424100 
09424200 
09424300 
09424400 
09424500 
09424600 
09424700 
09424800 
09424900 
09425000 
09425100 
09425200 
09425300 
09425400 
09425500 
09425600 
09425700 
09425800 
09425900 
09426000 
09426100 
09426200 
09426300 
09426400 
09426500 
09426509 
09426510 
09426511 
09426550 
09426600 
09426700 
09426800 
09426900 
09427000 
09427100 
09427200 
09427300 
09427400 
09427409 
09427410 
09427411 
09427420 
09427500 
09427600 
09427700 
09427800 
09427900 
09428000 
09426100 
09428200 
09428300 


EXIT! CTABLEC6),C4s1)8=03 FORGETSPACECHOR)$ KILUCCRCW) INX NOT 2)3 


MCHDR INX 7) teCI™9)xMCHDR INX BJ"13 % ADJUST EOF POINTER 
DISKWAITCHDRe 30+CTABLEC4),(18115))5 % REPLACE HEADER 
MCHORJ§@NOT OF DISKWAITCHOR® 30eCTABLE(5)],(25%23))3 % EOF MARK 


END PROCEDURE GETMONITOROWS3 


PROCEDURE ENTERSYSMTRO(N)$ VALUE NS REAL N3 


Be BR BR BR BE DE DE DE 


CTABLEC4),COLSOLJ=MONITOR FLAG CONe IF MONITORING SYSTEM) 
CTABLEL6),COLSO01)SFLAG FOR LOWER CORE AREA IN USE (SYSMTR) 
CTABLE(L6),£02801]=FLAG FOR UPPER CORE AREA IN USE (CSYSMTR)3 
CTABLE(6],£03801)*FLAG FOR DISK 10 IN PROGRESS 
CTABLELG],(O4t01)=FLAG FOR MONITOR FILE ROW FULL 
CTABLELGI.C16215]=ADDRESS OF LOWER CORE AREA FOR SYSMIR 
CTABLEL6),033815)#ADDRESS OF UPPER CORE AREA FOR SYSMTR 
CTABLEL7) FRESULT DESCRIPTOR FOR DISK 10 FINISH 
BEGIN 

DEFINE 


TABLEOFFSETSCTABLEL4) 4° 33815} #eSAVAILABLE WORD IN SYSMTR TABLE 


MAXROWADRS SCTABLE[5),(O2#23]#eZMAX DISK ADDRESS FOR THIS ROW 


ROWADRS =CTABLECS) .C25¢23) #38 CURRENT DISK ADDRESS FOR THIS ROW 


REAL IeSYSADRS3 
LABEL EXITS 


IF NOT CCTABLEC4],£01801}) THEN GO TO EXITS & MONITOR FLAG IS OFF 


IF CTABLEL6),03¢1) THEN ® DISK 10 WAS IN PROGRESS 
IF CTABLEC7],C1981] THEN % 10 COMPLETED 


CTABLELCGI] ,E3s1)t=CTABLEL7)]#303 % RESET FLAG AND ZERO DESC. 


IF TABLEOFFSET GTK 28 THEN % TABLE IS FULL 


IF CTABLEC6].£382) NEQ@ O THEN GO EXIT? & CANT SAVE THIS ONE 


MESYSMTR INX TABLEOFFSETJ&teNS & STORE VALUE IN TABLE 
TABLEOFFSETS#TABLEOFFSET#413 
IF TABLEOFFSET GTR 29 THEN & FULL TABLE 

BEGIN 


SYSADRSt=SYSMTR3 & SAVE ADDRESS FOR DISK J]0e SWAP CORE AREAS 


IF CYABLEL6),0131) THEN &% USING LOWER CORE AREA 
BEGIN 
SYSMTRSeCTABLEL6),£33915)s & USE UPPER CORE AREA NEXT 
CTABLEC6O}¢C183]1233 %& MARK DISK 10 JN PROGRESS 
END 

ELSE 
BEGIN & USING UPPER CORE AREA 
SYSMTREsCTABLE(6),018815)3 % USE LOWER CORE AREA 
CTABLEL6),0193]825s % MARK DISK JO IN PROGRESS 
END} 

TABLEOFFSETESMESYSMTRI$=03 MOVEC29*SYSMTReSYSMTR41)3 


DISKIOCCTABLEL7 J *>CSYSADRS@"1)e3iLe#ROWADRS)$ & WRITE OUT SEGMENT 


ROWADRSS#®ROWADRS 443 
IF ROWADRS#MAXROWADRS THEN % FULL ROW 
BEGIN 
CTABLEL6G) .C4sijsawis & FLAG FOR OBTAINING NEW ROW 
FORKCPC yGETMONITOROW) 0020012801); 
END3 
END} © IF FULL TABLE 


EXITs END PROCEDURE ENTERSYSMIRS 


$ POP OMIT 


PROCEDURE CHANGEAUXFILES(BUFFsWA)) 
VALUE BUFF eWAS REAL BUFFeWAS 
BEGIN 


LABEL WADOsCAFINI®WAFINIe INTCKeNULLITsERRORI eERROR2S 
REAL AeleJdeK3 
REAL. X 


$ SET OMIT = SHAREDISK OR OMIT 


09428400 
09426500 
09428600 
09428700 
09426800 
09428900 
09429000 
09429100 
09429200 
09429300 
09429400 
09429500 
09429600 
09429700 
09429800 
09429900 
09430000 
09430100 
09430200 
09430300 
09430400 
09430500 
09430600 
09430700 
09430800 
09430900 
09431000 
09431100 
09431200 
09431300 
09431400 
09431500 
09431600 
09431700 
09431800 
09431900 
09432000 
09432100 
09432200 
09432300 
09432400 
09432500 
09432600 
09432700 
09432800 
09432900 
09433000 
09433100 
09433200 
09433300 
09433400 
09433500 
09433510 
09433600 
09433700 
09433800 
09433900 
09434000 
09434020 
09434030 


ez J 
$ POP OMIT 
5 
BOOLEAN SUBROUTINE FILEOKS 
BEGIN P(14)3 
IF PCDIRECTORYSEARCHCNABSCMEI#(KxX2)))oMEI4(KxX2)41)55))20 THEN 


BEGIN 
PCDEL»0)3 
STREAMCAS®(MET#CKx2) J) )eKeo Bt sK seSPACE(5))3 
BEGIN 
Slseas DS3314 LIT" NO AUXMEM INT"? 
KCDIs201"33 DSt#3 LIT"MCP")3 DSte6 LIT” FILES 
2CSTtaSl4is DS8e7 CHRS DSteLIT"/"93 Of sevdie13 
DSteLITte"3 
END3 
SPOUTCK)) 
END? 
FILEQKI=P3 


END} 
IF WA THEN GO WADO} 
STREAMCAUXINT# #02 AUXMCP E20 eNULLEROeOKIZOeERRTOGISO$ 
A18%@31456344234746420A283"NULL "sBIiROe 
CXPROPBUFF eDEZOoEswOeF ymOe lS 219SSPACEC4))3 
BEGIN 
4CDOSHSLIT"™O"3 OSte7 LIT" ")3 SISSBUFFS DS=CI3 GO TO L13 
LOs fF SCa* * THEN BEGIN SIteSI+13 GO LO ENDS C13acx3 
Lis CX8scrs GO TO LOS TALLYte43 
DIseLOC AL Di ted] +63 
IF 2 SC#8DC THEN & FILES OK 
BEGIN OKSeTALLYs’ GO TO E1 ENDS 
OLseDLl 413 SlteSl23 
IF 4 SC#®DC THEN & NULL FILES 
BEGIN NULL3STALLY3 GO TO £1 END) 
Es=cl; SleaSivas 
L2t! cCX+scis 60 T0 LOS 
DIsFlOc Als’ TaLLYis13 
1F 3 SCFOC THEN 
BEGIN 
AUXINTSSTALLYS TALLYt#03 
OI¢#Dl+33 GO TO L33 
ENDS STtwSi"33 
IF 3 SC8DC THEN 
BEGIN 
AUXMCPESTALLY$3 GO TO L33 
END? GO TO E23 
Elt GO TO £33 
L3? BErsTALLY} 
CX#sCI3 GO TO LO3 
IF 2 Sc#0C THEN 
BEGIN 
TALLY%803 FeeTALLY3 
NL3 DItsLOC AUXINTS BCDI]$#0148)3 SKIP DB3 
FCSKIP DBDs OStsSETs CXteCIs GO TO LO3 
IF SC#"e" THEN BEGIN SIt#S]413 GO TO L2 END ELSE 
If SCe"e" THEN GO TO £3 ELSE GO TO E43 
€21 GO TO £43 
—E3s GO TO £53 
ENDS STUsSi*23 DLteDI +23 
{F 4Sc#®0C THEN 
BEGIN TALLY:=13 Fr=TALLYs GO NL FND} 


09434040 
09434050 
09434060 
09434100 
09434200 
09434300 
09434400 
09434500 
09434600 
09434700 
09434800 
09434900 
09435000 
09435100 
09435200 
09435300 
09435400 
09435500 
09435600 
09435700 
094358600 
09435900 
09436000 
09436100 
09436200 
09436300 
09436400 
09436500 
09436600 
09436700 
09436800 
09436900 
09437000 
09437100 
09437200 
09437300 
09437400 
09437500 
09437600 
09437700 
094376800 
09437900 
09438000 
09438100 
09438200 
09438300 
09438400 
09436500 
09438600 
09438700 
09438800 
09438900 
09439000 
09439100 
09439200 
09439300 
09439400 
09439500 
09439600 
09439700 


WADQ? 


E43 
E51 
L4s 


ERRI 
EXT? 
IF P 


SlssSle43 IF SC#¥%=" THEN GO 10 E23 

StseSle1s CXtsCrs Clswds OL sey 

BCQCDI8sD14+8))3 DL tsDl413 BteOls LF SCRALPHA THEN 

BCIF SCwe"/" THEN ELSE IF SCs" " THENS IF TOGGLE THEN 
JUMP OUT TO L4? IF SC#ALPHA THEN DS#*CHR ELSE JUMP 
OUT): 

GO TO ERR3 

GO TO EXT3 

CXHsCl3 Cltos IF Sc#%/" THEN GO TO ERRS 

SLueS]41s CXtects Clr); 

Ol!*Bs DLteNl4+8s IF SE*FALPHA THEN 

7CIF SC=ALPHA THEN BEGIN DSt®CHR? GO LS ENDS IF SCH” 
THEN ELSE IF SCE" " THEN ELSE IF SCe&e" THENS IF TOGGLE 
THEN JUMP OUT ELSE JUMP OUT TO ERR$ L58)3 CXteCIs Cleep3 
IF Scate" THEN GO TO EXT? IF SCH™e" THEN BEGIN S]teS]ol3 
CIltee END3 

TALLY$ e135 ERRTOGI#®TALLYS 

END3 

THEN BEGIN FORGETSPACE(I)$ GO TO ERROR2 END3 


DISKWAITC™CX8*®SPACEC30)) #30 
$ SET OMIT = NOT SHAREDISK OR OMIT 


RBCNOT WADCL194721) 


&$ POP OMIT 


»AUXMEMDSK)3 


$ SET OMIT = NOT SHAREDISK OR OMIT 

JERAXSYSNOSX] 

$ POP OMIT 

IF WA THEN 

BEGIN AtS(MEX*+164+SYSNOJ] EQV "AUXMEM ") # NOT O3 


END} 
IF P 


BEGIN 


ENDS 
IF P 


GO TO WAFINI$ 
THEN © OK ALL FILES 


MC JJ ERABSC*#PCDUP))3 
GO CAFINI3 


THEN GO NULLITS % NULL ALL FILES 


IF PCDUP)#0 THEN & MCP FILE UPDATE 


BEGIN 


IF PCDUP)«<Q THEN 
BEGIN 
MUCJJS=ABSC*#PCOUP))2 PCDELD3 
GO TO INTCK3 
END: 
IF P,f2s1)] THEN &¥ MAKE MCP FILE NULL 
BEGIN MC J] teMcJe1)2203 GO TO CAFIN] END! 
Kiwis JF FILEOK THEN 
BEGIN 
MC JJISMEY+2)3 
MCJ*d J] 2M C1 43)3 
END ELSE 
IF CTABLEC4),£201)] THEN GO TO ERROR1(3 


ENO ELSE IF CTABLEC4).C231) THEN 
GO TO ERROR ELSE PCDFL)S 

INTCKs 
IF PCDUP)#0 THEN % INT FILE UPDATE 


BEGIN 


IF PCDUP)<O THEN GO TO CAFINIS 
IF P,C2ti) THEN & MAKE INT FILE NULL 


09439800 
09439900 
09440000 
09440100 
09440200 
09440300 
09440400 
09440500 
09440600 
09440700 
09440800 
09440900 
09441000 
09441100 
09441200 
09441300 
09441400 
09441500 
09441600 
09441650 
09441700 
09441720 
09441725 
09441730 
09441750 
09441790 
09441800 
09441610 


09441900 , 


09441910 
09441920 
09441930 
09442000 
09442100 
09442200 
09442300 
09442400 
09442500 
09442600 
09442700 
09442800 
09442900 
09443000 
09443100 
09443200 
09443300 
09443400 
09443500 
09443600 
09443700 
09443800 
09443900 
09444000 
09444100 
09444200 
09444300 
09444400 
09444500 
09444600 
09444700 


BEGIN MCJ42] ¢aMEJ+3)%1503 GO TO CAFINI END} 
Kt=e0)3 JF FILEQK THEN 
BEGIN 
MC J+2] :8MC 13 
MCE J¢3)¢3MC 14133 
END ELSE 
IF CTABLELC4].€381]) THEN GO TO ERROR(S 
END ELSE IF CTABLEL4),£3%1]) THEN 
GO TO FRROR1 ELSE PCDEL)? 


CAFINIS 
IF MUX+164+SYSNOJ # "AUXMEM ™ THEN 
BEGIN 
NULLITS IF (ME I J] EQv *™ "J=NOT O THEN ME J+2) teM(J+3) 2503 


IF (MCT+2) EQv ™ ")=NOT O THEN ME J] teMCU+1 J] 8803 


MEX4+164¢SYSNOJ2="AUXMEM "3 
END3 
FORGETSPACECI)3 
DISKWAITCXe™30* AUXMEMDSK ) 3 
CTABLECAII=C#PCDUP)) & PCDUPIC4S231) & OL23212]13 
WAFIN]!S 


STREAMCA®NULLMCPSSMCJJ2#0» NULLINTS2M(J+2] 805 FILETDSteL MJ) )e 


TIHRBUFF.CISst5I)"193 
BEGIN OS8"17 LIT"™ AUXMEM FILES ARE"? 
ACDSt#14 LIT" NOT SPECIFIED™S JUMP OUT TO LAD} 
SLMeFILETOS3 SrteSle13 DSte6 LIT*"MCPs "3 
AteDI3 DS3*7 CHRS DStsLIT"/"s SJseSpag3 OSt27 CHRI 
NULLMCPCDI PSAs DSte4 LIT™NULL™)2 DSte7LIT%e INTs 3 
AteDI: SIReSteis OSte7 CHR DStaeLLI%/%3s SpaseSde 13 
DSt37 CHRS NULLINTCDIt@As DSte4 LIT*NULL")3 
LAR DS#tsLyi Tes; 
ENDs 
ERRORIL8 
FORGETSPACE(X)3 
ERROR2?! 
END CHANGING AUXMEM FILES3 
$ POP OMIT 
PROCEDURE WHATINTRNSICCB)$S VALUE BS REAL B$ FORWARDS 
PROCEDURE INTRINSICTABLEBUILDERCFH)$ VALUE FH REAL FH3 
BEGIN 
REAL DISKADDRatleTes+2¢INTLOCaeaeTL7SIZE std a MAXINT S453 
$ SET OMIT w NOTCAUXMEM) 

REAL HDR&MAXINT+19 FILEPARAM#@HDR41» CODE SE JLEPARAM41 + 
INTNUMBCODE4+1 5 AUXADDREINTNUM#1s AUXWORDSSAUXADDRe1> 
INTCOUNTSAUXWORDS#12ASDISKADDRe CODESI]ZESTe 
MFIDSINTCOUNT$15 FIDSMFIDeLs RSLIBF IDL 

ARRAY HEADERSTI7SIZEC*)3 

LABEL LOOP sAUXTRANsENDLOOPS 

P(COr O» Os Os Os Oe Os Om Ore OP 
$ POP OMIT 
PCO» Or Om Or 0)}3 

IF CTO@FH,CEFI)*O THEN TI*SPACEC30)3 

DISKWAITC™Te 30° DISKADDRISMCFH INX 10))3 

MAXINT $38 MCT) + 18 % NUMBER OF JNTRINSICS + 1 


TA7SIZE s& MET INX 17),08810)413 & INTR, #17 SIZESIWDSFOR DISK eADUR, 


FORGETSPACE(T)3 
INTRNSCESEMCINTLOCS®GETSPACECMAXINT#TI7SIZE0001) +2178 


CMAXINTS#+TI7SIZEC8838010)3 & SPACE FOR INTRINSIC TABLE + INT, #17 


DISKWAITC@™CINTRNSC INX 0) +MAXINT®DISKADDR)3 
MEINTRNSC INX NOT OJ) t& OF MAXINT ¢# MAXINT #43 
FOR T ## 1 STEP 1 UNTIL MAXINT DO 


09444800 
09444900 
09445000 
09445100 
09445200 
09445300 
09445400 
09445500 
09445600 
09445700 
094458600 
09445900 
09446000 
09446100 
09446200 
09446300 
09446400 
09446500 
09446550 
09446600 
09446700 
09446600 
09446900 
09447000 
09447100 
09447200 
09447300 
09447400 
09447500 
09447550 
09447600 
09447700 
09447600 
09447900 
09448000 
09448001 
09491000 
09500000 
09500500 
09501000 
09501500 
09502000 
09502500 
09503000 
09503100 
09503500 
09504000 
09504500 
09504501 
09504570 
09505000 
09505500 
09505600 
09505700 
09505750 
09506000 
09506100 
09506500 
09507000 
09507500 


INTRNSCCTIISNABSCCPC#P(CDUP)*DUP) e(BS1LOJ+INISIZE) & 

CPCXCH) INX 0 + DISKADDR)(6321327])3 
DISKWAITC@CINTLOCESINTLOC#MAXINT4+2) eC TI7SIZE"1) © INTRNSCL 173006827) )3 
INTRNSCOI7] §@ CHePCDUP)IQINTLOCLCTCI$ % MARK PRESENT 
MOEINTLOC*L I ¢FORCTI7SIZE"1 CCTF Is & DUMMY MARKER FOR DUMP/ANALYZE 
DISKADORt&OR1C414731I3 
INTRNSCC2)&eePC DUP) OR DISKADDR3 
FOR T8318 STEP 1 UNTIL 20 DO INTRNSCCLTJs#*P( DUP) OR DISKADDR3 
SET OMIT = NOTCAUXMEM) 

CTABLEL9] §© MCFH INX 410]3 

IF CPCRRRI.2£3091) AND USEDRB) OR CPCRRR).C3121) AND USEDRA) THEN 

BEGIN 

DISKWAITC™CTL=SPACEC30))*300eAUXMEMDSK)$ 

IF MET#SYSNO+16]="AUXMEM * THEN 

BEGIN 

MF IDSseME T+ CSYSNOx4)42]3 FIDteMlC T+CSYSNOx4)4+3)]3 

FORGETSPACECT)3 

IF MFID#0 THEN 

IF CHDREsDTRECTORYSEARCHCMFIDeFID#4))#0 THEN 
BEGIN 
HEADER t& TOQUE & HDREICTC]}3 
FILEPARAM se #SPACE(30)3 
CODE t= SPACE(1024)3 
INTCOUNT t# DISKADDR t# O03 


% SIGN BIT INDICATES INTRINSICS 


LOOPS IF CINTNUMS®NEXTAUXMEMWORDCHEADER® F ILEPARAM*DISKADDR))>0 THEN 


BEGIN 
IF INTNUM GTR MAXINT OR INTNUM LSS 1 THEN 
BEGIN 
STREAMCINTNUMe TESTI SSPACECI0O))3 
BEGIN 
DS#23LIT* INVALID INT*AUX NUMBERS "3 
STs*LOC INTNUM) DS#SeBDECs OSteL Te} 
DI t#DI19"93 DStae7FILLs 
END STREAM} 
SPOUTCT)$ GO TO LOOPS 
ENDS & IF BAD INTRINSIC NUMBER 
IF INTRNSCCINTNUM) 203812 OR JNTNUM®17 THEN GO TO LOOPS 
CODESIZE t# INTRNSCCINTNUM),CCFJ3 
IF CAUXADDRISAUXILIARYSPACECCODESIZE)) GTR 0 THEN 
BEGIN 
DISKWAITC™CODEsCODESIZE» INTRNSCLINTNUM), (6327) )3 
MCCODE*LIGBORCODESIZECCTFI3 
DISKLOCRSLTsCODE*1 oe (CCODESIZE&IC3t4781)), 
“CORAUXADDRE 328 36812)))3 
SLEEPCORSLT Je TOMASK) 3 , 
IF RSLT,£C2687) NEQ O THEN & AUXMEM ERROR FOR MIX ZERO 
BEGIN 
STREAMCT&8&T#eSPACEC10))3 
DSts27LITVAUXMEM TRANSFER TERMINATED?" 3 
SPOUTCT)3 
GO TO ENDLOOPS 
ENDS 
INTRNSCEINTNUM) ¢@ %2 £384) INDICATES AUXMEM 
CHPCDUP)IQOCSE3S81ZSIECODESIZELCTCI&AUXADDORUICTFJ&10334781)3 
AUXWORDSS#AUXWORDS+CODESIZE, C3886 )4138 INTCOUNTSSINTCOUNTS13 
GO TO LOOPS 
END} %& IF SPACE AVAILABLE 
ENDS % IF ANOTHER INTRINSIC SPECIFIED 


ENDLOOPS 


IF INTCOUNT GTR O THEN 


09508000 
09508500 
09508600 
095086700 
09508800 
09509000 
09509500 
09510000 
09510500 
09510505 
09511000 
09511100 
09511200 
09511300 
09511400 
09511500 
09511600 
09511650 
09511700 
09512000 
09512500 
09513000 
09513500 
09514000 
09514500 
09515000 
09515500 
09316000 
09516500 
09517000 
09517500 
09518000 
09518500 
09519000 
09519500 
09520000 
09520500 
09521000 
09521500 
09522000 
09522500 
09523000 
09523500 
09523502 
09523505 
09523510 
09523515 
09523520 
09523525 
09523530 
09523535 
09523540 
09524000 
09524500 
09525000 
09525500 
09326000 
09526500 
09526510 
09527000 


BEGIN 
STREAMCINTCOUNT#WORDSIFAUXWORDSXL62 AT RAS ESPACE( 10) 23 
BEGIN 
SL#wLOC INTCOUNTS DSSwe8DECS DltsD1°68s OSts7FILL3 
SIsAF Di yeas BCIF SC" @ THEN SIT sS8SI4+1 ELSE DStaCHR)3 
OStwe29L IT" INTRINSICS MOVED TO AUXMEM (i$ 
ST’@eLOC WORDS’ DSteSDECS DSsSFBLIT™ WORDS) «"3 
END STREAM3 
SPOUTCA)S AUXCODELO) $=C#P (DUP) )+AUXWORDS3 
ENDS & IF INTRINSICS MOVED TO AUXMEM 
FORGETSPACECFILEPARAM)3 
FORGETSPACECCODE)3 
HE ADERUNLOCKCMFIDeF IDs HDR)3 
END ELSE LBMESSCMFID®FID®154#0502e001)}3 %’ FILE NOT ON OISK 
END ELSE FORGETSPACECT)3 % AUXMEMDSK NOT INITIALIZED 
END} & IF AUXMEM ON LINE AND TO BE USED 
$ POP OMIT 
INTSIZESSCINTRNSCLO] + 3 9 DIV 4s 
$ SET OMIT = NOTCPACKETS) 
TIteSPACEC1533 WHATINTRNSICCT)3 
STREAMCSt3TeDts3)3 
BEGIN 
S1*#Ss DieeDl+4s & CMBIT IN ML3) 00181) 
63CIF Sca"™," THEN JUMP OUT3 SJ]4aSI41)3 St=SI]3 
QCS]:eS]¢15 IF Sc#"™," THEN JUMP OUT)3 
IF TOGGLE THEN ELSE SJs=sS3 SIsaS]4]3 
3CIF SC<"0" THEN JUMP OUTS TALLYSSTALLY413 STssS]41)3 
SEsTALLYS STteS7"S3s DI teDl=S3 DSt#S CHR} 
ENDS 
FORGETSPACECT)3 
$ POP OMIT 
END INTRINSIC TABLE BUILDERS 
BOOLEAN PROCEDURE SYSTEMFILE(CA®B)S VALUE AoBS REAL AeBS FORWARD} 
PROCEDURE CHANGEINTRINSICFILECBUFF)3 VALUE BUFFS REAL BUFF3% 
BEGIN 
REAL AesBelodeKoLeoFHo Tel TS 
REAL SIZES1TeDISKADDRETeLOCzIT»WlRUs 
LABEL EXITeWITHOUT®NGS 
BOOLEAN SUBROUTINE NULLM]X38 
BEGIN POLISH(C1)3% 
IF INTSIZE#0 THEN BEGIN INTSIZE © 03% 
FOR I*1 STEP 1 UNTIL MIXMAX 00% 
IF JARROWLII#0 THEN 
IF CJARROW(C I) JINX O)2FENCE THEN GO NG ELSE 
IF NOTCJARC129),01%1]) THEN % NOT "SYSTEM" JOB 
NGt BEGIN PCDEL20)3 JeMIXMAX ENDS 
IF NOT PCDUP) THEN INTSIZE © CINTRNSCL0]4+3) DIV 433 
ENDS3 
NULLMIX © POLISH)S% 
END NULLMIX 32 
SUBROUTINE FORGETEM32% 
BEGIN WAITSTORECO)3 STOREDY(O)+03 
WHILE (K © MELJ),fCF)#40 DOX 
BEGIN IF K>0 THEN 
IF Kel3812]"8700 THENS 
FORGETSPACECL4+293% 
L # KelCF)3% 
END32 
ss s- STOREDY(OJes3 
$ SET OMIT ® NOTCAUXMEM) 


09527500 
09528000 
09528500 
09529000 
09529500 
09530000 
09530500 
09531000 
09531500 
09532000 
09532500 
09533000 
09533500 
09534000 
09534100 
09534200 
09534201 
09534500 
09534999 
09535000 
09535100 
09535200 
09535300 
09535400 
09535500 
09535600 
09535700 
09535800 
09535900 
09536000 
09536001 
09537000 
09550600 
99600000 
09601000 
09602000 
09602100 
09602200 
09603000 
09604000 
09605000 
09606000 
09607000 
09607100 
09608000 
09611000 
09612000 
09613000 
09614000 
09615000 
09616000 
09617000 
09616000 
09619000 
09620000 
09621000 
09622000 
09623000 
09624000 
09624010 


£ POP 


FOR Is#1 STEP 1 UNTIL INTRNSCLO] DO IF INTRNSCCIJ.0311) THEN 
BEGIN % INTRINSIC ON AUXMEM 
FORGE TAUXILJARYSPACECINTRNSCLIJ,{CF J+ INTRNSCCIJeCFEIDS 
AUXCODELOJteC#PCDUP) @CINTRNSCEI J, (CFI) ,f3866)"13 
END} 
OMIT 
FORGETSPACECINTRNSC INX 0)$ INTRNSC#O 


END FORGETEM)& 
DEFINE ERROR * GO TO EXIT#I4 


ne 
a] 
>) 
a *] 


$ POP 


SLEEPCETOGLEJe FREEMASK)$ INTFREE ¢ FALSE3S 
T «+ BUFF 32 
NAMEITDCAeT)$3 NAMEIDCBeT)$ NAMETOCBeT)3% 
IF CFHS*#DIRECTORYSEARCH(CA+Be17))#0 THEN ERRORS} 
IF (JeMCFH+4),£3686))#0 THEN 
IF J#DCINTYPE AND J#ATSSINTYPE THEN 
BEGIN 2 DONT ALLOW CJ] ON KNOWN NON@INTRINSICS FILE 
STREAMCAsBeNTISEBUFF,£15815)"1)3 
BEGIN DS&#s2LIT"# "3 STesbLOC As 
STseSl¢13 DSte7CHRs DSSeLIT"s "3 
STtaSTels OSt27 CHR 
DSte24 LIT™ NOT AN INTRINSICS FILE*™3 
END3 
FORGETSPACECFH)3 
FORGE TSPACECDIRECTORYSEARCH(A+B216))3 
ERROR} 
END3 
IF NOT NULLMIX THEN COMPLEXSLEEPCNULLMIX)3 
IF INTRNSC#O THEN FORGETEM3 
OMIT s SHAREDISK 
IF MCPFREE#O THEN SLEEPCECTOGLE J »MCPMASK)3 
LOCKTOGCMCPMASK)3 
OMIT 
Tt=sSPAaCE(30)3 
DISKWAITC*T#"3020)3 
145741345xSYSNO3 
IF CITS#DIRECTORYSEARCHCM(E ] TeME14+1)916))#0 THEN 
FORGETSPACECIT)3 
MET JERA3 
MEl+L]¢sB3 
DISKWAITCT+#"3020)3 
OMIT © SHAREDISK 
UNLOCKTOGCMCPMASK)3 
OMIT 
OMIT = NOTCAUXMEM) 
DISKWAITC™T e302 AUXMEMDSK)S IF CPCRRR)L3081] AND 
USEDRB) OR CPCRRR),€3141] AND USEDRA) THEN 
IF ME T+SYSNO+16)2"AUXMEM “* THEN IF MCT#CSYSNOx4)+2J#0 THEN 
BEGIN 
STREAMC ITS e18eSPACEC2))2 DSte14 LIT"CA INT PLEASEo™3 
SPOUTCIDS CTABLEL4 J.C 3th) sats 
COMPLEXSLEEPCNOT CTABLEC4).£361))3 
END3 
OMIT 
FORGETSPACECT)3 


INTRINSICTABLEBUILDERCFHe(CFI)3 
FORGETSPACECFH)3 
WHATINTRNSICCBUFF.C15915))3 


09624020 
09624030 
09624040 
09624050 
09624060 
09624061 
09624100 
09625000 
09626000 
09627000 
09629000 
09630000 
09631000 
09632000 
09633000 
09633100 
09633200 
09633300 
09633400 
09633500 
09633600 
09633700 
09633600 
09633900 
09634000 
09634100 
09634200 
09634300 
09635000 
09636000 
09636999 
09637000 
09638000 
0963800$ 
09639000 
09640000 
09641000 
09642000 
09643000 
09644000 
09645000 
09646000 
09646999 
09647000 
09647001 
09647999 
09648000 
09648100 
09648200 
09648300 
09648400 
09648500 
09648600 
09648700 
09648701 
09648800 
09650000 
09657000 
09658000 
09659000 


STREAMCBSSBUFF,C1I5¢#15)]"1)s OSs=6 LIT" NEW my 
EXIT’ SPOUTCBUFF,£i5s15]"1)3% 
INTFREE ¢ TRUESS 


END CHANGING INTRINSIC FILES ON USER DISK WITH MANY PRECAUTIONSSS 


PROCEDURE CHANGEMCPC(BUFF)3 VALUE BUFFS REAL BUFF3 
BEGIN 
REAL RCWHs+O0eAGRCW4)1 eBaAeiaTaB+1eZ=Te1eBASEEZo153 
LABEL EXITS 
P(020202020)3 
TERBUFFS 
NAMEIDCAsT)# NAMEIDCBeT)#® NAMEIDCBeT)? 
$ SET OM{T = SHAREDISK 
IF MCPFREE®O THEN SLEEPCETOGLE J »MCPMASK)3 
LOCKTOGCMCPMASK)3 
$ POP OMIT 
ZIFSPACE(30)3 
DESKWAIT(™Z9™3000)3 
BASE S*2Z41045xSYSNO3 
IF CA £QV MEBASE])#NOT O OR 
(CB FQV MECBASE4#1])#NOT O THEN 


BEGIN 
IF CTI®DIRECTORYSEARCH(CA®B217))70 THEN 
BEGINS 
STREAMCASSCAJ*TS=BUFFeC15t15)]°193 
BEGIN DSt#13 LIT"#NO MCP FILE “SSlasasSTs=Si+i3 
DSte7 CHRIOSHSLILTM/"3STteSletsOSt=7 CHRS 
DSeLIT™e"}3 
END} 
GO TO EXITS 
END3 
IF (NTLeMET+#4),£3616])#0 THEN IF NTI#MCPTYPE THEN 
BEGIN % DONT ALLOW CM ON KNOWN NON®MCP FILE 


STREAMCAteELA]»TIsBUFF,C15915I)"1)3 
BEGIN DSts2LiIT*# 93 Si[seas SistaeSlo13 
DSte7CHR DSIsLIT"/s SlseSlei3 
DSt27CHRs OStsL12LIT" NOT AN MCPe";3 
END3 
FORGETSPACEC(T)3 
FORGE TSPACECDIRECTORYSEARCH( AP B216))3 
GO TO EXITS 
ENoS 
IF MEBASE+2]"2#MCPBASE THEN 
FORGETSPACECDIRECTORYSEARCHC ME BASE) »MEBASE+1)+616))3 
MEBASEJ 3A 
MCBASE+1]5"B3 
MCBASE*+2)8eM(T4+10)3 
$ SET OMIT & NOTCAUXMEM) 
DISKWAITC™(T&eT INX 0)9°30*+AUXMEMDSK)3 
MET+CSYSNOx4) )8=NABS(C*P(DUP))$ % NOTE MCP CHANGE 
DISKWA]TC Te*30sAUXMEMDSK)3 
$ POP OMIT ‘ 
FORGETSPACE(CT)3 
ENO3 
STREAMCASB(CA] ee TSBBUFF,£C15815]"1)3 
BEGIN O098:518 LIT * NEXT MCP WILL BE "SSITtsasSismSlel3 
DSt#7 CHRIOSHELIT*/ 3ST eeSteisDSt=7 CHK 
DOS+LIT%+";3 
END} 
3 MESJ*NABSC#PCDUP))§ % SET FLAG FOR WM 
EXITs 


09670000 
09676000 
09677000 
09679000 
09679100 
09679200 
09679300 
09679400 
09679600 
09679800 
09679900 
09679999 
09680000 
09680100 
09680101 
09680200 
09680300 
09680400 
09680500 
09680600 
09680700 
09680800 
09680900 
09681000 
09681100 
09684200 
09681250 
09681300 
09681400 
09681500 
09681505 
09681510 
09681515 
09681520 
09681525 
09681530 
09681535 
09681540 
09681545 
09681550 
09681555 
09684600 
09681650 
09681700 
09681800 
09681900 
09681909 
09681910 
09681920 
09681930 
09681931 
09682000 
09682100 
09682200 
09682300 
09682400 
09682450 
09682500 
09682550 
09682600 


$ 


END 


LAB 
$ 


$ 


DISKWAIT(Ze*3000)3 
$ SET OMIT = SHAREDISK 
UNLOCKTOGCMCPMASK)3 


POP OMIT 


FORGETSPACE(Z)3 
SPOUTCBUFF eC1I5s15)"1)3 


BUFF 3*03 


CHANGING OF THE MCP3 
BOOLEAN PROCEDURE SYSTEMFILECAsB)$ VALUE AsBS REAL Ar BSS 
BEGIN LABEL DISKeLOGs TRUTHS DIR» SYS#REM*DECK eMASKeTEST3 
LABEL OMPS$ 
LABEL SCHED»FIL3 
LABEL MAINT 
$ SET OMIT = NOTCSTATISTICS) 


EL STATS; 
POP OMIT 


DEFINE TSPCTRUTH)#3% 
IF (CB EQV PCDISK))=T THENZ 


PCCCA EQV PCDIR))#=T) OR 
CCA EQV PCDMP))®T) OR 
CCA EQV PCLOG))#T)) 


ELSE IF €B EQV P(LOG))3T THEN’ 


PCCCA EQV P(SYS))8T) & 


SET OMIT = SHAREDISK 


POP OMIT 


OR (CCA EQV PCMAINT))=T)2& 
OR (CA EQV PCREM))=T)% 


)% 


SET OMIT = NOTCSHAREDISK) 
ELSE IF CB EQ@V PCLOG) & CSYSNO417)(2484216))*%T THENS 


POP OMIT 


ELSE 


SET OMIT a 
ELSE 


SET OMIT = 


POP OMIT 
POP OMIT 


PCCCA EQV PCMAINT))=T) % 


OR (CA EQV PCREM))371))% 


IF CA EQV PCDECK)9#T THENS 

PC(CB AND PCMASK)) EQV PCTEST))8T)% 

NOTCSTATISTICS) 

IF (B EQV PCSTATS))= T THENS 

PCCA EQV PCSYSTEM " 

NOTCSHAREDISK) OR OMIT 
&CSYSNO4179042142:6) 


))*T) 


ELSE IF €B EQV PCSCHED))ST THEN 
PCCCA,C6I18]) FQV PCFILIsT)3 


PCRTN)32 
DISK t188 “pDYSK "5% 
LOG tit "LOG "3% 
TRUTHS 38 @37777777777777773% 
DIR 828 "DIRCTRY"32 
SYS trs "SYSTEM "32 
REM ttt "REMOTE “38 
DECK tet "DECK "3% 
MASK ttt @770000000077773% 
TEST #22 @120000000037143% 
DMP 342 “"OMPAREA"}S3 
MAINT#§2:: "MAINT “3% 
SCHED333 "SCHEDUL"33 


Flues?! "OOOOFIL": 


SET OMIT 


NOTCSTATISTICS) 


09682610 
09682619 
09682620 
09682621 
09682700 
09682800 
09683000 
09683100 
09700000 
09701000 
09701500 
09701510 
09701550 
09701599 
09701600 
09701601 
09702000 
09703000 
09704000 
09704500 
09704550 
09705000 
09706000 
09706049 
09706050 
09706100 
09706101 
09706150 
09706199 
09706200 
09706300 
09706400 
09706401 
09707000 
09708000 
09708099 
09706100 
09708200 
09708299 
09708300 
09708301 
09708400 
09708401 
09709000 
09709100 
09710000 
09711000 
09712000 
09713000 
09715000 
09716000 
09717000 
09718000 
09719000 
09720000 
09720500 
09720650 
09720700 
09720750 
09720799 


STATS$3: "STATS "3g 
$ POP OMIT 
END33 
PROCEDURE WHATSGOINGONCBUFH)3 VALUE BUFHS REAL BUFH3 

BEGIN 

REAL TeMXoLMsBUFFeLINE»SeTsPRIMsELTMeQeZ3 

LABEL NOONE sOKs EXIT TeSPUUTIT® EGRESS» MIXUPS 

ARRAY INFC*#)oMIXER[ #3 

BOOLEAN GETBUFF3 

REAL MIXe RCOWs403 

MIX $8 BUFH,(916)3 

LMSeSTATIONMAX413 BUFF SSBUFH,(C15415)°13 

STREAMCLe*13B¢BUFH)3 
BEGIN 
St* BS ODIe*LOc Ls 

0D! IF Sce" " THEN BEGIN Sle SI4#13 GO DD ENDS Be S]3 
IF SC2"0" THEN fF SCS"9" THEN 


BEGIN 

Sle SI4+1! 

IF SC2"0" THEN IF SC<"9" THEN 
BEGIN 
Si* Bi DS* 2 OCTs 
GO EG3 
END3 

Sle Bs DS* OCT; 

END$ 

EG! END} 
IF CLINES®P)20 OR LINE GTR STATJONMAX THEN 
GO EXIT 


IF SYSDISKADR NE@ O THEN 
INF SeCMCSPACECSYSDISKRL)JI&SYSOISKRLI 68 38810)3 
MIXERS CME SPACECMIXMAX41JIRCMIXMAX41)(8336210)3 
IF Cle MIX)#0 THEN GO MIXUP3 
MIXERLOJ® 13 
MOVE CMIXMAXeMIXERSMIXER INX 1)3 
IF SYSDISKADR NEQ@ O THEN 
BEGIN 
IF LINE>O THEN 
BEGIN 
SYSDISKIOC1e*LINEsS INF) 
Ise INES 
IF NOT CIF LINE GTR LMAX THEN 0 ELSE SCHEDLINELLINE)) THEN 
IF NOT STATABLELLINEJ eDIALEDUP THEN 
BEGIN 
GETBUFF® TRUE} 
STREAMCBUFF)3 DS*8 LIT " NULL «3 
SPOUTCBUFF)3 
GO EGRESS$3 
END? 
IF INF£1)] LEQ O THEN GO TO NOONE ELSE 
GO SPUUTIT:3 
ENDS 
FOR I* 0 STEP 1 UNTIL LM DO 
BEGIN 
SYSDISKIOCL*]eINE)3 
IF I LE@ STATIONMAX THEN 
IF STATABLECIIJ,OIALEDUP THEN 
IF INFC1) GTR O THEN GO TO OK ELSE 
IF NOT LINETABLEC 
$ SET OMIT = TWXONLY 


09720600 
09720601 
09721000 


%0S%09800000 


09801000 
09802000 
09803000 
09604000 
09805000 


%0S%09805100 
%DS%09805200 


09806000 
09807000 
09808000 
09809000 
09810000 
09811000 
09812000 
09813000 
09814008 
09815000 
09816000 
09817000 
09818000 
09819000 
09820000 
09621000 
09822000 
09623000 
09823100 
09824000 
09825000 
09825100 
09826000 
09827000 
09827100 
09827200 
09828000 
09629000 
09830000 
09830500 
09831000 
99831500 
09832000 
098633000 
09834000 
09835000 
09835500 
09836000 
09836500 
09837000 
09838000 
09639000 
09840008 
09641000 
09841400 
09841500 
09642000 
09842300 
098642399 


IF I GTR LMAX THEN STATABLELIJ«LEENKER ELSE 09842400 
$ POP OMIT 09642401 
T),DIRECTUINE THEN 09842500 
BEGIN 09843000 
NOONES INFELJ¢#"NOBODY “3 09843500 
OKs IF GETBUFF THEN 09644000 
BUFF 8=SPACEC10) 09845000 
ELSE 09846000 
SPUUTITS GETBUFFe TRUES 09847000 
Qtmis 09847050 
S's1F 1 GTR LMAX THEN O ELSE SCHEDLINELIJ: 09847060 
IF CMXISSTATABLECT]@MIXNR) GTR O THEN 09847100 
IF MX#CANDYINX THEN 09847110 
BEGIN TABCNTCMX)t8TABCNTUMXJ413 09847150 
IF CTa®PUTORTAKE (MX CVAREMX 9 3)J01810244781]00))"NOT 009847200 
THEN @380 ELSE 09847210 
BEGIN 09847220 
The Ts+PUTORTAKECMX»e LPROCTIMELMXJJ9190)3 09847230 
QP ePUTORTAKECMX » CUAREMX 9031940093 09847240 
ZESPUTORTAKECMXo(JAREMXe 1 J Jd 00)3 09847250 - 
IF MX#P2MIX THEN Te T#CLOCK4#PCRTR)S 09847300 
FORMTIMECLEPRTMJ9T)3 09847350 
Te CCCLOCK#PCRTR))/60)*PUTORTAKECMXeLUVEMX*9]]0120) 09847400 
eC1017)3 09847450 
FORMTIMECLELTM) +Tx60)3 09847500 
END} 09847558 
TABCNTC MX] SS TABCNTEMX J" 43 09847600 
END ELSE MXt803 09847650 
STREAMCX#@QmO0r So USSINFEIJ6 Te 09849008 
Q> Ze MESMX» NESPRIMe OLZSELTMs BSeBUFF)S 09850000 
BEGIN 09851000 
S1*LOC US ST*Slols DSeLIT * 3 09852000 
DS*7 CHR} DSe4 LIT” ON "3 UeDt3 09853000 
DS* 2 DEC’ Be DI# Dl* US DS* FILLS Ol* BS 09854000 
S(DSt88 LIT"=(SCHED)")5 09854500 
MCOS* 7 LIT ™ USING "3 09855000 
XCDSts15 LITPHUNG JOBS MIX ="3 SIssLOC Ms DSts2 DECs 09855100 
Ul=eDIy DItsDI923 OSs52 FILLE DI seus 09855200 se Sas este ios eee 
JUMP OUT 2 TO EXITS 09855300 | 
Sle SI+1s DS* 7 CHRS DSe LIT "/"3 09856000 
Sl* SI41s  DS* 7 CHRS DSe LIT "BM; 09857000 ee 
DS*2 DECd U*D1s DIeDI™2! DS*FILLE DIeUs 09857500 
OS*S LIT " PSTS"$ DS*8 CHR} 09858000 
DS* 4 LIT " IN ™$ DS* 8 CHR} JUMP OUT)S 09858100 : ey ee, ; 
EXIT! DSumLiTmety 09859000 
ENDS 09860000 
SPOUTCBUFF)3 09861000 - : 
IF REPLYLMX1<0 THEN 09861100 
IF Q#0 THEN 09861150 
BEGIN 09861200 i 
REPLYEMXJ« VWYS 09861300 
BRINGBACK(MX)3 09861350 
CLICK #eCLOCK#PCRTR) +2405 09861360 
SLEEPCCREPLYLMIX)12%0)5 09861370 
END 09861400 
IF LINE>O THEN GO EGRESS3 09862000 
MIXEREMX)© O8 09863000 
ENDS 09864000 
END} 09865000 


END$ 09865100 


FOR Ie 1 STEP 1 UNTIL 


MIXUPS 


EGRESS! 


IF MIXERCTI#0 THEN 
IF JARCTe*#1]#0 THEN 


BEGIN 


MIXMAX DO 


TABCNTCYTIJSSTABCNTCIIJ413 


Qt03 


IF GETBUFF THEN 


ELSE 


IF CTESPUTORTAKE CT eC VARC IT 9 33)01810 2847513100) )"NOT 0 


BUFF S*SPACE (10) 


GETBUFFe TRUES 


THEN STREAMC] *>BUFF)3 

BEGIN DS##4 LIT"MIX "3 
SPtFLOC 13 DSte2 DEC} 
DSte9 LIT® 1S HUNG#"3 
DIseDI7113 DS#F2 FILLS 


END E 


LSE 


BEGIN TE=T+PUTORTAKE CT» (CPROCTIMEL LJ] +120)3 
IF IsP2MIX THEN Te T#CLOCK+PC(RTR)3 
FORMTIMECEPRTIMJ6T)3 


Te CCCLOCK#PCRTR)I/60)*PUTORTAKEC Te LUVC Te 9) J 6190) 


eCisi7ds 


FORMTIMECCEL TM) «Tx60)3 


Q:=1s 


STREAMCU*® PUTORTAKECT#® CUSERCODELITJJ*190)» 


ENDS 


QePUTORTAKE CI ® (JARRE I #0) 19190)» 
Ze PUTORTAKECT eC VYARC IT ot} )*120)> 
O+ ELTM» Be BUFF) 


Ne PRIM» 
BEGIN 
SteLOc U3 


SleS]¢i13 DSeLIT * "3 


DS* 7 LIT ™ USING ™3 


Ste SI+13 
Sle S]+413 


DS* 2 DECE 
pS* 4 LIT" IN "3 


END} 


DS* 7 CHR} 


Me I>» 


DS#7 CHR3 


DS* LIT "/"3 


DS« 7 CHR DSe LIT "s"3 


DS* 5 LIT * PST=E"s 
DS*+ 8 CHRS 


TABCNTCIIJS@TABCNTILIJ"13 


SPOUT 


(BUFF) 


IF REPLYECII<O THEN 


IF @Q 


THEN 
BEGIN 


REPLYCI1© VWY3 
BRINGBACKC] 3 
CLICKSRCLOCK+P(RTR) 42403 
SLEEPCCREPLYCMIXJ]5°0)3 


END3 


IF MIX#0 THEN GO EGRESS} 


END3 


FORGETSPACECMIXER)3 
IF SYSDISKADR NE@ O THEN 
FORGETSPACECINE)3 


IF GETBUFF THEN 
BEGIN STREAM(CBtsBUFFSSSPACE(5))3 DS §% 7 LIT*"END SMe"3 END 


EXITS 
ENDS 


ELSE STREAMCBUFF)$ DS 1% 6 LIT"NOTHINGS "$3 
SPOUTCBUFF)3 


PROCEDURE FENCEMOVER(Be BUFF)3 


VALUE 


Be BUFFS 


DS* & CHR} 
DS« LIT “e"s3 


09866000 
09867000 
09668000 
09869000 
09669250 
09869500 
09870000 
09871000 
09872000 
09873000 
09873100 
09873110 
09873120 
09873130 
09873140 
09873150 
09873160 
09873200 
09873300 
09873400 
09873500 
09873600 
09873700 
09873800 
09874000 
09875000 
09876000 
09876100 
098677000 
09878000 
09879000 
09880000 
09681000 
09882000 
09882100 
09883000 
09883508 
09883750 
09884000 
09884100 
09884150 
09884200 
09884308 
09864400 
09884410 
09884428 
09884500 
09884600 
09885000 
09886000 
09887000 
09887100 
09688000 
09889000 
09890000 
09691000 
09892000 
09694000 
09900000 
09901000 


ieee 


REAL 


Bs BUFF3 


BEGIN LABEL EXITS 
INTEGER To A3 


BSTREAMCTS#08 BS 

BEGIN SIt*Bs ITF SC#" ™ THEN BEGIN 
Ls S1t#Silei1s IF Sc="* ™ THEN GO TO L ENDS 
IF SC2"0" THEN IF SCS"9" THEN 
BEGIN BteSIs SIteS]413 TALLY3"1; 


TCIF SC<"0" THEN JUMP OUTS IF SC>"9" THEN JUMP OUTS 


SrseSyets TALLYSSTALLY+1)3 
SI3®Rs BIieTALLYs OLeFLOC Ts OS38B OCT3 
END END STREAMINGS 
T t= POLISH? 
T 98 @L00000"((CPCDUP)I"TIDIV CHUNKZIZE)xCHUNKZIZE)3 
IF T<@®20000 OR T>@70000 THEN 
BEGIN SPOUTCBUFF"™1)3 GO TO EXIT ENDS 
SLEEPCETOGLE Je HOLDMASK)$ LOCKTOGCHOLDMASK)}3 
DISKWAITC™CASBSPACEC30) )e™30eDI RECTORYTOP*SYSNO)3 
MCA419]3=T3 
DISKWAITTCAr*30eDITRECTORYTOP*SYSNO)3 
UNLOCKTOGCHOLDMASK)3 
STREAM(T®A)3 
BEGIN DSts22 LIT ™ FENCE TO BE MOVED TO "3 
AtsD13 Srssl0c Ts DS3s8 DEC3 
DStSLIT “es OLIRASs OStB7 FILLS 
END STREAMINGS 
SPOUTCA)3 FORGETSPACECBUFF"1)3 


EXIT# END FENCEMOVERS 
PROCEDURE LINECLEARCKTR)3 


STARTS 


VALUE KTR} REAL KTR3 
BEGIN LABEL START*sBADLINES 


REAL BUFF eL INE» Xs 
3 
STREAMCLINESB"15 XteOe KTRE)3 
BEGIN STtSKTR$ DIseLOc LINES 
Ls JF SC=H*+" THEN GO TO EXIT; 
IF SC<"0" THEN BEGIN SIe«S]J+13 GO TO L END; 
IF SC>"9" THEN BEGIN SI#S]*#13 GO TO L ENDS 
SLessle13 
IF SC<"O" THEN GO TO ONE3 
IF SCS"9" THEN 
BEGIN SleS1*13 DS«2 OCT END 
ELSE BEGIN 
ONE! SleS1*ts DS*i OCT ENDS 
IF Sc#"S" THEN 
BEGIN SlaeSi4is TALLYs383 XsseTALLY: END? 
KTReSI3 
EXIT: END STREAMS 
KTReP} 
XtaP3 LINES SPS 
IF LINE GE@ O THEN 


BEGIN 


BUFF S*SPACE(5)3 
IF LINE#O AND LINE LEQ@ LMAX THEN 
BEGIN 
IF SCHEDLINECLINE] THEN 
BEGIN IF (X86) THEN SCHEDBUSYCLINE J) §#13 
IF SCHENOCLINE) THEN X20 
ELSE IF CX#sSEQARRAYCLINEI ,CCFIIGTR 511 THEN 


09902000 
09903000 
09904000 
09905000 
09906000 
09907000 
09908000 
09909000 
09910000 
09911000 
09912000 
09913000 
09914000 
99915000 
09916000 
09917000 
09918000 
09919000 
09920000 
09920100 
09921000 
09922000 
09923000 
09924000 
09925000 
09926000 
09927000 
09928000 
09955000 
09956000 
09957000 
09958000 
09958500 
09959000 
09960000 
09961000 
09962000 
09963000 
09964000 
09965000 
09966000 
09967000 
09968000 
09969000 
09969600 
09969700 
09970000 
09971000 
09972000 
09972500 
09973000 
09973500 
09974000 
09974500 
09975000 
09975100 
09975110 
09975115 
09975120 


BEGIN SLEEPCEMEX4#32)] 9°03 ML X432)18ABSC*PC(DUP)) END309975125 


STREAMCY##(X GTR SLLIeLINE»sBUFF)3 


BEGIN SIt#LOC LINE? DS#RY LIT" STATION "3 DSts3 DEC: 


LINEt#DI} DltsD1"3s DStee FILLE DI tFLINE3 
YCDSta7LIT® CLEARS"; JUMP OUT TO LL)s 
DSts6LIT"™ IOLEe"3 
LL END3 
SPOUTCBUFF )3 
If X LEQ S11 THEN GO TO START3 
IF CNTISSSTATABLECLINE J] sMIXNR) GTR O THEN 
IF NT41 NEQ CANDYINX THEN 
BEGIN TERMINATECNTI&3CCTFEI)3 
HALT’ NOPROCESSTOG?=NOPROCESSTOG#"13 
END ELSE SHEETDIDDLERCOs™1eL INE) 
MEX#+77)43=MLX478)3 
STREAMCBUFF Pt *BUFF A B@SPACEC5S))3 
DSts30LIT*##TASK TERMINATED BY OPERATORe"3 
MOX+32]1"NABSC#P (DUP) )3 
SCHEDIOC3001+eBUFFELINECCTFI)3 
FORGE TSPACECBUFF )3 
GO TO START) 
END3 
IF LINETABLECLINEJ#0 THEN 
IF BLASTREADCLINEs X47) THEN 
BEGIN 
IF LINEDISCELLINEJSMULTI THEN ENTEREADYQCLINE)DS 
IF STATABLECLINE) ,OUTPUTANKING THEN 
IF TANKLINECLINE]S0 AND TAILOUT#LINE THEN 
BEGIN 
TANKLINELTAJLOUTI&S=LINE3 
TATLOUTS=LINE3 
STARTWORKING?3 
END3 
X3e03 
END ELSE X%8#2 
ELSE 
BADLINE? Xead3 
STREAMCXeLINE » BUFF )3 
BEGIN SItsLoc LINE: 
DSte6 LIT* LINE "3 DS%*3 DEC 
BUFF teDI? DItsD1@3s DSte?2 FILL? DL isBUFF 
CIesecy+#xXs GO TO OK GO TO BADNUM3 
DSse#14 LIT™ DID NOT CLEAR"3 GO TO L3 


OKs OSt#= 6 LIT" CLEARS GO TO L3 
BADNUM! OSsF15 LIT™ NOES NOT EXISTS 
Ls DSeaLrTme} 

END} 

SPOUTCBUFF)3 


GO TO STARTS 
END ELSE GO TO BADLINES 
_END3 
END LINE CLEARINGS 


$ SET OMIT = NOTCDEBUGGING) 
COMMENT GNC RETURNS CHARACTER AT B AND BUMPS B BY ONE 33 
REAL STREAM PROCEDURE GNCC(B)32% 


BEGIN LOCAL Ts SI ©« Bi Die LOC Ts DS* WDSss 


S] * Ts STeSI41s DI*LOC GNC $ DI*DI475 DS*CHR &§ ST*SI13% 


Ole Bs T* SI s SI* LOC T & DS * WOS38 
END GNC 3% 


COMMENT TAN TEST ¢€ FOR ALPHA AND RETURNS RESULT3S 
BOOLEAN STREAM PROCEDURE TANCC) § VALUE C 33% 


09975130 
09975140 
09975145 
09975150 
09975160 
09975170 
09975180 
09975185 


09975190. 


09975200 
09975210 
09975220 
09975230 
09975240 
09975250 
09975260 
09975270 
09975280 
09975290 
09975300 
09975310 
09980000 
09981000 
09982000 
09982300 
09982400 
09962500 
09982600 
09982700 
09982800 
09982900 
09963000 
09983100 
09983200 
09983300 
09983400 
09983500 
09983600 
09983700 
09983800 
09983900 
09984000 
09984100 
09984200 
09984300 
09984400 
09984600 
09984600 
09985000 
09985500 
09986000 
09999999 
10000000 
10001000 
10002000 
10003000 
10004000 
10005000 
10006000 
10007000 


E 
REAL PROC 


BEGINS 
STeLOC C3 SIe#St+7s IF SC#ALPHA THEN TALLY*13% 
TANe® TALLY33% 


ND 


BEGINS 


REAL 


TEST ALPHAMERIC 3% 


EDURE EXP3 
XoTeleP3B 


LABEL G*eB00B003% 
T « 03 
IF c= "+" OR C # 9" THENS 

BEGIN Xecs Te LPS ¢ « GNC(B)3 ENDIS 
BEGINS 

P « O33 

IF CB%+" OR CEM=" THEN CoGNC(B)3E 


00 


ELSE 
ELSE 
ELSE 
ELSE 


ELSE 


ELSE 


BOOBO00s 


GI 


IF 
IF 
IF 
IF 
IF 


IF 


IF 


X @ MyM ZZ 


Ce "e" THEN BEGIN PeLPsCeGNC(B) ENDS 
C # "/" THEN BEGIN P * MCLPJ.£18815)8 C + GNCC(B) ENDS 
C = "eM" THEN BEGIN P + MELP).033615)3 C * GNC(B) ENDS 
C< 7 THEN DO PePx6 + C UNTIL (C* GNC(B))>73% 
ce "," THENS 
BEGIN C#GNC(B)3 DO PePx104C UNTIL (C*GNC(B))>9 ENDS 
TANCC) THEN 
BEGIN DO Pe Px644C UNTIL NOT CTANCC#GNC(B)) 93% 
FOR Ie QO STEP 2 UNTIL NSYMBS DOS 
IF TBLCTJef6842) = P THEN? 
BEGIN P*TBLECI+¢1) § GO TO G END33% 
ERROR *« “NO SYMB" 3% GO TO BOOBOO 32% 
ENDS% 
C= "[" THENS 
BEGIN C # GNC(B)9F2 
Pe EXP $3 IF ERROR # O THEN GO BOOBOO 3% 
P # POLISHCCMEMORY( PJ] *LODsOeINX) 3% 
IF C# "J" THEN’ 
BEGIN ERROR* "NO BRKT"3% 
DO UNTIL CC#GNC(B))#"e" END ELSE C#GNC(B)3% 
ENDS% 


Te T + CIF X="e" THEN P ELSE *P)32 

END UNTIL €C X #C)¥%+" AND C # "mY +) 38 

EXP «+ T3% 

END EXP 33 

STREAM PROCEDURE FRMT1C@eTeMeWB)3 VALUE Qe TeoM3S 


BEGINS 
Ste LOC T$ SKIP SBS DIeWBs DleDI 413% 
IF SB THEN? 
BEGIN? 
SI © Sy+O3% 
7CIF SC #"™0" THEN SIeSl¢1 ELSE DS*CHR) 38 
ENDS 
ELSES 
BEGINS 


SleS1+4s SKIP 3 SBIR 


SCDS#3RESETS3CIF SB THEN DS*SET ELSE DS*RESETS3 


SKIP SB)) ENDS 

DS + LIT Ww"se% 
ST*LOC Q3 SI*SI+73% 
IF SC#"0" THEN BEGINS 

IF Sc s"0" THEN BEGIN’ 

Sle LOC M3 DS* 8 DEC END ELSE BEGIN?’ 

Sl* LOC Ms DS* 8 CHR ENDE DS*LIT*+" ENDS 
ELSE BEGINS © 

SI « LOC Mia 


10008000 
10009000 
10010000 
10011000 
10012000 
10013000 
10014000 
10015000 
10016000 
10017000 
10018000 
10019000 
10020000 
10021000 
10022000 
10023000 
10024000 
10025000 
10026000 
10027000 
10028000 
10029000 
10030000 
10031000 
10032000 
10033000 
10034000 
10035000 
10036000 
10037000 
10038000 
10039000 
10040000 
10041000 
10042000 
10043000 
10044000 
10045000 
10046000 
10047000 
10048000 
10049000 
10050000 
10051000 
10052000 
10053000 
10054000 
10055000 
10056000 
10057000 
10058000 
10059000 
10060000 
10061000 
10062000 
10063000 
10064000 
10065000 
10066000 
10067000 


IF SB THENS 
BEGIN’ 
DS + 3 RESETS3CIF SB THEN DS*SET ELSE DSeRESET 
SKIP SB)3% 
3¢S5(DS*3 RESETI3CIF SB THEN DS*SET ELSE 
DS*RESET & SKIP SB))3% 
OS « LIT ™ ") 3% 
ENOS 
ELSES 


10068000 
10069000 
10070000 
10071000 
10072000 
10073000 
10074000 
10075000 
10076000 


2(8(DS*3 RESETI3CIF SB THEN DS*SET ELSE DS*RESET10077000 


3 SKIP $B))3 DS* LIT * "73% 


Die DIR1# DS © LIT*e"3% 


ENDS 


END 3% 


PROCEDURE DT3 


Lat 


BEGIN 


REAL ClheLITCeleToN3S 
LABEL LAr LBeFOUND® BANGP EXITS 
DEFINE READSPO = NO UNTIL WAITIOC! INX RBX JINX @40000000%0377> 


DEFINE 


25) = 0 #3% 


WRITESPO = NO UNTIL WAITIOCWB INX 000377225) = 0 #3% 


REAL RCWR+03% 
POLISHCO#RDSe5e =e 0a XCHeCKXeSTFIIE 


HALT32% 


SLEEP CE TOGLE J ®KEYBOARDMASK)$ LOCKTOGCKEYBOARDMASK)3 
STREAMC(CeC(RCW INX O)BRCWE 3081032) 2 WB) 3% 

BEGIN 

Die WBS DSe LIT""™"s DSe*6 LIT"CIL & "3% 

Sle Cs SileSi*2s CeSys% 

Ste LOC Cs SI*SI+5s SKIP 3 SBs% 


S(DS* 3 RESETS3CIF SB THEN DS*SET ELSE DS*RESETSSKIP SB)) 
DS+LIT™s" § ST*LOC C8 STeS]+55% 


5 


DS*4RESETS2C1F SB THEN DS*SET ELSE DS*RESETS SKIP SB)3% 
DSeLIT"e"3% 


ENDs& 


POLISH(,CLoee) 32 
TRLLCISJ*MCRCWALIBtI5IIC18tiSssse% 


WRITESPOSS 


LITC+03% 


FOR I*i STEP 4 UNTIL NSTOP DOS 
IF STOPSC1)],030918) = CL THEN LITCe STOPSEI),£18110)3% 


READSPO 


3% 


NOBACKTALK«FALSE3& 


ERROR*O3% 


B « RBX [NX 13 
STREAM(Q¢B) 5% 
BEGIN’ 


Sl¢Q3 


DIieQs DileDI+13% 


Ls IF SC#%e" THENS 


BEGINS 

IF Sc#@14 THEN SleSI+1 ELSES 

IF Sc® " " THEN SI¢SI4¢1 ELSE DS#CHR3% 
GO Lyk 

ENDI% 


DS* CHRs% 


ENDs% 
C*GNC(B)3% 
IF Cote" 


IF cev2e 
IF cemse 


THEN GO TO LA#S 
ae BEGIN TYPETOG*+GNC(B)$ CeGNC(B) ENDI% 
HEN 


10078000 
10079000 
10080000 
10081000 
10082000 
10083000 
10084000 
10085000 
10086000 
10087000 
10088000 
10089000 
10090000 
12000000 
12001000 
12002000 
12003000 
12004000 
12005000 
12006000 
12007000 
12008000 
12009000 
12010000 
12011000 
12012000 
12013000 
12014000 
12015000 
12016000 
12017000 
12018000 
12019000 
12020000 
12021000 
12022000 
12023000 
12024000 
12025000 
12026000 
12027000 
12028000 
12029000 
12030000 
12031000 
12032000 
12033000 
12034000 
12035000 
12036000 


BEGINS 12037000 
C+GNC(B)3% 12038000 
TeEXPS IF ERROR # O THEN GO LB3S 12039000 
STREAMC LeOtTeSePOLISH( DT s4exe2eedaVe0) 5% 12040000 
BEGIN’ 12041000 

Sl«T3% 12042000 

Q3 SleSy74+03 LeSts SyeSl413 SKIP 4 SBR 12043000 

IF SB THEN GO @} SKIP SB3% 12044000 

IF SB THEN GO Q3% 12045000 

S1#51+03 SleS]*233 12046000 

Die LOC Ls DI*DI +33% 12047000 

DS* 2 CHRS Die 3% 12048000 

Sle LOC Si SleSI+6s DS* 2 CHRSS 12049000 

ENDS 12050000 
POLISHCESTOPSENSTOPeNSTOP+L J lo) 3% 12051000 
STREAMC CLeSTOPS(CNSTOPJ+WB)3% 12052000 
BEGIN’ 12053000 

DI* WBS ODeDI+is St*LOc CLss% 12054000 

Sle S14#53 SKIP 3 SBs% 12055000 

5( DS* 3 RESETS 3CIF SB THEN DS*SET ELSE DS* RESET% 12056000 

SSKIP SB))3% 12057000 

DSe LIT™s"s Ste LOC CLs SleS1+53% 12058000 

DS* 4 RESET#& 12059000 

2C IF SB THEN DS*SET ELSE DSeRESET3 SKIP SBS) 3% 12060000 
DSeLIT%+"3% 12061000 

ENDS 12062000 
WRITESPOSS 12063000 

GO TO Lass 12064000 
ENDS% 12065000 

IF cr"@" THENS 12066000 
BEGINS 12067000 
C+GNC(B) 3% 12068000 
T*EXPS IF ERROR#0 THEN GO TO LB? 12069000 

IF Ce"SPTHEN Te T&CCeGNCCBIIL3084682) 3% 12070000 
FOR Je1 STEP 1 UNTIL NSTOP DO 12071000 

IF STOPS{13.030%18) = T THEN GO FOUND34 12072000 
ERROR* "NO STOP"3S GO TO LB32 12073000 
12074000 

STREAM ( LeSTOPSC II] 0Ve0)s% 12075000 
BEGIN DieLsSt * LOC Ls S]*S1+#3s DS * 2 CHR ENDS% 12076000 

GO TO LASS 12077000 
ENDSS 12078000 

C = "3" THENE 12079000 
BEGIN 12080000 

C «+ GNC(B)3% 12061000 

FOR | * O STEP 2 UNTIL NSYMBS DOS 12082000 

IF TBLCI),€1915) & C THEN BEGINS 12083000 
FRMTICTYPETOGs*TBLECIJ»MEMORYCTBLE I +1) ]¢WB)52% 12084000 
WRITESPOS2% 12085000 

IF NOBACKTALK THEN GO TO LA3% 12086000 
END3% 12087000 

GO TO LAS’ 12088000 
ENDS 12089000 

IF c= "3" THEN GO EXITS 12090000 
Te EXP $ IF ERROR # 0 THEN GO LBES 12091000 
IF ¢C & "3" THEN? 12092000 
BEGIN? 12093000 
CeGNC(B)3% 12094000 
NeEXPPis IF ERROR #0 THEN GO LB ELSE GO BANGSS 12095000 


ENDs% 12096000 


BANGS 


LBs 


EX] 7:3 


N « 036 
IF c= "3" THEN? 
BEGIN’ 


CLeOs 1038 
IF CC*GNC(B)) $9 THEN CLeC3% 
DO I] « I «x 64 + C UNTIL NOTCTANCCeGNC(B)) 232 
NSYMBS¢NSYMBS4+23% 
TBLEINSYMBS) #+7&CL01843:25]3 TBLEINSYMBS41] « T3% 
GO BANG?3 
ENDS& 
IF c= "3" THENS 
BEGIN 33 
IF CC#GNCC(B))S$9 THEN BEGINS 
STREAM( [#032 
WBe BeleOrKe0) 3% 
BEGIN? 
SI # WBIS 
16CIF SC2"0" THEN BEGIN TALLY«TALLY4#13S]1 «S141 END 
ELSE JUMP OUT TO Z D3Zk% 
L « TALLY} TALLY «+ 163% 
LC TALLY*TALLY + 63)3 KeTALLYIDI«% 
Loc | § KCSKIP 3 0B)3% 
SI « WB3% 
LOSKITP 3 SBS3CIF SB THEN DS*SET ELSE DS«RESET33& 
SKIP SB ))3% 
ENDI2 
POLISHC ECMEMORYL TJ Je«)3% 
END ELSE 
IF Ce"," THEN’ 
BEGIN J*O3 WHILE (C*GNC(B))S9 DO Jelx104C3% 
MEMORY(C TJ] ey i% 
END ELSE BEGIN [603 DO Le]x64+C UNTIL NOT CTANCC#GNC(B)))3% 
MEMORYELTJ*] ENDIS 
GO BANG 33% 
END} 
IF c #%e" THEN 
BEGIN ERROR «"[LL EXP™3 GO LB END32 


FOR I «© O STEP 1 UNTIL N 908 
BEGINS 
FRMTLCTYPETOGeLPeT+  sPOLISHCCMEMORYCLP JJ eLOD) eWB)S% 
WRITESPOSS 
IF NOBACKTALK THEN GO TO LA#3 
END33 
GO TO LASS 
STREAM CERROR» WBeRBX)3% 
BEGINE 
S] © RBX3 DJ] «© WBS DI ©« DI+i3 
SJ«S14+93% 
Li IF SC # "eo" THEN BEGIN DS* CHRS GO TO L END3% 
DS *6LIT"ERROR "3 ST*LOC ERRORS SleoSloi9% 
OS «© 7 CHR 3 DS © LIT "o%3d 
END 
WRITESPO 33 
GO TO LAs® 


MEWB) © NOT O38 WRITESPOSS 
UNLOCKTOGCKE YBOARDMASK )} 
NOPROCESSTOG*NOPROCESST0G"1 3% 
POLISHCLITC#RTN) 3% 


12097000 
12098000 
12099000 
12100000 
12101000 
12102000 
12103000 
12104000 
12105000 
12106000 
12107000 
12108000 
12109000 
12110000 
12111000 
12112000 
12113000 
12114000 
12115000 
12116000 
12117000 
12118000 
12119000 
12120000 
12121000 
12122000 
12123000 
12124000 
12125000 
12126000 
12127000 
12128000 
12129000 
12130000 
12131000 
12132000 
12133000 
12134000 
12135000 
12136000 
12137000 
12138000 
12139000 
12140000 
12141000 
12142000 
12143000 
12144000 
12145000 
12146000 
12147000 
12148000 
12149000 
12150000 
12151000 
12152000 
12153000 
12154000 
12155000 
12156000 


END3% 
$ POP OMIT 
REAL PROCEDURE PRNPBTSPECASE1(Z)3 
% 
% THIS PROCEDURE HANDLES THE FOLLOWING FUNCTIONS FOR COM19¢ 
% ON THE VALUE OF Z3 
% 0 FINDS THE NEXT REEL OF TAPE, 
z 61 FINDS THE NEXT REEL OF A BACKUP DISK FILE, 
z 2 HANDLES THE QT + OR = MESSAGE. 
% 3 INITAILIZES A NEW FILE COR PACKET), 
: 4 HANDLES TERMINATION OF A FILE® 
VALUE Z3} REAL Z3 
BEGIN 
REAL RCWa4+05+ MSCWH"2s COMMONS" 43 
ARRAY  INREC#410¥)3 
ARRAY FPBSINREC+1(*)» LOGINFORFPB41(*)»* HEADERS=LOGINFO+IL#)3 
REAL UNITSHEADER4+1s VeUNIT+{>+ COPY#V+ie MFIDSCOPY+1> 
LODSFID+1» Te10041» BaTet3 
REAL SEARCHVAL2B+1+2 CURROWSSEARCHVAL41«e FIRSTFID=CURROW41 >» 
SEGNR#FIRSTFEIDELS . 
REAL X@SEARCHVAL»s NUMeECURROWs RECOUNT#SEGNR3 
BOOLEAN SIGNEDON®SEGNRe1e FORMTOG=SIGNEDON+12 ABORTED#FORMTOGS13 
BOOLEAN TERMFLAGSLOGINEOs NOCONT#®FIRSTFIDS 
$ SET OMIT = NOT PACKETS 
BOOLEAN STOG=ABORTED+13 
REAL PCOPY#STOG+1«» PFIRSTFIDSPCUPY+13 
$ SET OMIT © PACKETS 
REAL PFIRSTFID®FIRSTFID» PCOPY=COPYS 
$ POP OMIT OMIT 
LABEL RDe RED» SPACEND* NOMORE» NOFILE* AUT*® BOMBERe NEXTFILE® 
PNCHLKe PRINTITAGAIN® EOF» PRNTDS» PNCHDS* TAPENDs 
RETURNFALSE® REMOVEMs TESTe TAPECL» STOPTIMEs RETURNTRUE» 
RETURNTOCOM193 
LABEL LOOK4TAPEs NOMOREELS» QTSPEC® INITIALIZE» STARTANEWFILES 
SWITCH SW t= 
LOOK4TAPEs NOMOREELS» QTSPEC® INITIALIZE»® STARTANEWFILES 
DEFINE ODSED ® (TERMSETCPIMIX) )#> 
QTED = (PRICPIMIXe@25)#0) #e 
VF & 4335#e 
UNITF = 3815#s 
COPYF = 3026#» 
NUMF e 22188» 
NOTP =e 29018» 
cOPYO B 21518. 
$ SET OMIT & PACKETS 
REELNO = 302188, 
$ SET OMIT = NOT PACKETS 
REELNO = ADt6Hs 
$ POP OMIT OMIT 
SEPARATION # 4683 % FOR 6 LPI, SET IT TO 70 FOR 8 LPI, 


FIDFMFID+1. 


DEPENDING 


CONTINUE® 


12157000 
12157004 
12500000 
12500100 
12500110 
12500120 
12500130 
12500140 
12500150 
12500160 
12500170 
12500180 
12500500 
12501000 
12501500 
12502000 
12502500 
12503000 
12503500 
12504000 
12504500 
12505000 
12505500 
12506000 
12506500 
12507000 
12507500 
12509500 
12510000 
12511500 
12512000 
12512500 
12513000 
12513500 
12513750 
12514000 
12514500 
12515000 
12515500 
12516000 
12516100 
12516150 
12516200 
12516250 
12516300 
12516350 
12516500 
12517000 
12517500 
12518000 
12518500 
12519000 


Be Oe OE IO IORI OOO IGOR RIOR SO OR NOK aoe em kee 1 2519500 


SUBROUTINE RDYTAPES 


BEGIN 


B,£1839)35e54;3 
PCWAITIOC@G200000000000eUNIT)e#DEL)3 

PCWAITIOCBrOeUNIT)SWAITIOC Be @400eUNTT) *+ DEL es DEL) 
RECOUNT! #@777773 


12520000 
12520500 
12521000 
12521500 
12522000 
12522500 
12523000 


ENDS 


12523500 
12524000 


JUISIO IOI III III IO IC II ICICI UID RIOR IGOIOIIOOIEIO OI Ii iG toek 12524500 


SUBROUTINE REWIND; 


BEGIN 
STOPTIMING(CO*1023)3 
PCWAITIOC@4S200000000°0°UNIT) #DEL)3 


ENDS 


IF CSAVEWORD AND TWOCUNIT))®0O AND PRNTABLELUNITI,C1s1) 
AND NOT CSVPBT OR QTED OR NOCONT) THEN 

FORKCPCePURGEIT)*UNIT2™2912801) 

ELSE 

BEGIN LABELTABLECUNITJ#@1143 
MULTITABLECUNITJ©ROCTABLECUNITJ«0}3 
SLEEPCETOGLE J »STATUSMASK )3 
READY*READY AND NOT NTS#TWOCUNIT)I 
RRRMECH*NOT NT1 AND RRRMECH OR NT} AND SAVEWORDS 

END3 


12525000 
12525500 
12526000 
12526500 
12527000 
12527500 
12528000 
12528500 
12529000 
12529500 
12530000 
12530500 
12531000 
12531500 
12532000 
12532500 
12533000 


FIO IORI IOI IGIOI OIG UI IO INOUE IO tok Om kode 12533500 


BOOLEAN SUBROUTINE LOOKFORTAPES 


BEGIN 


END3 


TIFRDCTABLECUNITI3 
REWIND} 
IF SIGNEDON THEN FPBL4)1=FPBC4)*LOGINFOLIB8I"CLOCK*PC(RTR)3 


12534000 
12534500 
12535000 
12535500 
12536000 
12536500 


IF PCCTESFINDINPUTCMFID0@1222123425464470T (14810) 415750124817]912537000 


"Or0eT##0100090)) GEQ@ Or DUP) THEN 
BEGIN 

RDCTABLECUNIT##T],COI6)35P1MIX3 

LABELTABLELUNITIJ&aFID3 


FPBSePRTCPIMIXe3]3 ® FINDINPUT CALLS STARTIMING 


12537500 
12538000 
12538500 
12539000 
12539500 


TF STGNEDON THEN FPBC4ISSFPBL4I+LOGINFOL2Z4]+4+CLOCK+#PC(RTR)§ 12540000 


RDYTAPE3 
ENDS 
LOOKFORTAPEI=P3 


12540500 
12541000 
12541500 
12542000 
12542500 


2h ee IORI ROCIO ER tO ROE On ee a ee 12563000 


REAL SUBROUTINE READTAPES 


BEGIN 


RO$ 


RED! 
END) 


Fo i IOI IORI IOI RII IO NOI IOI IOI IOIOIOII RIO IOI RIOR Ki gk 


IF DSED OR PRTICP1IMI]Xs@25)e5 THEN BEGIN PC5)3 GO TO RED END? 


IF WAITIOCBs@2000040+UNIT) £4231] THEN 
BEGIN 
PCWAITIOCB» @20000K40eUNIT) 2 DEL) 
IF MCB INX 3] THEN 
IF LOOKFORTAPE THEN GO TO RD} 
PC3)3 
GO TO RED} 
ENDS 
FOR Tt#17 STEP 18 UNTIL 89 DO 
IF MEB INX T),£2031] THEN Tte2563 
P(T>200)3 
READTAPES =P} 


12543500 
12544000 
12544500 
12545000 
12545500 
12546000 
12546500 
12547000 
12547500 
12548000 
12548500 
12549000 
12549500 
12550000 
12550500 
12551000 


12551500 


12552000 
12552500 
12553000 


BOOLEAN SUBROUTINE SPACETOFILES 12553500 


BEGIN 12554000 
X:3NUM3 12554500 

WHILE (Xsexe1) GEQ O DO 12555000 

BEGIN 12555500 

DO UNTIL CTS#READTAPE)DS 12556000 

IF T GE@ 3 THEN BEGIN P(1)% GO TO SPACEND END3 12556500 

END} 12557000 

PqO)3 12557500 

SPACEND?t 12556000 
SPACETOFILES=P3 12558500 

END} 12559000 
12559500 

FESR OROORR RIOR IORI IOR RIOR RR OIOR IGRI RIO Roki 12560000 
12560500 

BOOLEAN SUBROUTINE FINDFILES 12561000 
BEGIN 12561500 

IF CHEADERS*DIRECTORYSEARCHCMFIDe"FID*SEARCHVAL)) LSS 64 THEN 12562000 

GO TO NOMORES 12562500 

HEADERS =CMCHEADERI J&830(63363:10);3 12563000 

SEGNR!8 #03 12563500 

CURROW1 103 12564000 

IF ABORTEDS ®HEADER(53,0€2%1) THEN 12564500 

IF HEADER(7)60 THEN 12565000 

BEGIN 12565500 

NOMORE$ PC1)3 12566000 
GO 710 NOFILES 12566500 

END$ 12567000 
LABELTABLELVIJLeNABSCFI0O): 12567500 

P(O)3 12568000 

NOFILES FINDFILESSPS 12568500 
END} 12569000 
12569500 

SE ey EURO RR IIOI SR IGIGIORIR IROIGIOIOR RIGOR IOI OI IO kb ao ko 12570000 
12570500 

BOOLEAN SUBROUTINE NOMOREREELS} 12571000 
BEGIN 12571500 

IF HEADERe CCF] GE@ 64 THEN FORGETSPACECHEADER)3 12572000 

IF FID,CREELNOJ&®0O THEN 12572500 

BEGIN HEADER! #0} 12573000 

PC1)3 12573500 

END ELSE 12574000 

BEGIN 12574500 
STREAMCONES@1e FS@C(FIDI)3 12575000 

BEGIN SItseLOc ONE D0S#28 ADD ENDS 12575500 

PCFINDFILE)3 12576000 

ENO! 12576500 
NOMOREREELS¢#P}3 12577000 

END! 12577500 

$ SET OMIT = NOT PACKETS 12578000 
12578500 

BW he a hee a ORO OO RE EEK REE KERR KEKE 12579000 
12579500 

BOOLEAN SUBROUTINE NOMOREFILES?3 12580000 
BEGIN 12580500 

IF NOT PCFID,C30812)2"99" OR COMMON, LNOTPJeDUP) THEN 12581000 

BEGIN 12581500 

PCDEL)3 12582000 
STREAMCONEt@1e FLetF iO] )3 12582500 


BEGIN SIs#LOC ONES SltsSle+6s DIteD1 +55 12583000 


DSts2 ADDS DStSLITti%3 12583500 


END3 12584000 
FIRSTFID&eFID3 12584500 

PCFINDFILE)3 12585000 

END3 12585500 
NOMOREFILES#2P3 12586000 

ENDS 12586500 

$ POP OMIT 12587000 
12587500 

FOUR II IIOI IEICE ICI HOI iH 12588000 
12588500 

SUBROUTINE REMOVEIT; 12589000 
BEGIN 12589500 
TISDIRECTORYSEARCHC@MF IDe™CFIDS®PFIRSTFID)*®SEARCHVAL)3 12590000 

IF T GE@ 64 THEN 12590500 

$ SET OMIT = NOT PACKETS 12591000 
DO BEGIN 12591508 

$ POP OMIT 12592000 
DO IF FID®IOD THEN GO AUT UNTIL NOMOREREELS? 12592500 

$ SET OMIT = NOT PACKETS 12593008 
END UNTIL NOMOREFILES3 12593500 

$ POP OMIT 12594000 
AUTS 12594500 
END} 12595000 
12595500 

FOI ORIG I IO OOOO IOI OO eioee 12596000 
12596500 

SUBROUTINE PAGEVECT? 12597000 
BEGIN 12597500 
PCWAITIOC@400010000020eV)» DEL): 12600500 

ENDS 12601000 
12601500 

TI IOIIIGIIO IO IOIOI I IOIGIOIIOIGIOII IOI OGIO RIO III OO RIO Oi oi 12602000 
12602500 

SUBROUTINE WRITEB3 12603000 
BEGIN 12603500 
PCWAITIOCB INX @210104000000°09V)5 DEL)? 12607000 

END3 12607500 
12613000 

FORO III IOI IOIOII ORIG IOI IOIGIOIIDIDIUIGR EG IOI OI OIOIO IG OIC IOI iit 12613500 
12614000 

SUBROUTINE SETUPINRECS : 12614500 
BEGIN 12615000 
INRECSS(0M(CB INX CUNIT318))1&816(6838:10)3 12615500 
INRECL17) 380; 12616000 

END) 12616500 
12617000 
ZOO IOI ISOS IGOR IOS IO III IOI IOI I NOI HOI Et ioioi io 12617500 
12618000 

SUBROUTINE INVALIDNUMS 12618500 
BEGIN 12618750 
FILEMESSC"INVALID*e "FILE "e0e"NUMB #”eNUM412000)3 12619000 

END} 12619250 
12619500 

ZOO IUCR IOI IOIIOIGIOR IO IOICIIOIDISIDI IOI IOI II IOI HOI iO HOR aoe ie 12620000 
12620500 

PCDELeZeMSCWeSTF)?3 12621000 

GO TO SWIP]); 12621500 

4 12621900 


a LOOKFORTAPE FINDS THE NEXT REELe THE FIRST RECORD JS A LABEL SO 12621910 


% INREC IS MOVED DOWN TO SKIP IT, 
LOOKATAPES 


PCLOOKFORTAPE)3 
INRECS@CNOT 17) INX INRECE 
RECOUNT#=03 

GO RETURNTOCOM1I93 


NOMOREELS! 


PCNOMOREREELS)3 
GO RETURNTOCOM193 


QTSPECE 


PRTICPIMIXe@25)] 203 

P(T)} 

IF UN] Ta18 THEN 

BEGIN NTQ25(T,f9#24) DIV 5)&T018291 
TODt®CHEADERE SJ] DIV 3)x33 
IF (Tt#3xNT2+SEGNR) LSS O THEN 
DO IF CCURROWS sCURROW*1) LSS 1 
BEGIN 

IF FID®FIRSTFID THEN GO T 


IF SEARCHVALS3 THEN PCDIRECTORYSEARCHC*MFIDeFIDe13) DEL) 3 


FORGETSPACECHEADER)3 
STREAMCONE 315 FSRCE IDI) 
BEGIN SIteLOc ONES pSis8 
IF CHEADERt*DIRECTORYSEAR 
THEN GO BOMBER} 
HEADERS 2(MEHEADERIJI&30(88 
CURROWS#HEADER(9],(4315)+ 
WHILE HEADERECURROWJ=0 DO 
IF CURROW<10 THEN 
BEGIN 
BOMBER? NT1L3="/RANGE +%3 
IF CNT2S=PRTICPIMIX0@ 


IF CCURROWPSCURROW41) GE@ CHEADER(9).(43415)410) THEN 


NTLSENTI&"@ "CP 4asd286 
FILEMESSC® INVALID.” 
NTieNT2,698 
PRICPIMIXs@25) 4853 
P(DEL)3 
GO RETURNFALSE$ 
END3 
END UNTIL CT8eyOD4eT> GEQ O 
ELSE 
BEGIN 
IF T GE@ [0D THEN 
DO 
NEXTFILES IF NOMOREREELS THEN G 


UNTIL CT#eT@10D) LSS JOD 
IF CCURROW"10)x]0D4T GTR 
GO TO NEXTFILES 
END} 
SEGNRt&T3 
PCI9)5 
-END ELSE 
BEGIN 


® BE CAREFUL OF THIS. 
% DISK PORTION 
3 


® CALCULATE TRUE ROW SIZE 


% SPACE BACKWARD 


OQ THEN % TO A PREVIOUS FILE 


0 BOMBERS; 


SUB ENDS 
CHCMFIDsFIDe5)) LSS 64 


36310)3 


93 
CURROWS SCURROW™1;3 


293),0281) THEN 


Vi 
QT "s0e 
243 2000)3 


% FORCE A QT 
® LEFT AT 12626500 


B SPACE OJSK FORWARD 
% 10 ANOTHER ROW» 


12621920 
12621930 
12622000 
12622100 
12622500 
12623000 
12623500 
12624000 
12624400 
12624500 
12624600 
12625000 
12625500 
12625900 
12626000 
12626100 
12626250 
12626500 
12626750 
12627000 
12627500 
12628000 
12628500 
12629000 
12629500 
12630000 
12630500 
12631000 
12631500 
12632000 
12632002 
12632500 
12633000 
12633500 
12634000 
12634500 
12635000 
12635500 
12636000 
12636500 
12637000 
12637500 
12638000 
12638500 
12639000 
12639500 
12640000 
12640500 
12641000 


® CHECKING FOR NEW FILE12641500 


0 TO BOMBER 


HEADERKL7)x3 THEN 


% TAPE PORTION 


12642000 
12642500 
12643000 
12643500 
12644000 
12644500 
12645000 
12645500 
12646000 
12646500 


IF T,0221) THEN % SPACE BACKWARD 12647000 


IF (T8#T,09824)]) LSS INRECE(L171],.0CF) THEN 12647500 

BEGIN [OD%8=(T4+4) DIV 53 12648000 

DO PCWAITIOCC B89 INX B)&7£2284583) e0,UNIT) DEL) 12648500 

UNTIL CIOD##100%1) LE@ O OR DSED OR @QTED;3 12649000 

RECOUNT3#5;3 12649500 

END ELSE GO TO BOMBER ® REEL SWITCH NOT ALLOWED 12650000 

ELSE 12650250 
BEGIN fODs#(T,£9924)) DIV 53 % SPACE FORWARD 12650500 

NO UNTIL CX##READTAPE) OR CIOD$#10D°1)203 12651000 

IF I10D#0 THEN 12651500 

IF X#5 THEN GO TO BOMBERS % SeOS*ED, LET IT FALL THRU.12652000 

RECOUNT?=03 12652500 

END} 12653000 
RECOUNTS®(M[LB INX 17] INX NOT RECOUNT),CCFI)3 12653500 
P(18)3 12654000 

END) 12654500 
% 12654900 
z FIX UP INRECe BUILD 10 DESC AND QT MESSAGE AS NEXT TO BE WRITTTEN, 12654910 
z 12654920 
PCT3SB INX PCXCH))3 12655000 
INRECS@INREC&PCXCHICICTCI3 12655500 
MET@LJESCRECOUNT4+ID&74C19 34187) aC VE22)C298aae a); 12656000 
NTLssPy & LEFT AT 12626500 12656500 
STREAMCASSNTI ACF FIs CrENTIs(2ti)e2 PNCHE=VS22— BrsT@18)3 12657000 
BEGIN DS8#16 LIT%<<ccedeeeceeeece 12657500 
ClisCl+PNCHs GO TO PRNT3 DSt#7? LIT PUNCH" GO TO L413 12658000 
PRNTSOSta7 LIT*PRINTER"S ~ 12658500 
Lit OSts2i LIT" BACK UP FILE SPACED "3 12659000 
CresCl4+Cs GO TO FERS DSts4 LIT*BACK*3 GO TO L23 12659500 

FER? DSts4 LIT" FOR" 12660000 
Let pSte4 LIT WARD"; 12660500 
STs=LOC AS DS8$36 DEC! BIFDI3 DISeDI"63 12661000 
OS:*5 FILLS DIs=B3 12661500 
Cli*Cl+PNCH? GO TO LIN$ O0S!155 LIT" CARD"$ GO TO L33 12662000 

LIN' DSte5 LIT* LINES 12662500 
L33 DSt517 LIT%S, >>>>>>>>>>>>>>"3 12663000 
BtaDls ST#=Bs SieeS1"8s DSis7 wOS} 12663500 

END} 12664000 
GO RETURNTRUE3 12664500 
12664900 

INITIALIZES 12665000 
12665100 


% HANDLES MISCELLANEOUS SETUP TASKS» INCLUDING STARTING THE TIMING FOR12665110 
% LOGGING» CHECKING AND READYING THE INPUT FILE AND SPREADING COMMON, 12665120 


3 12665130 
RCW,CCF IPC ,COMI9* LOD) INX 13 12665500 
VE=COMMON, LVF] 12667750 
IF PC, TNREC*#LOD)#0 THEN 12668000 
BEGIN 12668250 

IF LABELTABLECV],0115)#@21 THEN % PRINTER CLPED 12669500 
BEGIN 12669750 
IF CUNITSSCOMMON,CUNITFJ)<16 THEN 12670000 

IF LABELTABLELUNIT)#@21000000606060608 12670250 
TINUCVJ(6%30818) THEN SETNOTINUSECUNIT®0)3 12670500 

GO TO INITIATES 12670750 

ENDS 12671000 
LABELTABLELV],(S#1]2303 12671250 
PRICPIMIX*e@25] 303 12672000 


BteCGETSPACE(915001)4+2)890(8338810)3 12672500 


END} 
RDOCTABLELCVJ.CO:6)s=P1MIX3 
STARTIMING(5oV)3 
STARTIMINGCO*UNTTS®COMMON,CUNITE J)3 
FPBtePRT[PIM]Xe3)3 
COPYS*™COMMON,ECOPYF 73 
IF UNIT=18 THEN 
BEGIN 
MFIDteIF VF22 THEN “PUD " ELSE "PBD "3 
FIRSTFIDS=LABELTABLE([V],(6242]3 


$ SET OMIT = NOT PACKETS 


IF NOT COMMON, CNOTP) THEN BEGIN PCOPYt®COPY3 COPY!#0 ENDS 
PFIRSTFIDss& 


$ POP OMIT 


FIOSRFEIRSTEID: 
SEARCHVAL1I#33 
IF FINOFILE THEN GO RETURNFALSES 
END ELSE 
BEGIN 
ABORTED# #03 
NOCONTS®CCNUMS=COMMON,LNUMF J) OR COPY) #03 
MF IDS=MULTITABLECUNITI3 
IF LABELTABLECUNITI.2€115)#@21 THEN 
BEGIN ABORTED3s23 
GQ RETURNFALSE3 
END} 
FIDtSLABELTABLECUNITI&a(*PCOUP) 806584731 )3 
RDCTABLECUNITI],C8:oO] ssPiMI x3 
RRRMECHS®RRRMECH OR TWOCUNIT)3 
RDYTAPE3 
IF SPACETOFILE THEN 
BEGIN 
JF T33 THEN INVALIODNUMS 
GO RETURNFALSE3 
END} 
END} 
SETUPINREC) 
GO RETURNTRUE§ 


STARTANEWFILES 


3% 
a 
3% 
3% 


HANDLES THE END OF A FILE AND FIGURES OUT WHAT TO DO NEXT, BUT 


FIRST» THE LOG MUST BE TAKEN CARE OFe (DONT USE T BETWEEN HERE AND 


THE TEST AT 12705750,) 
IF ABORTEDS2 THEN GO TO TAPECL3 


IF SIGNEDON THEN 


BEGIN 
SIGNEDONISLOGINFOL16J+PROCTIMELPIMIXJ+CLOCK+PCRIR)3 
PROCTIMECPIMIX}32(#P( DUP) )*SIGNEDONS 
FORMTIMECCLOGINFOLI0)]*SIGNEDON)3 
FORMTIMECCLOGINFOCiI1I])>» 

LOTIMELPIMIXI@CIOTIMECPAMIX J] + e@LOGINFOL17)))3 
FORMTIMECELOGINFOLL2]]»XCLOCK*PCRTR))3$ 
SIGNEDONS®LOGINFOLIBI+CLOCK+PCRTR)3 
FPBL4]3a(*P (DUP) *"SIGNEDONS 
FPBC9J$e(*PC(DUP))*“SIGNEDONS 
STREAMCOtSDSEDs CiePCDUP) OR COPY>1s LOGINFO)3 
BEGIN SItsLOGINEOs SIteS14+407 SItueS[ +403 

DItFOl4+323 DSteLIT"*="*3; O0S3#6 CHR} 


®’ UNIT WAS CL"ED WHILE 
& WE WERE SCHEDULED, 


% SET BY READTAPE IF EOT, 


126/3000 
12675000 
12675250 
12675500 
12675750 
12676000 
12676500 
12677000 
12677500 
12679500 
12680000 
12680250 
12680500 
12681000 
12681500 
12682000 
12682500 
12684000 
12684500 
12686000 
12686500 
12687000 
12687300 
12687400 
12687500 
12687600 
12687700 
12688000 
12688500 
12689000 
12690500 
12691000 
12691500 
12692000 
12692500 
12693000 
12693500 
12694000 
12694400 
12694500 
12694600 
12694610 
12694620 
12694638 
12694640 
12694800 
12695000 
12695500 
12696000 
12696500 
12697000 
12697500 
12698008 
12698500 
12698750 
12699000 
12699250 
12699500 
12700000 
12700500 


DSse6 LIT™s 1[OTE"S OS#s8 CHRI 12701000 

OSt=11 LIT") DONE AT "3 DSt#5 CHRS DSseLitte"s 12701500 

CCDI8eDI 915) CIssCl#p3 GO TO CPY3 12702000 

DSte5 LIT*DS"ED"s JUMP OUTS 12702500 

CPY: DSt#4 LIT*COPY")s3 12703000 

END3 12703500 
SPOUTITCLOGINFOsCEOUMESS OR PBEQUJK) AND 12704000 
NOTCYAREPIMIX*9] -f2s4)))5 12704100 

SIGNEDONS O03 12704500 

END3 12705000 

% 12705100 
% IF DSED OR QTEDe SKIP THE CHECKS FOR COPIES, 12705110 
% 12705120 
IF CTERMFLAGS*DSED OR QTEDX3) THEN 12705250 

IF Ve22 THEN GO TO PNCHDS ELSE GO TO PRNTDS3 12705500 

% 12705600 
% 7 IS SET If THE FIRST GET FAILSs THIS SHOULD ONLY HAPPEN AT THE END 12705610 
% OF A BACK*UP TAPE, NOTE THAT IF A FILE NUMBER IS SPECIFIEDs® INITIAL=12705620 
% IZE ONLY SPACES TO {TS START» SOQ WE MAY CATCH AN INVALID NUMBER 12705630 
% HERE, SINCE ONLY ONF FILE IS PRINTED WHEN A NUMBER IS GIVENe IF WE 12705640 
% ARRIVE HERE» IT MUST HAVE BEEN A BAD NUMBER, IF IT IS DESIRED TO 12705650 
% CONTINUE DOWN THE TAPE AFTER THE SPECIFIED FILE» THIS TEST WILL NEED12705660 
% 7TO BE CHANGED, 12705670 
z 12705680 
IF T THEN % FIRST GET FATLED 12705750 

IF UNIT#18 THEN 12706000 

BEGIN 12706250 

1F COMMON,CNUMFJ#0 THEN INVALIDNUMS 12706500 

GO TO TAPEND; 12706750 

END ELSE GO REMOVEMS 12707000 

% 12707100 
IF (COPY:#COPY"1) GTR O THEN % MORE COPIES OF FILE RQD, 12707250 
BEGIN 12707500 

IF V®22 AND PUNCHLCK THEN 12707750 

BEGIN 12708000 

PNCHLK! STREAMCPIMIXs Ts=Ts=SPACE(10))} 12708250 
BEGIN DSts25 LIT"#PNCH LOCKEDIPRNPBT/DISKE"3 12708500 

SIS*LOC PIMIXS DSts2 DECE DSraLiT%e"3 12708750 

DIs=D1°33 DSteF ILL: 12709000 

END3 12709250 

SPOUT(T)3 12709500 
REPLYCPIMIXJS®NABS(TSEVOKQVWY[ 3614216 J8VQTL 3034296) )3 12709750 
COMPLEXSLEEPCREPLYCPIMIXJ>0 OR DSED)3 12710000 

IF NOT WHYSLEEP(T) THEN GO TO PNCHLKS 12710250 

IF OSED OR QTED THEN GO STARTANEWFILES 12710500 

ENDS 12710750 

IF UNIT#18 THEN % DISK 12711000 

BEGIN 12711250 

$ SET OMIT & NOT PACKETS 12711500 
STOGH*SEARCHVALS3}3 12712000 

$ POP OMIT 12712500 
PRINTITAGAINS 12713000 
FIDt=FIRSTFIDS 12713500 

SEARCHVAL1I=53 12714000 

IF FINDFILE THEN GO TO EOF ELSE GO TO CONTINUES 12714500 

END? 12715000 

z % TAPE 12715400 
IF ROCTABLECUNIT],£14810]#1 THEN % THIS ISNT FIRST REEL 12715500 

BEGIN 12716000 
ROCTABLELUNIT],(C14110) 2803 12716500 


IF NOT LOOKFORTAPE THEN GO TO EOFS 
END ELSE 
RDYTAPES 
ne IF SPACETOFILE THEN GO TO EOF ELSE GO TO CONTINUES 
$ SET OMIT = NOT PACKETS 
IF UNIT#18 THEN 
BEGIN 
IF STOG THEN BEGIN SEARCHVAL$33% STOGt#0 END? 
IF NOMOREFILES THEN 
IF CPCOPYS8=PCOPY"1) GTR O THEN 
BEGIN 
FIRSTFIDtePFIRSTFIDS 
GO PRINTITAGAINS 
END ELSE 
ELSE GO CONTINUE? 
ENDS 
$ POP OMIT 


EOFS 


AT THIS POINT» WE ARE THROUGH WITH THIS FILE OR PACKET» CLEAN UP 


% 
: THE OUTPUT BEFORE COING ON, 


IF V#22 THEN %& PAGE EJECT AND SEPARATE 
BEGIN 
PAGEJECT3 
PRNTDS! 
IF SEPARATE THEN 
BEGIN 


STREAMCUSBUNIT#165 XtePCDUP) #175 FEEP IDs ALETINULV]» 


B)3 
BEGIN 
UCSITs*#LOC FS STteSl+is OSte4 CHRs DSteLIT"™ ")3 
STtsLOc As’ STt3S14+53 DSte3 CHR 


DSte3 LIT™ "9" XCDSEE7 LIT"B5700"9")5 DSesLIT™ "3 


STs=S1"33 DSte3 CHR 


UCDSseLIT™ “3 STReLOC Fs SIs#S1413 D0S:s4 CHR); 


ENDS 
FOR Tt®1 STEP 1 UNTIL 5S DO WRITEB; 
FOR Tse2 STEP 2 UNTIL SEPARATION DO 
PCWAITIOC@4002000000200V)» DELI 
FOR Tt®i STEP 1 UNTIL 5 DO WRITEB3 
PAGEVECT3 
END3 
END3 
PNCHDS$ 
IF UNIT#18 THEN & TAPE 
BEGIN 
IF TERMFLAG OR NOCONT OR ABORTED THEN 
BEGIN 
TAPEND!3 
REWIND? 
GO TO TESTS 
END ELSE 
BEGIN ® TRY THE NEXT FILE 
NUM? BNUM443 
RECOUNTS #®777773 
_ CONTINUES SETUPINRECS 
RETURNFALSE? 


B CHECK FOR COPIES OF PACKET 


12717000 
12717500 
12718000 
12718500 
12719000 
12719500 
12720000 
12720500 
12721000 
12721500 
12722000 
12722500 
12723000 
12723500 
12724000 
12724500 
12725000 
12725500 
12725900 
12726000 
12726100 
12726110 
12726120 
12726130 
12726500 
12727000 
12727500 
12728000 
12728500 
12729000 
12729500 
12730000 
12730500 
12731000 
12731500 
12732008 
12732500 
12733000 
12733500 
12734000 
12737000 
12737500 
12738000 
12738500 
12739000 
12739500 
12740000 
12740500 
12741000 
12741500 
12742000 
12742500 
12743000 
12743500 
12744000 
12744500 
12745000 
12745500 
12746000 
12746500 


ed 


PCO)3 
GO RETURNTOCOM193 
END} 
ENDS 


REMOVEMS 
% DISK = CLOSE THE OPENED FILES ANDe IF NOT @TED* REMOVE THEM, 


1ODteIF SEARCHVAL®3 THEN FID ELSE NOT 03 
SEARCHVALS#133 REMOVEIT3 
FPBI4]33(*#PCDUP)I+CLOCKSPCRTR)S 
IF TERMFLAG#3 THEN 
BEGIN 
I1OD8:NOT O3 
SEARCHVAL&*®73 REMOVEIT3 
TESTS Z FOR CONTINUATION FOR AUTOPRNT, 
IF AUTOPRINT AND NOT CFORMTOG OR TERMFLAG) AND 
CTWOCV) AND SAVEWORD)=0 THEN 
IF CCOMMONS=PRINTORPUNCHWAITC™V2"0))#0 THEN GO TO STOPTIME3 


® NOT QT™ED 


END 
TAPECLS 

COMMONS 203 

FORGETSPACE(B)3 

SETNOTINUSECVeFORMT0G)3 
STOPTIMES 

STOPTIMING(521023)3 
RETURNTRUES 

PCL)} 
RETURNTOCOMI93 

PCO*RDSe ft oSUBeOeXCHoCFXeSTF)3 
END OF FIRST PRINTER BACKUP SPECIAL CASES PROCEDURE; 
PROCEDURE PRNPBTSPECASE2(Z)} 


INITAILIZE LOGGING, 
WRITE ABORT OR DSED MESSAGE AND CONSTRUCT ENDING LABELe 
2 HANDLE PARITY ON INPUT FILE, 


Be Be Be ae DE DR 
= 


VALUE Zs REAL Z3 
BEGIN. 
REAL § RCHR40+ MSCWE=25 COMMONS@4$ 
ARRAY  INRECS#1iL#]$ 
ARRAY FPBEINREC+I(*]+ LOGINFORFPB+1L*J» HEADER@LOGINFO41(*]) 


REAL UNITRHEADER¢1«e VRUNIT#1» COPY®Vele MFIDSCOPY41+ FID@MFID41> 


TODeFIDele TeloDejs Bete 3 
REAL SEARCHVAL@B4+¢» CURROWSSEARCHVAL41« FIRSTFIDSCURROWSl:s 
SEGNREFIRSTFID4LS 
REAL X@SEARCHVAL» NUMECURRUWs RECOUNTSSEGNR3 
BOOLEAN SIGNEDONSSEGNR41» FORMTOGESIGNEDONG1» ABORTEDSFORMT0GS13 
BOOLEAN NOCONTeFIRSTFIDS 
$ SET OMIT & NOT PACKETS 
BOOLEAN STOGBABORTED+e13 
REAL PCOPY#STOG+1» PFIRSTFID=EPCOPY+13 
$ SET OMIT & PACKETS 
REAL PFIRSTFID#FIRSTFIDs PCOPY=COPY; 
$ POP OMIT OMIT 


LABEL SLEAPe WHYs EXITTOCOM193 
LABEL SIGNIN® ABORTMSGe PARERR?3 


12747000 
12747500 
12748000 
12748500 
12748900 
12749000 
12749100 
12749110 
12749120 
12749500 
12750000 
12750250 
12750500 
12751000 
12751500 
12752000 
12752500 
12753000 
12753500 
12755500 
12756000 
12756400 
12756500 
12757000 
12757500 
12757750 
12758000 
12758250 
12758500 
12759000 
12759500 
12760000 
12800000 
12800100 


pans PROCEDURE HANDLES ADDITIONAL THINGS FOR COM19, VALUES OF Z ARE#+12800110 


12800120 
12800130 
12600140 
126800150 
12800500 
12801000 
12801500 
12802000 
12802500 
12803000 
12803500 
12804000 
12604500 
12805000 
12805500 
12806000 
12606500 
12807000 
12807500 
12809500 
12810000 
12611500 
12612000 
12612500 
12813000 


SE SRR ee NOR ae ea MER aE A ee eeeRA | 


SWITCH SW te 12813500 

; SIGNIN» ABORTMSGe PARERR3 12814000 
DEFINE DSED = (TERMSETCPIMIX) )#e 12614500 
QTED & (PRICPIMTXe@25]#0) 8» 12615000 

VF Ee ASR5Ks 12615100 

UNITE = 38158» 12815200 

COPYF e 30:8#s 12815300 

NUMF = 22,88» 12815400 

NOTP = 29118» 12815500 

cCOPYO m= 212183 12815600 

12820500 

Fk OREO EURO RIOR IOOIOR ROI IG IO GIR OR iO oR Ric 12621000 
12821500 

SUBROUTINE FM) %% BUILD AND SPOUT FORMS MESSAGE 12822000 
BEGIN 12822500 
STREAMCUSSTINUCV] > PIMIXe INREC#® DOF*TSeSPACE(10))3 12823000 

BEGIN DSteLiT"#"s 12823500 

St2+sLOc Us SitsS1+53 DSt23 CHR; 12824000 

0S3:#20 LIT" FM RODIPRNPBT/DISKE"; 12824500 

UseDIs DlseDIi723 OSteFILLs DI seU3 12825000 

SIi#INRECS DS#25 LIT*® FOR “3 12825500 

Sls=S1l4#1) DSt#7 CHRS DSSFLIT*s "3 12826000 

S]esS]413 OSte7 CHRS DSt24 LIT" OF "3 12826500 

S1seS]o13 OSte7 CHRE DSESLIT"/"3 12827000 

SyswSTe1s OSte7 CHR 12827500 

DSteLIT%e"}3 12828000 

END? 12828500 
SPOUTC(T)3 12829000 
REPLYECPIMIX) 12829500 
NABSCTSSVOKQVWY( 3684226) 8VQTL 3084226] 8VEML2484216))3 12830000 

END FM SUBROUTINE 12830500 
12831000 

Be a ee ORR RO II IOC IR SR IO OR a 8 eo kee 128391500 
SUBROUTINE BADFMs ZBUILD AND SPOUT BAD FM MESSAGE 12832008 
BEGIN 12832500 
STREAMCASSETINULT J oMXE=PIMI Xe T&T eFSPACE(10))3 12833000 

BEGIN 0S8#19 LIT"INVALID INPUT UNIT %3 12833500 

S1teLOc MXt DS##2 DECFOSIS2 LIT"FM"S 12834000 

STt#LOc Ay SLtsS14+52 DS#§S3 CHR} 12834500 

DSseLIT "es DLszO178s OSSFFILL3 12835000 

ENO) 12835500 
SPOUTCT)3 12836000 

ENO BANDFM SUBROUTIN:; 12836500 
12837000 

9k ORO ORO IO IOI IOI RR iG icra 12837500 
12838000 

SUBROUTINE WRITEBANDEVECT? 12838500 
BEGIN 12839000 
PCWAITIOCB INX @21010400000000sV)eDEL)$ 12843000 

IF V#22 THEN PCWAITIOC@4000100000009V)s0EL)3 12843500 

END} 12844500 
12845000 

% 8 0G RRO RIG OO ORI IO Rome eee 12845500 
12846000 

% 12846500 
PCZeMSCWeSTF)3 12847000 

GO TO SWCIP]; 12847500 
12847600 

SIGNIN} 12848000 
12848100 


% HANDLES FIRST RECORD OF FILE» PICKING UP LOGGING INFO AS WELL AS 12648110 
% COPIES OR FORM SPECIFICATIONS. NOTE THAT LABEL INFO IS SAVED IN 12848120 
z LOGARRAY FOR USE AT ABORTMSG, TIMING IS STARTED AT INITAILIZE AND 12848130 
% STOPPED IN REWINDs AT REMOVEM OR AT STOPTIME FOR TAPEs DISK AND THE 12848140 
x OUTPUT UNIT RESPECTIVELY, LOGARRAY IS USED TO REMOVE THE TIME 12848150 
% ASSOCIATED WITH A GIVEN BACK UP FILE FROM THE TIMING IN THE FPB AND 12648160 
% LOG JT TO THE USER, THAT IS DONE IN SIJGNOUT, THUS» THE TIME LOGGED 12848170 
% AT PRNPBT/DISK E0U 1S OVERHEAD TIME OCURRING DURING SWITCHING FROM 12846180 
% FILE TO FILE, 12848190 
% 12848200 
LOGINFORRCMCGETSPACE( 202001942) ]82065136810)3 12848500 

IF FORMTOG?sINREC(13) THEN FMS 12849000 

IF COPY LE@ 0 AND NOT COMMON, CCOPYO) THEN 12849500 
COPYS"IF CINRECL14] AND NOT @377)80 THEN INRECEI14)+1 ELSE 03 12850000 
STREAMCINRECse LBLiwCNOT 14) INX INREC» LOGINFO)S 12850500 
BEGIN SISINRECS SlswSt+i7s 12851000 
DSt#12 LIT” PRNPBT FOR “3 12851500 

DS3s7 CHR$ DSteLIT*/"$ SiseSi+is DSts7 CHR DSIeS LIT"s PST™s 12852000 
SITt#INREC3 DSts2 WOS3 SIteLBus DSs®10 WOS3 12852500 

END$ 12853000 
LOGINFOLI6G] see CPROCTIMECPIMIXJ+CLOCK+PCRTR) 3 128653500 
LOGINFOCI7)]&& LOTIMELPIMIXI3 12854000 
LOGINFOCLB) se" CLOCK@PCRTR)3 12854500 
MAKELOGCINREC INX 3sPBCCARD)3 12855000 

IF FORMTOG THEN 12860500 
SLEAP$ 12861000 
BEGIN COMPLEXSLEEPCREPLYCPIMIX] GEG O OR DOSED OR QTED)S 12861500 

IF NOT WHYSLEEPCT) THEN 12662000 

BEGIN FM$ GO TO SLEAP END} 12862500 

IF REPLYCPIMIX).CCFISVFM THEN 12863000 

IF CTSSREPLYCPIMIXI,CFF J) NEQ 20 AND T NE 21 THEN 12863500 

BEGIN % ILLEGAL UNIT, 12864000 
LABELTABLECTI]3*@1143 12864500 

BADFM$ 12865000 

READY##READY AND CTSSNOT TWOCT))3 12865500 
RRRMECHt#RRRMECH AND T3 12866000 
SAVEWORDSSAVEWORD AND TS FMS GO SLEAP 12866500 

END ELSE 12873000 

IF T#V THEN 12873500 

BEGIN % SWITCH UNITS, 12874000 
LABELTABLELT] t@ LABELTABLELV] 128674500 

ROCTABLECT) t= ROCTABLELVJ! 12875000 

MULTITABLECT) !& MULTITABLELV]: 12875500 

LABELTABLECV) $# MULTITABLELV] t# RDCTABLELV] 32 0} 12876000 

FPBC8), C366) 2S(Viast ols 12876500 

END} 12877000 

ENO3 12877500 
FORMTOGIR(FORMTOG OR PUNCHLCK AND V®22) AND NOT CDSED OR QTED)S 12878000 
SIGNEDONtSTRUES 12878500 

GO EXITTOCOM193 12879000 
12879100 

ABORTMSG3 12879500 
12879600 

% ABORTED#3 IMPLIES ABORT HAS OCCURRED» CURRENTLY» NOTHING ATTEMPTS 1612879610 
% DISTINGUISH BETWEEN 1 AND 3 BUT ABORTED MUST BE SET HERE FOR TAPE 12879620 
% SO WHY NOT MAKE IT DIFFERENT, 12879630 
% 12879640 
ABORTEDI #33 12880000 
STREAMCTISDSED OR QTEDe BIS 12680500 
BEGIN 12881000 


OSteB LIT*#"s Sls=Bs DSt=16 WDOSs DItsB3 


CresCIl+Ts GO TO ABS 
DieeOl+243 


DSt=34 LIT" BACK*UP TERMINATED BY OPERATOR "3 


GO TO LENDS 
ABS DTHsDI4+3453 DSset1 LIT" ABORTED "3 
LENDS 
ENO} 
WRITEBANDEJECTS 
IF V#22 AND SIGNEDON THEN 
BEGIN 
STREAMCLOGINF Os B)3 
BEGIN SIT#SLOGINFOS SIs #S1+323 


OS3s8 LIT* LABEL "3 DSt#12 WOSs DStaeLIT” "3 
SLasLOGINFOS STeeSlei2s OSteisS CHR! 


DSsei2 LIT" "3 
ENDs , 
WRITEBANDEJECT3 
END3 
GO TO EXITTOCOMI9; 


PARERR# 


% BUILDS ERROR MESSAGE FOR OUTPUT AND ALLOWS OPERATOR TO OK OR DS, 


% T IS USED TO PASS BACK WHETHER OR NOT TO TE 


IF V®22 THEN GO TO WHY} 

STREAMCAHBUN[ Ts Ts#Ts=SPACE(C15))3 

BEGIN 22¢DSt#2 LIT *>>")ESTISLOC ASSIESSI47 
IF SC®"B™ THEN 08336 LIT * DISK " ELSE 
DSis6 LIT " TAPE "3 
DS##26 LIT “PARITY ON PRINTER BACK UP 
22CoSis2 LIT %>>")3 

END STREAM 

PCWAITIOCT&I6LCTF]eOeV)oDELDS 

FORGETSPACE(T)3 

WHYS 
FILEMESSC*™#PARITY%*#Oe00e"ERROR %200000)5 


RMINATE, 


"3 


REPLYCPIMIXJ FF"VOTEVWY( 3684216) 8VOKL3084236)3 


COMPLEXSLEEPCREPLYLPIMIX] GE@ 0 OR DSED OR 
IF NOT WHYSLEEPCVQTRVWYD 3684286I]8VOKE 308422 
TISDSED OR QTEDS 
EXITTOCOMI93 
 PCOPRDSeOrXCHeCFX*STFDS 
END OF SECOND GROUP OF PRINTER BACKUP SPECIAL C 
PROCEDURE COM193 


COM19s TOGETHER WITH PRNPBTSPECASE1 AND PRN 
ITS STACKs ARE THE WORKING PART OF PRINTER 
PASSED TO ¢COM19 IN COMMON AND LABELTABLE® A 


C3835] INPUT UNIT NUMBER, IF DISKe 
THE OUTPUT UNIT CONTAINS THE 

(30:8) NUMBER OF COPIES SPECIFIED I 

[22:8] IF TAPEe STARTING FILE NUMBE 
IF DISKe 20 IF ENTIRE PACKET 
NOT, 

C2i81) ON IF "#0" APPEARED IN PB ME 


WD Be DE BE BE DE DEVE BE DE BE BE dC dE 


EGIN 


QTED)3 
6]) THEN GO TO WHY3 


ASES3} 


PBTSPECASE2 WHICH SHARE 
BACK*UP. INFORMATION IS 
S FOLLOWS! 


COMMON,(43:5) LOGICAL UNIT NUMBER OF OUTPUT UNIT, 


THE LABELTABLE ENTRY FOR 
FILE ID, 

N PB MESSAGE. 

R GIVEN JIN PB MESSAGE, 
IS TO BE PRINTEDs =4 IF 


SSAGE. 


12881500 
12882000 
12682500 
12683000 
12883500 
12884008 
12884500 
12885000 
12885500 
12886000 
12886500 
12887000 
12887500 
12888000 
12886508 
12889000 
12889500 
12890000 
12690500 
12891000 
12891100 
12891500 
12891600 
12891610 
12891620 
12891630 
12892000 
12892500 
12893000 
12893500 
12894000 
12694500 
12895000 
12895500 
12897500 
12898000 
12898508 
12899000 
12899500 
12900000 
12900500 
12901000 
12901500 
12902000 
12902500 
13000000 
£3000100 
13000110 
13000120 
13000130 
13000140 
13000160 
13000170 
130001860 
13000190 
13000200 
13000210 
13000215 
13000250 
13001000 


REAL RCW=4+0e COMMONE™GS 13002000 
ARRAY INRECC*#)]e FPBC#Je LOGINFOL*)® HEADERL #J3 13003000 
REAL UNIT» Ve COPYs MFIO» FID» 10De Te B3 13004000 
REAL SEARCHVAL» CURROWs FIRSTFID»s SEGNRS 13005000 
REAL XSSEARCHVALs NUMBCURROWs RECOUNTSSEGNR? 13006000 
BOOLEAN SIGNEDONs FORMTOGe ABORTED 13007000 
BOOLEAN NOCONT#FIRSTFID3 13008000 
$ SET OMIT = NOT PACKETS 13009000 
BOOLEAN STOG} 13010000 
REAL PCOPYs PFIRSTFID3 13011000 
$ SET OMIT & PACKETS 13012000 
REAL PFIRSTFID=FIRSTFIDe PCOPYSCOPYS 13013000 
$ POP OMIT OMIT 13014000 
13017100 

THE LOCAL VARIABLES ARE USED AS FOLLOWS 13017110 
ARRAYS 13017120 
INREC ARRAY DESCRIPTOR FOR THE CURRENT RECORD, 13017130 
FPB FPB ARRAY, INPUT IS THE FIRST FILES OUTPUT THE 2NDe 13017140 
LOGINFO LABEL INFORMATION AND STARTING TIMES FOR LOGGING, 13017150 
HEADER DISK FILE HEADER, 13017160 
REALS 13017190 
UNIT LOGICAL UNIT NUMBER FOR INPUT, 13017200 

V LOGICAL UNIT NUMBER FOR OUTPUT, 13017210 
COPY NUMBER OF COPIES OF THIS FILE TO BE PRINTEDs IF IT IS 13017220 
NOT SPECIFIED» IT EQUALS 0. 13017230 

MFID MULTI®FILE ID OF INPUT FILE. 13017240 
FID FILE ID OF INPUT FILE, 13017250 

- 10D T TEMPORARY STORAGE, 13017260 
B ADDRESS OF 90 WORD BUFFER FOR INPUT, 13017270 
BOOLEANS 13017280 
SIGNEDON ON IF LOGGING IS INITIALIZED, THIS SHOULD BE OFF ONLY 13017290 
FOR FILES WHICH DO NOT START AT THE BEGININGe EnGee 13017300 

WHEN A STARTING REEL IS SPECIFIED ON DISK, 13017310 

FORMTOG ON IF FORM IS SPECIFIED OR PNCHLOCK IS SET, 13017320 


ABORTED 1+e DISK ABORTED BY H/by CHECK IN GET TO FIND OUT WHERE,13017330 
=2» TERMINATION DUE TO CL OF INPUT TAPE WHILE SCHEDULED,13017335 


=3, TAPE ABORTED BY H/L, FOUND BY RECOUNT MISMATCH, 13017340 
13017350 
THE FOLLOWING APPLY ONLY TO NISKk FILES! 13017360 


SEARCHVAL THIRD PARAMETER FOR DIRECTORYSEARCH, IT IS 3 OR 5 DURING13017370 
PRINTINGs DEPENDING ON WHETHER 1{T 1S THE FIRST COPY OR 13017380 


NOT» AND 43 OR 7 DURING FILE TERMINATION, 13017390 

CURROW INDEX OF THE ROW CURRENTLY BEING PRINTED, 13017400 
FIRSTFID FILE 10 OF FIRST REELe USED FOR MULTIPLE COPIES OF 13017410 
MULTI*REEL FILES, 13017420 

SEGNR NUMBER OF NEXT SEGMENT TO READ FROM THE CURRENT ROW, 13017430 
13017440 

THE FOLLOWING APPLY ONLY TO TAPES? 13017450 
TEMPORARY STORAGE, 13017460 

ae NUMBER OF CURRENT FILE ON TAPE® USED FOR COPIES. 13017470 


RECOUNT NUMBER OF RECORDS PRINTED IN THIS FILEe THIS IS CHECKED 13017480 
AGAINST THE C®°FIELD OF THE 10 DESCRIPTORS IN THE FILE 1013017490 


SPOT ABORTS. 13017500 

NOCONT TRUE IF CONTINUATION FROM FILE TO FILE IS NOT ALLOWED, 13017510 
13017520 

THE FOLLOWING APPLY ONLY TO PACKETS! 13017530 
PCOPY NUMBER OF COPIES FROM PB MESSAGEs WHICH MAY APPLY TO THE13017540 


ENTIRE PACKET. "COPY" IS SET ONLY FROM LABEL EQUATION, 13017550 
PFIRSTFID FILE 10 OF FIRST FILE IN THE PACKET» USED FOR COPIES OF 13017560 
THE PACKET, FIRSTFID APPLIES TO INDIVIDUAL FILES WITHIN 13017570 


BEDE DE VE DE BE OC VL DE BE BE BC BE BE DE Be Oe BC dE BE AT DE DE BE OC DE AC BE DE DE BE DE BE BE BE BE BC DE BC BE DE BE DL OC BE DE dE 


THE PACKET AND IS USED FOR COPIES SPECIFIED VIA LABEL 
EQUATION, 

SET DURING THE FIRST PRINTING OF THE PACKET IF ONE OF 
THE FILES SPECIFIES MULTIPLE COPIES, IT IS USED TO 
RESTORE THE VALUE OF 3 TO SEARCHVAL WHEN THE FILE IS 
COMPLETED, 


TRYNEXTs TAPERDR, TAPERDs TAPECHKe ABORT» NOGET» GOTTEN® 


ART» RESTART» MAINLOOPs, QUIT» TESTENDS 


DSED # CTERMSETCPiM[X))#,o 


QTED = CPRICPIMIXs@25)#0)4) 


% 
% 
% ST0G 
% 
% 
% 
% 
LABEL 
$T 
DEFINE 
DEFINE 
NO 
QT 
tN 
ST 
SI 
AB 
PA 


LOOKFORTAPE = PRNPBTSPECASE1(O)#, 


MOREREELS = PRNPBTSPECASE1( 124, 
SPEC = PCPRNPBTSPECASE1(2)2DEL)#s 
ITTALIZE = PRNPBTSPECASE1(3)#> 
ARTANEWFILE = PRNPBTSPECASE1(C4) 4, 
GNIN m PRNPBTSPECASE2(0)#, 
ORTMSG = PRNPBTSPECASE2(1)#> 
RERR = PRNPBTSPECASE2( 2) #3 


130175860 
13017590 
13017600 
13017610 
13017620 
13017630 
13017670 
13018000 
13019000 
13020000 
13021000 
13022000 
13023000 
13024000 
13025000 
13026000 
13027000 
13028000 
13029000 
13030000 


ROR IOROR IORI RUR ORR IO KINO RIOR RR ROOK ROR OR nO oe eke ke 13031000 


BOOLEAN SUBROUTINE GET! 


BEGIN 


TRYNEXTS 


TAPERDR! 
TAPERD! 


IF IN 
IF CI 
IF 
ELSE 
IF UN 
BEGIN 


END E 
BEGIN 


Recli7).€2081] THEN GO TO NOGETS 
NRECSECNOT 17) INX INREC).CCF) GEO BelCF) THEN 
UNIT#18 THEN GO TO TAPECHK ELSE 

% READ NEXT BLOCK 
1T#18 THEN 


IF SEGNR > HEADERE7Ix3 THEN GO TRYNEXT$ &% END OF FILE 
IF CSEGNR GEQ HEADER[8I]°1) THEN 
BEGIN % END OF ROW 
IF CCURROWESSCURROW+1) GEQ HEADERL9),04315}34+10 THEN 
IF NOMOREREELS THEN GO TO NOGET3 
SEGNRt#03 
ENDS 
INREC3390 JINX JNRECS 
DISKIOCTOD» *BeIOeHEADER( CURROWI]+SEGNR)3 
SEGNRE=SEGNR+33 
SLEEPCCIODJ» 1TOMASK)3 
IF $00,028:1] THEN 
BEGIN PARERRS 
IF T THEN GO TQ NOGET3 % DSED OR QTED 
ENDS 
IF ABORTED THEN 
IF (MEB INX 18),(6842) E€QV "” 
GO ABORT3 
LSE 


% TEST FOR BAD 10 DESC, 
*")eNOT O THEN 


% TAPE 

X1203 
IF CLODSBWAITIOC Be @2000040¢UNIT))¢£4381) THEN 
BEGIN PARERR3 

IF T THEN GO TO NOGETS % DSED OR QTED 
ENDS 
IF 10D,f4281) OR X THEN 
BEGIN 

IF (XseNOT X) THEN GO TO TAPERDS 

1F MCB JINX 3] THEN 

IF LOOKFORTAPE THEN GO TO TAPERDR ELSE GO NOGETS 


13032000 
13033000 
13034000 
13035000 
13036000 
13037000 
13038000 
13039000 
13040000 
13041000 
13042000 
13043000 
13044000 
13045000 
13046000 
13047000 
13048000 
13049000 
13050000 
13051000 
13052000 
13053000 
13054000 
13055000 
13056000 
13057000 
13058000 
13059000 
13060000 
13061000 
13062000 
13063000 
13064000 
13065000 
13066000 
13067000 
13068000 
13069000 
13070000 


proto anne ieee acl 


ENDS 13071000 

IF (X$=2MCB INX NOT 0))2#90 THEN 13072000 

IF ¢X AND @©7775)%16 THEN % OLD FORMAT TAPE 13073000 

BEGIN 13074000 

INREC,CCFI8*B JINX 13 13075000 

INRECOC 1772 =M(CBIa0l2082087)3 13076000 

END ELSE GO TO NOGET 13077000 

ELSE 13078000 

BEGIN 139079000 

INREC##90 JINX [NRECA 13080000 

TAPECHKS IF CRECOUNTISRECOUNT INX 1) # JNRECC1I7),0CF)] THEN 13081000 
BEGIN 13082000 

ABORT! ABORTMSG} 13083000 
NOGET3 PCO); 13084900 
GO TO GOTTEN3 130865000 

END3 13086000 

ENDS 13087000 

END3 13088000 

PC1)3 13089000 

GOTTEN: GETs3P3 13090000 
END3 13091000 

x 13092000 
z START 1S USED FOR A NEW FILE COR NEW PACKET), RESTART IS USED FOR 13092010 
% A COPY ¢OR A NEW FILE WITHIN A PACKET), 13092020 
13092030 

STARTS 13093000 
IF COMMON?0 THEN GO TO INITIATES 13094000 

IF INITIALIZE THEN 13095000 
BEGIN 13096000 
RESTARTS IF GET THEN 13097000 
BEGIN 13098000 

IF INRECE17),0181137%0 THEN SIGNIN} 13099000 

IF UNIT#16 THEN RECOUNTIS@INRECCI7),0CF)3 13101000 

END ELSE % BAD FIRST BLOCKs SHOULD BE E0T 13102000 

BEGIN PCi)3 13103000 

GO TO TESTEND3 13104000 

ENDS 13105000 
MAINLOOP? 13106000 
IF PRTROWCLPIMIX),CPSF) > 1 THEN STOPM3 13107000 

IF (CT@eRePRICP1M1X%20@25))40 OR DSED THEN 13108000 

BEGIN 13109000 

IF T<O THEN % + OR * SPECIFIRED 13110000 

BEGIN 13111000 

QTSPEC3 13112000 

GO TO MAINLOOP} 13113000 

ENDS 13114000 

ABORTMSG) % DSED OR QTED 13115000 

GO TO QUITS 13116000 

ENDS 13117000 

IF GET THEN %® VALID REC. WRITE IT & CONTINUE 143118000 

BEGIN 13119000 
PCWAITIOCINRECLCI7TI&CINREC)ICTCI&BL21 846206) 200V)eDEL)! 13128000 

GO TO MAINLOOP3) 13129000 

END3 13130000 

ENDS 13131000 
QUITS 13132000 
PCO)s 13133000 
TESTENDS 13134000 
TisP} 2 Tal JF FIRST GET FAILSe ELSE 0,13135000 

IF STARTANEWFILE THEN GO TO START ELSE GO TO RESTART3 13136000 


END OF PRINTING BACKUP TAPE AND DISK FILESS 
PROCEDURE SPOSETCTYPEsBUFH)3 
VALUE TYPEsBUFH3 


BEGIN 
REAL LINE*LAST* BUFF sUZERS 


REAL TYPE*BUFHS 


LABEL EXIT»sOKEDseCARRYONS 
ARRAY INFE*)3 
BOOLEAN 0K3 
BUFFe® BUFH,CISti5i"13 
IF SYSDISKADR®0 THEN GO EXIT3 

INFe (MCSPACECSYSDISKRL) J I&SYSOISKRLE8838210)5 
IF NOT REMOTE THEN GO EXITS 

IF TYPE,£181) THEN 
BEGIN LINE ##BUFH3 
BUFF S@SPACE(10)3 
GO TO CARRYON3 


END} 


THIS ALLOWS QUITTER TO RESET A SPO 


STREAM(Le*19B*BUFHPAS™SP0") 5 


DD? 


@GRESS! 


CARRYON? 


BEGIN 


Die LOC Ab 


Ste B3 


Die DI+53 


IF SCe* " THEN BEGIN Sle S141 GO DD ENDS 
IF SC<"0" THEN 


BEGIN 
IF 3 SC#DC THEN 


Le TALLY} 


GO EGRESSS$ 


ENDS 


IF SC>"9" THEN GO EGRESS? 


Sle SJ#13 Ole LOC L3 
IF SCS"9" THEN IF SC2"0" THEN 
BEGIN 
SI* Bs} DS* 2 OCT 
END 
ELSE 
BEGIN 
Sle Bs DS« OCT3 
END3 


END STREAM3 


LAST* ABSCSPOWORD)3 


IF GINE#O THEN 


BEGIN 


IF (LINE* P)<O THEN GO EXIT3 


ZSWITCH THE SPO 


IF LAST#O THEN GO EXITS 
SPOWORD,Citije NOT TYPE} 


SYSDISK]OC32*0eINF)3 


INFL3)¢ SPOWORD3 


SYSDISKIOCOrs*Os INF D3 


GO OKED3 
ENDS 


IF LINE GTR STATIJONMAX THEN GO EXITS 
SYSDISKIOCLs*LINEs INF 3 
UZERe INFCI)3 
SYSDISKIOC3»*Oe INF) 3 
If TYPE THEN 
IF NOT STATABLELLINE),DIALEDUP THEN 

OK* FALSE 


ELSE 


BEGIN 


Be ST} 


13137000 
13200000 
13201000 
13202000 
13203000 
13204000 
13205000 
13206000 
13207000 
13207050 
13207100 
13208000 
13208100 
13208200 
13208300 
13208400 
13208500 
13209000 
13210000 
13211000 
13212000 
13213000 
13214000 
13215000 
13216000 
13217000 
13218000 
13219000 
13220000 
13221000 
13222000 
13223000 
13224000 
13225000 
13226000 
13227000 
13228000 
13229000 
13230000 
13231000 
13231500 
13232000 
13234000 
13235000 
13236000 
13237000 
13238000 
13239000 
13240000 
13241000 
13242000 
13243000 
13244000 
13244300 
13244350 
13245000 
13246000 
13247000 
13248000 
13249000 


IF OKe CUZER®0) THEN 
BEGIN 
SPOWORD,(4018J« LINES 
INFE3]« SPOWORD? 
END 
END 
ELSE 
JF LASTSLINE THEN 
OK® NOTCSPOWORDe INFE3J© 0) 
ELSE 
QKe FALSE} 
SYSDISKIOCOs+*"Oe INF DS 
IF OK AND TYPE AND CLAST#¥0) THEN 
BEGIN: 
STREAM(L©® LINE se Te LASTe«Be BUFF )3 
BEGIN 
DS#278 LIT "STATION "3 SJte LOC L3 
DSe 2 DECS Be DIS Dle DI"™23 OS* FILLS De B3 
DS* 11 LIT ™ REPLACING %3 DS* 2 DECI Be DI} 
Die DI"23 DS« FILLE DI* B3 
0829818 LIT * AS ALTERNATE SPO«"3 
ENDS 
TWXOUTCBUFF e 3701 eLAST)S 
END 
ELSE IF OK THEN 
OKED?t STREAMCLe LINE »S* TYPE, f4731J98* BUFF) 
BEGIN 
LCSL§s LOC Ls OSIse B LIT "STATION "3 OSt= 2 DEC! 


Be DIS Ole DIv2s OSe FILLI DI* BF JUMP OUT TO D)3 


DS* 3 LIT "SPOS 
Dt $(pS* 4 LIT ™ SET™sS JUMP OUT TO 0193 
DS* 6 LIT “™ RESET"3 
Dit DS* 6 LIT * AS SPOe"3 
END3 
EXITS SPOUTCBUFF )3 
IF OK AND CLINE#0) THEN 
BEGIN 
IF TYPE THEN 
BEGIN 
SYSDISKIOC3e"LINEo INE 3 
INFE3]© CNOT 0),012136)3 
INFCi}«* MCPS 
SYSDISKIOCOs*LINEs INE D3 
$ SET OMIT & TWXONLY 


IF STATABLECLINE),STATIONTYPE THEN SSCREEN DEVICE 


BEGIN TNAOGCSEQARRAY( LINE} 2(2686)),014834)]%=03 
IF STATABLECLINEJ,OUTPUTANKING THEN 
IF TANKLINECLINE) = O AND TAJLOUT # LINE 
BEGIN TANKLINELTAILOUTJ&sLINES 


TAILOUTSSLINES 
STARTWORKINGS 

ENDS ENDS 

$ POP OMIT 
LINE® LASTS 
END3 
IF LINE#O THEN 
BEGIN 


SYSDISKIOC3e"LINEs INF D3 
INFC3J¢ INFCLJ© OF 
SYSDISKIOCOe*LINE* INE D3 


13250000 
13250100 
13251000 
13252000 
13252100 
13253000 
13254000 
13255000 
13256000 
13257000 
13258000 
13259000 
13260000 
13261000 
13265000 
13266000 
13267000 
13268000 
13269000 
13270000 
13271000 
13272000 
13274000 
13275000 
13276000 
13277000 
13278000 
13279000 
13280000 
13281000 
13282000 
13283000 
13284000 
13285000 
13286000 
13286100 
13286150 
13266200 
13286250 
13286300 
13286350 
13286400 
132866450 
13286454 
13266455 
132686460 
13286465 
13286470 
13286475 
13286480 
13266485 
13286490 
13286491 
13286500 
13286550 
13286600 
13286650 
13286700 
13286750 
13286800 


$ SET 


$ POP 


IF 


OMIT = TWXONLY 
IF STATABLECLINEJ «STATIONTYPE THEN ®SCREEN DEVICE 


TNAOGCSE@GARRAY(LINE] C2686] 38 C#P COUP) IRINECOIC14820014)3 


OMIT 
ENDS 
END3 
SYSDISKADR NE@ O THEN 


FORGETSPACECINE)3 
END SETSPO3 
REAL PROCEDURE ANALYSIS3% 


$ SET 
$ POP 


COMMENT 


$ SET 


$ POP 


BEGIN’ 

REAL ICWeIRCWsINCWeCLeTieCeT2=SYLLABLE 3% 
OMIT = NOTCNEWLOGGING) 

REAL MCPROCTEMPS 
OMIT 

LABEL GETOUTS2 


ANALYSIS 


FROM THE RELATIVE ADDRESS OF THE SYLLABLE CINCLUDING3 
VARIENT OPERATOR CONSIDERATIONS) COMPUTES THE LOCATION+ Ce. 
Of aA COPY OF THE DESCRIPTOR ON THe TOP OF THE STACK,% 

THE PREVIOUS TWO SYLLABLES ARE FETCHED BY THE STREAMS 


EXAMINS THE SYLLABLE WHICH CAUSED THE INTURRUPT AND2 


STATEMENT GETSYLLABLES WHICH ALSO ADJUSTS THE C#L REGIST#= 


ERS PROPERLY,% 
FINALLY THE STACK 1S ADJUSTED AS FOLLOWS3% 
DECREASE S BY 4eIF OPNC OR DESC! 
XCH A AND B REGISTERSeIF COC OR COC% 
OTHERWISE LEAVE THE SAME, 
CHECKSTACKSPACE3S% 
OMIT = NOTCNEWLOGGING) 
IF P1IM{X>0 THEN 
IF NOT LOGSTOPPEDEPIM]X] THEN 
IF NOT MCPROCTIMECPIMIX),£121) THEN 
BEGIN 
MCPROCTEMP*+PROCTIMELPIMIXJ+CLOCK4+PCRIR) 
MCPROCTIMECPIMIXIJ©NABSC#PCDUP))3 
END; 
OMIT 
INCW © PRICPIMIXe6)3% 
POLISHCsINCWe TOR) 53% 
IRCW # * EINCW 33 
ICW * *¢C (NOT 0) INX INCW)5S 
CL # CIRCW INX 0) & [RCWL3081082]3% 
STREAM CT1ieOsT2+OeCLixe0) 32 
BEGINS 
Slechs SteSIe2 3 CL e¢ SIs DI © LOC T23 DledDI+65% 
DS © 2 CHRS SI © SI*33% 
IF Sc * "/" THENS 
BEGINS 
SleSr7is IF SC s"0" THENS 
BEGIN TALLY«13 T1¢TALLY 3CL © SI END3% 
END3% 
END GETSYLLABLE 33 
POLISH(C »Clhsee,T2eer Tier) 3% 
IF INCW,£3231)] THENS’ 
BEGIN COMMENT P'BIT IN CHARACTER MODE 34 
IF T2 = @4441 THEN? 
BEGIN COMMENT ENTER CHARACTER MODES2 


PCMECIRCW © *CNOT O INX INCW © PRIELPIMI] X08) 3 
CNOT 41 INX INCW)800328191]2),018815)] 82 
101684781 )]80018218215]e(NOT ODINX INCWee)3 


13286809 
13286610 
13286620 
13286621 
13286850 
13286900 
13286950 
13287000 
13288000 
14000000 
14001000 
14002000 
14002099 
14002100 
14002101 
14003000 
14004000 
14005000 
14006000 
14007000 
14008000 
14009000 
14010000 
14011000 
14012000 
14013000 


514014000 
BWF 14014100 


14014199 
14014200 
14014300 
14014400 
14014500 
14014600 
14014700 
14014800 
14014801 
14015000 
14016000 
14017000 
14018000 
14019000 
14020000 
14021000 
14022000 
14023000 
14024000 
14025000 
14026000 
14027000 
14028000 
14029000 
14030000 
14031000 
14032000 
14033000 
14034000 
14035000 
14036000 
14037000 


COMMENT 


C # INCW INX 0 "23% 
END ELSE BEGIN’ 


IF MEMORYE C © IRCW,C16815)"T2.03686)),f113) * 4% 


THENS 
BEGINS 
IF T2,(42t6)= @53 THEN BEGINS 
CONTROL WORD MEANS CHARACTER MODE RELEASE? % 


TLePRICPIMIXe9TeMEC#CCNOT 1)ENX INCW)),(18815)),033815]3% 


POLISHCMET1)2020)3% 
IF MCT2),02081)] THEN CONTINUITYBITS% 
PROGRAMRELEASESS 
END® 
END3% 
IF T2 = O THEN GO TO GETOUTS2 
ENDS 
ENDS 
ELSES 
BEGIN 
IF T2ef46t1] THEN 
BEGINS 
C + ICW,033815]3% 
POLISHCICWe CNOT 1)INX JNCWs eo TROWOS 
PRICPIMIXsB)©INCW «© CNOT OIINX INCW 0 #)3% 
END OPDC DESC PARTS 
ELSES 
BEGIN’ 
C + [NCW INX 0 "23% 
IF CNT1 © T2 AND @77) © @41 THENS 
BEGIN C #C™l 32 
POLISHCMEMORYC(C] ®MEMORY(C4#1) #£MEMORYEIC) I» 
Jee) 3% 
END COC CDC PARTS 
ELSE IF NT1 & @31 THENS 
BEGIN COMMENT THIS IS A BRANCHS% 


GETOUT! CL + PCLEPRTLPIMIXst JJ eDUPeT2eXCHee) 


END BRANCH PART2 


ELSE ITF NTL = @35 THEN GO TO GETOUTS COMMENT RETURNGS 


END ALL SYLLABLES BUT OPDC DESC 3% 
END WORD MODE INTURRUPT 3% 


POLISHCIRCW & CLOE3S3833N1SIACLOLOS3082)eINCWae) 3% 


ANALYSIS © C 33 


$ SET OMIT = NOTCNEWLOGGING) 


IF MCPROCTEMP#0 THEN 
BEGIN 


IF MCPROCTEMP<O THEN MCPROCTEMP0} 


MCPROCTEMP#PROCTIMECPIMIXI*CLOCK#PCRTR)I@MCPROCTEMPS 
MCPROCTIMELPIMIX)*ABSC#PCDUP) )#MCPROCTEMPS 


END} 


$ POP OMIT 


DEFINE 


SAVE INTEGER PROCEDURE ACTUALOVERLAYADDRESSC(TYPEs MIXe LOC)! 
VALUE 


END ANALYSIS OF P BIT 3% 
CODEADDRESSCCODEADDRESS1 »CODEADDRESS2) s 


ACTUALOVERLAYADDRESS( 1 eCODEADDRESS1 »+CODEADDRESS2)#> 
—DATADDRESSCDATADDRESS1»DATADDRESS2) & 
ACTUALOVERLAYADDRESS(OeDATADDRESS1 »DATADDRESS2) #3 


TYPEe MIX, LOC} 


INTEGER TYPEe MIX» LOC3 


.. BEGIN INTEGER T ® 413 
$ SET OMIT = NOTCAUXMEM) 


¢ » [MEMORY(C+1] 


14038000 
14039000 
14040000 
14041000 
44042000 
14043000 
14044000 
14045000 
14046000 
14047000 
14048000 
14049000 
14050000 
14051000 
14052000 
14053000 
14054000 
14055000 
14056000 
14057000 
14058000 
14059009 
14060000 
14061000 
14062000 
14063000 
14064000 
14065000 
14066000 
14067000 
14068000 
14069000 
14070000 
14071000 


INX @600000314072000 


14073000 
14074000 
14075000 
14076000 
14077000 
14078000 
14078099 
14078100 
14078200 
14078300 
14078400 
14078500 
14078600 
14078601 
14079000 
14100000 
14101000 
14102000 
14103000 
14104000 
14105000 
14106000 
14107000 
14108000 
141086999 


LABEL AUXMEMy 


$ POP OMIT 


IF TYPE THEN &® CODE pee 
BEG] 


N 
$ SET OMIT = NOTCAUXMEM) 


IF LOCe£581] THEN GO TO AUXMEM} 


$ POP OMIT 


LOC #*® LOC INX O8 

T §™ JARCMIX*#LOC DIV CTSSJAREMIX*#8))+10)+L0C MOD T3 
END ELSE %® BETTER BE DATAygee,s 
BEGIN 


$ SET OMIT = NOTCAUXMEM) 


IF LOC,C3383)=7 THEN 


AUXMEMS T te 9CO & LOC(32836%812)) ELSE 
$ POP OMIT 


END} 


T §® DALOCEMIXsLOC ef 3316)+P( DUP W1)+L0C 03999) 
END? 


$ SET OMIT = NOTCAUXMEM) 
PROCEDURE AUXILIARYMEMORYCASUALTYRECOVERYS 


FORWARD3 


PROCEDURE AUXILIARYTABLEINITIALIZES 


FORWARD3 


$ POP OMIT 


COMMENT 


THE SEGMENT DICTIONARY IS CONSTRUCTED BY THES 
COMPILERS AND EACH ENTRY HAS THE FORMATSS 
{18 1) = 1 FOR TYPE 2 SEGMENTS» #0 OTHERWISE,3 
[ 2t 1] = 1 FOR INTRINSICS » = O OTHERWISE? 
C36 1) IF BEING MADE PRESENT» ® 0 OTHERWISE 
CINTERLOCK FOR RE*ENTRANT CODE) 
= 0 FOR NORMAL SEGMENTS 
= 3 FOR SEGMENTS OVERLAID TO AUX, MEM, 
= 2 FOR SEGMENTS TO BE OVERLAID TO 
AUXILIARY MEMORY WHICH HAVEN"T BEEN 
( 61 1] = 1 FOR COBOL68 FILE TANK, 
71 1) © 1 FOR COBOL68 READ ONLY ARRAY, 
8110) © LINK TO PRT FOR 1ST DESCRIPTOR FORS 
THIS SEGMENTS 
£16315] = SEGMENT SIZE (<1024) FOR ABSENT 
SEGMENTS 43 
® CORE ADDRESS OF PRESENT SEGMENTS s% 
* 1 FOR NEVER*PRESENT INTRINSICSs3 
(33315) = DISK ADDRESS OF SEGMENT,’ 
= INTRINSIC®NUMBER FOR INTRINSICS,3 
THE PRT FOR PROGRAM SEGMENTS IS CONSTRUCTED BY THES 
COMPILERS IN THE FORMAT 33 


w 
os 


( 43 2) 


nee 


t 085) = PROGRAM DESCRIPTOR BITSe% 

{ 611) = STOPPER BIT WHICH DEFINES THE C 7s11]% 
FIELD,3 

{ 7811] ©& LINK TO NEXT DESCRIPTOR THAT BELONGS TOS 
THIS SEGMENT» IF STOPPER FALSEs% 
= SEGMENT NUMBERe IF STOPPER TRUE.% 

(18515) = K*REGISTER FIELD USED AT RUN TIME IN® 
LABEL AND ACCIDENTIAL DESCRIPTORS.»% 
= SEGMENT NUMBER FOR WORD MODE ANDS 
CHARACTER MODE DESCRIPTORS ,% 

[33415] = CORE ADDRESS FOR PRESENT SEGMENTS,2 


® RELATIVE ADDRESS FOR ABSENT SEGMENTS&2 
IleEs RELATIVE TO BEGINNING OF SEGMENT? 
EACH PRT (R44) CONTAINS A DESCRIPTOR WHICH POINTS’ 


14109000 
14109001 
14110000 
14111000 
14111010 
14111020 
14111021 
14112000 
14113000 
14114000 
144115000 
14115010 
14115020 
14116000 
14116001 
14117000 
14118000 
14119000 
14119999 
14120000 
14121000 
14122000 
14123000 
14123001 
14125000 
14126000 
14127000 
14128000 
14128100 
14128200 
14128300 
14128400 
14128500 
14128600 
14128700 
14128800 
14129000 
14130000 
14131000 
14132000 
14133000 
14134000 
14135000 
14136000 
14137000 
14138000 
14139000 
14140000 
14141000 
14442000 
14143000 
14144000 
14145000 
14146000 
14147000 
14148000 
14149000 
14150000 
14151000 
14152000 


TO THE SEGMENT DICTIONARY 
ix 
PROCEDURE MAKEPRESENT(C)3 VALUE C3 REAL C3% 
BEGIN? 
REAL MIXXSP1MIX3 
REAL SAVEBIT»® MINES 
REAL PIMIX3 REAL YECCHH="232 
REAL DeMOTHEReMOMP@LOCeSIZE3S 
INTEGER DISKADDR = SAVEBIT$% 
BOOLEAN REENTRANT3 
DEFINE LINKS { 7811) @+STOPPERF®( 68 1)]#»sPROGRAMDESCR(531)#:% 
DEFINE NOTOPEN #[25:21] #32 
ARRAY NAME DD 32% 
ARRAY AIT(*)3 
ARRAY PRTRE*] 3% 
REAL SEGNOSMOTHERs X=*MOM*e10D 32% 
REAL SPACE;% SPACE FOR SEGMENT NUMBERS CINTRINSICS) BY MIX 
BOOLEAN NOTI3=SPACE3 
REAL led; 
$ SET OMIT = NOTCNEWLOGGING) 
REAL MCPROCTEMPS3 
$ POP OMIT 
LABEL EXITs % ALL AVENUES MUST LEAD TO HERE 
LABEL WRAP »AROUNDsTESTREADY 33 
LABEL OPEN» CLOSESS 
LABEL CODEIN? 
LABEL DLOOPs NG} 
DEFINE REVERSE SC2211]#e READY £1981 T#*PRESENT s( 2311853 
COMMENT MAKEPRESENT HAS THE FOLLOWING ACTIONS*e DEPENDING ON THE TYPES 
OF DESCRIPTOR CAUSING PRESENCE BIT 338 
DATA DESCRIPTOR 32 
If MOTHER ABSENT THEN GET CORE SPACE AND SETS 
MOTHER PRESENT WITH PROPER CORE ADDRESS% 
THEN IF INITIAL ACCESS*eZERO THE SPACE ELSES 
READ IN FROM DISK AND RETURN DISK SPACES 
THEN SET 1ST MEMORY LINK TO SAVE OR NOT SAVES 
AND SET 2ND LINK TO ADDRESS OF MOTHERS 
IN ANY EVENTs SET COPY PRESENT WITH CORRECT CORES 
ADDRESS «3 
10 DESCRIPTOR:S 
PROGRAM DESCRIPTOR#& 
3% 
SUBROUTINE RUNAROUND3% 
BEGIN WHILE NOT CPRTREX] © (C(LOC+2) INX PRTRUX])3 
OR MEMORY),STOPPER DO X © PRTIREX],LINK3® 
END RUNAROUND33 
% 
$ SET OMIT = NOTCNEWLOGGING) 
IF MIXX>0 THEN 
IF NOT LOGSTOPPEDIMIXX] THEN 
IF NOT MCPROCTIMECMIXX),0C181] THEN 
BEGIN 
MCPROCTEMPePROCTIMELMIXXJ+CLOCK+PCRTR) I 
MCPROCTIMEEMIXXJ*NABSC#PCDUP))3 
ENDS 
$ POP OMIT 
IF CPIMIX®YECCHH,(CFJ)"0 THEN PIMIX@MIXX3 
IF (D # MCC))—¢0191) THEN 
IF Def622]"1 THEN &3TYPE 13 INTRINSIC 
BEGIN XtsCLINTRNSCCSEGNO!ENFLAGCD) INX 0)]3 


14153000 
14154000 
14155000 
14156000 
14156500 
14157000 
14157500 
14158000 
14159000 
14159100 
14160000 
14161000 
14162000 
14162500 
14163000 
14164000 
14464100 
14164200 
14164300 
14164399 
14164400 
14164401 
14164500 
14165000 
14166000 
14166100 
14166200 
14167000 
14168000 
14169000 
14170000 
14171000 
14172000 
14173000 
14174000 
14175000 
14176000 
14177000 
14178000 
14179000 
14180000 
14181000 
14182000 
14183000 
14184000 
14185000 
14185100 
14185199 
14185200 
14185300 
14185400 
14185500 
14185600 
14185700 
14185800 
14185801 
14185900 
14186000 
14186040 
14186020 


IF ME 
BEGIN 
SEGNO 
STREA 
BEGIN 
IF X 

IF (XxX 
BEGIN 


$ SET OMIT 3 
AUXTRACEC1e 
$ POP OMIT 


MROWCP1IMIX} INX O LSS FENCE THEN 


1zZSEGNO"13 
MCT&BSEGNO AND 3eT8SCINTABLELPIMIXeSEGNO DIV 4)])3 


14166030 
14186040 
14186050 
14186060 


DIs*D1l4¢Ts DIssD14+7s SKIP 1 DBS DStsSET$S END# SMARK TYPE1814186070 


GTR 0 THEN SLEEPCEX]*+70)5 

INX 0) LE@ 1023 THEN 

PCABS(X)o(X]9ts)3 
SIZE##X INX Q3 
MINES RCNFLAGCD) INX ORSITZEC8236810)R83L124612)3 
MONITOR OR NOTCAUXMEM) 
CNFLAGCD) INX 0))3 


LOCHSGETSPACECSIZE+1300)3 


$ SET OMIT = NOTCAUXMEM) 


IF Xx 
O1SK 

ELSE. 

$ POP OMIT 
DISK 


END E 


END E 


BEGIN 


SIZES 
FOR | 


9341] THEN & INTRINSIC ON AUXMEM 
ADDR $3 "CO&XL32821412)) 


ADDR t® X,(6327]3 

GO TO CODEINS 

LSE BEGIN MCC}, CCF I$SINTRNSCCONFLAG(D)) INX 0),0CF)3 
MCC), C2tijiai3 
GO EXITS 
END 

LSE 


FINTABLEROWEPIMIX],CBs10In13 
teINTI3START STEP 1 UNTIL SIZE DO 


IF INTABLECLPIMIXe TJ EFFISSEGNO THEN 
BEGIN Jtels SIZEtFOSEND:; 


IF J 


BEGIN 


NEQ@ O THEN 


MECISECFISSINTABLELPIMIX*JJ of CFI} 
MEC)eL2t1L)8=43 
GO EXIT} 


END ELSE 
BEGIN SSEARCH FOR EMPTY SLOT 


$ SET OMIT o@ 


$ POP OMIT 


FOR ItFINTL3START STEP 1 UNTIL SIZE DO 
IF INTABLECPIMIXe1]80 THEN BEGIN JtFls SIZE8#03 END} 
IF JRO THEN % EXPAND INTABLE ROW 
BEGIN LOC?®INTABLEROWLPIMIX] INX O8 
INTABLEROWCPIMIXJESCMEGETSPACECSIZE+INTI3ZSIZE e191) 
+2] JQCSIZEFINTISSIZEI( 823881073 
MOVECSIZE+INTI3SIZE*® INTABLEROWLPIMIXIJ,(CF Jie 
INTABLEROWELPIMIX])3 
MOVECSIZEe*LOCeINTABLEROWEPIMIXI)3 
Jeet; 
END3 
IFCSTZEtZINTRNSCONFLAGCD) JINX 0) INX 0) GTR 1023 THEN 
SIZESeMCSTZE"1),CF FQ} 
NOTCAUXMEM) 
IF Xe€381) THEN SINTRINSIC ON AUXMEM 
DISKADDR#=(0&8XE£ 32821112] ) 
ELSE 


DISKADDRtax,(6827)3 

MINE@*CNFLAGCD) INX ODBSIZELBS 38s 10VRICAs47s1Ibilrera7iid; 
LOCS#GETSPACECSIZE21300)3 

MCLOC) tC #PCOUP) &PIMIX(984236)3 


141860860 
14186090 
14186100 
141861190 
14186120 
14186121 
14186122 
141866123 
14186130 
14186132 
14186134 
14186136 
14186137 
14186138 
14186139 
14186140 
14186150 
141861690 
14186170 
14186160 
14186190 
14186200 
14186210 
14186220 
14186230 
14166240 
14186250 
14186260 
14186270 
14186280 
14186290 
14186300 
14186310 
14186320 
14186330 
14186340 
14186358 
14186360 
14186365 
14186370 
14186375 
14186360 
14186390 
14186400 
14186410 
14186415 
14186416 
14186417 
14186418 
14186419 
14186420 
14186422 
14186425 
144186430 
14186440 


END 
END 
END ELSE 


INTABLECPIMIXsJJPSORSEGNOCCTF J&CLOC+2)(CTCI3 
GO TO CODEIN3 


BEGIN PRTR # PRTILPIMIXe*)s LOC © NFLAGCD)&8OL515181]3 
DO IF LOC+PROGRAMDESC THEN SEGNO «+ LOC,(16215)% 


ELSE IF LOC,STOPPER THEN SEGNO + LOCeLINKS 
ELSE LOC « NFLAGCPRTRELOC,LINK) )% 


UNTIL SEGNOFO3S 


DD « 


IF DDCLO],0321) THEN COMPLEXSLEEPCCNOT DDCO],03411))32% 


SEGNO [NX PRTRE4&I]3% 


IF (SIZE «© CMINE * DDL0]),0164151)51023 THEN’ 
BEGIN DDLO),f381) «© 15% 


$ SET OMIT = 


$ POP OMIT 
$ SET OMIT = 


$ POP OMIT 


NOTL3S*TRUES 
IF MINE<O THENS 


IF PRTIREX «© MINE,£8810)1e£241] THEN GO AROUND3% 


IF MINE,f2s1) THEN’ 
BEGIN X # LINTRNSCOEMINE INX OJ13% 


IF REENTRANTS®(Xe04¢1)] OR CMEMROWECPIMIAY INX 0) 


LSS FENCE) OR CCMINE INX 0)*17) THEN 
BEGIN IF X>0 THEN SLEEPCEXJ+ *0)3 
IF (X INX 0)>1023 THEN 
BEGIN LOC «+ (SIZE « X INX 0)*23 
DDCOJ,LFFI * SIZE} GO AROUNDS 
END ELSE PCABS(X)» (XJa ©¢)3 
END3 
SIZE t# X JINX 03 
MONITOR OR NOTCAUXMEM) 
AUXTRACECLeCMINE INX 0))3 


NOTCAUXMEM) 
IF X,€3t1) THEN & INTRINSIC ON AUXMEM 
DISKADOR t# "CO&X(32821512)) 
ELSE 


DISKADDR #8 X,(6327])3 
END ELSE JF JAREPIMIX210]%0 THEN? 
DISKADDR t& DATADORESS(CPIMIXe MINE) 


ELSE DISKADDR 8© CODEADDRESSCPIMIX» MINEDS 


LOC * GETSPACECSIZEe1 + (MINE<O) + 7OXREENTRANT» 


CODEINS 
$ SET OMIT & 


$ POP OMIT 


MINE<O AND MINE,C681))3 


NOTCSTATISTICS) 
COUNTUPCCLOC GTR FENCE) 41990 C(SIZE429) DIV 30)3 


DISKIOCIODs*LOC*1sSIZEsDISKADDR)S 
SLEEPCE TOD eT OMASK)5 
IF 100.02687) NEQ@ O THEN 

BEGIN 

IF MINE, C254) OR (O,(682)81) THEN 


INTRNSCEMINE INX 0) $8 NABSC#PCDUP))3 


DOCO),C381) 8s OF 
GO TO NGI 
END} 


X ee MINE,(8910]3 
IF NOT13 THEN 
OLAYCTREPIMIX) &S=DOWNOLAYCSIZE)3 


14186450 
14186460 
14186470 
14166475 
14186460 
14187000 
14188000 
14189000 
14190000 
14191000 
14192000 
14193000 
14194000 
14195000 
14195100 
14196000 
14197000 
14198000 
14198100 
14198200 
141968210 
14198300 


(14196400 


14198500 
14198600 
14198700 
14199000 
14200000 
14200010 
14200020 
14200030 
14200100 
14200200 
14200300 
14200400 
14200401 
14200500 
14201000 
14202000 
14202100 
14203000 
14204000 
14205000 
14205001 
14205010 
14205099 
14205100 
14205101 
14205200 
14205300 
14205400 
14205500 
14205700 
14205750 
14205800 
14205850 
14206000 
14206010 
14206100 


%R3814206200 


$ SET OMIT = 


$ POP OMIT 


$ SET OMIT & 


$ POP OMIT 


EL 


$ SET OMIT & 
& POP OMIT 
END A 
ELSE 
AROUND! 


END3% 


NOTCSTATISTICS) 


14206299 


CODEPBITS(CPIMIX] se*P COUP )+13 %¥R6314206300 
14206301 

IF DeL682)"1 THEN 14206310 
BEGIN 14206320 
MECC] 20CCFJ]eLOC+23 MEIC) eCetilei3 14206330 
IF MEMROWCPIMIX] INX O LSS FENCE THEN BEGIN 14206332 
INTRNSCEMINE JINX OO] seeC*PCDOUP)I&CLOC4+ 2) (CTC) 14206334 
MELOCI] EaC*#P COUP) )&80¢999%6]80(284781) END ELSE 14206336 
MCLOCI,(C2¢1J 8503 14206336 
MELOCe 1 ]« ORMINELCSESBULOJRSIZECCTFI3 14206340 
GO EXIT3 14206350 
END} 14206360 
IF MINE>0O THEN BEGIN RUNAROUND33& 14207000 
MCC] «© (CLOC#2) INX D) OR MEMORY33% 14208000 

If REENTRANT THEN 14209100 
INTRNSCEMINES LCF) © *CH#PCDUP)I&CLOC+2)°CTC] ELSE 14209200 

IF (X « PRTRE4),61886))#0 THENS 14210000 
MCELOC] © C#¥PCDUP)IRXL914296)33 14211000 
NOTCAUXMEM) 14212000 
IF NOT DISKADOR,C181) THEN 14212010 
14212011 

MELOC41)]9#0 & SIZECCTFI}3 14212020 
MCELOC4e1I8=(*#P (DUP) I&SEGNO[CTCI3 14212030 

IF MINE, £281) THEN MELOC+11 «© CaPCDUP))&MINEL 6838210333 14212100 
DDCO},C18815] + LOC+23% 14213000 

END PROGRAM CODE SEGMENTS2 14214000 
SE BEGIN 14215000 
MECC] «© PRTREX] «© M OR (CLOC+2)2 14216000 
RCMELOC41) © CPRTREXI] INX 02618833815 )% 14217000 

& CMINE.C7841*24) (344385) % COBOL68 READ ONLY 14217500 
&SI1ZE(8838210))3% 14218000 

TF MINE.C6#1) THEN % COBOL68 FILE TANK 14218010 

IF NOT PCM(LOC4+4)eTOP»sXCHeDEL) THENS BUILD FIB PTR14218025 

BEGIN 14218027 
PCCMELOC #4) ]*DUPsDUPsLODeXCHe INXeM( CJ] oF FXe 14218030 
@10002Z6eDIA 32°eDIB 2eTRB 169XCrHee)di 14218035 

WHILE CAT TePRTIRCAITNDX)),PBIT#O 14218040 

DO MAKEPRESENTCEPRTIRCAITNOXI]] INX O)3 14218045 

IF AIT,£8210) < AIT(OJ4+2 THEN 14218050 


BEGIN PCA]T#000)3 JINTERRUPT(1)3% PHONEY INVAL1ID14216055 


P(DELeDEL* DEL): % INDEX ON AIT 14218060 

AIT © PRTREAITNDX]3 14218065 

END? 14218070 
AITCAITCO]beePCDUP 41) sem C1BPRICPIMIX0 16] 14218075 
COs36s1O]&M(CICR TF IDS 14218068 

ENDS 14218090 
NOTCSTATISTICS) 14218099 
DATAPBITSCPIMIX]s#*PC(DUP)+13 ®R6314218100 
14218301 

END TYPE TWO DATA SEGMENTS} 14219000 
IF NOT MINE,C691] THEN MELOC),C201) © O38 14220000 
BSENT SEGMENTSS 14221000 
BEGIN LOC « SIZE"254 14222000 
REENTRANT © DDCO],f2:3)3 14222100 
IF DOEO]>0 THENS 14223000 
IF NOT PRTREX «* DDC0),£6810)],0261) THEN RUNAROUND?2 14224000 
MCC) «© IF DDLO}>0 THEN CCSIZE INX D) OR MDS 14225000 
ELSE PRTREDO(0),(8810))3% 14226000 
14227000 


i ; 


IF REENTRANT THEN 14227100 
BEGIN SIZE * CDDLO] INX 0)"15% 14227200 
IF MEMROWLPIMIX] INX O GEQ FENCE THEN 14227210 
SIZEVEREENTRANTINTABLEMAP(SIZE41)3 14227220 
STREAMCSEGNOe T * SIZE AND 32% 14227300 

] * CINTABLECPIMIXsSIZE DIV 4)))5% 14227400 

BEGIN 14227500 
Sraeqys SpssSteTs SpteSp+Ts SKIP 1 SBI 14227520 

IF SB THENS % REMEMBER TYPE 13 REFERENCE 14227540 

DIseDN1l4Ts DIL eeDi4+Ts TAFOIs STSFLOc Ti 14227560 

S1ssSi"2s DSt*2 CHR} 14227580 

IF TOGGLE THEN BEGIN DIs#T3 SKIP 1 DBS OSt3SET# ENDS 14227600 

END3 14227620 
END} 14227700 
DOCO),.C381) © OF GO EXITS 14228000 
END}% 14229000 
JF (MOM8#®D,£385]9#0 AND (MOM AND @33)#@30 THEN 14230000 
BEGIN& 14231000 
COMMENT I/0 DESCRIPTORSS 14232000 
IF JARCPIMIX*#2]) < 0 THEN 14233000 
BEGIN TERMINATECPIMIX)3 14233100 
TERMINALMESSAGE(25)3 14233200 

ENDS 14233300 
TESTREADY? MOMtSM[LOC#D INX CIF D«REVERSE THEN 2 ELSE NOT 1)),0CFI18 14234000 
IF CMEMOM) AND JOMASK)30 THEN 14235000 
WAITORSWAPCM[LOC],C12%6)»MOM)} 14236000 

IF TERMSETCPIMIX) THEN GO TO INITIATE? 14237000 

IF MEMORY(MOM),PRESENT THEN 14238000 
MEMORYEC]*MEMORYEMOM]2 14239000 

ELSES 14240000 
BEGIN 14241000 

IF MEMORY(MOM),NOTOPEN THENS 14242000 
OPENIS 14243000 
BEGIN SAVEOPENCMOM)$ GO TO TESTREADY END 2R9014244000 

ELSE BEGINS 14245000 
COMMENT READY AND NOT PRESENT INDICATES REEL@SWITCH OR TERMINATES 14246000 
PRTReM{MOM™3) 32% 14247000 
LOC*PRTRE15),C25s5)3% 14248000 
SIZE*PRIR(4),(824)5% 14249000 

IF MCMOM),C27t1) THENS 14250000 

IF MEMOMJ,£C2491) THENS 14251000 

BEGIN IF SIZE®2 AND NOT PRTIR(4),f2:11% 14252000 

AND NOT MEMOM),C22#1) THENS 14253000 

BEGIN BLASTQC(LOC)3% 14254000 
PCWAITIOCMEMOM#2) > OrLOC) DELI 5% 14255000 
PCWAITIOC@1000000340000005e0eL0C)sDEL)S% 14256000 

IF MEMEMOM™®2) INX 4),04286]8%1 THEN’ 14257000 

CLOSE? BEGIN LOC*PRTRL13),(26t10)3% 14258000 
FILECLOSECMOM&@12016233315))5% 14259000 

PRTIRLIZIgC26S10J+LOC+13% 14260000 

GO TO OPENS 14261000 

END3% 14262000 

ENDs% 14263000 

END FLSE% 14264000 

BEGIN IF SIZE#2 OR SIZE#7 OR SIZE*8 THENS 14265000 

BEGIN IF NOT PRTRC4),C2t1) THENS 14266000 

MEMCMOMP2) INX 4), 04216) ¢15% 14267000 

GO TO CLOSES% 14268000 

END3% 14269000 

ENDS® 14270000 


PCMOMeMEMOMIJ,L2781)+120°0)5% 14271000 

COM113% 14272000 

END3% 14273000 

END3% 14274000 

ENDZ 14275000 

ELSES 14276000 

BEGINS 14277000 

COMMENT DATA DESCRIPTORS2 14278000 
DLOOP: 14276100 
IF CMOTHER*MEMORYEMOM © 0,(18915]]),02%1] THEN GO WRAPS 14279000 

IF ¢MOTHER INX 0) = 6 THEN % 1/0 ERROR FROM OLAY 14279150 

BEGIN 14279200 
PRTROWELCPIMIXI,CFF) t# 203 & J/0 ERROR 14279250 
PRTROWCPIMIXI,CPSFis= 13 & TERMINATE 14279300 

GO TO INITIATES 14279350 

END3 14279400 

IF (MOTHER INX 0) * 5 THEN &% INTERLOCK FROM OLAY 14279450 

BEGIN 14279500 
COMPLEXSLEEPCCCMEMOM] JINX 0) NEG 5))3 14279550 

GO TO DLOOP; 14279600 

END$ 14279650 

SAVEBIT * MOTHER, CCF I=13 14280000 
MEMORYEMOM) © MOTHER&CCLOC *GETSPACECSIZE*MOTHER,(8s10) 920% 14281008 

SAVEBIT YIFQICIIsIS ASI RIC 2:47 31133 14282000 

IF MOTHER«(CFI<S3 THEN 14283000 
STREAMCL©LOC+25 SeS]ZE"1* TeO0e WeCMOTHER, CCF IJS2))3 14284000 

BEGIN SI © LOC S#SIl#Sl+6sDleLOC TIDI|DI+7SDS*CHR3% 14285000 

DIeLs St*LOC Ws DSeWDS3 14286000 

SleLs TCDS*32 WOS3 DS*32 WDOS)3 DS#S WDSSS 14287000 

END ZERO SPACES 14288000 

ELSES 14289000 

BEGIN’ 14290000 

COMMENT READ ARRAY FROM OISK AND RETURN DISK SPACES 14291000 
& SET OMIT = NOTCSTATISTICS) 14291099 
MOREDPBITSLIPIMIX] seePCOUP D413 14291100 

$ POP OMIT 14291101 
DISKIOC LOD» *LOC™1L» MOTHER, (8810) 14292009 
DATADDRESS(PIMIXs MOTHER) )3 14292100 

SLEEPCEIO0J + LOMASK)3 14292110 

IF 100.2687] NEQ O THEN 142921290 

BEGIN 14292130 

NGt FORGETSPACE(LOC+2)3 14292140 
GO TO INITIATES 14292160 

: r ENDS 14292170 
$ SET OMIT & NOTCSTATISTICS) 14292199 
COUNTUPCCLOC GTR FENCE) +219 (MOTHER, (8310)429) DIV 30)3 14292200 

$ POP OMIT 14292201 
MOM*MOM&MOTHERICTFJ3 14293000 

OLAYCTREPIMIX] s=DOWNOLAY (MOTHER, (8810))3 %R3814294000 

END 33 * 14295000 
MEMORYCLOC),£281] « SAVEBITI2& 14296000 
MEMORYCLOC4#21) « MOM 3% 142970090 

$ SET OMIT # NOTCSTATISTICS) 14297099 
DATAPBITS(CPIMIX] smeP(OUP)413 %R6314297100 

$ POP OMIT 14297101 
WRAP 3% 14298000 
MEMORYEC) © IF Def8840] & O THEN PCMEMOMI] © 02 CDCoDeXCHe INX)S 14299000 

ELSE MEMORYLMOMI]3% 14300000 

; ENDS 14301000 
EXITS 14301100 


$ SET OMIT © NOTCNEWLOGGING) 14301199 
IF MCPROCTEMP#0 THEN 14301200 
BEGIN 14301300 
MCPROCTEMP+PROCTIMELMIXXIJ¢CLOCK+PCRTR) @=MCPROCTEMPS 14301400 
IF MCPROCTEMP<O THEN MCPROCTEMP#0} 14301500 
MCPROCTIMELCMIXX]*ABSC#PCDUP) )+MCPROCTEMP3 14301600 
END3 . 14301700 
$ POP OMIT 14301701 
END MAKEPRESENT 33% 14302000 
REAL ADDRS#NT138% 14342000 
PROCEDURE COM5S3% 14343000 
BEGIN® 14344000 
DEFINE HARRYSTA = MCWORKERSTACK4+5)#> % STA 14344100 
CLEARINPUTANK 2 14344200 
STATABLELI]28C#P (DUP) I&CCANDEMIX(134@240)(113989) 14344250 
ROCLAA7ILIRLL 1684791) 14344350 
BCNOT CTESINPUTANKEI)2201383501I8 14344400 
INPUTANKE IJ 9#NABSCP(DUP LOD» OeXCH)&PL3593581I)3 14344450 
IF (CSteTseteCFFJ*°2) GTR O THEN DO 14344500 
BEGIN IF (MET) AND IOMASK)80 THEN 14344550 
SLEEPCEME TJ Je 1OMASK)3 % THEN DISCARD 14344600 
FORGETSPACECT)3 % BUFFERS 14344700 
END UNTIL (TBeMCT+2),0CFI*2) LE® O OR TaSs 14344600 
#3 14344900 
REAL RCWE+00d 14345000 
ERTOG#420% 14346000 
l B+30% 14347000 
T sash 14348000 
INTEGER Je] 3% 14349000 
ARRAY VECTOR#45(*]eSe+6[¥*] 5% 14350000 
INTEGER Q3S3 14350100 
REAL MSCW3"13 14350200 
REAL TYPE+73 14351000 
INTEGER LINK3 14351100 
LABEL RETURNEMsAHEADS 14351150 
INTEGER MOTHER&+8* NEXTMOM=4+99 MOMMIX=410% CATCH=4+115% 14351200 
REAL JARO = +123 14351210 
$ SET OMIT © NOTCPACKETS) 14351239 
REAL UNITNORLINKS 14351240 
$ POP OMIT 14351241 
ARRAY PRTIR®LINK(#)} $R2314351300 
$ SET OMIT = NOTCSTATISTICS) 14351309 
REAL OBJINFOH4123 14351318 
$ POP OMIT 14351311 
$ SET OMIT = AUXMEM 14351390 
DEFINE STACKSZ&180#3 14351400 
$ SET OMIT © NOT AUXMEM 14351410 
DEFINE STACKSZe20083 14351420 
$ POP OMIT OMIT 14351430 
PRIORTY*PRYOREPIMIXJe"13 14351500 
PCGETSPACECSTACKSZ97600) #STSe# eCOMS*RCWs Oe RDS OP XCHOCFXOSTF D3 14353000 
PCP&CMSCWILCCTF)+000000020%0)3 14354000 
- P(0000020202000)3 14355000 

$ SET OMIT ® NOTCSTATISTICS) 14355099 | 
P(O)3 : 14355100 
CORETIMECPIMIX]3sC#PCDUP))#CLOCK+PCRIR)@TIMINGCPIMIX]3 14355200 
$ POP OMIT 14355201 
UVROWEPIMIXJ©CVECTOR*UVROW[PIMIX])& 14356300 
CGETSPACECUVSIZE26405)42)(CTC)) 14356400 
MOVECUVSIZE sVECTOR*®UVROWEPIMIX))3 14356500 


VECTORIERJARROWLIPIMIXI&CGETSPACE(C30264*5)+2)1CTC)3 
MOVE C 30+ JARROWLPIMIXI] e VECTOR) 
IF CMOTHERSSMEMROWCPIMIX],CCFJ LSS FENCE) THEN 
FORGETSPACECJARROWCPIMIX)) ELSE 
IF VECTORC1)] LSS O THEN MEMROWCLPiIMIX) $eMEMROWLOI3 
JARROW(CPIMIXI] CCF ISEVECTORS 
ERTOGeORPRICPIMIXe@25](182846]3 
JARO $= VECTOR[9]3 
TYPeVECTOR(2),(68310]3 
IF VECTOR(O}<O THENS 
BEGIN CATCHePRICPIMIX#@26]3 
ERTOG*VECTOR([13<0O OR ERTOG} 
END? 
IF VECTORL2)«<0 THEN %&% COBOL 
IF VECTOR(1]>0 THEN % NOT OS*ED 
WHILE PRTICPIMIXe16)]20 DO ASRISCLEAN OUT AIT 
$ SET OMIT = NOTCAUXMEM) 
IF VECTOR(1] GTR O THEN % NOT DS@ED 
FOR MOMMIX t# 6 STEP 5 UNTIL 11 DO 
BEGIN 
Q §® NFLAGCPRTICPAIM]XeMOMMIXJ])3 B AIT OR OAT ENTRY 
IF Q@.f281) THEN % PRESENT» GRAB ADDR FROM LINK 
Q 3= Q & MLO INX NOT OJLFICI3 
IF Q@.£3383)=27 THEN ARTNCG@e"1)3 & AUXMEM 
IF VECTOREC2) LSS O THEN MOMMIX#2#113 % COBOL HAS NO OAT 
END} 
$ POP OMIT 
SLEEPCCOLAYMASK J] e Tre TWOCPIMIX))3 
OLAYMASK ¢2 OLAYMASK AND NOT T3 
T t® DALOCLPIMIX*O)],fCFI3 
FOR [Tt#1 STEP 2 UNTIL T DO 
BEGIN 
FORGETUSERDISK(CDALOCCPIMIXe]1 J) 2*500)3 
END3 
. J 8 INTABLEROWEPIMIX] 38 03 
$ SET OMIT = NOTCAUXMEM) 
S t® PRICPIMIX04)] & CCL 83eP (DUP) )41)08838310)3 
FOR Its] STEP 71 UNTIL 14 00 
IF CAUXCODECPLIMIX)+AUXDATACPIMIX])20 THEN [ti ELSE 
IF CNT te SOC1J)<O THEN 
IF VECTOR(C1}) GTR O THEN %& AVOID CONFUSION IF DS#ED 
BEGIN COMMENT TYPE®TWO (DATA) SEGMENT} 
IF CNTLSENFLAGCPRTICPIMIX®NT1,066910)]2),£C281] THEN 
NT4 te NT1 & MEPCDUP) JINX NOT OJCFTC)3 
IF NT1,03383)87 THEN 
ARTNCNT1ie@1)3 
END ELSE ELSE 
IF NT1,0€581) THEN 
BEGIN IF C(NT2 t# NT1,CFF))71023 THEN NT23SMCNT2°1), CFF I3 
AUXCODELPIMIX] s& *PCDUP)YNT2,(£3836)71%3 
FORGETAUXILIARYSPACECNT2»s NTI ,CCFIJ)3 
ENDS 
$ POP OMIT 
IF MOTHER THEN % BELOW FENCE 
BEGIN STASUSCPIMIXIJ*STABLES 
CORE.CFFI*CORE,CFFI*SINFOCPIMIXI,UCFFI3 
WAITSTORECPIMIX)3 
WHILECT#M(CTI)¢£0CF] # 0 DOS 
BEGINS 
If T>0 THEN? 


14357000 
14357100 
14357150 
14357200 
14357250 
14357300 
14357400 
14357500 
14358000 
14358100 
14358150 
14358200 
14358300 
14360100 
14360200 
14360300 
14360302 
14360304 
14360310 
14360320 
14360322 
14360324 
14360326 
14360328 
14360330 
14360332 
14360333 
14360334 
14360336 
14360338 
14360340 
14360342 
14360360 
14360362 
14360364 
14360366 
14360368 
14360370 
14360372 
14360374 
14360376 
14360378 
14360380 
14360362 
14360384 
14360386 
14360368 
14360390 
14360392 
14360396 
14360396 
14360396 
14360399 
14360400 
14360500 
14360600 
14361000 
14362000 
14363000 
14364000 


IF T,COL6I=PIMIX THENZ 14365000 

2R8114365100 

%R6414365200 

FORGETSPACECI INX 2)3 %R8414365300 

le T,CCFIS 14366000 

END3% 14367000 

END ELSE 14367010 

BEGIN IF LOGLINE.€33#71]#0 THEN 14367020 

BEGIN CLEARTANK(CLOGLINE+0)3 14367021 
TANKSCIS@LOGLINE ¢ (4088)) 83C#P (DUP) &O(CTCI3 14367022 

IF WORKING THEN % MAKE SURE HARRY ISN¥14367023 

IF HARRYSTA#I THEN 2 OIDDLING OUR LINE 14367024 

COMPLEXSLEEPCNOT WORKING OR HARRYSTA#I] 23 14367025 

CLEARINPUTANK? 14367030 

TANKOKE TJ] 8803 14367032 

END} 14367034 

SWAPCEQUSTATE 10)3 14367036 

MEMROWEPIMIX) $SMEMROWLO)3 14367038 

TeCIT*NOT FENCE INX 1) DIV 1890423 14367040 
FORGETUSERDISKCOISKSTORECPIMIXJeNABSCJ] DIV 304T#T4+2) 914367050 

ENDS 14367060 

14367100 

DATELPIMIX] «03 14367200 

IF TYP#0 THEN 14371000 

$ SET OMIT & STATISTICS 14371999 
FORGETSPACECDIRECTORYSEAKCH(VECTORE(7]eIF VECTOR[OJ<0 14372000 

THEN "OTSK " ELSE IF VECTOR(O0],C2%1) THEN “CANDE %14373000 

ELSE ABS(VECTOR(1])013))5 14373100 

$ POP OMIT 1437310) 
$ SET OMIT = NOTCSTATISTICS) 14373199 
BEGIN 14373200 
NTISSDTRECTORYSEARCHCVECTORI7ZJ*°IF VECTOREO) 14373300 

LSS 0 THEN "DISK " ELSE IF VECTOR(O),£C231) 14373400 

THEN "CANDF “ ELSE ABSCVECTORE(I))013),0°0CFI3 14373500 
OBJINFOSBMCINTIF+3I&MEINTI44I(2443626]3 14373600 
FORGETSPACECNTI)3 14373700 

END3 14373800 

$ POP OMIT 14373801 
IF TYP#1 THEN &% COMPILE PART OF COMPILE &G0 14374000 

BEGINS 14375000 

RETURNEMS StacMCSPACEC31))I&831(8838810)3 14376000 
DISKWAITC*S,CCF J e30*eVECTOREC2),0FFIJ)3 14376100 

IF ERTOG#O AND TYP®1 THEN 14376200 

BEGIN’ 14377000 
SLEEPCCTOGLEJ*SHEETMASK)3 14378000 

LOCKTOGCSHEETMASK)3 14379000 

STREAMCACOIBSOR( sSCHEDULEIDS))3 14363100 

BEGIN SIeB3 14383200 

47C(CSKIP SBS SKIP DBs TALLY*TALLY413 14383300 

IF SB THEN BEGIN END 14383400 
ELSE JUMP OUT)3 14383450 

DS*SETS A*TALLY3 14383500 

END STREAMS 14383600 

T © P3 SC3) © O08&768236810)3 14383700 

$€25] © CATCHS 14383740 

S(6) 2* VECTOR(6]3 14383750 
S€23),024s24)]*(CLOCK+PCRTR)IDIV 603 14363760 

DISKWAITCS.CCFJ 9306 14383800 


VECTORE2I,C0FFI23 14383900 
I + IF S$€18}) > SHEETMAX THEN SHEETMAX 14385000 


AHEAD? 


$ SET OMIT # 


$ POP OMIT 


ELSE $(18]3 


It SHEETLIJ,(CF) # 0 THEN 
BEGIN DISKWAITC*S, (CF J» 30» 


SHEETCIJeCFFI)3 


S(29] « VECTOR(2),°0F FI; 
DISKWAITCS.(CF Je 30° 


SHEETCIJeLFFI)3 
END ELSE SHEETEIJ «© VECTORE23eCFFJ3 


SHEETCIIJ,CEFI © VECTORC2]eCFFI3 
UNLOCKTOG(CSHEETMASK )3 
FORGETSPACECS INX 0)3 

NEEDSELECTI#13 

GO AHEAD: 

ENDS 
ELSE BEGIN’ 
FORGETESPDISKCVECTOR(2),0618315) 5% 
LINK « SC1393 
WHILE LINK#0 DO 
BEGIN DISKWAITC*S, CCF J» 30-sLINK)3 


FORGETESPDISKCLINK)3 LINK © SC29])3 


END; 
FORGETSPACECS)3 
END 
END ELSES 
IF TYP#0 THEN 
BEGIN’ 
VECTOREQIS#VECTOREI9I.CCE IS 
FOR Ie1 STEP 1 UNTIL VECTORE 9] DOS 
IF VECTOREL94+1] # O THENS 
FORGETUSERDISKC(VECTOR( 9+] Je VECTOR 8] 93 
END ELSE 
IF TYPs4 
THEN GO TO RETURNEM$ 
IF CTE=VECTOREI6).0CF I) GEQ ESPDISKBOTTOM AND T LSS 
ESPDISKTOP THEN FORGETESPDISK(T)3 


If JWARCIPIM]X20) < O THENS 
IF ERTOG # O THEN’ 
TYP*3) 
TeUVROWELT]PIMIX] CCF )3 
NOTCAUXMEM) 
IF AUXDATALPIMIX] NEQ O THEN 
IF CAUXERRORTOG AND TWOCPIMIX)) = O THEN 
AUXILPARYMEMORYCASUALTYRECOVERY 
ELSE AUXDATALPIMI XJ 1203 


COMMENT SUBTRACT CORE REQUIREMENTS FROM CORE WORD} 
IF VECTOR(C2).0381] THEN 
BEGIN 
NTLISGETSPACE(59#7305)+23 
MENTL dsm O & PIMIXC2084315)3 
MENTL¢i daw VECTOR(C5),01823]3 
MENTi*+2]¢@ XCLOCK & VECTORE2I0191917) & 
CVECTORE13<0)(1834216)3 
MONTi+3]¢= VECTOR(IO)3 
MENT +4)s= VECTOROC 133 
LINKUPC14sNT1)3 
END3 
VECTOR 38 VECTOR&SPACECIOILCTC)3 
MOVECLOsJARROWCPIMIXJ eVECTOR)S 


14386000 
14387000 
14388000 
14389000 
14391000 
14392000 
14392500 
14394000 
14395000 
14396000 
14396050 


%R9314396100 


14396200 
14397000 
14398000 
14399000 
14399100 
14399200 
14399300 
14399500 
14399600 
14399700 
14400000 
14401000 
14402000 
14403000 
14403900 
14404000 
14405000 
14406000 
14407000 
14407300 
14407200 
14407300 
14407400 
14407500 
14408000 
14409000 
14410000 
14411000 
14411099 
14411100 
14411110 
14411120 
14411130 
14411140 
14411200 
14411800 
14411610 
14411820 
14411840 
14411650 
14411660 
14411870 
14411680 
14411690 
14411900 
14411910 
14442110 
14412120 


$ SET OMIT = 


$ POP OMIT 


£ SET OMIT & 


$ POP OMIT 


$ SET OMIT # 


$ POP OMIT 


WHILE XCLOCK+PCRTR) GEQ WITCHINGHOUR DO MIDNIGHT; 

MOTHER*I1F VECTORE1J<O THEN 2 ELSE TYP#33 

STOPLOGC 106); 

NEXTMOMeVECTORE 3S) +PROCTIMELT) 

CATCH*CCVECTORE2JeUSERCODELT) 
AND USERCODELIIJ#0)+13 

S 8% VECTOR&CSPACECLOI*LILCCTCIS 

MOVECLOOCSCOI FL SC1I))3 

IF CLOGARRAY( 313) AND JOMASK)=&0O THEN 
SLEEPCCLOGARRAY[ 31) J+ 1OMASK)3 

St1) « NEXTMOMS 

S$(2] © VECTORC4I+1L0TIMELI 3 

S£3]) © CLOETISSCLI I xCHUNKZIZE+CHUNKZIZES 

NOTCNEWLOGGING) 

S(4] © ABSCMCPROCTIMECII): 

S£5] « MCPIOTIMECIJ3 


H 
DFABSCVECTORE1)) 


MAKELOGC(ES{O]],£CFIJ*EOUSTATS)# 

IF LOGLINE.£3317] NE@ O THEN 
BEGIN PRIRI®10QUERGETAREAC2)(CTCI3 
PRTRLOJ,CFFIISLOGLINES 

PRTRELIS@MOTHERS 

PRTIRLZJt=XCLOCK+P(RTR) 3 
MOVECO*ESCLIIJ*®LPRTRE3II)3 
PRTIRC1IZItFERTOGL1846)3 

PRIRLI3Z]1"VECTOR(OJS 

PRTIRLISJSVECTOREI)3 

PRIRCIS]tsUSERCODELPIMIX)S 
PRIRLIOJIENEXTILPIMIXIE 

PRIRCI7It=NEXT2CPIMIXI3 
QUEVENTCPRTR« LCF) sCANDYINX)§ 

END ELSE 

IF NEXTILPIMyX} NE@ O THEN 

ZIPPERCNEXTICPIMIX] ®NEXT2CPIMIX})5 

NOTCSTATISTICS) 
JOBNUM#=JOBNUM@13 

SLLISECORETIMELPIMIX)3 

SC2]##0LAYUSEDEPIMIAI3 
SC3)S®READYQUETIMELIJGINITIALROTIMELIIL182532313 
SCOJSBOBUINFORSQOLPIMIXI([6824816]3 
SCSJPESWAPSEPIMIXIGSWAPOUTSEPIMIXI[L625123)3 
SL6)S=CODEPBITSCPIMIXJ&DATAPBITSEPIMIXJC14925223)3 
S[7]$*CODEOLAYSLPIMIXJ&DATAOLAYSLPIMIXI([1825123)3 
S[8)t=JOBNUM} 
S(OJSBMORECPBITSCPIMIXJ&MOREDPBITSCPIMIXICI¢25¢23]5 
MAKELOGCESLOJI,(CFIeSYSTATS)3 


FORGETSPACECES£131)3 
FORMTIMECCVECTORE4)]]sNEXTMOM)3 

LINKSeCNOT VECTOR(OJ),C28id3 

NOTCPACKETS) 

TYP,CIsLI#CVECTORE1I<0) OR CVECTORE2),CB810)83)3 


IF STASUS[EI] NEQ@ STABLE THEN 
COMPLEXSLEEPCSTASUSEPIMIXIJESTABLE)3 
STREAMCBeMOTHEReCeCATCHel oe VECTOR) 
BEGINS 
DS «© LIT ™ "3 DI © DI+733 
CCOSe#LIT "/"3 DI*DI47)3 
ST*LOC C3 SieSI+73 


14412200 
14412300 
14412350 
14412400 
14412600 
14412610 
14412800 
14412900 
%R2714413000 
%R2714413010 
14413100 
14413200 
14413300 
14413399 
14413408 
14413500 
14413501 
14414000 
ZR2314414010 
%R2314414020 
%R2314414030 
2R2314414040 
$R2314414050 
%R2314414060 
BR2314414070 
%R2314414080 
%R2314414090 
%R2314414100 
$R2314414110 
%R2314414120 
%R2314414800 
%R2314414810 
ZR2314414820 
£R2314414830 
14414834 
14414835 
14414840 
14414845 
14414850 
14414855 
14414860 
14414865 
14414870 
14414875 
14414880 
14414885 
14414886 
%R2314414900 
14415000 
$R2014415810 
14415819 
14415820 
14415621 
%R4114415850 
%R4114415860 
14415900 
14416000 
14417000 
14418000 
14418100 


IF SC#"1" THEN DS*8 LIT * "3 14416200 
DS#LIT"#"3 ST*#LOC [3 DSe2 DEC 14419000 
leDI3 OleDI"23 DSeFILL: DIeI3 14419100 
DS* 5 LIT *sPST&™3 14419200 
DI«DI+83 14419500 
Cl © CIl+B3% 14420000 
GO TO E3% 14421000 
GO TO OK#% 14422000 
DS#7 LIT “ DS*ED "3 14423000 
GO TO X33% 14424000 
OK 4% 14425000 
DS*5 LIT * EOU "3 14426000 
GO TO X3% 14427000 
Ea OS*11 UIT * SYNTAX ERR “3 14426000 
X4 DSoLIT*e "3 14429000 
END} 14429100 
SPOUTITCVECTOR INX Oe (LINK OR CANDYMESS) AND 14430000 T 
EOJMESS AND CNOT JAR9),C2t1) OR EOUK) 14430010 
$ SET OMIT s NOTCPACKETS) 14430019 
UNIT TNOS#PSEUDOMIXEPIMIX)3 14430028 | 
PIMIXt@PSEUDOMIXCPIMIX12503 14430030 
IF UNI TNO#0 THEN 14430040 
DRAINOCUNITNOOCTYP.CCRJ#1)*TYP,C181) 14430050 
RJARC Le 63CLI1IiId)3 14430060 
$ POP OMIT 14430061 
IF CLOGARRAY£31J AND JOMASK)*%0 THEN 14430100 
SLEEPCCLOGARRAY( 31] J» IOMASK)3 14430200 
IF TABCNTCI)]#0 THEN 14430300 
BEGIN CLICKESCLOCK+9003 14430400 
COMPLEXSLEEPCTABCNTCIIJ30)3 14430500 
END? 14430600 
FORGETSPACECJARROW(I J 93 14431000 
PIMIXe¢JARROWC I J#PRTROWE 1 J+03 14431100 
14431300 
IF BATCHJOB{(1] OR FSROWLITJeCCF) LSS FENCE $R9314431500 
OR NEEDSELECT THEN %R9314431600 
SELECTION} 14432000 
NEEDSELECT!#03 %R9314432500 
FORGETSPACECT)3 %RI314432600 
KILLCCRCWI)3% 14434000 
END L5COM32% 14435000 ‘ 
PROCEDURE ZIPPERCW1eW2)8 VALUE W1ieW23 REAL WileW2s% 14531000 
BEGIN REAL Tel 14532000 
TIiMGETSPACE(1226455) 443 14533000 aes Te : 
14534000 
IF CL*©USERCODELPIMIXJ)*®ABSCNOT 0) THEN Ie 08 14534500 
STREAMCKO@LGoAe( Wi) eCeleBeT)3 14535000 Se eee eee eer 
BEGIN 14536000 
SleLOC Ks SIleSI#7! OS* CHRI 14537000 
OSt= 5 LIT "USERS™S STtsLOC C3 SlteS]413 OSte 7 CHR} 14537100 
DS* 9 LIT “"SEXECUTE "3 Seas STeSlei) 14537200 
DS* 7 CHR} DS* LIT "/"3s SyeS14+1) OS* 7 CHRS 14538000 
DS* 6 LIT "SEND e"3 37¢0DS* LIT * "93 14539000 . 
END} 14540000 
LelF PiMIX#0 OR USERCODELPIMIXJSMCP THEN 31 ELSE 263 14541000 
$ SET OMIT = NOTCPACKETS) 14541049 - 
IF PSEUDOMIX{LPIMIX) NEQ@ O THEN NYLONZIPPER(PIMIX) .C2si)9=03 14541050 
$ POP OMIT 14541131 
FORKCPC,CONTROLCARD) OR CO&LOGLINEL325191]XLOGLINE D+ 14541150 eee Dotcas Sena dena tee 
TRICZS43S5IRPIMIXL1Sta42s6) emi eCCSTACKS0)3 14541170 a ae 


$ SET OMIT = NOTCPACKETS) 
IF PSEUDOMIXEPiMIX] NE@ O THEN 


$ 


ow 


£ POP OMIT 
LABEL LLeCOPYsFOUNDe FAST! 
LABEL CHECKeDOWNe BOMBOUTS2 
% 
REAL SUBROUTINE THERE3S% 
z 
z ON EXITe X IS THE LAST BYPASS BLOCK READ AND J IS ITS ADDRESS, 
3% Ie THERE IS TRUEe I IS THE [NDEX OF THE ENTRY FOR THE FILE, 
z. IF THERE IS FALSEe T IS THE ADDRESS OF THE FIRST BLOCK WHICH 
y 4 HAS A VACANT SLOT, 
y § 
BEGINS 
Ti R03 
LL} FOR [t80 STEP 3 UNTIL 57 DO 
BEGIN IF CXC1] £QV A) ® NOT O THEN 
IF CXCI+4+1] EQV B) = NOT O THEN 
BEGIN P(1)3 
GO DOWN} 
END? 
IF (XC1T) EQV 014) = NOT O THEN 
IF TO THEN TtaJ} 
END’ 
IF (€Z88X(2),CFF1)#0 THEN 
BEGIN DISKWAITC*Re60-J8e2)3 
GO TO LL3 
ENDS 
IF TRO THEN TtaJ3 
PCO)3 
DOWNS THERE t=P3 
END33 


POP OMIT 


IF MEMROWEPIMIX).ECCF) GE@ FENCE THEN 

DO SWAPCWATTSWAPo1) UNTIL 
NYLONZIPPERCPIMIX],(291) ELSE 
SLEEPCENYLONZIPPEREPIMIXIJ2@1000000000000000)3 


END ZIPPERS& 
REAL PROCEDURE EUFCA+BeL)§ VALUE AsBeLs REAL ArBeld 
BEGIN® 


REAL 


LeJoRe Te Z3% 


ARRAY XC#¥J)]eALCH¥IeATHEZ(#]3 
INTEGER S3 

SET OMIT = SHAREDISK 
DEFINE RIPR#> X1eX#s 


POP OMIT 


SET OMIT = NOTCSHAREDISK) 
ARRAY X1(*]3 


REAL HOLDER*NEXTSLOT*BYPASS> R13 
BOOLEAN DELETETOG#R1I+4+1} 


% HOLDER MUST BE AT X1+14 
% MUST BE TOP OF STACK 


& SET OMIT ® NOTCSHAREDISK) 


PCA,CIsiI)3 
$ POP OMIT 


® INITIALIZES DELETETOG 


ASZABS(A)S 
IF CA OR B),£125])40 OR AwO@14 OR ABOC114 THEN 
BEGIN 


END) 


TERMINATECPIMIX)3 TERMINALMESSAGE(75)3 


$ SET OMIT # SHAREDISK 
LOCKDIRECTORY3 


14541179 
14541180 
14541182 
14541184 
14541186 
14541190 
14541191 
14542000 
14543000 
14544000 
14545000 
14546000 
14546100 
14546199 
14546200 
14546201 
14546299 
14546300 
14546400 
14546500 
145465014 
14547000 
14548000 
14548900 
14549000 
14549100 
14549110 
14549120 
14549130 
14549140 
14549150 
14550000 
14550500 
14551000 
14551500 
14552000 
14552500 
14553000 
14553500 
14554000 
14554500 
14555000 
14555509 
14556000 
14556500 
14557000 
14557500 
14558000 
14558500 
14559000 
14559099 
14559100 
14559101 
14559200 
14559300 
14559400 
14559500 
14559600 
14559990 
14560000 


$ POP 


CHECK? 


BE BE BE BE BE BE BL DE 


$ SET 
$ POP 


$ SET 
& POP 


$ SET 


$ POP 


$ SET 
$ SET 
$ POP 


$ SET 
$ POP 
$ SET 


$ POP 


BR Jt BE |e 


COPY? 


OMIT 14560010 
X te CMER #& SPACE(60))]860(8838:10)3 14561000 
AL+[QOQUF&C(L41)°CTCI3 14561100 
SrsSCRAMBLE CAB) 3 210414562000 
DISKWAITC*Rs "6000 33%5S))3 14563000 
IF PIMIX #0 THENS 14564000 
IF THERE THENS 14567000 

14567100 

A FILE ALREADY EXISTS ON DISK WITH THIS NAME. IF WE ARE ALLOWED14567110 
TO REMOVE ITs AND IT IS NOT IN USE» WE WRITE THE NEW HEADER 14567120 
OVER THE OLD ONE AND RETURN THE OLD FILE®S DISK, IF IT IS IN 14567130 
USFe DIRECTORYSEARCH IS USED TO REMOVE IT WHEN IT IS FREE AND 14567140 
THENe HAVING LOST CONTROL OF THE DIRECTORY» WE RETURN TO CHECK 14567150 
AND START ALL OVER AGAIN, 14567160 
14567170 

BEGIN DISKWAITC#Re*30eCTSexX(14+2).(CF1))3 14568000 
OMJT = NOT SHAREDISK . 14568990 
UNLOCK(S)3 14569000 

OMIT 14569010 
IF B # USERCODELPIMIX) THEN % NEED TO CHECK SECURTY14570000 

BEGIN JsFRatTeccrtrds 14571000 

OMIT 3s SHAREDISK 14571990 
UNLOCKDIRECTORY$ 14572000 

OMIT 14572010 
IF SECURITYCHECKCArBs USERCODELPIMIXI]»J)#7 THEN 14573000 

BEGIN 14574000 

OMIT = NOT SHAREDISK 14574990 
UNLOCKC(T)3 14575000 

QMIT 14575010 
FILEMESSC#"INVALID"e” USER "2A0Be00000)3 14576000 

END3 14577000 

OMIT = SHAREDISK 14577990 
END ELSE % OK TO REMOVE FILE 14578000 

OMIT = NOT SHAREDISK 14578250 
END} 14578500 

OMIT OMIT 14578510 
IF CX£4),0133]) OR XC4],(12924) OR X£9),01828)) = 0 THEN 14579000 

BEGIN RS#NABSCR)3 % NOT IN USE * WE CAN 14579500 

AT3=x3 % DO A QUICK REPLACE 14580000 

GO TO COPY3 14580500 

END 14581000 

OMIT © SHAREDISK 14581490 
ELSE UNLOCKDIRECTORY 14581500 

OMIT 14581510 
} 14562000 

OMIT = NOT SHARED! SK 14582490 
UNLOCKCT)3 14582500 

OMIT 14582510 

14582900 

IN ORDER TO PROVIDE CONTINUITY OF FILE CHARACTERIISTICSs PARTS 14582910 
OF THE OLD HEADER ARE NOW MOVED TO THE NEW HEADER, 14582920 
14562930 

IF PCDIRECTORYSEARCHCAlBe7)°0UP) GE® 64 THEN 14583000 
BEGIN ATS#IOQUEBPCXCH)ECTCI3 14583500 
ALCAJSsaTCid3 14584000 

ALC 2) 18aTl2)) 14584500 
ALC3)8eCePCOUP) &ATE3IL2¢2¢10)3 14585000 

IF ALL4).£3606)80 THEN 14585500 

AL C4) 1B CHP COUP) BATL4)[3683696)3 14586000 
AL(S]3#aAT(5S]3 14586500 


BR Be dE BE BE 


32 Fe BL BE 


ALC6O]9zATC6)3 
IF R LSS 0 THEN GO TO FASTS3 
FORGETSPACECAT)3 


END ELSE 


JF P#2 THEN FILEMESSC#"SYSTEM “oF ILE 


*9A2Be02000) 
ELSE GO INITIATE: 


14587000 
14587500 
14588000 
14586500 
14589000 
14589200 
14589490 
14589500 
14589510 
14590000 
14590500 
14590900 


14590938 
14590940 
14590990 
14591000 
14591100 
14591110 
14591500 
14592000 
14593000 
14594000 
14595000 
14596000 
14597000 
14596000 
14596090 
14598100 
14598110 
14598200 
14598300 
14598390 
14598400 
14598410 
14598508 


SET OMIT = SHAREDISK 
LOCKDIRECTORY3 
POP OMIT 
GO TO CHECK) 
END ELSE ELSE T3#S3 % SETS UP FOR PIMIX=0 
THE FILE IS NOT THERE. WE SEARCH FOR A VACANCYe IF ONE IS FOUNDL4590910 
Z AND’ T ARE ITS ADDRESS, IF THERE ISNT ONE Z IS THE ADORESS OF 14590920 
THE LAST BLOCK AND T IS SET TO THE ANDRESS OF THE NEW BLOCK, 
SET OMIT * NOT SHAREDISK 
DISKWAITC*C(CHOLDER) ,CCF J) e"3eDIRECTORYSEG)3 % CLOBBERS Xi 
XiteCMCRItSeSPACE(60) 1186058838110); 
POP OMIT 
DO BEGIN 
IF CZ8eT)#J THEN DISKWAITC(™Re600Z)3 
FOR I*0 STEP 3 UNTIL 57 DO 
IF CXC£I] €QV @14)2 NOT O THEN GO TO FOUNDS 
END UNTIL CT8#X{2),0FFJ)03 
XC2]eCFFJ* BYPASS « BYPASS*2} 
IF BYPASS, CCFISBYPASS.CFF) THEN DIRECTORYFULL(U)3 
SET OMIT & SHAREDISK 
DISKWAITCRe600Z)3 ® WRITE OUT POINTER TO NEW BLOCK 
POP OMIT 
TISBYPASS, LCF I3 
X1fO0]8s@143 MOVECS9oXteX1 INX 193 
SET OMIT = NOT SHAREDISK 
Xeexi) 
POP OMIT 
11303 
FOUND: 


PBCOUNT*PBCOUNT#( (CCA EQV"PBD "SNOT 0) OR 
CCA EQV"PUD ")SNOT 02) AND (BelCFJ&1))3 


XCLJeAs XC D4+2]¢Bs XCT+2),0CFIeNEXTSLOTS 
SET OMIT = NOT SHAREDISK 


SET OMIT = NOT STATISTICS OR OMIT 

BYPASSBOTTOMS=BYPASS,LCFJ3 
POP OMIT 

IF T#Z THEN % WRITE NEW BLOCK, OLD IS UPDATED LATER, 
POP OMT 

DISKWAITCRLe600T)5 


UPOATE THE NAME SEGMENT» BUT DONT WRITE IT OUT UNTIL THE NEW 
HEADER IS WRITTEN, 


JeCNEXTSLOTPDIRECTORYTOP*3 8004444 G4 +DIRECTORYTOP+193 
Le8CC Ts 8NEXTSLOT )7U)x24303 

DISKWAITC*R127300)3 

NEXTSLOTS#XiClei)3 

X(CT]eeas XACT 4119583 


IF NEXTSLOT#0 THEN 
IF 190 THEN 


% GOING TO USE EOF RECORD 
% WRITE NEW EOF RECORD BEFORE 


BEGIN PCX1(28)2X4£29])3 %& DESTROYING CURRENT ONE 


14599000 
14599900 
145999190 
14600000 
14600290 
14600299 
14600300 
14600301 
14600400 
14600410 
14600500 
14600900 
14600910 
14600920 
14600930 
14601000 
14601500 
14602000 
14602500 
14603000 
14603100 
14603410 
14603200 


Be Be BA BE BE 


& POP 


$ SET 
& POP 
§ SET 


$ POP 


$ SET 


$ POP 


BO 


PROCED 
BEGIN 


KXiC28)'s@4143 % SAVE NAMEe REPLACE WITH “END” FLAG, 14603300 

XLC29] 303 14603310 
NEXTSLOTS #74303 14603320 
BYPASS,{CFF] *© J+163 14603330 
DISKWAITCR1e300J+16)3 14603400 
PCEXLL2Z9 JoeelX1L 28) )e¢)3 ® RESTORE CLOBBERED NAME 14603600 

IF J#1L62BYPASS,(CCF] THEN DIRECTORYFULL(0)3 14603700 

END ELSE 14603800 
BEGIN X1CI"2)5=01143 X1C}71)8503 NEXTSLOT&sT@t ENDS 14604000 
14604900 

NOW WE CAN WRITE EVERYTHING OUTe NOTE THAT IN ORDER TO MINIMIZE14604910 
THE DAMAGE CAUSED BY AN UNTIMELY HANGs THE MAIN AND (FOR 14604920 
SHAREDISK) THE BYPASS DIRECTORIES ARE CORRECT AT ALL TIMES, 14604930 
14604940 

%R9214605000 

OMIT = NOT SHAREDISK 14605490 
IF NOT DELETETOG THEN 14605500 
FOR 1:5AL09),.04385)+9 STEP “1 UNTIL 10 DO 14606000 

IF ALCIJ#0 THEN SCRATCHDIRECTORYDELETECALC IJ *AL(8])3 14606500 

OMIT 14606510 
DISKWAITCL4te"309T)3 % FILE HEADER 14607000 

IF R GTR O THEN 14607500 
BEGIN 14608000 
OMIT = NOT SHAREDISK 14608490 
DISKWAITCCHOLDERI] (CF J] s*3e/D]RECTORYSEG)3% BYPASS & NXTSLOT146086500 

OM|T % (CLOBBERS X1214608510 
DISKWAITCR1e*300U)3 % NAME SEGMENT 14609000 

OMIT = NOT SHAREDISK 14609990 
FORGETSPACEER1I)3 14610000 
DISKWAITCRe*600Z2)3 % BYPASS BLOCK 14610500 

IF S#Z THEN UNLOCK(S)3 14611000 

OMIT 14611010 
END ELSE % CLEAN UP OLD HEADER 14612000 
BEGIN DISKLOGCABrAT)3 14613000 
JteAT(9]4+93 14614000 

FOR 18510 STEP 1 UNTIL J 00 14615000 

IF ATCIJ#0 THEN FORGETUSERDISKCATCI Je AT(8I)3 14616000 

ENDS 14617000 
OMIT = SHAREDISK 14617990 
UNLOCKDIRECTORY3 14618000 
OMIT 14616010 
EUFS*T3 14619000 
MBOUTSS 14620000 
FORGETSPACECR)3 14621000 
END ENTERUSERFILE 3% 14622000 
URE COM113 COMMENT ALGOL 1/0 COMMUNICATES % 14623000 
REAL CODEs*4eTANKe*5sROWR"632% 14624000 
REAL MID™*6eFID""73 14624050 
REAL STA®™6e RESULT2"7+ Be Teo Foe Se TIMEOUT #973 14624100 
NAME PHYLR"5* A3 14624200 
ARRAY HEADER#®*5(*%) 3% 14625000 
ARRAY FINAL m*6[#]32% 14626000 
LABEL OPENs PARITY EOF sEOTsDISKSPACE sDISKLOCKS% 14627000 
LABEL ARGHe ECHs PURGELOCK»sSEEKOC3 14627400 
LABEL CLOSE *RDATA»SELERKe SPACE SREFILLIS 14628000 
LABEL READLABEL3 14629000 
LABEL TOREQeROTATE3S 14630000 
SWITCH FUNCTIONSOPENS PARI TYe# EOF eEOTesDISKSPACE sSEEKDCeCLOSE, 14631000 
RDATAsSELERRs SPACE SREFILLeREADLABELe TOREQ*ROTATE 14632000 


3 


14632900 


REAL INFO*LOCoUSASIS 
REAL 13% 

LABEL MESSAGE* BACKS 
ARRAY FPBLC¥J oF IBL 41482 
REAL TANG#TANK3 


IF 


CODE#20 THEN GO TO PURGELOCKS 


GO TO FUNCTION(CODE 3% 


PARITY 
EOF: 
g0T: 
MESSAGES 


INFO*"” PAR"™3 GO TO MESSAGE33 
INFO*™ EOF"; GO TO MESSAGEI2 
INFO*#* EOT"S2 
FPBePRTICLPIMIXe3]3 FIBOeMCPC e TANKe LOND eFC 33815S)"3)3% 
IF FIBCSJeCisi] THEN INFOs= 7” INV” OR M3 
IF FIBC4),08:4)%14 THEN 
BEGIN TERMINATECPIMIX)3 TERMINALMESSAGE( 61) END? 
STREAMCX*INFOseZeOeFe* ITF TANG®O THEN O ELSE 
CFPBCFIBC4),013%11I)] 10 
Qe TANG#O>» 
Je JARROWEPIMIX) 0% 
Di=(CODESBEGETSPACE(100205)42))3 
BEGIN DS ¢« LIT "#8 ST*#hOC Xs Sy+SJ+5s OSe¢3 CHRIS 
ST*LOC X3 IF SC#O THEN DSe#10 LIT * NO LABEL "% 
ELSE IF SC#"8" THEN DSel1 LIT 
"WRITE TU O ” 
ELSE IF SCe@30 THEN 082810 LIT 
WALID USER * 
ELSE DS*10 LIT "ECT ERROR "32 
QCX*DIs SleFs DIeLOc 23 
IF 8 SC#DC THEN BEGIN S]eFs SI*SI413 DO1exX2% 


14633000 
14634000 
14635000 
14636000 
14636100 
14636900 
14637000 
14639000 
14640000 
14641000 
14642000 
14642100 
14642200 
14642300 
14643000 
14643100 
14643200 
14644000 
14645000 
14646000 
14647000 
14647100 
14647200 
14647300 
14647400 
14648000 
14649000 
14650000 


DS*7 CHR} DSeLIT" "3 X#D1514651000 


END33 14652000 

DIe©Xs STeSre13 DS 7 CHR )3 14653000 

DS«2 LIT "tose 14654000 

END33 14655000 

14656000 

14657000 

TERMINATECPIMIX)3 TERMINALMESSAGEC(C#CODE) 34 14658000 
DISKSPACESOPENSCLOSE! %R9014659000 
IF HEADER(4) THEN @ FILE IS IN DIRECTORY 14659100 
FORGETSPACECDIRECTORYSEARCH 14659200 

CMIDeF 1Oe*CHEADER, CCF IJ)RROWLCTF ID) ELSE 14659300 

HEADERCROWJ] 1®GETUSERDISKCHEADER(8))3 14659400 

SEEKDC#S3 GO TO INITIATES 14660000 
PURGELOCK! SAVEWORDISSAVEWORD OR TWOCROW)S a3 14671000 
RDATAS$ INFO*™ RER™S GO TO MESSAGE 14673000 
SELERR! INFO t= @37000000606225433 GO TO MESSAGE: 44674000 
SPACE! FIBeMCPC sTANKe LOD) ef33825)°313 LOCeFIBL15)],02535) 32% 14675000 
BLASTOCLOC)3% 14676000 
FPBeCMEMORY(S)I/830231463:2)8ROWL 229131132 14677000 
ROW*ABSCROW) 33 14678000 

WHILE CROW*ROW"1)20 DO Oe pregeene @400L0C)33 14679000 

GO TO INITIATES 14680000 

REFILLS FIBeMECCTANKePC,TANK@ LOD) pan iisags 3)3% 14681000 
CODE*FIBL13),C10s9I"15% 14682000 

LOCeFIBL19] £33115)" F1BC16)eC33815])9% 14683000 
FPBeMEMORYCFIBL16) INX OFROWI]SS 14684000 
INFO*FPB.£18815)3% 14685000 

FOR I#i STEP 41 UNTIL CODE 00% 14686000 

BEGIN FOREQUESTCFLAGCFIBCI9I&CINFO+LOC (33833815) ) 0% 14687000 
FIBLCIGJGINFOLCS3IES3S 5] °FPBDSE 14686000 

MEMORY( TANK IJ@*MEMORY( TANK J&0C28291)80019819341% 14689000 


ROLC268 2607 JRINFOL 33833815132 14690000 

STREAMCCODE® T*eMEMORYE TANK] ® TANK) 3S 14691000 

BEGIN SITeTANKS Si*+S1+83 DS*CODE WDSES 14692000 

SteLOC Ts DSe#WDS3% 14693000 

ENODS2 14694000 
INFO*MEMORYLINFOSROW) CISt15)3% 14695000 

ENDS2 14696000 

GO TO INITIATES :% 14697000 

READLABELS FIBeMECTANKePC, TANK® LOD) .£33815))°3)3% 14698000 
LOC*#FIBC15),£25:5)]3% 14699000 
BLASTQCLOC)33 14700000 
PCWAITIOCCFIBECS I] elL44tL)xCMELTANK™2),C8%¢10)%1) INX MCTANK™2])) 14701000 

BMCTANKI£C 21221494) 2637700000"L0C) VEL) 14702000 

STREAMCY SOR Xs s0eXLteOeX2sF0e Zt eMC TANK"2) )3 14702025 

BEGIN DiesLOc X$ DSt2#24 LIT "VOLIHDRLHDR2ZEOFLEOF2E0V1I"; 14702050 

D]ssLOc X3 14702100 

6OC(CTALLYt®TALLY413 14702150 

Sl¢eZ3 14702200 

IF 4 SC#®OC THEN 14702250 

JUMP OUT TO AD; 147023090 

TALLY# #03 14702350 

At 14702400 

YesTALLY3 14702450 

END? 14702500 

IF CUSASI8#P)>0 THEN 14702550 
USASITAPECMETANK@®2], (CFU eUSASIT o3eLOCoFIBESI oe l4424))3 14702600 
PCWAITIOCEM(SIIR3SL23846s 2] 8CNOT FIBCS5IIC 228443115 14703000 
@37700000eL0C)»DEL)S 14703100 

GO TO INITIATE tt 14704000 

IOREQS$ FPBeMEMORYLCIF CINFOQ*NFLAGCMEMORYLPCTANK® OUP e CM)» INXePRL)I)914705000 
£2201) THEN 2 ELSE NOT 1) INX [NFO])3% 14706000 

ITOREQUESTCFINAL* INFOsF PB) 33 14707000 
MEMORYETANKIJ@MEMORYETANKIROLZ62 268 7I8OC1I9S47E1LI3% 14708000 

GO TO INITIATES 14709000 

$3 14709300 
ROTATES TANK@PC, TANK LOD) ,L33315]5% 14710000 
STREAMCTeME TANK] eN@ROW"™ 1 DOTANK) 33 14711000 

BEGIN SleDs S]*SJ]4#83 DSN WDS3 SIT*LOC T3 DSe*WDS ENDSS 14712000 

IF MCTANK),(325)%16 THEN 14712100 
IF ME TANK),£2431] THEN 14712200 
IF ClePCMETANK™3)014eC0C))#0 THEN 14712300 
BEGIN 14712350 
PHYL « TANK JINX M3 14712400 

FOR LOC ¢ ROW"™1 STEP *1 UNTIL O 00 14712450 
BEGIN 14712500 

IF € BeMCPHYLELOC] INX NOT 2))#40 THEN 14712550 

BEGIN 14712600 

IF CleI"4$) < 0 THEN 14712750 

LOC «# "13 14712800 

END3 14712650 

END} 14712900 

END} 14712950 

GO TO INITIATEs3 14713000 
DISKLOCKS 14713100 
END COM1132% 14714000 
15006000 

PROCEDURE DISPLAYCX)3 VALUE X3 REAL X38 15019000 
BEGIN REAL T3 15020000 
STREAMCXS Je JARROWLCPIMIX J] ePIiM[Xed 15021000 
YeeTezSPACEC25))3 15022000 


PROCEDURE 
% COBOL 


Lat 


BEGIN DS «© LIT "#33 15023000 

2(S1 « Jt ST © SIl+13 DS © 7 CHR? J © SIPS 15024000 

Le SI] « SI*13% 15025000 

IF SC = @ " THEN’ 15026000 

BEGIN DI * DI"1s GO TO L ENDSS 15027000 

DS «+ LIT "/™3 938% 15028000 

DI © DI*13 DS © LIT "ase 15029000 

SJ#LOC PIMIXS DS#2DEC3 PIMIXeDIS DievI=23 15030000 

DSeFILUS DI*PIMIXs DS*2LiT"s 3 15030500 

S] « X3% 15031000 

HE QcOOCIF SCate" THEN JUMP OUT 2 TO HH3 15032000 

DS*CHR))3 HH: 15033000 

J «* DI3 DI «© DI+8s ST © Jss 15034000 

$3 S$} ¢ SI"13 IF Sc =" ™ THEN GO TO S32 15035000 

Sy « St#13 J @ SIs DI «© JS DS © LIT "e™3% 15036000 

XeDl3 15037000 

END? 15038000 

XeCCCX#P) CCE IIMTIxB4xX, [3083] 913 15039000 
SPOUTCPOXsT))3 15040000 
END32 15041000 
15059000 

COM13 3% 15060000 
BEGINS 15061000 
10 INTERFACE COMMUNICATES 15062000 
REAL CODE © "4+ REEL & "6 3% 15063000 
NAME FLOC & "5 5% 15064000 
ARRAY FIB [*]3% 15065000 
REAL Te COB68} 15066000 
LABEL L4} 15067000 
DEFINE INOUTBFIBLI3] C2711 #eDIRECEFIBCASI . C2581) 40% 15071000 
SORTFILESFIBCG] C7 I) #*LABELSOMITTEDEFIBC4IJ C281) #58 15072000 
COB68 «+ CFIB © *(CFLOC)),C8810) = 223 15073000 
IF CODES®4 THEN GO TO L&43 15074000 
INOUT*CODE#33 DIREC*® CODER232 15060000 
IF NOT COB68 THEN 15080900 
IF FIBL5IJ,£46:2)]#3 THEN BEGINS 15081000 
FIB618),016:15)]+F1BL18),03815)3% 15082000 
IF CODE®3 THEN 15082100 
FIBLCIS]  C3s1SJeFIBCIGI,C3StIS IMF IBC163, C3815) ENDIZ 15083000 
NTLEeFLOC INX 33 2R9015084000 
PCOsSTFePRTILPIM] X*eB)eSTS)3 %$R9015085000 
FILEOPENCLeNT1)3 %R9015086000 
15093000 

CODE «© JF CCODE*ABSCREEL))&0 THEN 6 ELSES 15094000 
CIF CODE#1 THEN 7 ELSES 15095000 

CIF CODEs2 THEN 10 ELSES 15096000 

CIF CODE*®4 THEN @22 ELSE BKRUNCH 15097000 

CIF CODE=64 THEN @52 ELSE 0))))3 ZKRUNCH 15097500 

IF CT#FIBE4I.£8'4])#2 AND T#4 AND T#8 THEN CODE*0O3% 15098000 
IF T84 AND CODFSO THEN CODE*10 3% 15099000 
FILECLOSECC FLOC INX 3 )& CODEC16833815))3% 15100000 
IF CODE®O OR CODE&10 OR CODES@22 THEN FIB(5).C42s1Je! 15101000 
ELSE FIBE5],L408 2] ¢(CODEF7)x24+133% 15102000 

IF NOT COB68 THEN 15102900 
IF FIBL5).04682)%3 THEN BEGINS 15103000 
FIBCISI ,C3ItiSJeFIBC16BI, CIBsISISFIBL16),£18815)¢0 END 15104000 
GO TO INITEATE3% 15105000 
END COM133% 15106000 
PROCEDURE WHATSITCBUFH)$ VALUE BUFHs REAL BUFHS 2088151065090 
15107000 


BEGIN 


REAL BFeleLINE3 
ARRAY INF(#]3 
REAL M]Xe L#MI]Xe RCWF403 
LABEL EXIT#EDD+GOTIT»0K3 
BOOLEAN GETBUFF »NOSD3 
BOOLEAN SUBROUTINE SPOUTLINE3 
BEGIN 
SYSDISKIOCL*+LINEs INF Da 
PC(O)3 
IF CINFCOJS@STATABLECLEFABSC(CLINE) J) .DIALEDUP THEN 
JF INFC1] GTR O THEN GO TO OK ELSE 
IF NOT LINETABLETL 
$ SET OMIT = TWXONLY 
IF L GTR LMAX THEN STATABLECLJ,LEENKER ELSE 
$ POP OMIT 
LI,DIRECTLINE THEN 
BEGIN 
INFCLJS=E"NOBODY “3 
OKs PCDELe1)3 
IF GETBUFF THEN 
BF&tsSPACE(5)3 
GETBUFFe TRUES 
STREAMCS?e#IF L GTR LMAX THEN O ELSE SCHEDLINEC LU) e 
UtsINFCiJle Ls BF) 
bE GIN 
SIl*LOC Us SleSJ+i3 DS*LIT” "3 
DS*7 CHR? DOSe*4 LIT ™ ON "3 
UtesDI3 DSt=3 DECS 
S$(DSte8 LIT**(SCHED)")3 
DSteLp Tots 
DIssuUs DSte2 FILL 
END3 
SPOUTCBF)3 
END} 
SPOUTLINE®* Pi 
END3 
BFe BUFH,C1I5s15I)°13 
NOSOteSYSDISKADREO;3 
IF (MIXt®BUFH,C9#6)) # O THEN % <M[X> WU 
BEGIN [813 
IF NOSD THEN ELSE 
FOR LINE t® { STEP 41 UNTIL STATIONMAX DO 
IF STATABLECLINE] sMIXNREMIX THEN 
GO GOTIT: 
11303 
GOTITs 
STREAMCT*PUTORTAKECMIX+ (USERCODELMIX] Je leO0)eVePUTORTAKE (MIX 
CYUAREMIXe#OJ ] 0120) eW*PUTORTAKECMIXe (CJARCMI X01) )0190)2 
XP=M[Xe YtsLINEs Zt#lo SteIF NOSD OR LINE GTR LMAX 
THEN O ELSE SCHEDLINECLINEJ» BFD3 
BEGIN 
SJ*LOC Ts STeSI4+i3 DS#LIT " "3 
DS* 7 CHR} DS* LIT * "3 Ste SI4ts DS* 7 LIT * USING “3 
DS* 7 CHR3 DS* LIT “s/s Ste Si413 DS* 7 CHRS DS LIT “a; 
OS*2 DECS XeDI} DSeLIT"%e™s DleDI"™3s DS*F ILL: DI}X3 
ZC OS:s4 LIT®™ ON "$f KpeNrs OS3F3 DEC! 
$(O0S¢%8 LIT**(SCHEDI")3 DSsaLIT*o"s 
DIseX3 OSse2 FILLE 
ENO? 
SPOUTCBF)3 


15107500 
15108000 
15108100 
15108500 
15109000 
15109500 
15110000 
15110500 
135111000 
15111100 
15111200 
15111280 
15111299 
15111300 
15111301 
15111320 
15111400 
15111500 
15111600 
15112000 
15112500 
15113000 
15113500 
15113700 
1511400 
135114500 
15115000 
15115100 


15115600 


15115700 
15116000 
15116500 
15117000 
15117500 
15117550 
15118000 
15118500 
15118700 
15119500 
15120000 
15120100 
15120500 
15121000 
15121500 
15122000 
15122490 
15122500 
15123000 
15123500 
15123700 
15124000 
15124500 
15125000 
15125500 
15126000 
15126500 
15126600 
15127100 
15127500 
15128000 


GO EXIT3 


ENDS 
STREAMCL*#O8ZeBUFH)3 
BEGIN 
Ste Z3 Die LOC L3 
DOD! IF SCe" " THEN BEGIN SIe SI4+13 GO DD END} 
IF SC20 THEN IF SCS9 THEN 
BEGIN 
Ze SIs Sle SI+l3 
1F SC20 THEN IF SCS9 THEN 
BEGIN Sfe* Z3 DS* 2 OCT3 GO EGRESS END3 
Sle Z3 OS* OCT# GO EGRESS} 
END3 
DS* 6 LIT "40000001" 


REGRESS? END3 


IF CLINES*P) GTR STATIONMAX OR LINE=O THEN 
BEGIN 
SPOUTCBF)3 GO EXITS 
END3 

IF NOSD THEN ELSE 


INFUSCMCSPACECSYSDISKRL)JI&SYSDISKRLIG23831073 
IF LINE>O THEN ZWU <LINE> 
IF NOSD THEN ELSE 
BEGIN 
LINE® NABSCLINE)3 
IF NOT SPOUTLINE THEN 
BEGINS 
STREAMCLESABSC(CLINE) #CS@®#INFCO] OLALEQDUP® Bt SBF D3 
BEGIN 
Sl*LOC Li DSe*LIT" "3 DS«3 DEC3 
CCDS* 15 LIT ™ NOT DIALED*UPe"$ JUMP OUT TO X)3 
OS« 12 LIT * NOT IN USE*"3 
Xt DleBs DS*3 FILLE 
END? 
SPOUTCBF)3 
END 
GO EDD; 
END} 
Ie 03 ZWU 
IF NOSD THEN 
BEGIN 
STREAMCBF)30St#16 LIT*#NO SYSTEM DISKe"3 
P2343 
SPOUTCBF)3 
END 
ELSE 
BEGIN 
FOR LINE##0 STEP 1 UNTIL STATIONMAX DO 
Te [*SPOUTLINE? 
SYSDISKIOCLeSTATIONMAX41¢ [NF )3 
END3 
IF [#0 THEN 
BEGINS 
STREAMCBF)3 DS«9 LIT™ NULL WUe™) 
SPOUTCBF)3 
END3 
EDO?IF NOSD THEN ELSE FORGETSPACECINF )3 


EXITS 


END3 


15128500 
15129000 
15129500 
15130090 
15130500 
15131090 
15131500 
13132090 
15132500 
15133000 
15133500 
15134000 
15134500 
15135000 
15135500 
15136000 
15136500 
15137000 
15137500 
15137600 
15138000 
15138500 
15139000 
15139100 
15139500 
15140000 
15140500 
15141000 
15141500 
15142000 
15142500 
15143000 
15143500 
15144000 
15144500 
15145000 
15145500 
15145550 
15146000 
15146500 
15146600 
15146610 
15146620 
15146630 
15146640 
15146650 
15146660 
15146670 
15147000 
15147500 
15147600 
15147700 
15148000 
151486500 
15149000 
15150000 
15150500 
15151000 
151451500 
15152000 


BOOLEAN PROCEDURE CONQUER(C oNeLeSeG)5 15168000 
VALUE CoNeLeSeG} 15168100 
REAL CoNelLs ARRAY S(C#)3% 15169000 

INTEGER G3 15169100 
BEGIN ARRAY BSc(¥)s2% 15170000 

REAL Tel#T3% 15171000 

LABEL Xe#Y3 15172000 

IF PRTICPIMIX*O]#WORDOFEASE THEN GQ TO STACKQOVERFLOW} 15172100 

WHILE L<O 00 15172300 

IF MEMROW[PIMIXI],CCFJ2FENCE THEN 15172400 

BEGIN NTL*#MCMEMECPEaMIXe AVAIL I3 15172590 

NT2¢03 15172600 

WHILE CNTI©MENTIJD CFR IFO77777 DO 15172700 

NT2*NTL, CFF I4NT23 15172710 

IF "NxLxiel<NT2 THEN GO TO Y3 15172800 

IF CANTEXPAND(P1MIX] THEN GO TO YS 15172810 

EXPAND(PIMIXJ¢33 15172900 
SWAPCFORCESWAPe1)3 15173000 

IF TERMSETCPIMIX) THEN PCXI1)3 210115173050 

END ELSE LeABSC(L)3 15173100 

Y? LtsaBS(l)3 TF G THEN IF LXN GTR 512 THEN GO TO X3 15173200 

IF (T © GETSPACECNXLs203)) = O THENS 15174000 

BEGIN IF NOT G THEN PCO*RTN)G 15175000 

Xt IF NOT N THEN 15175900 

BEGIN GeCONQUER(C#NeN DIV 2eLeN INX Set) 15176000 

GeCONQUERCS JINX NeNele Sol )3 15177000 

PCL*RINDS 15177800 

PCXIT)33 15178000 

END3% 15179000 

T © GETSPACECL*201)3% 15160000 

ENDS 15181000 

Boe CMCT+2II8L C88 368107 RC C16: 33815I52% 15162000 

N + NW138 15183000 

FOR 1 * O STEP 1 UNTIL N 00% 15184000 

BEGIN SCI J*PCOUP&PCBeXCHOICTF JS 15165000 

B «+ L INX 63% 15186000 

END3% 15187000 

CONQUER@13 15187500 

ENDS 15188000 

REAL PROCEDURE BATCHSELECTCF oN» Bel)’ VALUE FeNi 15200000 
REAL FoeNeBelt 15200100 
BEGIN 15200200 
REAL ToJs LABEL Liel23 15200300 
IF F NE@ O THEN & SHEET ENTRY PASSED AS A PARAMETER 15200400 
IF NOT L THEN ® SHEET QUEUE NOT "LOCKED" 15200500 
BEGIN 15200600 
SLEEPCCTOGLEJ »>SHEETMASK)3 15200700 
LOCKTOGCSHEETMASK )3 15200800 
Lasis% "LOCKED" TOGGLE 15200900 

END} 15201000 

IF (NE@COGxXN@ON NEQ 02) DIV CHUNKZIZE) GTR CHUNKMAX THEN NE ®CHUNKMAXS15201100 
Ni® (NSO) 4N3 15201200 
FOR Ts"N STEP 1 UNTIL CHUNKMAX D0 15201300 
BEGIN 15201400 

FOR J#=0 STEP 1 UNTIL N DO 15201500 

IF BATCHEDCI*J)] THEN GO TO L15 15201600 
BseWBaCG4xNelLECTFIS & SIGN BIT INDICATES "OK" TO RUN 15201700 

GO TO La; 15201800 

Wit END) 15201900 
BATCHSELECTiISTRUES & CANT RUN JT NOW 15202000 


ae eo 


L2t END3 
PROCEDURE COREPRINT( 
VALUE Q3 REAL Q3 40 
BEGIN 
LABEL TEST® AROUND*s SPUTTER? 
REAL LINK» AeNeMIX3 ARRAY CC*)3 
$ SET OMIT = NOTCPACKETS) 
REAL UNITNO} 
$ POP OMIT 
SUBROUTINE CHECKMEM3 
BEGIN AS®MEMROWCECMIX) INX O3 
NT2iSMEMEMIX0O) CFF OS 
WHILE A # NT2 00 
BEGIN IF NOT CLINKS3M0A))e£1¢1) THEN 
BEGIN NTLs@sLINK,CCFIeA! 
IF LINK.C281] THEN NTLSSORNTACCTF IS 
CLLINK « £L9LG6T IFSC eP COUP) DENTI3 


Q)3 
IS 


END 
ASSLINK INX 03 
ENDS END} 
CiPUVROWRCSPACECMIXMAX41)2£0TC]3 
FOR AtsQ STEP 1 UNTIL MIXMAX DO CLAI$#03 
MIX$=ABS(Q)3 
$ SET OMIT = NOTCPACKETS) 
IF MIX#0 THEN UNITNOS=PSEUDOMIXEMIXIS 
$ POP OMIT 
IF MEMROWDMIXJ<C€CF] < FENCE THEN CHECKMEM ELSE GO TO TESTS 
IF QeCtti]) THEN 
FOR MIXtet STEP 1 UNTIL MIXMAX DO 
IF JARROWLMIX] # O THEN 
BEGIN 
TESTS IF CSTASUSCMIX} AND STABLE) =& O THEN 
BEGIN CLICK#SCLOCK + PCRTR) + 1603 
SLEEPCCSQCMIXI J eO&STABLEL16442061)3 
ENDS 
IF JARROWEMIXJ#0 THEN 
BEGIN TABCNTECMIX]:*TABCNTCMIX]4+G,C1s1J3 
IF CCAtSCNESSQCMIX)),£1886)) AND STABLE) = 0 THEN 
COMIX] ,C981I90"1 ELSE 
IF Nel3026) # 0 THEN %JOB RUNS ABOVE THE FENCE 
BEGIN IF A#READYSTATE AND A#RDYRPT 
AND A#WALTSTATE THEN CHECKMEMS 
COMIXIeLISFISENC3I0T6I*Ne [3636 I 413 
ENDS 
END ELSE CLMIX) #03 
IF NOT Q,Ci1!#1] THEN GO AROUND} 
. ENDS 
AROUNDS 
FOR MIXs=0 STEP 1 UNTIL MIXMAX DO 
IF CQel181) OR Q@MIX) AND CEMIXJ#0 THEN 
BEGIN LINK#mSPACE(9)3 
IF MIX # 0 THEN IF Cef991) OR 
CAPBPUTORTAKECMIXsCPRYOREMIXJ Jel OR Me0)2®NOT O THEN 
BEGIN STREAMCMIXeLINK)3 
BEGIN SItmLOc MIX$ DS8s4 LIT "MIX "3 DSta2 DECS 
pSt39 LIT " 15 HUNG®"™S DL beDIT11s DSHRFILLS 
ENDS GO TO SPUTTERS 
END ELSE 
STREAMCX8RO03 As 
BERPUTORTAKECMIX®LUAREMIX*0J) 0490) 


MIX TO BE CUTED ™ Qelitid MEANS ALL MIXES 


15202600 
15300000 
15301000 
15302000 
15302500 
15303000 
15303499 
15303500 
15303501 
15304000 
15305000 
15306000 
15307000 
15308000 
15309000 
15310000 
15311000 
15312000 
135313000 
15314000 
15315000 
15316000 
15316100 
15316199 
15316200 
15316201 
15317000 
15317500 
15318000 
15319000 
15319500 
15320000 
15321000 
15322000 
15323000 
15323500 
15324000 
15324250 
15324500 
15325000 
15326000 
15327000 
15328000 
15326500 
15328750 
15329000 
15329258 
15329500 
15330000 
15331000 
15332000 
15333000 
15334000 
15335000 
15336000 
15337000 
15338000 
15339000 
15340000 
15341000 


SPUTTERS 


END} 


D2P2PUTORTAKECMIX®CUARCMIXeL JJ o1°0)0 
MIXeNSBCOMIX] .COs9JeSsFLINK)3 
BEGIN SJ]teLOC AX DSt#6 DEC3 DIssd1 "63 
DS##5 FILLI DItaSs DLtsDT +63 
DStaLIT "ss J2cSpteSy41s DSte7 CHR 
DStaeLIT "/")3 OLsed] "13 
DStsLyiT “#3 OSts2 NEC? Std]; 
D1t=P172)3 DSteFILLs Hys=S3 
NCOS3e68 LIT “» USING "3 DS%#2 DECI 
SteD]3 DIss01723 OSterR ILLS DI teS3 
DSt#7 LIT * CHUNKS"™3 JUMP OUT) 
XtsD13 DSteLIT “e"3 
END ELSE 
STREAMCNSFOSLINK)3 
BEGIN DSta14 LIT * OFMCP/DISK=™ OM NeFDIls ENDS 
IF CNS@COMIX],.CFFI) # 0 THEN 
STREAM(CSE#ESPEOLENeRISCCMIX], CCP IDS 
BEGIN DI]#=9$3 
SLIsLOC OF OStz6 LIT “"eSAVE@"3 DSte5 DEC} 
StsDIs OLteDI"5s DSIs4 FILLS DItRS3 
SyesLOC R$. OS8e6 LIT *eQLAYs"3 DOSIS5 DECI 
DSteL JT "es PLiwO] "6s DSIe4 FILLE 
ENO STREAM} 
PCDELI3 
TABCNTCMIXIJSSTABCNTCMIXI"Q,C13143 
SPOUTERCLINKe UNI TNO 1)3 


IF Q@e£121) THEN SPRINT TOTAL 
BEGIN PC(CLO])3 


END} 


FOR MI]Xs#1 STEP 1 UNTIL MIXMAX DO 

IF CLMIX),€999)%0 THEN PCCEMIX]*ADD)3 

Nt#(N3™P) [NX NOCFFI3 

STREAMCN®ASBALTESPACE (5S) D3 

BEGIN SI#*LOC N3 
DOS:#31 LIT "TOTAL MEM IN USE BELOW FENCE # "3 
DSt5 DECS DSteLIT "es DIteOl"6s OSse4 FILL; 

ENDS 

SPOUTCA)3 


FORGETSPACE(CC INX 0)3 

END CORE PRINTS 

BOOLEAN PROCEDURE PRTIGAMESC(BUFFeMIX)$ VALUE BUFF eMIX3 REAL BUFF eMIX3 
COMMENT PRTGAMES IS THE BUSINESS END OF "IN® OR "OT" MESSAGES} 


BEGIN REAL NXeJNDEXeDATAr Te JS 


$ SET OMIT = NOTCPACKETS) 


DEFINE UNITNO # PSEUDOMIXEMIXJ&3 


$ POP OMIT 


LABEL ECH» X333 
STREAMC BUFF eFeBUFF<OsDe([DATAJ #1 *CINDEXI)3 
BEGIN Sle*BUFF3 
Lt IF SC#" * THEN BEGIN SIleS[*i13 GO L END) 
4CIF SC#" * THEN IF SC#™*" THEN IF SC#%R" THEN 
BEGIN TALLY*TALLY#13 SI*S141 END)3 
J*TALLYS DieDI+83 DIieDITWIs SteSte1s DSe} CHR 


F ¢ 
Mt IF SC=™ * THEN BEGIN SI#SI4t3 GO M ENDS 
IF SC#"a" THEN BEGIN ESO eDI@LsDSeLIT@"" 3 UMP OUT END? 
SleS]413 
N3 IF SC&™ " THEN BEGIN SI*SI413 GO N ENDS TALLY©O3 


BCIF SC2"0" THEN BEGIN TALLY*TALLY4¢13 SleSI41 END 


15342000 
15343000 
15344000 
15345000 
15346000 
15347000 
15348000 
15349000 
15350000 
15351000 
15352000 
15353000 
15354000 
15355000 
15356000 
15357000 
15358000 
15359000 
15360000 
15361000 
15362000 
15363000 
15364000 
15365000 
15365500 
15366000 
15367000 
15368000 
15369000 
15370000 
15371000 
15372000 
15373000 
15374000 
15375000 
15376000 
15377000 
15378000 
15379000 
15380000 
15381000 
15400000 
15401000 
15402000 
15402499 
15402500 
15402501 
15403000 
15404000 
15405000 
15406000 
15407000 
15408000 
15409000 
15410000 
15411000 
15412000 
15413000 
15414000 
15415000 


ELSE JUMP OUT)3 IF SC#" " THEN IF SC#"*" THEN GO ES 
IeTALLYs DIe©Ds Sil*Si*1i DSe] OCT)s 
ENDS IF CINDEX AND NOT @©1070707)#0 THEN GO ECHS 
IF JARROWCMIX)&0 THEN GO ECH3 


15416000 
15417000 
15418000 
15419000 


IF (CNX*INDEXe L458 38 INDEXL 428398 3] INDEXC 399338 3IRINDEX(385299419420000 


J)<20 THEN GO ECH3 15421000 

TisPUTORTAKECMIXe LPRICMIXe 10) Jo 1810284784)00)3 15421200 

IF TSNOT FALSE THEN GO ECH3 15421400 
TI@PUTORTAKECMIX@ CMC T eMOM@3]2] 01810284781 )20)3 15421600 

IF TSNOT FALSE OR T,CCF) LSS CPRTROWEMIX)] INX NX) THEN GO ECHS 15421800 

IF BUFF LSS O THEN 15422009 
BEGIN 15422200 
POMETESPUTORTAKECMIX® LPRILMIX#®NXJ]0200)))3 15422400 
FORGETSPACECT)3 15422600 

IF PCTOP®XCHeDEL) THEN PCPUTORTAKECMIXe (PRTC MIXa NX) Jo 15422800 

O»sDATA) DEL) ELSE GO ECH} 15423000 

END ELSE 15424000 
BEGIN STREAMC JS SUS SPUTORTAKECMI Xe CJARC(MIX20)] 0200) oMIXe 15425000 
INDEXeRIeTsSPUTORTAKECMIX® LPRTEMIXsNXJJ9200)2 15426000 

De DATA* BUFF ,.C15815)"1)3 15427000 

BEGIN SIleJs SIeSItis OSeLIT™ "3% BWF 15428000 

DSe7? CHRS DSeLIT"/"3 SleSl+i1ss% SWF 15428100 

DS*7CHRS OSeLIT*="3 ST+LOC MIX3 DS*2DEC3 15429000 

MIX@DIS DleDI"2s DSeF ILLS DI*MIX3 15429500 

DS#3LIT™IRe"3 ST*ST4+43 DS" CHR DeDIs DI eDIT4s 15430000 

DS*3 FILL$ DI“Ds DSeLIT*E"5 STeRS 15431000 

IF SB THEN ® DESCRIPTORSTYPE OCTAL 15432000 

16(pSe#3 RESET? 3CIF SB THEN DS*SET ELSE DSe 15433000 

RESET? SKIP $B)) ELSE 15434000 

088 DEC} 15435000 

DS*LIT*%e"3 DleDs DIeDI +13 OSe*7 FILL3 15436000 

END3 15437000 

SPOUTERCDATA» UNI TNO#®1)3 15437100 
FORGETSPACECT)3 FORGETSPACEC J) 15437500 

ENDS GO X}3 15438000 

ECH! PRTGAMES#1$3 15439000 
Xt ENDS 15440000 
PROCEDURE SPOUTMCP(BUFF)$ VALUE BUFFS REAL BUFFS 15500000 
BEGIN REAL Xi *021"15501000 
DISKWAITC*™(CX*SPACE(C 30) )*30eMCPNAMESEG)3 15501100 
STREAMCMLIEMARKLEVELs PLE ePATCHLEVELe LL eLOCALEVEL 15501500 
eNteXe20e2xSYSNOsAL=BUFF D3 15501600 

BEGIN DS*LIT™ "3 SIleNs ST*S1+13 DS*7 CHRS DSe*LIT*/ "3 15502000 
SleSl+is OSe¢7 CHR$ DS*6 LIT"™ MARK "3 15502100 
StssLOc MLs IF SC GEG " * THEN3 15502200 

SCIF TOGGLE THEN IF SC=#"O" THEN SIt#SI41 ELSE DStsCHR 15502300 

ELSE DS#sCHR)S DSIeLIT","3 15502400 
S1ieLOc PL3 IF SC GEQ * ™* THEN3 15502500 

6CIF TOGGLE THEN IF SC#"0" THEN SIte#eSl¢i ELSE OSS=CHR 15502600 

ELSE DSISCHR)S DSIZ2CHR} 15502700 
StesLOc LLs IF Sc GE@ * ™ THEN 15502600 

SCIF TOGGLE THEN IF SC8"0" THEN SIs#SI41 ELSE DSt*CHR 15502900 

ELSE DStsCHR)) 15503000 

DSt= 9 LIT™ INCLUDES"3 15504000 
DSt#12 LIT" B487"S FOR "3 15505000 

& SET OMIT = NOTCTWXONLY) 15505099 
DSsei5 LIT"TELETYPES ONLY "3 15505100 

$ POP OMIT 15505101 
$ SET OMIT & TWXONLY 15505199 
OSte1i LIT"EVERYTHING#s *3 15505200 


POP 
SET 
POP 
SET 


ne wo 


$ POP 
$ SET 


$ POP 
$ SET 


$ POP 
$ SET 
£ POP 
$ SET 


$ POP 
$ SET 


$ POP 
$ SET 


$ POP 
$ SET 
$ POP 
$ SET 


$ POP 
$ SET 


$ POP 
$ SET 


& POP 
$ SET 


POP 
SET 


$ POP 


IF 


OMIT 

OMIT = NOTCDFX) 
DS « 4 LIT "DFXa™3 

OMIT 

OMIT = NOTCDUMP OR DEBUGGING) 
DS:#5 LIT*DUMP es "3 

OMIT 

OMIT © NOTCDEBUGGING) 
OS « 11 LIT ™ DEBUGGINGe"™3 

OMIT 

OMIT = NOTCCHECKLINK OR DEBUGGING) 
DSt*i0 LIT"CHECKLINKe "3 

OMIT 

OMIT = NOTCSAVERESULTS OR DEBUGGING) 
OSte12 LIT*SAVERESULTS»%3 

OMIT 

OMIT = NOTCSHAREDISK) 
DS+10 LIT*SHAREDISKe%3 

OMIT 

OMIT = NOTCSTATISTICS) 
DStELILIT*STATISTICSe™3 

OMIT 

OMIT = NOTCAUXMEM) 
DS#7 LIT “AUXMEMo "$3 

OMIT 

OMIT = NOTCB6500L0AD) 

D0S¢10 LIT "B6500LO0ADe"}3 

OMIT 

OMIT = NOTCPACKETS) 
DStsBLIT™PACKETS+"3 

OMIT 

OMIT = NOTCDKBNODFX) 
DS*#9 LIT "DKBNODFXe"3 

OMIT 

OMIT = NOTCMONI TOR) 
DStzrSLIT*MONITORa "3 

OMIT 

OMIT = NOT SEPTICTANK 
DSt#e11 LIT"SEPTICTANKe "3 

OMIT 

OMIT & NOT AUTODUMP 
DOSts9 LIT*AUTODUMP? "3 

OMIT 
DI + DI* 
DS «+ LIT 
ENO? 

MC3],01%1] THEN % CM HAS BEEN DONE 


1 


3 
We" 


BEGIN DISKWAIT(C™X-e3050)3 


STREAMCN©X41045xSYSNOOBUFF)3 
BEGIN SI*BUFFs S1e#S1+416) 


Lt IF SC NEQ "eo" THEN BEGIN SleS]+#13 GO L3 ENDS 


BUFFeSI3 DIeBUFF 


DS#16 LIT""NEXT MCP WILL BE "3 
STeN$S ST*SI¢13 DS*7 CHRS DSeLIT*/"3 
SI*S[¢13 DSe7 CHRS DSeLIT%«"3 


ENDS END$ 

IF BUFF>0 THEN SPOUTCBUFF)5 
FORGETSPACECX)3 

END SPOUTMCP3 


PROCEDURE WHATINTRNSICCBUFFI3 VALUE BUFFS 


REAL BUFFS 


15505201 
15509\00 


BOF X15510000 


15510001 
15514999 
15515000 
15515001 
15515999 
15516000 
15516001 
15516999 
15517000 
15517001 
15517999 
15518000 
15518001 
15518999 
15519000 
15519001 
15519999 
15520000 
15520001 
15520099 
15520100 
15520101 
15520300 
15520400 
15520401 
15520409 
155204198 
15520411 
15520419 
15520420 
15520421 
15520430 
15520440 
15520450 
15520460 
15520470 
15520480 
15520490 
15520500 
15520510 
15523000 
15524000 
15530000 
15531000 
15531100 
15531200 
15531300 
15531400 
15531500 
15531600 
15531700 
15531800 
15531900 
15532000 


8021715532100 


15533000 
15534000 


BEGIN 
REAL SIZEsLOCeINTWORDewWI oe Ti 
LABEL EXITS 
IF INTSIZE#0O THEN 
BEGIN ; 


STREAMC(BUFF)S OS¢14 LIT "NO INTRINSICS#"3 


SPOUTCBUFF )3 
GO EXIT; 
END} 
COMMENT MAKE WI INTRINSIC PRESENT; 
SIZE #% CINTWORDS*®INTRNSCCINTRNSC(OJ1) INX O3 
LOC $® SPACECSIZE)S 
$ SET OMIT = NOTCAUXMEM) 
IF INTWORD,C3#1) THEN ® INTRINSICS ON AUXMEM 


DISKWAITC@LOCeSIZEs*CO&8INTWORD[E 323214812])) 


ELSE 
$ POP OMIT 
DISKWAITC™LOC*SIZE*e INTWORD, (6227) )3 
DISKWAITC™CIT&8SSPACEC30))23000)3 
STREAMCXESI14¢1345xSYSNO*LOKS=LOC* BUFF); 
BEGIN 
STssLOKs SiimSi+83 
1OCSLesSi413 
7CIF SC#%«*™ THEN JUMP OUT 2 TO L13 
IF Sce"@" THEN SI1t=SI41 ELSE DS?SCHR))3 
Lit SpeeXsOSte3L1T” ¢%3 
SptaSt+i2 DSte7 CHRSDSIELIT9/S "3 
ST#aSpe13 OS8=7 CHRIOSHS2LIT* oe "3 
END STREAM? 
FORGETSPACECLOC)3 FORGETSPACECID3 
EX{T! 
END WHATINTRNSIC3 
$ SET OMIT = NOTCAUXMEM) 
REAL PROCEDURE AUXPRINTCQ)3 VALUE Q3 REAL Q3 
% PRINTS AMOUNT OF AUXILIARY MEMORY USED 
BEGIN 
REAL Je I[MAXs Co TC» Ds TDe PRe FNe SNe BUFFS 
$ SET OMJT * NOTCPACKETS) 
REAL UNYITNOS 
$ POP OMIT 
LABEL ERROReFMT3 
IF Q,Ciei1] THEN [MAX t= MIXMAX ELSE 


IF CLas*IMAXssQeC(CFJ) NEG O THEN % NOT MCP AND INTRINSICS 


IF 1 GTR MIXMAX THEN 
BEGIN 
ERRORS PCLeRTN)S 
END ELSE IF JARROW(1]#0 THEN GO TO ERROR} 


IF IMAX#0 OR Q@e(121) THEN % PRINT MCP AND INTRINSIC USAGE 


BEGIN 


PRtsO$ FNee"INTRINS"3 SNIEMCP "; GO TO FMT 


END} 
$ SET OMIT = NOTCPACKETS) 
LF 1#0 THEN UNITNOt@PSEUDOMIXELI3 
$ POP OMIT 


FOR Iss? STEP 1 UNTIL IMAX DO IF JARROWCITJ NEQ O THEN 


BEGIN 

TABCNTCIJ&#TABCNTCIJ413 

PR t@ PUTORTAKECI eC PRYOREC IJ J0120)3 
FN §® PUTORTAKECIT®CUARC I 00])5100)3 

SN t# PUTORTAKECI eC VARCIo1)39120)3 


15535000 
15536000 
15537000 
15539000 
15540000 
15541000 
15541100 
15542000 
15543000 
15544000 
15545000 
15546000 
15547000 
15547100 
15547200 
15547300 
15547301 
15548000 
15549000 
15550000 
15551000 
15552000 
15552100 
15552200 
15552300 
15552400 
15552500 
15952600 
15552700 
15552800 
15554000 
15555000 
15604999 
15605000 
15605100 
15605200 
15605300 
15605349 
15605350 
15605351 
15605400 
15605500 
15605600 
15605700 
15605800 
15605900 
15606000 
15606100 
15606200 
15606300 
15606400 
15606449 
15606450 


15606451 © 


15606500 
15606600 
15606650 
15606700 
15606800 
15606900 


TABCNTCIJS=TABCNTEC I 1] "13 
FMT’ Tp t# TO + (CD 3% AUXDATALIIx16)3 
Tc te TC + (CC 88 AUXCODELI]*16)3 
STREAMCPRoFNo SNe Te De CeXtsO0sBUFFPESBUFFSRSPACEC7) 3 
BEGIN 
STsBLOC PRE DSS=6DEC3 DSteLIT"s"3 
Xe@sDls OLtFDl773 OSsF5SFILL: DLtex;3 
2CSL#eS]e13 OSt=7CHR3 DSISsLIT"/")3 
DlaeO1"13 OSteLIT*e"3; DSteedeEcs 
X9BD13 OL teD172s DStFFILLs OL s=X3 
DSte7LIT™ sDaTas"s DSIs5DEC3 
X2eDls OL beDieSs OSse4FILus DLs exe 
DSt=6LIT”" CODES"3s DSt=50EC3 
XtSNT3 DJ PeDI753 OStS4FJLLs DIsSKs DSteLIT*+"3 
END STREAM3 
SPOUTERCBUFF eUNITNO*1)3 
END { LOOP} 
IF Q,Ci01)] THEN ® PRINTING FULL MIX 
BEGIN 
STREAMCNSSTO+TC» BUFF I=BUFF YT =SPACEC10) 23 
BEGIN 
DS@s2iLiT™ TOTAL AUX MEM USED! "3 
StrsLOc Ni DSte6DEC3 DSts2LIT".¢%3 
O1ss01783 OStF5F ILL 
END STREAM3 
SPOUTCBUFF)3 
ENDS ® IF FULL MIX 
END PROCEDURE AUXPRINT?3 
$ POP OMIT 
REAL PROCEDURE KEYINSCANCKTRoMIX)$ REAL KTRo MIX; 
BEGIN 
REAL TYPE#4+1»5 TBLADOR3 
SCANS INPUT BUFFER FROM SPQ 
RETURNS ERROR FLAG IN MIXe C123) gee 
MIX,CLs1JSFLAG FOR EMPTY BUFFER (GROUP MARK ONLY) 
MIX,C281J=FLAG FOR NO INFO AFTER MIX INDEX 
MIX,C3$2)FLAG FOR Q@MARK (CC) INPUT AS FIRST CHARACTER 
KTR yS INITYALLY THE ADDRESS OF SPO [NPUT BUFFER 
KTR 1S ASSIGNED NEXT CHARACTER LOCATION AFTER SCAN 
TYPE, CCF) 1S ASSIGNED TABLE LOCATION (MIXMSG OR INFOMSG) 
TYPE,¢115) 7S ASSIGNED PROCEDURE NUMBER 
TYPE,£616) 7S ASSIGNED MIXCODE 
TREAMCMYX$=63»9 BUFF SSKTR 223 % SCAN INPUT BUFFER 
BEGIN 
SIt®BUFFS 
DItSeBUFFS DItEDIT13 NStsLiT*<"s & BACKSPACE CHARACTER 
8¢60CIF Sco" THEN &% END OF INPUT STRING 
BEGIN 
DS#sCHRs JUMP OUT 2 T0 L3 


GH FE dR We BE Be BC DK BE RC BE 


END? 
IF Sce®<" THEN & BACK SPACE CHARACTER 
BEGIN 
OlewDleois JF SC NE@ OC THEN DI t*D1lel13 
END 
ELSE OSt=CHR))3 &® END OF BACKSPACE CHECK 
LW? STSSBUFFE D]selLOc MIX} & CHECK FOR MIX INDEX 
Lis IF Sc#" © THEN 
BEGIN 
SpTseS]eds GO TO Li3 
ENDS 


15606950 
15607000 
15607100 
15607200 
15607300 
15607400 
15607500 
15607600 
15607700 
156076800 
15607900 
15606000 
15608100 
15608200 
15608300 
15608400 
15608500 
15608600 
15608700 
15608800 
15608900 
15609000 
15609100 
15609200 
15609300 
15609400 
15609500 
15609600 
15609604 
16029000 
16029100 
16029200 
16029300 
16029400 
16029500 
16029600 
16029700 
16029800 
16029900 
16030000 
16030100 
16030200 
16030300 
16030400 
16030500 
16030600 
16030700 
16030800 
16030900 
16031000 
16031100 
16031200 
16031300 
16031400 
16031500 
16031600 
16031700 
16031800 
16031900 
16032000 


IF SC#%e" THEN & EMPTY BUFFER 16032100 
BEGIN 16032200 

SKIP DBS OSteSETS GO TO XXITS & MIX,CISLIJ*EMPTY BUFFER FLAG 16032300 

END3 16032400 

IF SC LSS "0" THEN GO TO XXIT# ¥ NO MIX INDEX» SET "MIX"&63 16032500 

IF SC GTR "9" THEN ® QUESTION MARK*e SET MIXe(321J 16032600 
BEGIN 16032700 
S1t=eSl+13 SKIP 3082 DSteSET# GO TO XXITE & MIXeL3tLJZQMARK FLAGL6032800 

ENDS 16032900 
SpieSi4i3 1f SC LSS "0" THEN GO TO ONES 16033000 

IF SC LE@ "9" THEN 16033100 
BEGIN 16033200 
StesS]"13 DSs#20CT;3 16033300 

END 16033400 

ELSE 16033500 
BEGIN 16033600 

ONES StaeSl"i3 DSt=0CT3 16033700 
END; 16033600 

L2: JF Scs* © THEN & SCAN TO NEXT VISIBLE CHARACTER 16033900 
BEGIN 16034000 
SttsSl413 GO TO L2s 16034100 

END} 16034200 

IF Sc#%e" THEN & NO INFORMATION AFTER MIX INDEX 16034300 
BEGIN 16034400 
DIS=eLOC MIX3 SKIP 20B3 DSt=SET;s & MIXsL2t1]=ERROR FLAG 16034500 

END3 16034600 

XX1Tt DISSRUFFS OL1teD1"8s OSsSBLIT"INV KBD "3 16034700 
BUFF S$aS13 % SAVE LOCATION OF NEXT CHARACTER IN BUFFER 16034800 
END STREAM? 16034900 
MAKELOGCKTR@™1eSPIN)3 % BACKSPACING IS DONE, WE CAN LOG NOW,16034950 
IF PCEKTRI®STDeCMIX]*SND),0133350 THEN 8 NOT QMARK*EMPTY OR ERROR 16035000 
BEGIN 16035100 
TBLADDRISTYPEL=SPACECKEYMSGSZ)3 16035200 
DISKWAITC@TYPE ®eKEYMSGSZ»MESSAGETABLEL2)],(22326))3 16035250 
STREAMCTBBLESTYPEs® BUFF&SKTR & TOGHECMIX NEQ@ 63))3 16035300 
BEGIN 16035400 
STISTBBL$ SIt=S1413 DIteBUFFS DIts01+23 16035500 

NEXT? CL8ecCl+TOG3 GO TO NOMIX} 16035600 
MIX$ IF SC GE@ 1 THEN GO TO OK ELSE ® MIX SPECIFIED 16035650 
BEGIN % BUT THIS IS NOT 16035700 
St2eS]*#8s GO TO MIX3 % A MIX MESSAGEs 16035750 

END3 16035800 

NOMIX$ IF SC GTR 1 THEN % MIX NOT SPECIFIED 16035850 
BEGIN % BUT THIS IS A 16035900 
SiteS1+8s GO TO NOMIXS % MIX MESSAGE, 16035950 

END3 16036000 

OKs SytwSyo1? DI tepr-23 16036100 
IF SC®%e" THEN & END OF TABLE 16036200 

BEGIN 16036300 
TBBLEeTALLY$ GO TO XT3 16036400 

END} 16036500 

IF 2 Sc#DC THEN % NOT MATCHING ENTRY 16036550 

BEGIN 16036600 
SEteS1+53 GO TO NEXTS 16036650 

ENDS 16036700 

TOGHSDI3 DItsLOC TBBLS SIteSl+2s DSte2 OCTS & SWITCH VALUE 16036750 
Stts#S1-43 DltsLOC TBBLJ DS#te2CHRs & PROCED & MIXCODE 16036800 
SrasT0G3 16036900 

Li IF Sc#* ™® THEN 16037000 
BEGIN 16037100 


Slt#SJ413 GO To L3 
ENDS 
BUFF ERS]3 
XT? END STREAM STATEMENTS 

PC CKTRJ+STD» -»TYPEsSTD)3 

FORGETSPACECTBLADDR)} 

END 2 IF NOT QMARK»s EMPTY OR ERROR 
ELSE & QMARKe EMPTY OR ERROR 
IF MIX,C3813 THEN % QMARK 
BEGIN MIX2#633 

TYPES #VCCRICLS4335)3 
END 
ELSE TYPE:s03 
END PROCEDURE KEYINSCAN} 


PROCEDURE KEYINOCBsKTRX)$ VALUE BeKTRX# REAL BeKTRX} 


BEGIN 
REAL BUFFe KTR» TYPEs MIX» Ae To Je KS 


LABEL CUTYe RXIT»e ERRORe FORGET? EXIT 


oAXe Tle Q@Te Oe WY¥e RY¥* DSe RKSe SSe DP 


eODe DBe STe CMe MFe SVe Che BK 


SWITCH St= ERROR 


eAXe The IbLe QTe OUs WYe RYe DSe DSe RS 
®SSe DP» DDe DBe ST» CM» MFe SVe Che BK 
eRXITe RY¥e RXITe RXITe RXIT 
3 
BUFF ESKTRX,C15815)3 
MIX EBKTRXef 986 J3 
TYPES#KTRX,£ 237 J3 
KTR taKTRX,C15233)3 
~—~G0 TO SetTyPEe)3 
AX! 
1 $% BUFF) 
GO TO RXIT3 
Ihe 
IF CTS@ANVILCTYPE#2eKTRI) GTR 35 THEN 
IF I < 42 THEN GO TO ERROR} 
TYPE ¢@ VILS 
IF | GTR 35 THEN BUFF3&]3 
GO TO RXIT: 
OUs 
STREAMCAES"LP™ §€ BSeMT%s Cra"OK"s Dis"CP™s KTR)3 
BEGIN 
SI] t3 KTR3 


DI t= LOC AS DI ts DI+63 


TALLY3413 
TALLY 3 #23 
TALLY $333 
TALLY ¢a4; 
TALLY#353 


IF SCe&"e" THEN GO TO XT5 

IF 2 SceDC THEN GO TO XT3 

S]:eSi"2) Dltedi+14s IF 2 SC#DC THEN GO TO XT3 
S]tsS(u23 OLsaOl+6s TF 2 SCHDC THEN GO TO XT3 
S1teS]°2s OlteOl+6s IF 2 SCRDC THEN GO TO XT3 


16037200 
16037300 
16037400 
16037500 
16037600 
16037650 
16037700 
16037720 
16037740 
16037760 
16037780 
16037600 
16037850 
16037900 
16038000 
16039000 
16040000 
16041000 
16042000 
16043000 
16044000 
16045000 
16046000 
16047000 
16048000 
16049000 
16050000 
16051000 
16052000 
16053000 
16054000 
16055000 
16056000 
16057000 
16058000 
16059000 
16060000 
16061000 
16062000 
16063000 
16064000 
16065000 
16066000 
16067000 
16068000 
16069000 
16070000 
16071000 
16072000 
16073000 
16074000 
16075000 
16076000 
16077000 
16078000 
16079000 
16080000 
16081000 
16082000 
16083000 


TALLY8303 
XTi A #8 TALLY? 
END! 
IFCL¢3P) = 0 THEN GO TO ERROR} 
GO TO RXIT3 
WY3 
IF MIX LSS 63 THEN GO TO RXITS & <MIX> WY 
AtsQ} ® THIS PRINTS OUT TOTAL LIST OF WAITING JOBS ON WY 
FOR LtsO STEP 1 UNTIL MIXMAX DO 
IF REPLYCI)Y LSS 0 THEN 
BEGIN 
REPLYCAI=1J3@VWY3 BRINGBACK(I)3 
END} 
IF A NEQ@ O THEN GO TO FORGETS 
MUCBUFF@479"FLAG(@0564434360606060)3 
GO TO ERROR: & SPOUT MESSAGE 
RY$ 
IF CI&3SFORMESSCKTRe TYPE=VFM)) LSS 0 THEN GO TO FORGETS 
IF I GTR 31 THEN GO TO ERROR ELSE GO TO RXIT3 
RS 
LINEMESSAGESCKTR)} 
GO TO EXITs 
S$! 
IF CANDYINX NE@ O THEN CALLCANDECKTRe"SS") ELSE 
LINEMESSAGESCKTR)3 
GO TO EXIT! 
DP % 


$ SET OMIT & NOTCDEBUGGING OR DUMP) 
STREAMCAS@™"LP™s KTR & BIs"MT™)3 
BEGIN 
S] t= KTR} 
Ol #3 LOC As DI t= DI + 63 TALLYt%e13 
IF 2 SC®DC THEN GO TO XT3 
DY} t# O1 + 223 SI a= SI] 7 23 TALLY!=23 
IF 2 SC#DC THEN GO TO XT3 
TALLY#s03 
XT? A te TALLY$ KTR te S73 
END STREAM STATEMENT? 
IF CASPPCEKTRI*STD)220 THEN GO TO ERROR} 
IF A®1 THEN 
BEGIN 
PRINTCORECMIX)3 GO TO FORGET; 
END} 
OUMPCORECKTR&BUFF (15233815) )3 
$ POP OMIT 
GO TO EXITS 
DD: . 
$ SET OMIT #& NOTCDEBUGGING) 
DOT} 
$ POP OMIT 
GO TO FORGET3 
DBs 
$ SET OMIT = NOTCDEBUGGING) 
DISKBUGS 
$ POP OMIT 
GO TO FORGET? 
ST3 
IF*REPLYCMIX] © (CVWYRVOKE3614246)) OR JARROWECMIX]#0 THEN GO ERROR} 
TF NOTERMSETCMIX) THEN PRTROW( MIX], (PSF J) 3223 
GO FORGET} 


16084000 
16085000 
16086000 
16087000 
16088000 
16069000 
16090000 
16091000 
16092000 
16093000 
16094000 
16095000 
16096000 
16097000 
16098000 
16099000 
16100000 
16101000 
16102000 
16103000 
16104000 
16105000 
16106000 
16107000 
16108000 
16109000 
16110000 
16111000 
16112000 
16113000 
16114000 
16115000 
16116000 
16117000 
16118000 
16119000 
16120000 
16121000 
16122000 
16123000 
16124000 
16125000 
16126000 
16127000 
16127001 
16128000 
16129000 
16130000 
16131000 
16131001 
16132000 
16133000 
16434000 
16135000 
16135004 
16136000 
16137000 
16138000 
16139000 
16140000 


CM3 16141000 
CHANGEMCPCKTR)3 16142000 
GO TO EXITS 164143000 

MF 3 16144000 
FENCEMOVERCKTRe BUFF )3 16145000 
GO TO EXITS 16146000 

SvVi3 16147000 
SAVETHEUNITCKTR)3 16148000 
GO TO FORGET3 16149000 

Qt: ; 16150000 

IF MIX LSS 63 THEN &% MIX INDEX SPECIFIED 16453000 
BEGIN 16154000 
CUTY! T8#PUTORTAKECMIXs LJAROMIX®01)2290)3 16155000 
J93CC(MC1)7 EQV “PRNPBT ™) = NOT 0) AND 16156000 
CCMET4¢1)] EQV "DISK ") = NOT 0)3 16157000 
FORGETSPACECI)3 16156000 
IF J THEN 16159000 
BEGIN 16160000 
REPLYCMIX]&sTYPE3 16161000 
STREAMCAt#Os Bt=z0 16166000 
BEGIN 16167000 
SItaKkTR3 16168000 

IF ScB*+" THEN TALLY&#®2 ELSE 16169000 

IF SCH" THEN TALLY?#3 ELSE GO XT3 16170000 

B2! SrseSlei3; IF Sc#™ ® THEN GO TO B23 16171000 
BSeTALLY$ TALLY?2=0;3 16172000 

6CIF SC LSS "0" THEN JUMP OUTS SIs¥SI413 TALLYPeTALLY41 9416173000 
KTREsTALLY$S DIt2L0OC As’ STIFSIPKTRE DOS8eKTR OCT? 16174000 

XT8 END STREAM STATEMENT} 16175000 
NT208P3 16176000 
NTitsP3 16177000 
PRICMIXe@25):E5QNTIC9s24s24 ]aNT2(is4632)3 16178000 

GO 10 FORGETS 16179000 
16180000 

ELSE GO TO ERROR3 % NOT PRNPBT 16181000 
END3 16181500 

CLs % MUST FOLLOW QT 16182000 
% QT OR CL LINE OR PERIPHERAL UNIT 16183000 
STREAMC WHO & KTRDE 16184000 

BEGIN 16185000 
ST¢skTR} 16186000 

IF Sc GEQ@ “"O" THEN ITF SC LE@ "9" THEN TALLY#=13 16187000 
WEsTALLY} 16188000 
END STREAM STATEMENTS? 16189000 

lf P THEN 16190000 
BEGIN 16191000 
LINECLEARCKTR) GO FORGET) 16192000 
END} 16193000 

IF CIESUNITINCTINU*KTR)) LSS 36 THEN % CHG IF MORE PSEUDORDRS 16194000 
IF (MIX8& RDCTABLECTJ.2(886)) NEQ O THEN 16195000 
BEGIN 16195500 
TABCNTLMIXJS#TABCNTCMIXJ 413 16195750 

JF TYPE#& THEN GO TO CUTY 16196000 

FLSE GO T0 DS3 & CLEAR UNIT IN USE BY JOB 16197000 

ENDS 16197500 

% CLEAR UNIT NOT IN USE BY JOB 16198000 
$ SET OMIT = NOTCSHAREDISK) 16199000 
IF I L$S 40 AND I GTR 35 THEN 16200000 
IF TYPES19 THEN % CL 16201000 
BEGIN 16202000 


IF C18s1"36)=SYSNO OR [| GE@ SYSMAX THEN GO ERRORS 
CLEANOUTCI OR MEMORY)? 
GO TO FORGET; 
END) 
$ POP OMIT 
IF TYPE®4 OR (1 GTR 29) THEN GO TO ERRORS & OT OR PSEUDO UNIT 
LABELTABLECI):=P(DUP»LOD*SSP)3 % MARK IT NOT IN USE 
MIX3#633 GO TO RY3 
DSs 
IF JARROWCMIX]) NEQ@ O THEN 
BEGIN 
TERMINATE (MIX&3(18233815])3 
HALT} 
NOPROCESSTOGS=NOPROCESSTOG"13 
JVAREMIXe6) Citi JseCCTYPES9) OR CTYPE=19))3 & DS=8r SDRD CLE19 
GO TO FORGET: 
END? 
GO TO ERRORS 
BKs 
IF C13 MESSAGEHOLDER,(CFJ]) NEG O THEN 
BEGIN 
IF CJte MEL).CFF]) NE@ O THEN 
DO BEGIN 
ASMCJ]3 
IF CAeL485]50 AND MIX#63) OR (Ael425]7MIX AND MIX NEQ@ 63)THEN 
BEGIN 
METI &*ePCDUP®LODI&AL1B8648815)3 
NUMESS#eNUMESS@13 
FORGETSPACECU4+1)3 
END 
ELSE l3#J3 
END UNTIL (Jt®AsCFF))=03 
MESSAGEHOLDER, CFF) S213 
END3 
IF SPOWORD LSS O THEN % GO CLEAN OUT TANK 
BEGIN 
IF STATABLELKSSABSC(SPOWORD)).OUTPUTANKING THEN 
BEGIN 
WHILE NOT CJUSsTANKS(K]),C181] DO SLEEPCETANKS(E KJ] »70)5 
STATABLECK] ,OUTPUTANKINGS&03 
IF Je€2238) NEQ@ O OR TALLOUT = K THEN 
BEGIN 
Ate03 
DO Ilt®A UNTIL CASFTANKS(LA].(238))2K3 
TANKSCI J] ¢8C#PCDUP) QUL28238)3 
IF KaTAJLOUT THEN TAISLOUTSSI3 
END} 
END? 
TANKS(K]#@NABS(0)3 
$ SET OMIT = TWXONLY 
IF STATABLELK] eSTATIONTYPESTC500 THEN 
TNAOGESEQARRAY(K],£26:6)),Cisi13)%#0 ELSE 
BEGIN 
TNAOGLSEQARRAYLK] C2616] 186CePC( DUP) )&PCOVXCH)CI4E14914)3 
STATABLELK),L22:2)18803 
ENDS 
$ POP OMIT 
END3 
MIX$863) 
GO TO FORGET3 


16203000 
16204000 
16205000 
16206000 
16206001 
16207000 
16208000 
16209000 
16210000 
16211000 
16212000 
16213000 
16214000 
16215000 
16216000 
16217000 
16218000 
16219000 
16220000 
16221000 
16222000 
16223000 
16224000 
16225000 
16226000 
16227000 
16228000 
16229000 
16230000 
16231000 
16232000 
16233000 
16234000 
16235000 
16236000 
16237000 
16238000 
16239000 
16240000 
16241000 
16242000 
16243000 
16244000 
16245000 
16246000 
16247000 
16248000 
16249000 
16250000 
16251000 
16252000 
16253000 
16254000 
16255000 
16256000 
16257000 
16257001 
16258000 
16258500 
16259000 


RXITS$ 
REPLYCMIX]#S7TYPE & 1f16t33815)3 
BRINGBACKCMIX)3 
IF 1 NEQ BUFF THEN 
BEGIN 
FORGET! 
STREAMCTSeBUFFrl)s NSteLIT%+ "3 
ERRORS 
SPOUTCBUFF"1)3 
ENDJ 
EXITS 
IF (MIX#0) AND CMIXK<K63) THEN TABCNTEIMIX]2=TABCNICMIXI"13 
END PROCEDURE KEYINO;3 
PROCEDURE KEYINICBeKTRX)$ VALUE BeKTRX$ REAL Be KTRX3 
BEGIN 
REAL BUFF e KTRe TYPE» MIX» Ap Io Jo KE 


WABEL COUTs ERROR» FORGETe EXIT 
OTe WDe TRe Whe TEe WMe CXe CEs CCe OL 
»PBs BSe SCr RN» LDe RD» EDe SI* CA SE 
eCSe HS 


3 
SWITCH StSERROR 
DT» WDe TRe WTe TE TFEe WMe CX Cee CC 
eOLe PBr BSe BS» SC» RN» LDO® RDe EDe SI 
eCAe CAr SQe CSe HS 


i 


BUFF SBKTRX,»CISt15]3 
MIX $BKTRXoL 946 J5 
TYPES RKTRX,C 237 13 
KTR $eKTRX,C15033]3 
GO TO SETYPE)? 

ptt 
SETDATECKTR)S 
GO TO EXITS 

WDt 
GIMEDATECBUFF&101)3 
GO TO EXITS 

TRE 
SETIMECKTR)3 
GO TO EXITS 

WT 
TIMEOUT CBUFF@1)3 
GO TO EXITS 

TF 
CHANGEFACTOR(KTR» TYPE@5)3 % TReSs SFR6 
GO TO EXITS 

WM 
SPOUTMCPCBUFF®L)3 
GO TO EXITS 

CXt 
IF REMOTE THEN 

BEGIN 
CALLCANDECKTRe 0)3 


16349000 
16350000 
16351000 
16352000 
16353000 
16354000 
16355000 
16356000 
16357000 
16358000 
16359000 
16359500 
16360000 
16361000 
16362000 
16363000 
16364000 
16365000 
16366000 
16367000 
16368000 
16369000 
16370000 
16371000 
16372000 
16373000 
16374000 
16375000 
16376000 
16377000 
16378000 
16379000 
16380000 
16381000 
16382000 
16383000 
16384000 
16385000 
16386000 
16387000 
16388000 
16389000 
16390000 
16391000 
16392000 
16393000 
16394000 
16395000 
16396000 
16397000 
16398000 
16399008 
16400000 
16401000 
16402000 
16403000 
16404000 
16405000 
16406000 
16407000 


GO TO EXIT3 
END ELSE GO TO ERROR} 
CEs 
STREAMCKESKTREFSPACE(8)42)3 


DSt®45 LIT"CC RUN CANDE/TSHARER; STACKS2003CORES40003 ENDO"3 


GO TO coOUT3 
Qc} 
At=MCBUFF"3),°CCFI*BUFFS % WOS IN MESSAGE 
STREAMCBUFFe BLESA>Bs KTREECKTRISSPACE(CA4+2)4+2))3 
BEGIN 
SITtsBUFF3 
BLCO36CDSts2LIT"% 93 DLrsKTRI 
IF SC NEQ "ee THEN 
BEGIN 
DS@eCHR$ 
L3 IF SC NEQ@ “e" THEN 
BEGIN 
IF SC NEQ@ 814 THEN DSS2CHR ELSE SITteSl4+t3 
GO TO L3 
END3 
END3 
DStSCHR3 
ENDS 
COUT: 
MCKTR™4),0986)3803 
CCARDCKTRACIF CABS(B) GTR 1) THEN 30 ELSE 25)(3343125])3 
GO TO FORGET; 
Ol: 
OUTPUTLABELCKTR)3 
GO TO EXIT} 
PB: 
PRINTBACKUPCKTR)3 
GO TO EXITS 
BS: 
SPOSETCTYPE=135 KTR); & BSF13+ USa14 
GO TO EXITS 
Sc3 
STREAMCSPO3SSPOWORD GEQ@ Os St ABSCSPOWORD)>» Bt= BUFF "1)3 
BEGIN 
DSt*™ 18 LIT “ SPO CONSOLES ARE#r"3 
SPOCDS#24 LIT "SPO ")3 
Sts LOc $3 DSt:= 2 PECs DS3:= LIT “oe; 
DIe* O173s OSt= 2 FILLS 
END STREAM STATEMENTS 
SPOUTCBUFF?1)3 
GO TO EXITS 
RNG 
RUNTHEDECKCKTR)$ 
GO TO EXIT3 
Dt 
STARTLOADNCKTR)3 
GO TO EXIT: 
RD: 
DECKREMOVERCKTR)3 
GO TO EXIT3 
ED! 
EXTERNALENDCKTR)3 
GO TO EXIT} 
Sti 
$ SET OMIT = NOTCSTATISTICS) 


16408000 
16409000 
16410000 
16411000 
16412000 
16413000 
16414000 
16414100 
16415000 
16416000 
16417000 
16417100 
16418000 
16419000 
16420000 
16421000 
16422000 
16423000 
16424000 
16425000 
16426000 
16427000 
16428000 
16429000 
16430000 
16431000 
16432000 
16433000 
16434000 
16435000 
16436000 
16437000 
16438000 
16439000 
16440000 
16441000 
16442000 
16443000 
16444000 
16445000 
16446000 
16447000 
16448000 
16449000 
16450000 
16451000 
16452000 
16453000 
16454000 
16455000 
16456000 
16457000 
16458000 
16459000 
16460000 
16461000 
16462000 
16463000 
16464000 
16465000 


STREAMCAt=0 ¢ KTR)? 
BEGIN 
ST@eKTRs TALLY& 413 
IF SCae" THEN GO TO L23 
IF $c GE@ "0" THEN 
BEGIN 
Sit=Sle qs 
IF SC GE@ "0" THEN 
BEGIN 
SiesSl*12 DrteLoc As’ OSte2 OCT3 
END 
ELSE 
BEGIN 
SITsaSi"i1s DJseLOc As DSH OCT} 
END} 
END 
ELSE GO TO L23 
IF SC NEQ@ "ee" THEN 


BEGIN 
L2t TALLY##08 AS=TALLY 
END$ 
END3 
IF (1t8P)30 THEN GO TO ERROR: 
INTERVAL 8#1x36003 
STREAMCAtE]® BI=BUFFR1)3 
BEGIN 


STt®LOC As DStF23LIT"NEW TIMING INTERVAL IS “3 
OS#S2 DECS DSte SLIT" MINUTES"; 
END3 
COUNTARRAY[ 29] taXCLOCK3 
$ POP OMIT 
GO TO ERRORS & SPOUT MESSAGE 
CAl 
$ SET OMIT * NOTCAUXMEM) 
CHANGEAUXFILESCKTR«TYPE#21)3 & WAS21e CAF22 
$ POP OMIT 
GO TO ERRORS & SPOUT AUX MESSAGE OR ERROR MESSAGE 
$Q3 
STREAMCTYPERSOSINFOLS E"STOPOKN™» INFO28 F@2567630000000000» 
KTR)3 
BEGIN ’ 
SLeskKTRs DIteLOc INFOLS DiteDI +13 TALL Ys#13 
IF 4 SC3DC THEN GO TO EXT} 
StssST"43 TALLYteTALLY+13 
IF 2 SCeDC THEN GO TO EXT3 
STeaSre2s TALLY &# TALLY +23 
IF 4 SC#DC THEN GO TO EXT 
TALLYS=TALLY4+43 
EXT? TYPESSTALLY3 
ENDS 
IF PCMEPCeDISKSQUASH)J]+eTOP) THEN IF PCP.CFF] AND PeDUP)#0 THEN 
PC ,DISKSQUASH»ASTD) ELSE GO TO ERROR ELSE IF PCXCH)*68 THEN 
BEGIN 
FORKCPCDISKSQUASH) »KTRo0019201)3 


GO TO EXITS 
END ELSE GO TO ERRORS 
GO FORGETS 


HS 
$ SET OMIT ® NOT SEPTICTANK 
KTREsmKTR3 


16466000 
16467000 
16468000 
16469000 
16470000 
16471000 
16472000 
16473000 
16474000 
16475000 
16476000 
16477000 
16478000 
16479000 
16480000 
16481000 
16482000 
16483000 
16484000 
16465000 
16486000 
16487000 
16488000 
16489000 
16490000 
16491000 
16492000 
16493008 
16494000 
16495000 
16495001 
16496000 
16497000 
16496000 
16499000 
16499001 
16500000 
16504000 
16504100 
16504200 
16504300 
16504400 
16504500 
16504600 
16504700 
16504800 
16504900 
16505000 
16505100 
16505200 
16505300 
16505400 
16505500 
16505600 
16505700 
16505600 
16505900 
16506000 
16506990 
16507000 


$ POP OMIT 
CS: 
$ SET OMIT = NOT SEPTICTANK 
RUNSEPTICCKTR)$ 
$ POP OMIT 
GO TO EXIT: 
FORGETS 
STREAMCT#sBUFFP1)s DSSSLIT%«"} 
ERROR! 
SPOUTC(BUFF@1)3 
EXIT! 


IF (MIX#0) AND CMIX<63) THEN TABCNTEMIXJ&=TABCNTECMIXI"13 


END PROCEDURE KEYINIS 
PROCEDURE KEYIN2(KTRX)$ VALUE KTRXs REAL KTRX3 
% AUXILIARY PROCEDURE TO “KEYIN", 


% THIS PROCEDURE IS CALLED AS AN INDEPENDENT RUNNER FROM 


% PROCEDURE "KEYIN"; 


BEGIN 
REAL BUFFe KTRe TYPEe® M]Xe Ae Je Jo K3 
REAL Re Rie R2e R3e RAS 
INTEGER INTLRNTie INTORA® INT3%0» INT4 ERG 
ARRAY UT ® R3C¥*] 
$ SET OMIT = NOT SHAREDISK 
eU = R2E*] 
$ POP OMIT 


j 
$ SET OMIT = SHAREDISK 
DEFINE U = AVTABLE#} 
$ POP OMIT 
REAL HNt = MJXe HN2 & TYPES 
NAME SEGDICT * R33 


REAL SEG#@I* ADR®J» LOCN@Ks HALTED#®RIs % FOR RA REQUEST 


$ SET OMIT & NOTCPACKETS) 
REAL UNITNO3 
$ POP OMIT 
LABEL PGA» FERGITe FORGET» ERRORe EAILT 
oMXs ROe TSe Tle PRe LFe LCe LSe EXe POD 
20Te ITe POs PGs AUs MSe LNe CDe FEs CU 
oS¥2 OCs RWe Cys SMe CTr WUs XDe We MC 
eHD»eRAeRAEND 


5 


SWITCH Sits ERROR 
oMXe ROe ROe TSe TSe TSe TSe Tl» PRe LF 
eLCe LS» EXe PDe OT» OTe JT» POs POe PG 
sAUe MSe LNe CO*® FEe CUe SY¥e OCe RWe CJ 
pSMeCTeCTeCTeWUeXDeXDoW] eMC OCD 
sHDeRA 


5 


BUFF E®KTRX2015815)3 
MIX s#KTRX,C 986 13 
TYPESSKTRX,C 247 93 
KTR sekKTRX,£15833]3 


16507010 
16508000 
16508990 
16509000 
16509010 
16510000 
16604000 
16605000 
16606000 
16607000 
16608000 
16608500 
16609000 
16610000 
16611000 
16612000 
16613000 
16614000 
16615000 
16616000 
16616100 
16616200 
16616300 
16616400 
16616500 
16616600 
16616700 
16616800 
16616900 
16617000 
16617100 
16617200 
16617300 
16617499 
16617500 
16617501 
166186000 
16619000 
16620000 
16621000 
16622000 
16623000 
16624000 
16625000 
16626000 
16627000 
16628000 
16629000 
16630000 
16631000 
16632000 
16633000 
16634000 
16635000 
16636000 
16637000 
16638000 
16639000 
16640000 
16641000 


$ SET OMIT = NOTCPACKETS) 
IF MIX#63 THEN UNITNOS®PSEUDOMIX(MIX]3 

$ POP OMIT 
GO TO S{TYPE)3 

MX$ 
MIXPRINTCBUFF@1)3 
GO TO EXITS 

ROt 
CHANGEOPTIONCKTRe TYPE#2)3 % ROR2e S083 
GO TO EXIT 

TS$1 
IF CTYPEs6 OR TYPE®7) AND (MIX#63) THEN % ES OR XS SCHEDULE TASK 

SCHEDLOOKCKTRs TYPE#9) & ES=6» XS39 

ELSE SHEETOIDOLERCKTReTYPEsMIX)$ & TS*4e PSthe ESm6e XSR7 
MI Xts633 
GO TO EXITS 

Tit 
TIMEUSENDCBUFF ele MIX); 
GO TO EXITS 

PR3 
CHANGEPRIORITYCKTRoMIX)3 
GO TO EXIT? 


1835 GO TO PDs 
It*23 GO TO PDI 
1$#43 GO TO PD3 
Tt#13 KTRes eKTRE 


PRINTDIRECTORYCKTR&I(9342161)} 
GO TO EXITS 
OTs 
IF TYPES16 THEN KTRE= “KTRZ & OTS1LSe [N&16 
IF PRIGAMESCKTReMIX) THEN GO TO ERROR ELSE 
IF KTR LSS 0 THEN GO FORGET ELSE GO EXITS 
ITs 


IF NOT CLESSPUTORTAKECMIXsCJARUIMIX*#2]30100))40481) THEN GO TO ERRORS 


PCPUTORTAKECMIXe LJARIMIXe 23] 200 T810584791))°DELD3 
GO TO FORGETS 
POS 
TYPOPCKTRe TYPEF19)3 & TOF1Be POFI9 
GO TO EXITS 
PGI 
STREAMCYI@KTR)3 
BEGIN 
Sr+sys 
LAt IF SC NEQ@ "** THEN 
BEGIN 
SrteSte1s DIteDIe13 GO TO LAB 
END 
ELSE DS&teaLITNeecee™) 
END3 
PGA! STREAMCY##00e KTR? ALSAISSPACE(12)41)3 
BEGIN 
ST eRKTR} 
Li oF Sea" " THEN 
BEGIN 
SteszSle13 GO TO Ls 


16641099 
16641100 
16641101 
16642000 
16643000 
16644000 
16645000 
16646000 
16647000 
16648000 
16649000 
16650000 
16651000 
16652000 
16652500 
16653000 
16654000 
16655000 
16656000 
16657000 
16656000 
16659000 
16660000 
16661000 
16662000 
16663000 
16664000 
16665000 
16666000 
16667000 
16668000 
16669000 
16670000 
16671000 
16672000 
16673000 
16674000 
16675000 
16676000 
16677000 
16678000 
16679000 
16680000 
16681000 
16682000 
16683000 
16684000 
16685000 
16686000 
16687000 
16688000 
16689000 
16690000 
16691000 
16692000 
16693000 
16694000 
16695000 
16696000 
16697000 


ENDS 
IF Sca*e" THEN TALLY $# 1 ELSE 
IF Sca™O" THEN TALLY $s 1 ELSE 
BEGIN 
DSUS3CHRE 
IF sce*"" THEN 
BEGIN 
DSt#ecHR3 
Lue IF Sc#"* © THEN 
BEGIN 
S1teSJ+13 GO TO LL3 
END3 
5C1F SC GE@ 0 THEN DS%SCHR ELSE JUMP OUT)3 
END} 
DStsLIT™e™s KTRisS]3 
END3 
Yrs TALLY} 
END STREAM STATEMENT? 
IF PCCEKTRIJeSTD) THEN 
BEGIN 
FORGETSPACECA™1)3 GO TO FORGETS 
ENDS 
AtBARAL159833215]3 
TAPEPURGECA)3 
GO TO PGA3 
AVS 
$ SET OMIT = NOTCAUXMEM) 
IF AUXPRINTCIF MIX®63 THEN "0 ELSE MIX) THEN GO TO ERRORS 
$ POP OMIT 
GO TO FORGETS 
MS8 
$ SET OMIT = NOTCAUXMEM OR MONITOR) 
STREAMCTYPES#0 &§ KTR) 
BEGIN 
SLUsKTRE TALLY t #2; 
IF Sca"R® THEN TALLY8=1 ELSE IF SC3"S" THEN TALLY##03 
L2t TYPES*TALLYS 
END STREAM STATEMENT? 
IF CTYPEteP) GTR £ THEN GO TO ERROR? 
IF TYPE*O AND CTABLEL4),C€¥1#1)] THEN GO TO ERRORS &% MONITOR SET 
IF TYPE*4 AND NOTCCTABLEC43,€Ci1:1]) THEN GO TO ERROR} 
SETMONITTORFILECTYPE)3 
$ POP OMIT 
GO TO FORGET) 


LNt 
STREAMCAS®O t KTR)S 
BEGIN | 
STUBKTRI DISSLOC As DIP=D1 +63 
DSts2 CHR} 
END STREAM STATEMENTS 
IF CLtSP)@"DK" THEN LOGDISK ELSE 
IF 1,£3686]#@37 THEN LOGOUT ELSE 
LF TePML" THEN FORKCPC,LOGOUTMAINT)*#000012890) ELSE 
GO TO ERROR} 
GO TO FORGET 
eps 
TABLEOFCONTENTSCKTR# TYPE#40)} 
GO TO FORGETS 
FES 


Tt ® GETSPACE(359905)423 


16698000 
16699000 
16700000 
16701000 
16702000 
16703000 
16704000 
16705000 
16706000 
16707000 
16708000 
16709000 
16710000 
16711000 
16712000 
16713000 
16714000 
16715000 
16716000 
16717000 
16716000 
16719000 
16720000 
16721000 
16722000 
16723000 
16724000 
16725000 
16725001 
16726000 
16727000 
16728000 
16729000 
16730000 
16731000 
16732000 
16733000 
16734000 
16735000 
16736000 
16737000 
16736000 
16738001 
16739000 
16740000 
16741000 
16742000 
16743000 
16744000 
16745000 
16746000 
16747000 
16748000 
16749000 
16750000 
16751000 
16752000 
16753000 
16754000 
16755000 


STREAMCKTRIDte#1+2)3 


BEGIN 
SITs*KTR3 


4CO3CIF SC NEQ "*" THEN DS!t=CHR ELSE JUMP OUT 2 TO LL))3 


Lust DSteLIT"e™s DL teDIei9 KTRSFDIS 
END STREAM STATEMENT} 
K:e P JINX O03 
MECL)Je* (Kel) DIV 53 
STREAMCDATEs ARFI+1)3 
BEGIN 
S]seLOc DATES DSts80CT3 
END STREAM STATEMENTS 
WINKUPCI99T)3 
GO TO FORGET; 
cul 
COREPRINTCIF MIX LSS 63 THEN MIX ELSE NABS(0))3 
GO TO FORGET} 
SY: 
$ SET OMIT = NOTCSTATISTICS) 
SAVESTATISTICS3 
$ POP OMJT 
GO TO FORGET} 
Oc! 
STREAMC Wisi KTR 3 BreBUFF)S 
BEGIN 
S1:skTR3 
2C36CIF SCa™e" THEN 
BEGIN 
WEeTALLYS DSS=CHRS JUMP OUT 2 TO XT 
END ELSE DSt2CHR))3 
SyeweST@1) DiteD171s OStSsL IT) 
XTs KTReaSt3 
END STREAM STATMENT3 
PCCKTRJaSTDe ,feSTD)3 
MAKELOGCBUFF'120CM)3 
IF I THEN GO TO OC ELSE GO TO FORGET} 
RW1 
REWINDANDLOCKCKTR)3 
GO TO EXIT} 
Ql: 
CHANGEINTRINSICFILECKTR)3 
GO TO EXIT3 
SMt 
KeeKTR&CISEMIXxXCMIX NEQ 63))(994226)3 
WHATSGOINGONCK)3 
GO TO EXIT3 
ct a 
TIMERELAXERCKTRe TYPE oMIX)$ & CT#320 XT#33- TLe34 
GO TO EXIT3 
WU = 
Leak TRACMIXXCMIX NEQ 639)(9%4286)3 
WHATSITCI)3 
GO EXIT: 
XD8 
JF TYPEs37 THEN KTR,CCFI]8=03 & XD836% MR*37 
— DKBUSINESSCKTR)3 
GO TO EXIT3 
Wis 
WHATINTRNSICCBUFFY1)3 
SPOUTCBUFF%1)3 


16756000 
16757000 
16758000 
16759000 
16760000 
16761000 
16762000 
16763000 
16764000 
16765000 
16766000 
16767000 
16768000 
16769000 
16770000 
16771000 
16772000 
16773000 
16774000 
16775000 
16775001 
16776000 
16777000 
16778000 
16779000 
16780000 
16781000 
16782000 
16783000 
16784000 
16785000 
16786000 
16787000 
16788000 
16789000 
16790000 
16791000 
16792000 
16793000 
16794000 
16795009 
16796000 
16797000 
16798000 
16799000 
16800000 
16801000 
16802000 
16603000 
16804000 
16805000 
16806000 
16807000 
16808000 
16609000 
16810000 
16811000 
16612000 
16613000 
16813100 


GO TO EXITS 
MCt 
NAMETDC IT eKTR)$ NAMEIDCJeKTRIS NAMEIDC Ie KTR)3 
IF Jel626])5"e" THEN GO TO ERRORS 
IF CAERBDIRECTORYSEARCHC I e"J2#4)) GEG 64 THEN 
BEGIN 
IF J NE@ "DISK " THEN 
IFCKE#DIRECTORYSEARCHCI*® "DISK "05)) NEQ@ O THEN 
BEGIN 
PCDIRECTORYSEARCH(™1]eJ#14) DEL D3 
FORGETSPACECA)} 
FORGETSPACECK)3 
LBMESSCyT ode ™9e 2990001 )5 
GO FERGIT3 


BEGIN 
MOEA INX 4] 88CH#PCDUP) A201 46s2I81C8ta7r1 43 
ASSAREUFC™I]e"DISK "sA INX 0719018833215)3 
FORGETSPACECDIRECTORYSEARCHC 1 9 J08) 23 
END ELSE MEA INX GJ] seC#PCDUP)IB2C1LI468 QR C8ea7si1ds 
HEADERUNLOCKC 1*e"DISK “eA; 
LBMESSCIl oe Je SMe lo "DISK ,Oed)3 
END 
ELSE LBMESSC Ile de"9e (CARL) XI00415°909001)3 
FERGIT! 
FORGETSPACEC BUFF 1 )3 
GO TO EXIT? 
HD? f 
STREAMCEUL aE" LS ERRTOGISOSEULITIF=B2564000000000000»CXIe0>» 
KizeKTR)$ 
BEGIN 
S$11=K3; GO TO Lis 
LO+s tf SCs" * THEN BEGIN SI8=S1413 GO TO LO ENDS Cl82CX3 
Lit cXs2cC]3 GO TO LO} 
IF SCa%e" THEN GO EXT3 
DIs=LOC EULIT; TALLYt#1;3 
IF 2 Sc#OC THEN ® AN EU SPECIFIED 
BEGIN 
cCXeects GO TO LO3 
JF SC GEQ@ O THEN IF SC<12 THEN 
BEGIN 
STteSi4+i3 Dissioc EuU3 
IF SC GE@ O THEN IF SC<12 THEN 
TALLY #2 ELSE GO TO ERRS 
STteSyris CXIMSTALLY 
DStsecx OCT GO EXT} 


END 3 
ENDS} 
ERRt ERRTOGSETALLYS 
EXTS 
ENDS 


IF P THEN GO TO ERROR} 
IF CHNis@P41)>0 THEN IF HN1 LEQ NEUPoC(FF) THEN 
HN2Z¢8HN1 ELSE GO TO ERROR ELSE 
BEGIN 
HNiswi; 
HN2s#NEUP, CFF I3 
_., ENDI 
$ SET OMIT = NOT SHAREDISK 


16814000 
16815000 
16816000 
16817000 
16818000 
16619000 
16820000 
16821000 
16622000 
16823000 
16824000 
16825000 
16826000 
16827000 
16828000 
16829000 
16830000 
16831000 
16832000 
16834000 
16835000 
16836000 
16837000 
16838000 
16839000 
16841600 
16841600 
16642000 
16643000 
16843100 
16843200 
16843300 
16643400 
16843500 
16643600 
16843700 
16843600 
16643900 
16844000 
16844400 
16844200 
16844300 
16844400 
16844500 
16644600 
16844700 
16844600 
16844900 
16845000 
16845100 
16645200 
16845300 
16845400 
16845500 
16845600 
16845700 
16845600 
16845900 
16846000 
16846100 


FIXARRAYCUsR1230)3 
DISKWAITC™Rie 302USERDISKBOTTOM)3 
$ POP OMIT 
FOR JTt@HNi STEP 1 UNTIL HN2 00 
IF NOT CNT2$2UL1])2,EUNP THEN % NOT A DUMMY EV 
BEGIN 
INT4SSCINTISENT2,S5STARTWRD) MOD 303 
INT23e@30"(KSeECNT2 AND NUMENTM)#R4) MOD 304K3 
J$aNTi DIV 30e+USERDISKBOTTOM3 
FIXARRAYCUT@Re ADS 
$ SET OMIT = NOT SHAREDISK 
IF JeEUSERDISKBOTTOM THEN 
BEGIN 
IF A>30 THEN DISKWAITC®R®300A™300J41)3 
MOVEC30eRi eR) 
END ELSE 
$ POP OMIT 
DISKWAITC™ReAs J) Jta03 
FOR NT1$sK"2 STEP 71 UNTIL R& DO INT3S2U4+UTONTI),£C3219)3 
STREAMCAS#I71+¢B3R1F UCT) ,SPEED®1 THEN "FF" ELSE "So 
CEBULTI, £36210] @tsDiaJoEteUC I), £1820)>» 
FteAtsSPACE (1033 
BEGIN 
SI##LOC As’ DStH4 LIT" EU "3 OStee DEC 
AteDT3 DltsOI]723 NSteF ILL? DTPA; 
DSteLIT*¢c™; STssSp473 DS3*®CHR3 
DSt#10 LIT")» NO, AVe"3 DSI23 DEC3 
ASSOTS Disanir3s DSse2 FILLS DIssas 
DStal1i1 LAT". TOTAL AV#™s DS386 DEC} 
ASeDI3 DI te0176s DSsa5 FILLS DI twat 
DSt#14 LIT” SEGSe MAX AVE"? DS&e6 DEC3 
AtBeD1]3 DisteD1763 PSta5S FILL DO] tsa3 
DSt#6 LIT” SEGS«"} 
END? 
FORGETSPACECR)3 
SPOUTCA)3 
ENDS 2 ELSE IF HNI=HN2 THEN GO TO ERRORS 
$ SET QMIT & NOT SHAREDISK 
FORGETSPACECRI): 
$ POP OMIT 
HNLSBKTRX,£986)3 & SET "MIX" BACK TO ORIGINAL VALUE 
GO TO FORGET$ 
RAt 
IF MEMROWCMIX),CCFI] LSS FENCE THEN ASSRUNNING ELSE 
IF CASBSTASUSEMIX]) NEQ RUNNING THEN GO TO RAEND? 
IF NOT HALTED THEN 
IF MEXwP2MIX THEN 
BEGIN 
HALT} HALTED #8 TRUES GO TO RA$ 
END} 
SEGDICT t@ PRTIEMIX04)3 


IF PC MELOCNt#PRICMIXe6),0CFI)e TOP» XCH» DEL ) THEN SEGteADRe 80 


ELSE 
DO BEGIN 
IF PCMELOCNJs TOPs XCHe O» INXe eADRe STD) THEN % OVERLAID RCW 
BEGIN 
IF NOT MCLOCN),£3381] THEN % NOT TYPE 13 INTRINSIC 
BEGIN 


SEGi#ADR?} & SEGNO IN RCW 
R#303 % ADJUST FOR SUBSTRACTION BELOW 


16846200 
16846300 
16846400 
16846500 
16846600 
16846700 
16846800 
16846900 
16847000 
16847100 
16847200 
16847300 
16847400 
16847500 
16847600 
16847700 
16847800 
16847900 
16848000 
16848100 
16848208 
16848300 
16848400 
16848500 
16848600 
16848700 
16848800 
16848900 
16849000 
16849100 
16849200 
16849300 
16849400 
16849500 
16849550 
16849600 
16849700 
16849800 
16849900 
16850000 
16850100 
16850200 
16850300 
16850400 
16850500 
16850600 
16850700 
16850800 
16850900 
16851000 
16851100 
16851200 
16851300 
16851400 
16851500 
16851600 
16851700 
16851600 
16851900 
16852000 


ADRS=MEMLLOCN).MOMI,CCFJ3 


END 
ELSE SEG 
END 


ELSE 


If PRTCMIX*e8],0CF) NEQ@ LOCN OR MELOCN*1),MSFF THEN & MARKED 
DO LOCNSSM£LOCN],»MOM UNTIL NOT MELOCN] eMSFFE & GET LAST MSCW 
LOCNS3MELOCNJeMOM$ & POINT LOCN TO NEXT RCOWe JUST IN CASE 


END 


UNTIL 


CIF SEG NE@ QO THEN IF 


BEGIN % PRESENT RCW» 
Rta TF ADR GTR FENCE THEN MEMECMIXeMLINKID,CCFI) ELSE 03 


t= CF 15 


CHECK THE LINKS 


WHILE C(CSEG%SMC—R},(CFJ) LSS ADR DO 
IF SEG GTR R THEN RtwSEG ELSE PUNTCCPUNTER(4)1)3 
SEGISIF MCRI],C3t6)*1 THEN MCR+L3-0CF) ELSE O8 
IF PCPRTROWELMIX)e0¢INXeDUP) GTR R AND PCXCH) LSS MERI,CCFI THEN16853100 
R4 :2 "PRT be 


RiFRt2} 
END} 


SEG = (=1) THEN O 


ELSE (SEGDICT(O) LSS SEG OR NOT SEGDICT(SEG)],PBIT) 


ELSE PCMER™2),(386)» 


QR LOCNs0} 
ADR 15 ADR®*R3 


RAEND! 


STREAMCMI Xe 


NAMIs{LJAREMIX*® 0] Je 


DUP) NE@ 7 AND PCXCH) NEQ@ 13) 


TtzOe SEG» ADR» 


SYLQEMCPRICMIXeB8)I,CL0%2)6 TOGIIFCRG NEQ 0)e 


TOG2ta(CSEG LEQ 0) OR CA NEQ@ RUNNING) D> 


BEGIN 
DSseLIT™ "3 
STSENAMS 2CST SSI 413 


DSte2aLiT” #3 


%® KEL,¢ADRAIN MSCW 


Rae 


DEsBUFF*1)3 


DSt=7CHRs OStsLIT"/")3 DiseDIew13 
SIs=sLOC MIX$ DSts2DEC$ 


16852100 
16852200 
16852300 
16852400 
16852500 
16852600 
16852700 
16852800 
16852900 
16853000 


16853200 
16853300 
168653400 
16853500 
16853600 
16853700 
16853600 
16853900 
16654000 
16654100 
16854200 
16854300 
16854400 
16854500 
16854600 
16654700 
16854800 
16854900 
16855000 
16855100 
16855200 


TOGLCSISSLOC RAS SIseSle15 OStSLIT" "3 DSte7CHRS JUMP OUT TO XX1T)#16855300 


TOG2ZCOSt¥L4LIT" NOT AVAILABLE™S 


DS#e5L1T" SEG="3 STe=LOC SEGs DSI=4DEC3 


TeBeDIs OLseDI 743 
DSt#5LIT* ADRE"3 DNSt=4DEC 


DS:s3FILbL3 


D1seT3 


TIEDIS DIteDI7"4s NSte3F ILL: Dysarts 
OSteLIT™s"s SPreS14+73 DSteCHR} 
XX1T# OSteLrTte«"3 


END STREAM STATEMENTS 
IF HALTED THEN NOPROCESSTOG 


GO TO 
FORGET! 


STREAMCTS@BUFFT1)3 OSteLIT%+"3 
$ SET OMIT = NOTCPACKETS) 


ERROR} 


UNITNOE@O? 
$ POP OMIT 


ERROR? 


SPOUTERCBUFF*1eUNITNO®1 23 


EXITS 


IF CMIX#0) AND CMIX<63) THEN TABCNTEMIX]¢STABCNTICMIXJ 13 
KILLCCKTRX) 


INX NOT 193 


END PROCEDURE KEYIN23 
REAL PROCEDURE KEYINCB)$ VALUE BS REAL B3 


% THIS PROCEDURE FUNCTIONS AS A DRIVER FOR AUXILIARY PROCEDURES 
Z MKEYINO"e"KEYING® AND "KEYIN2", PROCEDURES "KEYINO” AND "KEYINI® 


% ARE CALLED DIRECTLY» AND PROCEDURE "KEYIN2” IS FORKED AS AN 


B® INDEPENDENT RUNNER, 


BEGIN 


s= NOPROCESSTOG 13 


JUMP OUT TO XXIT)3 


16855400 
16855500 
16655600 
16855700 
16855800 
16855900 
16856000 
16856100 
16856200 
16856300 
16944000 
16945000 
16945099 
16945100 
16945101 
16946000 
16947000 
16948000 
16948500 
16949000 
16950000 
16951000 
16951400 
16951200 
16951300 
16951400 
16951500 


REAL BUFF e KIRe TYPE» MIXe Ae Is Je Ke 
MIXCODERAe KTRXmAs PROCED#K3 
$ SET OMIT # NOTCPACKETS) 
DEFINE UNITNO & PSEUDOMIX( MIX) #3 
$ POP OMIT 
LABEL SWITCHIT» START» ERROR» EX]Ts FORGET* TBLERR} 


IF B20 THEN &% WAIT TO GET EXCLUSIVE CONTROL OF KEYIN STACK 
BEGIN 
IF KEYBOARDCOUNTER NE@ O THEN COMPLEXSLEEPCKEYBOARDCOUNTER#0)} 
KEYBOARDCOUNTERS=KEYBOARDCOUNTER&SIC1734731)3 
IF SPOWORD LSS O THEN & GET INPUT FROM BACK UP SPO 
BEGIN 
STREAMCMIXS=EMIX¢SCKTRI,CCFI)% %& SEND A QUESTION MARK 
BEGIN 
OStaLIT*#"; NSteLIT MARK} 
END} 
TWXOUTCMIXs 22702 ABSCSPOWORD) D3 
IF KEYBOARDCOUNTER,CFFJ580 THEN & WAIT FOR JNPUT 
SLEEPCEKEYBOARDCOUNTER] »®7777700000)3 
BesOR&KEYBOARDCOUNTERC(FITFI3 
KE YBOARDCOUNTER? SKF YBOARDCOUNTER&M(B,CFFIT2ZICCTE I} 
END 
ELSE KEYBOARDCOUNTER!®KEYBOARDCOUNTER INX 13 
END} 
START! 
IF ABSCRB) GTR 1 THEN BUFF S®B,(18:815) ELSE 
BEGIN 
BUFF ISSPACEC60)+11 
PCWAITIOCBUFF&1[2424781]00925)*°DEL)3 
END3 
KTRISBUFFS 
IF CPROCEDISCTYPESSKEYINSCANCKTReMIX)2,0C1853)87 THEN GO TO TBLERR? 
KTR $= KTR&BUFFC15#33815)3 
MIXCODE 8& TYPE,C1082)xCMIX463)3 
TYPE $= TYPESLCFI3 
IF TYPEsO OR MIX,C1!2)#40 THEN & EMPTY OR ERROR 
BEGIN 
IF MIX,€1%81)] THEN % EMPTY BUFFER 
BEGIN 
KEYIN¢tsTRUES GO TO FORGET 
END 
ELSE GO TO ERROR? & TYPESO OR MIX,0221) 
END} 
IF MIXCODE®1 OR MIXCODE*2 THEN % MIX INDEX REQUIRED 
BEGIN 
IF MIX GTR MIXMAX THEN GO TO ERROR} 
IF JARROWCMIXJ#=0 OR PRTROWEMIXJ#0 THEN GO TO ERROR} 
IF MIXCODES1 THEN % JOB SHOULD BE WAITING FOR THIS INPUT 
BEGIN 
VESREPLYCMIXIS 
WHILE J LSS 0 DO 
BEGIN 
IF Jel4236)8TYPE THEN GO TO SWITCHITS 
Jteed,(69136)3 & SHIFT RIGHT 
END} 
IF TYPESVWY THEN & “"WY"%s NOT WAITING FOR IT 
BEGIN 
MCBUFF@LIISFLAGCE*WY NOT*AMIX(684216))3 
MCBUFF) %208(@1437)([1837811)3 


16951600 
16951700 
16951799 
16951600 
16951804 
16951900 
16952000 
16952100 
16952200 
16952300 
16952400 
16952500 
16952600 
16952700 
16952800 
16952900 
16953000 
16953100 
16953200 
16953300 
16953400 
16953500 
16953600 
16953700 
16953800 
16953900 
16954000 
16954100 
16954200 
16954300 
16954400 
16954500 
16954600 
16954650 
16954700 
16954750 
16954800 
16954900 
16955000 
16955100 
16955200 
16955700 
16955800 
16955900 
16956000 
16956100 
16956200 
16956300 
16956400 
16956500 
16956600 
16956700 
16956800 
16956900 
16957000 
16957100 
16957200 
16957300 
16957400 
16957500 


END3 
GO TO ERROR} 
END’ % IF MIXCODE = 1 OR 2 
SWITCHITS 
TABCNTCMIXJS=TABCNTCMIXJ 413 
$ SET OMIT = NOTCPACKETS) 
IF PSEUDOMIXEMIX]#0 THEN 
BEGIN 
STREAMCI 880% BUFF IS 
BEGIN SIt*BUFF3 
Lit IF SC#™e" THEN GO L2s SIt#Si4i3 GO L13 
La! It=Sl]3 
END3 
1t* P,CCFIJ"BUFF413 % NWDS 
MOVECI] »BUFFeJteSPACECI))3 
SPOUTERC Us UNI TNO064)3 
ENDS 
$ POP OMIT 
ENO? % IF MIX INDEX REQUIRED 
KTRXSSKTR & MIX£984246) & TYPEL2¢41t7)3 
IF PROCED®2 THEN FORKCNTIt=P Cp eKEYIN2) #KTRX*#02128620) ELSE 
IF PROCEDS{ THEN KEYINICBeKTRX) ELSE KEYINOCBeKTRA)DS 
GO TO EXITS 
TBLERR} 
STREAMCKTR»s BS asBUFFM1)3 
BEGIN 
SIS@KTRE SIseS1e23 OSteLlT"*"s DS F2CHR3 
DSte2iLIT" NOT COMPILED IN MCPS 
END} 
ERROR! 
SPOUT(BUFFR1)3 
KEYIN # TRUE3 
GO TO EXITS 
FORGET! 
STREAMCTSSBUFFEL)$ DSteLIT "e"3 SPOUTCBUFF?1)3 
EXIT? 


16957600 
16957700 
16957750 
16957800 
16957610 
16957819 
16957820 
16957830 
16957840 
16957850 
16957860 
16957870 
16957880 
16957890 
16957900 
16957910 
16957920 
16957921 
16958000 
16958100 
16958200 
16958300 
16958400 
16968500 
16968600 
16968700 
16968600 
16968900 
16969000 
16969100 
16969200 
16969300 
16969400 
16969500 
16969600 
16969700 


IF ABS(B) LEQ 1 THEN KEYBOARDCOUNTERS*PC(CNOT 0) INX KEYBOARDCOUNTER) 316969600 


IF KEYBOARDCOUNTER&0(17t4781) GTR O THEN 
BEGIN 
IF KEYBOARDCOUNTER,CCF] NE@ O THEN BSsBaOcctFr) ELSE 
BEGIN 
BtsB&KEYBOARDCOUNTERCFTF]3 
KEYBOARDCOUNTERS KE YBOARDCOUNTER&M(B,CEFI"2I)0CTFI3 
END} 
GO TO START} 
ENO3 
KEYBOARDCOUNTER CI7¢i J) 0703 
IF B THEN KILUCECB] INX NOT 1)3 
END PROCEDURE KEYINS 
PROCEDURE LBMESSC(FNeSNo Tie L2eEo UNI TNOOX)S 
VALUE FNeSNelisl2eEe UNI TNOOX3) 
REAL FNeSNeTiel2eb eUNITNOPXS 


SOOO OIE IO IO IOI III IOIOIOI IO INCRE OIOIINOII I RIOR OE te 


PARAMETERS 
11 12 E FORM OF MESSAGE 
LSS 0 0 » FN/SN 11 


LSS 0 GTR O 0 e FN/SN NOT JiC12) 
LSS 0 GTR O NEQ 0 s FN/SN NOT T4072)? E 
GTR 0 0 0 FN/SN [1 


BE BR BR BA Be BE aC 


16969900 
16970000 
16970100 
16970200 
16970300 
16970400 
16970500 
16970600 
16970700 
16970800 
16970900 
16971000 
17000000 
17000200 
17000400 
17000405 
17000410 
17000420 
17000430 
17000440 
17000450 
17000460 
17000470 


dgPpCOURTER 
AORN TNS eee 


i 


ve YB 


x GTR 0 0 NEQ O FN/SN Ils E 17000480 
3 GTR 0 GTR O FN/SN 11 12 17000490 
% 52 OR 54 FN/SN IT1 12e/E 17000500 
ZNOTES IF 11 1S NEETTHER 52 NOR 54 THEN [1 AND 12 ARE INDICES INTO TABL 17000510 
3 ELSE 12 AND E ARE MFID AND FID, 17000520 
SOR OIRO RIOR IOI ROR ROO UE SOE OOK Ron oR stoke 17000530 
BEGIN 17000600 
REAL TeAs ARRAY TABLE ¥*])3 17000800 
IF LOGLINE,(€3387)20 OR CANDYMESS THEN 17002200 
BEGIN 17002400 

TABLS®(MCSPACECALMESSAGETABLEL4),£8810]))] & 17002600 ater (S53 Tato otactons fh = 
MESSAGETABLE(41(688310]3 17002800 
DISKWAITC™CTABL,CCF J) *A*MESSAGETABLE[4)],€22:26))3 17003000 
STREAMCASELFNJeT#STi LSS Os TBLISFLTABLLABSC IL) J 10 Ee 17003200 
LizIt LSS O AND 12 NEQ@ O-dte]1252 OR 11254, 17003300 
Bss1F PCDUP) THEN C12) ELSE CTABLOCL2)JsTst=TseSPACE(10))3 17003450 
BEGIN ICDSteLIT%."%)s OSteLiT* "3 SIseAs 17003500 
IF Scs"+" THEN BEGIN DSteLIT"2"3 STt=S1+8s END 17003550 
ELSE BEGIN SItsSyp4+ts OSSS7CHRe ENDS DStsLIT/"3 17003600 
IF Sca"+" THEN BEGIN DStsLIT*e%s; SlieS]e+68% END 17003700 
ELSE BEGIN SIteSt+13 DSt=7CHRS END} 17003750 
DStsL IT" "3 LOpSte4LIT*NOT ")% SITIsTBLi; 17003800 
O3¢SpseSl+e1s TCIF SC#2™e" THEN JUMP OUT 2 TO Li ELSE DSt2#CHR))2 17003850 
Lit SJ %=B3 17003900 
VCTF SC8%+" THEN BEGIN DStsLIT%="s STssS14+83 END 17003950 
ELSE BEGIN SIt=S141s OSt#7CHR END3S DSt=LIT"/%3 17004900 
IF SC#%+#" THEN BEGIN DS@eLITM="s S1seS1+83 END 17004050 
ELSE BEGIN ST#sST+415 DSte7CHR ENDS JUMP OUT TO L3)3 17004100 

WCDSteLIT@™C%)s 17009350 00 
63ICSTteSt +13 7CIF Sce"e" THEN JUMP OUT 2 TO L2 ELSE DSI®CHR))3 17004200 
bes LCOSs#LIT™)")3 SL*SLOC Es Sls@S]+53 17004250 
IF SC NE@ "0" THEN BEGIN DSte2LIT">+ “"s DSt®3CHRE ENDS 17004300 
L33 DStaLIT%e"3 17004600 
ENN’ %STREAM 17005200 
SPOUTERCTe#UNETNO®X)3 17005400 
FORGETSPACECTABL.[CF1)3 17005600 
END} 17006800 
ENDS %LIBMSG 17007000 
PROCEDURE STOPM3 17900000 
BEGIN INTEGER PROTY$ LABEL AROUND? REAL B3 %2$%17901000 
PROTY*PRYOR(CPIMIX]3 %$4717902000 
PRIORTY*PRYOREPIM[X]#10233 17903000 
IF NOTERMSETCPIMIX) THEN PRTROWLPIMIX], CPSFJ+«03 17903500 
AROUND? STREAMCJISSJARROW(PIMIXJ ePIMIXeBteBsSSPACEC10))3 17904000 
BEGIN DS#13LIT"#OPRTR ST*ED "3 Sleds SleS14¢13 DS*7 CHR} %87T17905000 
SteSi+13 DSeLIT"/"3 DSe#7 CHRS DSeLITas 48T17906000 
Sl*LOC PAMIX3 DS#2DEC3 DSeLIT"e"3 DieDI"33 DSeFILL3 17907000 
END$ SPOUTCB)3 %8T17908000 
IF OUTWAITCFALSE) THEN GO AROUND3 17909000 
PRIORTY*«PRYOR[PIMIXJ«PROTYS 17910000 
END} %S%17916000 
PROCEDURE FILEHOLDCArBe TOGeLOC* HOLD D3 18000000 
VALUE LOC#HOLDI 18001000 
REAL AsBeTOGeLOC*HOLD!S 18002000 
BEGIN 18003000 
REAL SZeV¥oT3 18004000 
$ SET OMIT # NOT SHAREDISK 16004490 
REAL HOLDERsNEXTSLOT«BYPASS3 % HOLDER MUST BE AT Ti 18004500 

& POP OMIT 18004510 7 om intend ot eet Ng el toe 


ARRAY HOLOLIST(*]3 18005000 


LABEL SLEPE3 


SLEPES 


DEFINE DSED=(TERMSETCPIMIX) #3 18007000 
IF HOLD THEN 16008000 
BEGIN 18009000 
IF TOG THEN TOG*TOG41 ELSE 18010000 

BEGIN % MAKE AN ENTRY IN THE HOLDLIST 18011000 

SET OMIT # NOT SHAREDISK 16011490 
DISKWAITC#(LHOLDERJ Ss CCF J e"3eDIRECTORYSEG)$ &% CLOBBERS T 18011500 

POP OMIT 18011510 
IF (CSZURCYtSHOLDER, CFF J)41) GTR HOLDMAX THEN 18012000 

BYBYC"HOLD LIST OVERFLOWe%s19);3 18013000 
HOLDLISTI=e(MESPACE(SZ)1I8&S2ZL8:38810)3 18014000 

IF Y#0O THEN 18014100 
DISKWAITC*#CHOLOLIST INX O)*Ye#HOLDERe (CF I)3 16015000 

HOLDER e (CFF I38SZ3 16016000 
HOLDLISTCYI&#LOC eC FFIRLCTOGILECTFISSYSNOL 2:46:22) 18017000 
RPIMIXC1084088)3 18017100 
DISKWAITCHOLDLIST INX O»eSZeHOLDER,CCF))3 16018000 

SET OMIT = NOT SHAREDISK 16018490 
DISKWAITCECHOLDER) CCF Je*3eDIRECTORYSEG)3 % CLOBBERS T 18016500 

POP OMIT 18018510 
FORGETSPACECHOLDLIST)! 18019000 

ENDS 18019500 

IF MCLOC#4)_f381] THEN 18020000 

SET OMIT = NOT SHAREDISK 18020490 
UNLOCK(LOC,CFFI) 18020500 

POP OMIT 16020510 
ELSE 18021000 

BEGIN MCLOC+4],(321)2313 18021500 
DISKWAITCLOC.ECFI]»*30eLOC,LFFI)3 16022000 

END$ 18022500 

SET OMIT ® SHAREDISK 18022990 
UNLOCKDIRECTORY? 18023000 

POP OMIT 18023010 
IF PiMIX#0 THEN 18024000 

BEGIN TIeVWYSCVIFXA,LC381])C3684286)3 18025000 

IF TOG®O THEN 18026000 
FILEMESSC™# ",AeBo™ IN USE%+02000)3 18027000 
REPLYCPIMIXI] 82°73 18028000 

IF PCOeRDS)2FENCE THEN SWAPCWAITSWAPe1) ELSE %029"18029000 
COMPLEXSLEEPCREPLYLPIMIXJ20 OR DSED OR TOG)3 %029"18029500 

IF NOT WHYSLEEPCT) THEN GO 10 SLEPES 18030000 

ENO ELSE 18031000 

BEGIN LBMESSCABS( A) #Be45eQe"MCP" 6001 )3 18031500 
SLEEPCETOGIe193 16032000 

END3 18032500 

SET OMIT # SHAREDISK 18032990 
LOCKDIRECTORY? 18033000 

POP OMIT 18033010 
TOGS#TRUES 18033500 

IF PCCPIMIX NEQ@ O AND DSED)*DUP) 18034000 

THEN FILEHOLDCArBeTOGeLOCe2)3 18035000 

PCRTN)$ % 1 ON TOP OF STACK IF DSED 18037000 

ENDS 18045000 
SET OMIT # NOT SHAREDISK 18045490 
DISKWAITC®CCHOLDERI],£CCFIJ) »*39DIRECTORYSEG)3 2 CLOBBERS T 18045500 
POP OMIT 186045510 
IF CSZ9*HOLDER.CFFI)=0 THEN 18046000 
SET OMIT * NOT SHAREDISK 18046490 
UNLOCK(DIRECTORYSEG) 168046500 


18006000 


$ POP OMIT 
ELSE 
BEGIN IF HOLD#®2 THEN DISKWAITCPLOCe(CFJe™300eLOC CFF IDS 
HOLOLIST##CMCSPACE(SZ)1I&SZ68138110)3 
DISKWAITC®CHOLDLIST INX Od *SZ*HOLDERS(CFI)3 
If TOG THEN FOR TseO STEP 21 UNTIL SZ"1 DO 
&$ SET OMIT = NOTCSHAREDISK) 
IF HOLOLIST(CT],£282)]5SYSNO THEN 
$ POP OMIT 
IF HOLOLISTCT),CFFISCTOGI,{CCF] THEN 
IF HOLDLISTECTI,£1086J4Pi1M[X THEN 
IF (SZseSZ*1) # T THEN 
BEGIN 
MOVECSZ*®TeCHOLDLISTUCT+#1 3 Je CHOLDLISTETII)3 
T3882) 
ENDS 
HOLDERS CFFISRY#*SZ3 
TF SZ#0 THEN 
BEGIN 
FOR Y*O STEP 1 UNTIL SZ™1 00 
IF HOLDLISTCY),CCFIJaLOC, CFF) THEN 
BEGIN 
$ SET OMIT #* NOTCSHAREDISK) 
IF HOLDLISTCYIJ.€C28:2)4#SYSNO THEN 
HOLDLISTCY)seP(DUPsLOD*SSN) ELSE 


$ POP OMIT 
IF CTEBHOLDLISTLYJ)2eCFF] GE@ FENCE THEN 
BRINGBACK(T,£C1088)) ELSE MET sCFFIJII=13 
Y%e«S7Z) 
END3 
DISKWAITCHOLDLIST INX Ov» SZ*HOLDER,CCFI)3 
END} 


$ SET OMIT = NOT SHAREDISK 
DISKWAITCCHOLDERI, CCF] e"3eDIRECTORYSEG)S 
$ POP OMIT 
IF SZ=Y THEN 
BEGIN 
MCLOC+4),C3t1J1803 
IF HOLD®2 THEN DISKWAITCLOCe(CEJe™300L0C QCFFI)3 
$ SET OMJT = NOT SHAREDISK 7 
END ELSE 
BEGIN 
IF HOLDs2 THEN UNLOCKCLOC,CFEFJD3 


% CLOBBERS T 


$ POP OMIT 
END3 
FORGETSPACECHOLDLIST)) 


END) | : 

END} & OF FILEHOLDER 

a THE DISK FILE HEADER CONTAINS THE FOLLOWING INFORMATIONS 
ZHLO},€0915) 

x o€15815) 
% gC 308142) 
% 264236] 

HLO1],06%18) 

a 2625823) 
3 elite7] 


RECORD LENGTH 

BLOCK LENGTH 

RECORD/BLOCK 

SEGMENTS/BLOCK 

CREATION DATE FOR LOGGING CWHEN ON DISK) 
CREAT[ON TIME FOR LOGGING CWHEN ON DISK) 

NUMBER OF LOGICAL RECORDS PER ROW CWHEN IN CORE) 


BHC2],£0848) a0) 6FREE FILE 
Ls efit) e0O SOLE USERe PUBLIC OR PRIVATE FILE 
& eflti) #1 SECURITY FILE 


18046510 
18047000 
18047500 
18048000 
18049000 
18050000 
18051000 
16052000 
16052001 
16053000 
18053500 
18054000 
18055000 
18056000 
18057000 
16058000 
18059000 
18060000 
18061000 
18062000 
18063000 
16064000 
16065000 
18066000 
18067000 
18067001 
18068000 
16068100 
18069000 
16070000 
18071000 
18072000 
18072490 
18072500 
18072510 
16073000 
16074000 
16075000 
18075500 
16075990 
18076000 
18076500 
18077000 
18077010 
18077500 
18078000 
18079000 
18080000 
18061000 
18082000 
18083000 
18084000 
18085000 
168086000 
16087000 
16088000 
16069000 
18090000 
16091000 
18092000 


% 


0f6442) 


BHL3),0i91] 


% 
% 
% 
BHO4) 


H{5) 


Be DQ BE Be BE BL BE DE BR DA BL BE BL BE BE DL BE BE BE DE DE BQ BE DE BE BC BA SE BA BE BA DE DE 


BHL7] 
ZH(8) 


BT BE DE DE DC BE DE BE DT BL BQ BE De BE BE 


2C2910) 


9€12018) 
2030818) 


ef ied) 
C2) 
ol 381) 
06432] 
ef 682) 
el731) 


C881] 
0l982) 


9 fS1E1I 


ef1234) 
2£1625] 
2f2495) 
(2615) 
003125) 
0€3696) 


204281) 
e€4342) 
204581) 
764632] 
0f0348) 
eC 191] 


029814) 
0604385) 


HELOJ*HE29) 


PRIMARY USER"S CODE 


1 


NEW FILE HEADER FORMAT 
SAVE FACTOR CBINARY) 


DATE OF LAST ACCESS (BINARY) 


CREATION DATE (BINARY) 
FILE IS BEING LOADED OR NAME IS BEING CHANGED 


3] 
a1 
=} 


4 
#3 
=0 


FILE IS OPENED BY AN EXCLUSIVE USER 

A PROGRAM IS WAITING TO USE THE FILE 
SYSTEM NUMBER OF EXCLUSIVE USER 

USED BY AUTOPRINT TO MARK A PBD FILE 

USED TO MARK PSEUDO DECKS THAT WERE CREATED ON 
A TIME*SHARING SYSTEM BY A ZIP WITH FILE*"ID 
USED TO MARK SPECIAL COMPILERS 


FILE JS 
FILE IS 


DATA 
PROGRAM 


DON"T KNOW IF DATA OR PROGRAM 
FILE ACCESSED BIT 
SYSTEM FILE TOGGLES 


OPEN COUNT 
OPEN COUNT 
OPEN COUNT 
OPEN COUNT 
20 TYPE IS 
#1 BASIC 
=2 ALGOL 
=3 COBOL 
=4 FORTRAN 
#5 TSPOL 
26 XALGOL 
27 SEQ 

8 DATA 
29 LOCK 


2 FOR SYSTEM 
2 FOR SYSTEM 
2 FOR SYSTEM 
2 FOR SYSTEM 


UNKNOWN 


wn CC 


CA) 
(8) 
(C) 
CD) 


USED TO MARK FILES WHICH CANT BE MOVED 
SENSITIVE DATA * ZEROING BITS 

COLD START FILE 
NOT USED 


20 


SOLE US 


ER FILE 


Fil PRIVATE FILE 


#12 IF 
NUMBER 
NUMBER 
TOGGLE {4 FO 
TOGGLE 1 FO 
TOGGLE 1 FO 
TOGGLE 1 FO 
TOGGLE 2 FO 
TOGGLE 2 FO 
TOGGLE 2 FO 
TOGGLE 2 FO 
OPEN COUNT 
OPEN COUNT 
OPEN COUNT 
OPEN COUNT 
NOT USED 


MAXIMUM NUMBER OF ROWS 


R SYSTEM 
R SYSTEM 
R SYSTEM 
R SYSTEM 
R SYSTEM 
R SYSTEM 
R SYSTEM 
R SYSTEM 


Whe OW NS © 


CA) 
(B) 


1 FOR SYSTEM O 
1 FOR SYSTEM 1 
1 FOR SYSTEM 2 
1 FOR SYSTEM 3 


DISK ADDRESSES OF ROWS (0 


H(6)s12 THEN INFO FILE ELSE PUBLIC FILE 
OF LOGICAL RECORDS CEQF POINTER) 
OF SEGMENTS PER ROW 


JF NOT ASSIGNED) 


THE OPEN COUNTS AND TOGGLES ARE USED IN THE FOLLOWING MANNER} 


18093000 
18094000 
18095000 
18096000 
18097000 
18098000 
18099000 
18100000 
16101000 
16102000 
18103000 
18104000 
18104100 
18105000 
18106000 
18107000 
16108000 
18109000 
18110000 
16111000 
16112000 
16113000 
16114000 
16115000 
18116000 
16117000 
18118000 
18119000 
16120000 
18121000 
18122000 
16123000 
16123100 
18124000 
18124100 
16124200 
16125000 
18126000 
18127000 
16128000 
18129000 
186130000 
16131000 
186132000 
18133000 
16134000 
18135000 
18136000 
16137000 
18138000 
18139000 
16140000 
16141000 
18142000 
18143000 
18144000 
18145000 
16146000 
18147000 
18148000 


Be WE BE BE BE BL aC 


TH Ye BO Be VA BR DBR BE DE DE BC BA BR DE BC DE IL JE BC BE BE BE BE BE BE BC BL BS BL DC BL BE DA BC DE BE DA DE DE DE BC BE de 


TOGGLE 1 


0 
0 
| 
1 


END COMMENT? 


TOGGLE 2 OPEN COUNT 1 OPEN COUNT 2 
0 INPUT ONLY INPUT 
4 COUTPUT) NOT USED INPUT 
0 SHARED INPUT 
1 PROTECT INPUT 


REAL PROCEDURE DIRECTORYSEARCHCA*Be OPIN) 52% 


VALUE 


OPTNs 
OPTNS 
OPTN® 
OPTN® 
OPTNE 
OPTNS 
OPTN& 
OPTNs 
OPTN« 
OPTNs 


OBNAWEwWNY OS 


OPTN#®10 
OPTNeEL1 
OPTNS12 
OPTNE1L3 
OPTNS14 
OPTNSLS 
OPTNE16 
OPTN#47 
OPTN=18 
OPTNe19 


OPTN#20 
OPTNe214 
OPTNE22 
OPTN>S12 


OPTN< O 


ArBeOPTNS REAL AeBeOPTN3® 
OPENS FOR SHARED USE 
OPENS FOR INPUT 
OPENS FOR OUTPUT 
OPENS FOR WRITELOCK 
OPENS FOR EXCLUSIVE USE 
RETURNS FILE HEADER CUNCHANGED) 
REMOVES FILE FROM DISK UNCONDITIONALLY 
REMOVES FILE FROM DISK AS SOON AS IT 1S NOT IN USE 
REMOVES FILE HEADER ONLY 
HEADERUNLOCK**WRITES HEADER POINTED TO BY (F"4),(CF) 
BACK OUT ON CF°4),CFFJ*® TURNS OFF INTERLOCK & DOES 
FORGETSPACECF™4). 
CLOSE SHARED 
CLOSE INPUT 
CLOSE OUTPUT 
CLOSE WRITELOCK 
CLOSE EXCLUSIVE 
LOGS THE FILE AND RESETS ITS CREATION DATE AND TIME 
MAKES THE FILE NOT A SYSTEM FILE 
MAKES THE FILE A SYSTEM FILE 
WILL JNTERLOCK SYSTEM FILES 
RETURNS FILE HEADER CUNCHANGED AND LOCKEDs»y.TT IS UP TO 
THE CALLING ROUTINE TO CLEAN UP) 
UNUSED 
OPENS PROTECT 
CLOSE PROTECT 
FILECLOSE**"ADDRESS OF HEADER IN OPTN,ECFI 
CLOSE OPTION"10 IS IN OPTN,CFFQ 
RETURNS AN AREA OF USER DISK AND UPDATES CORE COPY 
OF FILE HEADER**ADDRESS OF HEADER IS IN OPTN,CCFJ** 
NUMBER OF THE ROW TO BE FILLED IS IN OPTNe LFF) 
IS IN OPTN, CCF] 
DIRECTORYSEARCH WILL FORGET THE MEMORY SPACE 
OCCUPIED BY THE FILE HEADER 
1S DIALED INTO FHE4),01%1] WHEN OPTN&4 
IF A CONFLICT OCCURSs AN "IF" WILL BE ENABLED, JF THE 
OPERATOR ENTERS AN "JF DIRECTORYSEARCH WILL RETURN A 
VALUE OF #0, CURRENTLY» THIS IS USED ONLY BY LIBMAIN, 
DIRECTORYSFARCH WILL RETURN A VALUE OF #0 IF THE 
FILE IS IN USE 
WILL NOT UPDATE DATE OF LAST ACCESS 
WILL SET FILE ACCESSED BIT FOR CLOSE 


REAL OLDONERS4S 

REAL TEMPeleTeTOGoedeKeNok oX3 
INTEGER Seollel2e13) 

REAL UNITNO3 

ARRAY FHC *)] NBL e]3 


$ SET OMIT & NOT SHAREDISK 


INTEGER S13 
REAL KLUDGE®Si4¢1e HOLDERSKLUDGE+1» NEXTSLOTSHOLDER+1» 


16149000 
18150000 
16151000 
16152000 
16152100 
16453000 
18154000 
16155000 
16156000 
18157000 
16158000 
18159000 
18160000 
18161000 
18162000 
18163000 
18164000 
186165000 
18166000 
18167000 
18168000 
18169000 
18170000 
18171000 
16172000 
16173000 
18174000 
18175000 
18176000 
18177000 
18178000 
18178100 
16179000 
18179100 
16179200 
18180006 
16181000 
18182000 
16183000 
16184000 
18185000 
18186000 
18187000 
16188000 
18189000 
18190000 
16191000 
18192000 
18193000 
18194000 
18195000 
18196000 
18197000 
18198000 
18199000 
18199100 
18200000 
16200490 
18200500 
16200600 


BYPASSBNEXTSLOT413 &’ MUST BE TOP OF 
LABEL ONE TOGL se TOG2eSTOG*UNLOCKHDRe PROCNTS 
$ POP OMIT 
DEFINE DSED*®C(TERMSETCPIMIX) #3 
$ SET OMIT = SHAREDISK 
DEFINE UNLOCKHDR = EXIT#3 
& POP OMIT 
LABEL LLe EXT» CHECKsLWS} 
LABEL OPENSHARED» OPENINPUTSOPENOUTPUT eOPENWRITELOCK. 
OPENEXCLUSIVE pLOrL7eLBeEXITeUWRITE »FOUND? 
THUPCLOSE +LWeBOMBrGETAROWPEXs 
CLOSESHARED s CLOSE INPUT sCLOSEQUTPUTeCLOSEWRITELOCKs 
CLOSEXCLUSIVEsZER®UNSYS»oSYSe 


SEE eLOCKSYSsDONTWAITsNOF ILE eCOMPLETEsLEAVELKDeUNUSEDS 


LABEL LOGIT: 
LABEL OPENPROTFECT»CLOSEPROTECTI 
SWITCH Q@*0OPENSHAREDeOPENINPUT eOPENOQUTPUT »OPENWRITELOCK? 
OPENEXCLUSIVE P EXIT TebGeL7oLOeEXI Te 
CLOSESHAREDsCLOSEINPUT>» 
CLOSEQOUTPUTsCLOSEWRITELOCKeCLOSEXCLUSIVE 
eLOGIT 
eUNSYS@SYS 
eLOCKSYS@eLEAVELKD e UNUSED e OPENPROTECT*#CLOSEPROTECT 
; 
OR OO ROR RIGOR RO OR OK ak 
REAL SUBROUTINE SEARCH3 
BEGIN 
$ SET OMIT #* NOT SHAREDISK 
Siss 
$ POP OMIT 
SHPFSCRAMBLECA#B)$ 
DISKWAITC*N?"6025S)3 
LL$ FOR Xs#O STEP 3 UNTIL 57 DO 
IF CNBEX] EQV AeL6!42]) = NOT 0 THEN 
IF (NBCX44] EQV B,[6t42]) = NOT O THEN GO TO FOUND? 
IF (StenB(2).CFF1)#0 THEN 
BEGIN DISKWAIT(*N»6005)3 
GO TO LL3 
END ELSE 
$ SET OMIT * NOT SHAREDISK 
UNLOCKCS1)3 
$ POP OMIT 
GO TO EXT3 
FOUND’ [Te CKeNB(X#2]) [CF IMDIRECTORYTOP"4),(4ds4Jx23 
J CK AND NOT 15)4D01RECTORYTOP4193 
K « K#DTRECTORYTOP+43 
EXTs SEARCH © S3 
END3 
Fe ee ONO ROR OO OK RK 
SUBROUTINE HEADERS 
BEGIN 
DISKWAITC*F 230 
$ SET OMIT = NOT SHAREDISK 
SCOPTN#S)£4324791) 
$ POP OMIT 
oK)3 
$ SET OMIT = NOT SHAREDISK 
IF OPTN>8& OR OPTN<6 THEN UNLOCKCS1)3 
$ POP OMIT 
TEMPUBF AKC CTE I81068238110)3 


STACK,18200700 


16200600 
18200810 
18201000 
16201490 
16201500 
18201510 
18202000 
16203000 
18204000 
18205000 
18206000 
18207000 
18208000 
18210000 
16210300 
18211000 
16212000 
18213000 
18214000 
18216000 
18219000 
18220000 
18221000 
18222000 
16223000 
18224000 
18224490 
18224500 
18224510 
18225000 
18226000 
18227000 
18227500 
18226000 
16228500 
18229000 
18229500 
18230000 
18230490 
18230500 
16230510 
16231000 
18232000 
18233000 
18234000 
18235000 
16236000 
18237000 
16238000 
18239000 
16240000 
18240090 
18240100 
18240110 
18240200 
16240490 
18240500 
18240510 
18241000 


oo 


Lad 


END3 

PE ECOCECOSSIOCLOVECT Cee eee eee 

SUBROUTINE REMOVERS % CANT BE CALLED FROM OTHER SUBROUTINES, 
BEGIN NB[X]+@143 


DISKWAITOCN®"600S)3 
SET OMIT # NOT SHAREDISK 
IF S1#S THEN UNLOCK(S1)3 
PC02020eKLUDGE )3 % MAKE WAY FOR THE UNCLEAN 
DISKWAITC*CCHOLDERI] »£CF J) e*3eDIRECTORYSEG)} 
POP OMIT % BUT SAVE THE RETURN LITERAL, 
DISKWAITCPNe"302eJ)8 
NBC1TJ©@143 NBCYT+t]eNEXTSLOT# NEXTSLOTeK3 
DISKWAITCNe™300J)3 
SET OMIT = NOT SHAREDISK 
DISKWAITCEHOLDERI {CF J] e"3sDIRECTORYSEG)3 
UNLOCKCK)$ 
POP OMIT 
ENDS 
De ee OO ROR RO ok RR KOR ORR OR OR KK OK 
SUBROUTINE HOLD? 
BEGIN 
SET OMIT = NOT SHAREDISK 
IF OPTN#S7 THEN UNLOCK(S1)3 
IF Belitild THEN 
BEGIN TEMP#13 % IN USE 
GQ UNLOCKHDRS 
ENDS 
SET OMIT = SHAREDISK 
IF Belitil] THEN GO DONTWAITS 
POP OMIT OMIT 
FILEHOLDCA*Be TOGe TEMPel D3 
IF P THEN ® O OR 1 =ITS LEFT ON TOP OF STACK IN FILEHOLD 
BEGIN TEMP3=33 Atweets GO EXIT# END &% OS*ED IN FILEHOLD 
ELSE 
IF PIMIX#0 THEN 
IF REPLYCPIMIXI]®VIF THEN 
BEGIN 
FILEHOLDCArBe TOGe TEMP 22) $ 
DONTWAITS 
TEMPteis & IN USE 
GO TO EXITS 
END3 
IF SEARCH®O THEN 
BEGIN FJLEHOLDC As Be TOGe TEMPO) 
NOFILES TEMPHROF ALBPLE GO EXIT 
ENDS 
HEADERS 
END? & OF HOLD 
pee SECS CEES CRESS EPCS ES CSCS ESE SES ETE ESE SES EE SS SS 
SET OMIT = NOTCPACKETS) 
IF OPTN,CCFE) LSS 512 THEN 
BEGIN UNITNOS&OP1IN¢(2436]3 OPTNEBOPTN INX O83 END? 
POP OMIT 
SET OMIT ® SHAREDISK 
LOCKDIRECTORY3 
POP OMIT 
IF OPTN@9 THEN 
BEGIN 
DISKWAITCCNISSPACE( 30) )e"30eCKSBOLDONE,CFRI) 23 
FHIS(MCFSSOLDONE CCF II1&83008338810)3 


186242000 
16243000 
18244000 
16245000 
16245500 
16245990 
18246000 
18246500 
16247000 
18247010 
18247500 
18248000 
18248500 
18248990 
16249000 
18249500 
18249510 
18250000 
16251000 
16252000 
18253000 
16253490 
16253500 
18253600 
16253700 
162538600 
16253900 
16253950 
18254000 
18254010 
18255000 
16255100 
16255200 
16255300 
18256000 
16258000 
18259000 
16260000 
18260500 
18261000 
18262000 
18263000 
18264000 
18265000 
18266000 
18269000 
18270000 
18271000 
18272000 
18272199 
18272200 
16272300 
186272301 
16272990 
18273000 
18273010 
18274000 
16275000 
18276000 
16276500 


$ SET 
$ POP 
$ SET 
$ POP 


$ SET 


$ POP 
$ SET 


$ POP 


ENDS 


At=NABS(A)3 
FHCA} SFC #PCDUP)IAMIN+4I(38331)3 
GO TO CLOSEXCLUSIVES 


NBteCMENF®SPACE(60)1186008238710)3 
IF SEARCH#O THEN 


BEGIN 


END3 
OMIT & 


Atz0} 
GO TO EXIT3 


NOT SHAREDISK 


TEMPe]F OPTN&21 THEN 32 ELSE 303 
FHe (MEF e*SPACEC TEMP) IIR TEMP(6136210)3 


OMIT 
OMIT = 


SHAREDISK 


FHOSCMCF&eSPACE(30)11830(683681013 


OMIT 


HEADERS 
IF OPTN<O THEN GO GETAROWS 
IF OPTN2>512 THEN GO TO QLOPTNeLFFI4+10)3 


OMIT & 


SHAREDISK 


IF OPTN LSS 5 OR OPTN847 OR OPTN®7 THEN 


OMIT 
OMIT = 


NOT SHAREDISK 


IF OPTN<5 OR OPTN®17 OR OPTN#®7 OR OPTNS21 THEN 


OMIT 


CHECKS 


$ SET 
$ POP 


$ SET 


$ POP 
$ SET 


$ POP 


$ SET 


BEGIN 


OMIT # 
OMIT 


OMIT & 


OMIT 


OMIT * 


OMIT 


OMIT & 


UNLOCKHDR# 


$ POP 


OMIT 


SEE} 


IF FH£4),04481] AND OPTN LSS 5 THEN 

BEGIN 2 TRYING TO OPEN WHILE FILE 1S BEING BLANKED 
NOT SHAREDISK 

UNLOCK(K)3 


GO NOFILE3 

END: 

SHAREDISK 

IF NOT OPTN OR OPTN®7 THEN 


NOT SHAREDISK 
IF NOT OPTN OR OPTN#®7 OR OPTN®21 THEN 


IF FHO4],£1214]#0 THEN 

BEGIN % IT IS A SYSTEM FILE 
TEMPss23 8 SYSTEM FILE 

NOT SHARED! SK 
IF OPTN THEN UNLOCK(S1)3 
UNLOCKCK)3 


% OPTN = 7 


GO TO EXITS 
END3 


IF CFHE43.£232)] AND CNOT TOG OR 2))#0 THEN 


END$ 


BEGIN 

HOLD} 

GO CHECK 
END$ 


GO TO QCOPTNI; 
_ OPENSHARED# 
IF FHC9),(5t4)#0 THEN 


18277000 
18277500 
18278000 
18279000 
18280000 
18281000 
18282000 
18263000 
18284000 
18285000 
18285099 
18285100 
18285200 
16285201 
18285999 
16286008 
18286001 
18287000 
18288000 
16289000 
18289999 
18290000 
18290001 
16290099 
18290100 
18290101 
18291000 
18292000 
18292100 
18292200 
16292300 
18292400 
16292500 
18292600 
16292700 
18292999 
18293000 
16293001 
18293099 
18293100 
16293101 
18293200 
18294000 
18295000 
18295490 
18295500 
18295600 
18295610 
18296000 
18297000 
18298000 
18299000 
18300000 
16301000 
18302000 
18303000 
18305000 
18306000 
18307000 
18308000 


IF FHE9),£184)40 OR FHE9I,£9820)%0 THEN 
BEGIN 


$ SET OMIT = NOTCSHAREDISK) 


PCSYSNO)3 taPC,ONEr+e LOD) TeP3 
FHC9OJC 98S20)+PCDUPI.C 9I20I4T3 
PCSYSNO)3 t3PCeTOGI e+e LOD)3 TePs 
FHU9J*PCDUP*eLOD) OR T3 


$ POP OMIT 
$ SET OMIT & SHAREDISK 


FHE9I,CO8SSI:sPCDUP) (925) +12 
FHCOJeCAsLIse13 


$ POP OMIT 


OPEN] 


GO TO LWRITES 
ENDS 
HOLDS 
GO TO OPENSHAREDS 
NPUT? 


$ SET OMIT = NOTCSHAREDISK) 


PCSYSNO)S S4PC,ONEe +e LOD)s TePi 
FHC4) sCiGs20JeP(DUP).CI6t20)4+T3 


& POP OMIT 
$ SET OMIT # SHAREDISK 


FHC4) .Ci6tSIs#P COUP) .C16s5I413 


$ POP OMIT 


GO TO LWRITES 


OPENOUTPUTS 


IF FHE9].05%824)20 THEN 
BEGIN 


$ SET OMIT * NOTCSHAREDISK) 


PCSYSNO)3 t2PC,TOG2e4oLOD)s TeP3 
FHL9IJ*P(DUP»sLOD) OR Ts 


$ POP OMIT 
$ SET OMIT = SHAREDISK 


FHC9] eC 5Ssilseis 


$ POP OMIT 


GO TO LWRITES 
ENDS 
HOLD} 
GO TO OPENOUTPUTS 


OPENWRITELOCK$ 


IF FHO9),C1#6)80 THEN 
IN 


BEG 
$ SET OMIT = NOTCSHAREDISK) 


PCSYSNO)3 t2PC,ONEn+eL0D)3 TeP3 
FHI9I,C 9120) +P (DUP) C9820) 4T3 


£ POP OMIT 
$ SET OMIT ®& SHAREDISK 


FH(9J,0985):PCDUP),(915)4+13 


$ POP OMIT 


GO TO LWRITE3 
END 
HOLD} 
GO TO OPENWRITELOCKS 


OPENEXCLUSIVE? 


COMPLETES 


IF FHO9)],065824]%0 THEN 
IF FHE4),(16%820)]=0 THEN 
BEGIN 


FHCA JS @CPCDUPeLOD)&SYSNOLGRG6t2JRIL2IATILIBALLI2°1 73 


GO TO LWRITES 
END} 


18309000 
16310000 
18310999 
18311000 
16312000 
16313000 
18314000 
1831400} 
16314099 
18314100 
18314200 
18314201 
18315000 
16316000 
18317000 
18318000 
16319000 
18319999 
18320000 
18321000 
16321001 
18321099 
16321108 
18321101 
18322000 
18323000 
18324000 
18325000 
18325999 
18326000 
18327000 
1832700) 
18327099 
16327100 
16327101 
18328000 
18329000 
16330000 
16331000 
18332000 
16333000 
18334000 
18334999 
18335000 
18336000 
18336001 
18336099 
186336100 
18336101 
18337000 
18338000 
18339000 
18340000 
18341000 
18342000 
18343000 
18344000 
18345000 
18346000 
18347000 


HOLD} 


GO TO OPENEXCLUSIVES 
OPENPROTECT? 


$ SET OMIT = NOT SHAREDISK 


IF FHC9}eCII4IKO AND FHC(9), C584] #0 
OR FHE9)e£9420]=0 THEN 


BEGIN 


PROCNTS 


ENDS 
HOLDS 


PCSYSNO)3 
PCSYSNO)3 


tePCeTOGle+eLOD)s TeP3 


tiPC.TOG2*4eL0D0)3 TeP OR T3 


FHI 9J*PCDUPeLOD) OR T3 
GIP CONE o+eLO0D)3 TePs 
FHC9J ,C9S2OIePCOUP), C9320) +T3 
GO TO LWRITE3 


PCSYSNO)3 


GO TO OPENPROTECTS 


POP OMIT 


SET OMIT = SHAREDISK 


GO TO OPENEXCLUSIVES 


POP OMIT 


CLOSESHARED$ 
SET OMIT ® NOTCSHAREDISK) 


PCSYSNO)5 


b3PC ONE oe +eLOD)$ TePs 


IF CCYQSFHL9],.098203"T) AND Tx31)20 THEN 


BEGIN 


END} 
FHI9) C9820] e173 


POP OMIT 


SET OMIT = SHAREDISK 


PCSYSNO)3 


tePC,TOGLe +eLODeNOT)3 
FHC9J«©PCDUPesLOD) AND T3 


IF CLUSFHE9),09853"1)50 THEN 


FHCOOJ Citi) s=03 
FHC9O) COSSJIFIs 


POP OMIT 


GO TO CLOSE3 
CLOSEINPUT! 
SET OMIT © NOTCSHAREDISK) 


PCSYSNO)3 


stPC,ONEe+eL0D)3 TePs 


FHE4) .C1I6120)¢PCDUP) £16820)" T3 


POP OM]T 


SET OMIT = SHAREDISK 


FHE4] .CI6I5SIS=P COUP), C1695je13 


POP OMIT 


FHC4),C6%1)9203 


GO TO LWs 
CLOSEQUTPUT? 
SET OMIT # NOTCSHAREDISK) 


PCSYSNO)3 


$9PC,TOG2s+eLODeNOT)3 


FHE9J*PCDUP»®LOD) AND TS 


POP OMIT 


SET OMIT & SHAREDISK 
FHCOJ, £581) 8803 


POP OMIT 


GO TO CLOSES 
CLOSEWRITELOCK?: 
SET OMIT = NOTCSHAREDISK) 


PCSYSNO)3 


SIPC ,ONEo+eLOD)$ TePs 


FHE9VeL9S20I+PCDUPI.L9820I"T3 


POP OMIT 


TeP$ 


TeP3 


18348000 
18349000 
18349100 
18349149 
16349150 
18349200 
18349250 
18349300 
18349350 
18349400 
18349450 
18349500 
18349550 
18349600 
18349650 
18349700 
18349701 
18349799 
18349800 
18349801 
18350000 
18350999 
18351000 
18352000 
18353000 
16354000 
18355000 
18356000 
18357000 
18357001 
18357099 
18357100 
16357200 
18357300 
186357301 
18356000 
18359000 
18359999 
18360000 
18361000 
186361001 
18361099 
18361100 
46361101 
18361200 
18362000 
18363000 
18363999 
18364000 
18365000 
18365003 
18365099 
18365100 
18365101 
18366000 
18367000 
18367999 
18366000 
18369000 
18369001 


ow 


SET OMIT = SHAREDISK 
FHCOJ, C9tSIISPCOUP),C9ISI13 

POP OMIT 
GO TO LW3 

CLOSEXCLUSIVES 
FHC4).0C182)¢03 

GO TO CLOSES 

CLOSEPROTECTS 

SET OMIT = NOT SHAREDISK 
PCSYSNO)3 HtPC,ONE e+e LOD) TeP3 
IF CCLeFHEI9),09220)"T) AND Tx31)80 THEN 
BEGIN 

PCSYSNO)S s2PCeTOGLeteLODONOT)3 TeP3 


PCSYSNO)$ s3PCgTOG2e+eLODeNOT)$ TeP AND T} 


FHE9I]*P(DUP®LOD) AND T3 
END! 
FHL9I].£9820)<13 
GO TO CLOSES 
POP OMIT 
SET OMIT = SHAREDISK 
GO TO CLOSEXCLUSIVES 
POP OMIT 
SET OMIT = NOT SHAREDISK 
ONE 3 32768» 10245 325 13 
TOGL $88 ©2000000000000000» @1000000000000000» 
@400000000000000» @200000000000000} 
TOG2 &s8 €100000000000000» @40000000000000» 
@20000000000000» @100000000000003 
POP OMIT 
SYS 
IF FHDO9].01#8)50 THEN 
BEGIN 
SET OMIT & NOTCSHAREDISK) 
PCSYSNOD$ s3PC,STOGe+eLOD)? TeeP3 
FHEAJ:=P( DUP eLOD) OR Ts 
POP OMIT 
SET OMIT ® SHAREDISK 
FHL4),.€1281)3%13 
POP OMIT 
GO TO LWRITE3 
END} 
HOLD 
GO TO SYS3 
UNSYS3 
SET OMIT © NOTCSHAREDISK) 
PCSYSNOD2 84PC,STOGe+eLODeNOT)3 TeePs 
FHE4] tePCDUP»®LOD) AND T3 
POP OMIT 
SET OMIT @ SHAREDISK 
. . FHO4).012:1)8=03 
POP OMIT 
GO TO LW? 
LOCKSYSs 
OPTNIE43 
GO SEE3 
SET OMIT # NOTCSHAREDISK) 
STOG £88 @400000000000r 8200000000000» 
100000000000» @400000000003 
POP OMIT 
LOGIT: 


18369099 
18369100 
18369101 
18370000 
18371000 
18372000 
18373000 
18374000 
18374001 
18374050 
18374100 
18374150 
18374200 
18374250 
18374300 
18374350 
186374400 
18374500 
18374501 
18374599 
18374600 
18374601 
18374999 
18375000 
18376000 
18377000 
18378000 
18379000 
18379001 
18388000 
18389000 
18390000 
18390999 
18391000 
18392000 
18392001 
18392099 
16392100 
18392101 
18393000 
18394000 
18395000 
18396000 
18397000 
18397999 
183980008 
18399000 
18399001 
18399099 
18399100 
18399101 
18400000 
18401000 
18402000 
18403000 
18403999 
18404000 
16405000 
18405001 
18412000 


IF FHE4).012!14)#0 THEN GO UNLOCKHOR} 
IF FHL4),C2t1) THEN 
BEGIN 
HOLDS 
GO LOGIT? 
ENDS 
DISKLOGCArBeFH)S 
GO TO LW3 


GETAROWS 


SET 
SET 
POP 
SET 
POP 


IF FHLI2s2OPTN,CFFII®O THEN 
BEGIN 
DISKLOGCAsBa FH) 
IF CFHCI2)8=GETUSERDISKCFHC8I83(1846821))=0 THEN 
BEGIN 
OMIT = SHAREDISK 
UNLOCKDIRECTORYS 
OMIT # NOT SHAREDISK 
UNLOCKCK)3 
OMIT OMIT 
TL S=GETUSERDISK(@FHE6I)3 
OMIT * SHAREDISK 
LOCKDIRECTORY$ 
OMIT 
IF SEARCH®O THEN 
BEGIN FORGETUSERDISK(I1sFH(8))3 
TEMPt#03 Aland} 
GO TO EXITS 
END} 
HEADERS 
FHC IT2)8#113 
END3 
END: 
FOR 12:8FHL93e(4395)+9 STEP =1 UNTIL 10 DO 
MCOPTN INX [2] 8SFHC12])3 
GO TO LW3 


CLOSE! 


IF Bel 341] THEN FHE4S).01181) © 13 
IF OPTN GTR 511 THEN 
BEGIN 
IF CFHLO) EQV MLOPTN))#NOT O THEN 
IF CLASMCCCTAOSCC CCT 2RBFHE7 41) OLV CL3teFHLOI),(30812)) 
X13.14216])x30)4(12 MOD 13,£30812)) 
xCIF €129%13,01814))20 THEN 30 ELSE 12)) DIV 30) 
DIV CI38SMLOPTN)),0C4286))x13,(30812) 
#CCCCTL DIV 30) MOD 13,£4216))*30 
411 MOD 30+13,Cisi4J"1) DIV 13,f1914))91) 
SMCOPTN¢7) THEN GO TO LW 
FHCOJI*MLOPTNI3 
FHC4):eC*#P(DUP)) OR (MCOPTN+4) AND 16)3 
FHE7J&*=MLOPTNG7 5 
END} 
GO TO LW3 


L7 se 


IF CFHL4] AND @1400777777770000)#0 OR 
FHOE94.018281#0 THEN 

BEGIN 
HOLDS 
GO TO L73 

END) 


L6t% 


18413000 
18414000 
16415000 
18416000 
18417000 
18418000 
186419000 
16420000 
18421000 
16422000 
16423000 
18425000 
18425100 
18425150 
18425175 
18425200 
18425225 
18425250 
18425275 
18425300 
18425390 
16425400 
18425410 
16425500 
16425600 
18425700 
18425800 
18425900 
16426000 
18426100 
18426200 
18427000 
184260008 
18429000 
18430000 
18431000 
16431050 
18431100 
18431200 
186431300 
16431400 
18431500 
18431600 
18431700 
18431800 
18431900 
18432000 
16432100 
18432150 
16432200 
16432300 
18432400 
18432500 
18432600 
18433000 
18434000 
18435000 


18436000 


18437000 
18438000 


IF FHE4),C43%82) NE@ O THEN & TEST FILE SENSITIVE 


18438100 


BEGIN 18438110 
STREAMCArBe Tt eTS=GETSPACEC1026420)44)3 16438120 

BEGIN 16438130 

DS#e1OLIT"CC REMOVE “3 STteLOC AS STteSTe1s DSte7CHRs 18438140 

DSteLITMs™s STtsLOC Bs STseST41s3 OSt=7CHRI 18436150 

DSte6LIT*SEND e"3 18438155 

END? 18438160 

FHCGI C4382 eis 18438170 

CCARDCT&CIF UNITNO NEQ@ O THEN UNITNO ELSE 31)£224216) 18438180 
R1L8s4701)9)3 186436190 

$ SET OMIT = NOTCSHAREDISK) 18438202 
UNLOCK(S1)3 OPTNE=03 18438204 

$ POP OMIT 16438206 
GO COMPLETE? 18438210 

END} 16438220 
LBMESSCABS(CA)®ABS(B)*®7*#020eUNI TNOsLIBMSG)3 18439100 

JF NOT FHE4)]e0121] THEN DISKLOGCASBeFH)3 18441000 
PBCOUNTSSPBCOUNT@=((CCA.(6242] EQV "PBD ")=N01 0) OR 18442000 
CCAgf6242) EQV "PUD ")SNOT 0)) AND B,CCFIJ#1)3 18443000 

LBs REMOVER? 18444000 
IF PCCOPTN NEQ 8)eDUP) THEN 16444500 

FOR 1 « 2 STEP 1 UNTIL FHE9] DOS 18445000 

IF FHE9+1)#0 THEN FORGETUSERDISKCFHE I +9] sFHL8) 3% 18446000 

IF P THEN GO LW ELSE GO EXIT; 18447000 

LWRITES 18453500 

IF NOT Bef2t1] THEN 18454000 
STREAMCA*( DATE] sBeCFHE3]19C+0)3 18455000 

BEGIN SI#ASDIeLOC C8DS*8 OCTISI*LOC CISTeS1 +53 18456000 
DIe*BIDIeDI4+2sDS¢3 CHR 18457000 

END3 18458000 

LW 18459000 

IF FHOE4),0381) OR TOG THEN FILEHOLDCAPBe TOGs# TEMP 20)3 18460000 

$ SET OMIT # NOT SHAREDISK 18460490 
IF COPTN OR 1)#7 THEN 18460500 

$ POP OMIT 18460510 
LWSt DISKWAITCFe*300eK)3 18461000 
EXt FHCL9ItRC#PCDUP)) AND 313 18462000 
EXITI® 18463000 

IF Aef1ti] OR TEMP<64 AND TEMP>0 THEN FORGETSPACECF)3 18465000 

$ SET OMIT = SHAREDISK 18465990 
UNLOCKDIRECTORY3 18466000 

$ POP OMIT 18466010 
LEAVELKDS 18466100 
UNUSED! 18466101 
FORGETSPACECN)3 18466200 

—  DIRECTORYSEARCHeTEMP3 18467000 

ENDs & OF DIRECTORYSEARCH 18468000 
PROCEDURE COMMUNICATE13 18500000 
BEGIN REAL R4se4,R5e"5eR6e"6eR7ae7 -ROE"G3 16500100 
INTEGER [4e"4e158°5e168"63 16500200 
ARRAY A4BPULal eo ASwrS( um) eAbRr6luls 18500300 
ARRAY A7T#"7(#)3 186500400 

NAME N&™"4eN58®"5 2 N63"63 18500500 
WABEL COCA sC2eC3eChrCSeCOrC7eCBeCFeC1OsCiileCi2eCiseCideCi159Ci6» 18500600 
CL7#CLBe C19 C20 C21 eC22eC23e C240 C25eC263 18500700 

LABEL C272#C289C299C309C319C323 18500800 
LABEL C33eC34eC35eC36eC37 eC 380 C393 %026718500900 
WABEL C45eC49eC30AsC3I0BeC49As INIT» CHANGENAMES 18501000 
SWITCH CESCOSINITSINITe INITeC4s INITOINITo INITe INIToINITe INIT» 16501100 


$s 


$ 


INTTOINITe ENIToOINITeCidsCLOsINIT»sINITsINITo INIT? 
IN[TeINIToINITe INIT#OINIT@OINITo INIT e INI Te INI Te C300 
INT To INE TeC33eINITo INITo INETsINIToINIToINITOINI Te 
INI Te INITsINIT®OINITo INIT INITo INI Te INIT® C493 


SET OMIT = NOT SHAREDISK 
DEFINE 
TIMELIMITMAX#15#e % MAX WAIT TIME FOR LOCKED ADDRESS 
TIMELIMITMINSO#$ % CAN BE ADJUSTED 10 SUIT SITE 
POP OMIT 


REAL RCWR+O0r Tete T3 
ARRAY AC¥JeF I BRAL*) oF PBC *) HL *]3 
BOOLEAN DS$3 
GO TO CLPRTCPIMIXe9I]3 
Ts GO TO INITIATES 
COBOL INVALID EOJ 
TERMINATECPIMIX)$ TERMINALMESSAGE(28)5 
GENERALIZED ZIP 
IF C1#A4.£8810])#0 THEN BEGIN 
SET OMIT = PACKETS 
TH®GETSPACEC14+426405)+43 
POP OMIT 
SET OMIT = NOTCPACKETS) 
MECTESGETSPACE(C14526405)+4)"74),C926)1203 
POP OMIT 
IF NOT A4.(281]) THEN MAKEPRESENTCNFLAGCNOT 3 INX CRCWI)))3 
J 8® USERCODELPIMIXI: 
STREAMC Ce Je AAs LI] s L3I636) 910 Qe0eT D3 
BEGIN SIawA4s STeteSirts 
Lt SlaaS]+1s3 IF Sce" " THEN GO TO LS QseS13 DI twa; 
IF SCt@14 THEN DSteLIT* * ELSE OSteeLIT"™ 3 DT tats 
DSt2zBLIT*cc USERS"3 STteLOC Cs STssS14+13 DSt=7 CHR} 
DSts LIT*s"* 3 STtsAas 
T1CDS8*32WD0S3 OS8=32W0S)3 DSie J] WOS3 
SET OMIT = NOTCPACKETS) 
DStzB LIT%e"$ 
POP OMIT 
TALLY B123 02 TaALLy3 
DiseQsSlrsL0C PIS Lse5]+73; 052 8CHR3 
END STREAM3 
JeIF USERCODECPIMIX]®MCP THEN 31 ELSE 263 
SET OMIT = PACKETS 
CCARNCTRPIMIXC1884226)8S0384325))3 
SET OMIT = NOTCPACKETS) 
IF PSEYDOMIXCPIMIX] NEQ@ O THEN NYLONZIPPERCPIMIX), Cosiisso3 
CCARDCTSPIMIX(18542:6)8IL3343t5))3 
IF PSEUDOMIXCPIMIX] NE@ O THEN 
IF MEMROWCPIMIX],COF] GEG FENCE THEN 
DO SWAPCWAITSWAPe1) UNTIL 
NYLONZIPPER(PIMIX) C281) ELSE 
IF PSEUDOMIXCPIMIX] NE@ O THEN 
SLEEP COINYLONZIPPERCPIMIX) 1 2@1000000000000000)3 
RESET OMIT 
END ELSE 
BEGIN FIB*N4LNOT 2)3 
FPBePRTILPIMIXe3]3 
leIF FIBC4),£12:12 THEN FIBE4],013811) 
ELSE CFIBC4],013911)]"1)xETRLUNG3 
TeFPBC14+3),C4355)3 
IF Ta1O OR Ta#i2 OR T2113 OR T=26 THEN 
BEGIN IF F1B(51],042t1) THEN GO TO CHANGENAMES 


16501200 
16501300 
18501400 
18501500 
18501600 
18501700 
18501800 
16501900 
16502000 
18502100 
16502200 
16502300 
18502600 
16505000 
18510000 
18510100 
18520000 
16520100 
18520200 
18520300 
18520400 
18520500 
18520600 
18520700 
18520800 
18520900 
18521000 
186521100 
186521200 
18521300 
16521400 
18521500 
16521600 
18521700 
18521600 
18521900 
18522000 
18522100 
16522200 
186522300 
16522400 
16522500 
16522600 
18522700 
16522800 
18522620 
18522840 
16522860 
18522686 
18522900 
18523000 
18523100 
18523200 
18523300 
16523400 
18523500 
186523600 
18523700 
18523800 
186523900 


% 


HeFIRO14]73 
SET OMIT = NOTCPACKETS) 
HC6JeC#¥PC DUP) I&3(234216)3 
POP OMIT 
HUEST:=USERCODELPIMIX)S 
SET QMIT & NOTCSHAREDISK) 
HCO), C7r1) 1213 
POP OMIT 
IF HO4] THEN & 
BEGIN FILECLOSE(N4,(33%15))3 
IF CT#DIRECTORYSEARCHCFPBLIJeFPBLI41)*4)) 
LSS 64 
THEN GO TO INITIATE? 
He€METII1830683364810)3 
SET OMIT #* NOTCSHAREDISK) 
H(4)22CePC(DUP))&1078473:1) OR 13 


CHANGENAMES 


POP OMIT 
HESI:=USERCODELTPIMIXI: 
SET OMIT = NOTCPACKETS) 
HCO] seCHePCDUP))&83L2842:6)3 
POP OMIT 
ENTERCONTROLDECKCH)3 
PCDIRECTORYSEARCHC@FPBCI J sFPBL141)*8)2DEL):3 
JeH(2]3 & SAVED LASTCONUM 
FORGETSPACELCH)3 
END ELSE 
BEGIN FILECLOSEC(N4.£33915])86018833%15)):; 
ENTERCONTROLDECKCH)3 
JeH{€2]3 2 SAVED LASTCDNUM 
FOR T#10 STEP 1 UNTIL 29 DO HET] «03 
FILECLOSECN4,£33815))3 
END} 
IF RUNUMBER LE@ 0 THEN 
BEGIN 
STREAMCA*(JAR[PIMIXe0J J» BeHeUSERCODELPIMIX)> 
FeH#MCP AND H#0O2 PIMIXe Je Tele SPACEC10))3 
BEGIN ST*AS DSeLIT"#E*) 
2(STe¢SI413 OSe7 CHRS DSeLIT"/")3 Ol eDI M13 
FCST*LOC Bs SIeSil#13 DieDl413 DS*?7 CHR) 
SI*#LOC PIMIX$ OS*LIT"*e™3 AeDI3 
DS*2 DEC? DS#14 LIT” ZIPPED DECK #3 
ST*LOC Js DS#4 DEC# DSeLIT%e"3 
DIeDI"53 DS*3 FILLE DIAS DSF ILL] 
END3 
SPOUTCT)} 
END} 
END} 
ENDS 
GO TO INITIATES 
CiSt DISPLAYCA4S JINX 1)3 
GO TO INITIATES 
COBOL ACCEPT 


C164) DISPLAYCA4 [NX 2)35 REPLYLCPIMIX Je" VWYAVAX[ 3684236)3 


IF CMEMCPIMIX»MLINKIIJ],CCFIZFENCE THEN 
SWAPCWAITSWAPe1) ELSE 

COMPLEXSLEEPCCTERMSETCPIMIX) OR REPLYLPIMIX]>0))3 

IP TERMSETCPIMIX) THEN GO TO INITIATES 

IF NOT WHYSLEEPCVWY&VAX[36$4236)) THEN GO TO C165 

TeREPLYCPIMIX),CIGt15]s REPLYLPIMIXIJ«03 

STREAMCT#S#A4d INX 2)3 


18524000 
18524100 
16524200 
18524300 
18524400 
18524500 
18524600 
18524700 
18524800 
186524900 
16525000 
18525050 
18525100 
18525200 
18525300 
186525400 
16525500 
18525600 
18525700 
18525800 
18525900 
18526000 
18526100 
18526300 
18526400 
18526500 
18526600 
18526700 
18526800 
18526900 
18527000 
18527100 
16527200 
18527300 
18527400 
16527500 
18527600 
16527700 
18527600 
16527900 
16528000 
18528100 
18528200 
18528300 
16528400 
16528500 
18526600 
18528700 
18528600 
16530000 
16530100 
18540000 
18340100 
18540200 
18540300 
16540400 
18540500 
18540600 
18540700 
18540800 


BEGIN SIeT3 
IF SC#"X" THEN BEGIN SIe*SI+13 GO TO L ENDS 


Ls 


SteSl+1s 2°0DS¢40 CHR) 


ENDS 
FORGETSPACECT*1)3 GO TO INITIATES 


% DIRECTORYSEARCH AND UN*@FILL FILE ID FOR NORMAL STATE PROGRAMS 
C3028 COMMENT SEARCHES DISK DIRECTORY AND RETURNS DATA IN ARRAY, 


j 


C0] IS USER*TYPE OR NOT*PRESENT FLAG 
C1) 18 MULTISFILE ID 

C2] 18 FILE 1D 

IF NOT PRESENTs £3) a> (5) ARE 14 
IF INVALID USER» [£3] => (51 ARE O 
IF PRIMARY» SECONDARY» OR TERTIAR 
(3) 1S RECORD LENGTH 

[4] IS BLOCK LENGTH 

(S5] IS END OF FILE POINTER 

{6] 1S OPEN COUNT 


IF ARRAY 
(7) «= 
(8) = 
(9) = 

IF ARRAY 
{10]s 


SIZE JS GREATER THAN 93 
FILETYPE (FROM HEADER) 


HEADERE3) CCREATION/ACCESS DATE® SAVE FACTOR) 


HEADERELL) € LOGGING DATE 
SIZE IS GREATER THAN 108 
SYSTEM NUMBER (SHAREDISK 


NOT*PRESENT FLAG IS “1 


INVALID 
PRIMARY 


SECONDARY USER FLAG IS 


TERTIARY 


USER FLAG IS 


USER FLAG IS CLMeIN 


NWN © 


USER FLAG IS 


Y USER? 


$) 
) 


PUT» AND OUTPUT BITS) 
CINPUT AND OUTPUT BITS) 
CINPUT BIT ONLY) 


IF A&,(8810]<7 THEN BEGIN TERMINATECPIMIX) 32% 


FIB « NSCNOT 2)3 
Te IF FIBC4)],012t1) THEN FIBC4),C13811)% 
ELSE CFIBL4S],CA3t11 91 xETRENGS 


A4{1] « 


FPBCIJ3 


TERMINALMESSAGE 


FPB « PRICPIMIXe3]3 


A4(2) «+ FPBCI+1]3 


IF PCFPBE1+43),04395)»DUP*DUP)=10 


OR CPCXCH) OR 12813 OR PCXCH)S26 THEN 2SERIAL® UPDATE sPROTECT 


BEGIN 


IF A&4C1}50 THEN 
BEGIN A4C1)%2A4(2)3 
A4SL2ISEUSERCODELPIMIXI: 


END$ 


IF CTIWDERECTORYSEARCHCA4L1]2A4T2)95)) # O THEN 


(7)3 ENDS 
IF NOT A4&,f2t1] THEN MAKEPRESENTCNFLAGCNOT 3 INX CRCWJ))3% 
PCCMEAG INX NOT 1] ] eDUPeDUPeLODseXCHeCCXe ade STDS LORS 


éRANDOM 


18540900 
18541000 
18541100 
186541200 
18541300 
18550000 
186550100 
18550200 
18550300 
16550400 
16550500 
18550600 
16550700 
18550800 
18550900 
186551000 
16551100 
186551200 
18551300 
18554400 
16551500 
18551600 
16551700 
18551800 
18551900 
16552000 
18552100 
18552200 
18552300 
16552400 
16552500 
18552600 
18552700 
18552600 
18552900 
18553000 
18553100 
18553200 
18553300 
186553400 
186553500 
18553600 
16553700 
18553800 
16553900 


BEGIN IF CA4LO) 8 #®SECURITYCHECKCAALLIPASL2) *USERCODELPIMIX]*»T)) 18554000 
#0 AND MCT4+4),£1284]80 THEN 
BEGIN ASE3)8SM(TI,0C1814)3 © 


$ POP OMIT 


A404) «© METI,015%15]3 
$ SET OMIT =® SHAREDISK 


A4(5]) «© M(T4+7)3% 


AQLOJISMCT OA), CIGISIOMET+99,0915)3 


$ SET OMIT ® NOTCSHAREDISK) 
AGLO) SFORCTSSMLT 44) L168 20) 4M(T4+99,098201)£4392895) & 18554800 
TC3B8S33tSIRTC3I3I 36S IRL 2824325)3 


$ POP OMIT 


IF 


BEGIN ASC7IESMC 144], C3686) 3 A408] teM(T+3)3 


A4,€8810] GTR 9 THEN 
ASCO) TSMC T4+1I3 


END} 


18554100 
18554200 
18554300 
18554400 
186554500 
18554600 
18554700 


18554900 
18555000 
®R2216555100 
%R2218555200 
%R2218555300 
2R2218555400 


C30A! 
C30B3 


C3331 


C49ts 


IF A4,08810] GTR 10 THEN A4L10)2SYSNO3 
END EWSE A4SL3ZI9SA4SL4AISEA4(S I] 8 FA4(6) 3203 
FORGETSPACE(T)3 
GO TO c30B 
END ELSE GO TO C3083 
END ELSE 
BEGIN 
Teer} 
IF CTOeFINDINPUTCASL 11] ¢A4C 2) eFPBCI14+2),01817)» 
FPBLI42),CISBt30J eF PBL I+3),Cit52e (A431) INX 
Te 02020))8NABS(1) THEN GO TO C30A ELSE 
IF T GE@ O THEN 
BEGIN 
A4CO]8F43 AALZIIECLSERDCTABLECTI)»CLI4¢10)3 
ASCA) ey, C24017)3 ASCSIS81, 0418773 
ASCOIESTINUCTI,£30318)3 IF T<16 THEN 


Or 


A4C6)8%C#P COUP) 8PRNTABLECTICI2830%918)3 GO C30B3 


END ELSE 
BEGIN 
A4SCOJ§=53 ASCII elisa) sF=ABSCT)3 GO C308 
ENDS 
ENDS 
ASLOTESAALZISFAAL A EAGL SI IAdl 6) 3 Fr 13 


IF NOT Jef281) THEN PCEMC JJ I]ePRL)54 

GO TO INITIATE3% 

STREAMCR4e At (R440) a JedJARROWLCPIUMIX Je PIMIXed 

TeeTLSSPACE(10))3 

BEGIN DS*10 LIT " PAUSE # 03% 
ACDI©D1°18 ST*LOC R43 SIeS]423 DS*6 CHR) 
DS*5 LIT " FOR™S Sleds Sie*ST+13 DS*7 CHRES 
DSeLIT "43 SteSIe1s DOS¢7 CHR OS#LIT "83% 
St*LOC PIMIX# DS#2 DECS OSeLIT Me" DIeDI1 "33 

ENDSS 

SPOUTCT)3% 

IF NOTERMSETCPIMIX) THEN PRTROWLPIMIXI,£PSFJ+23 


DSeFILLIS 


GO TO INITIATE#® DON"T KEEP COMMUNICATE AROUND NEEDLESSLY 


$ SET OMIT = NOT SHAREDISK 


C49A! 


IF 14 THEN GO TO C49A3 
IF (MEA6) AND @3000000000)50 THEN 
SLEEPCOIMCA6]]»@3000000000)3 
IF (MCA6) AND IOMASK)#0 THEN GO TO RETURN; 
IF ClastS GTR TIMELIMITMAX) THEN [5¢e8TIMELIMITMAXS 
IF IS<TIMELIMITMIN THEN I[5¢TIMELIMITMING 
IF (M£A6) AND ILOMASK)®O THEN 
IF CIS#I5x604CLOCK#PCRTR) >CLOCK*#PCRTR) THEN 
COMPLEXSLEEPC(TS®(CLOCK+PC(RTR)) GIR I5) OR & TIMELIMIT 
CTERMSETCPIMIX)) OR % DSED 
CCMEA6) AND IOMASK)#0))3 & TOCOMPLETE 
IF (M£A6) AND ITOMASK)#0 THEN GO TO RETURNS 
OSteTa{ AND #13 
MEAG) eC *PCDUP))&3(1984682]3 RO*MEML AG) ]5 
R4eR5¢03 
FOR 1#0 STEP 1 UNTIL (LQ@AVAIL@1) DO 
IF CCJeLQUELII)» £8840) EQV R6.08240))=NOT O THEN 
IF LOCATQUELJ,C187)1),0385]*P1MIX THEN 
BEGIN 
IF I< CL@AVATL#LQAVAIL"1) THEN 
STREAMCASLQAVAIL* I eBeCLQueliid)3 


18555500 
16555600 
18555700 
16555800 
16555900 
18556000 
18556100 
18556200 
18556300 
18556400 
18556500 
18556600 
18556700 
18556800 
18556900 
18557000 
18557100 
16557200 
16557300 
16557400 
16557500 
18557600 
18557700 
16557800 
16557900 
18558000 
16570000 
18570100 
18570200 
186570300 
18570400 
186570500 
18570600 
16570700 
18570800 
18570900 
18571000 
186590000 
16590100 
18590200 
18590300 
18590400 
185905086 
18590600 
18590700 
18590600 
18590900 
18591000 
16591100 
18591200 
16591300 
18591350 
18591400 
186591508 
16591600 
186591700 
18591800 
18591900 
16592000 
18592100 


BEGIN S]«Bs SteS14+8s DSeA WOS END; 
RETURNIOSPACE(J.C187))5 
Rael} 

END ELSE R5e13 

IF NOT €R4& AND RS) THEN 

BEGIN 
IF NOT R4& THEN R6¢C(R6 OR @2060) ELSE & UNLOCK ADDRESS 
R6*C(R6 OR #60)8SYSNOL3024632)3 ® CLEAR CONTENTION 
PCWAITIOCER6O] INX @10000000070018) DEL DS 

END} 

IF DS THEN BEGIN TERMINATECPIMIX)) TERMINALMESSAGE(89)3 ENDS 


$ POP OMIT 


GO INITIATES 


END OF COMMUNICATEL3 
PROCEDURE COMMUNICATEOS 
BEGIN REAL RG" 4,R5e"5 oe ROzP6eR7 BHT sROS"83 


INIT! 
3 


Cis 


INTEGER 148740158" 55168763 

ARRAY Ade" G(u)oA5aeS{[ a] 2A6z"6( 4) 3 
ARRAY A7e"7[ 413 

NAME N4S"4eN5e"5eN62"63 


LABEL CO*CL»C2eC3eCHsCSeCGeC7eCBeCIeC1OeCiteCiaeCiseCideCiSeCibs 


CL79C180C199C200C21 9C229C230C2K0C259C263 
WABEL C27#C269C299C300C319C323 
LABEL C330C349C35+C369C379C389C393 
LABEL C4BeC3ACZ1LASINITe I TeUSeDeTDePRe LOTe TMRe ADO WOS 
SWITCH Stel] TeUSeDeTDePRe OTe TMReADeWDS 
REAL Lede TeK3 
ARRAY AITC¥ISREAL ALTLEAIT? ARRAY A®AITC*)3 
NAME ADORS 
SWITCH CSPINITe®CLe INIT#C3oINITs INIT sCOsC7oCOeINITOINITs 
INIToINTTeINIToINITe INIT# INIT#CI7®INI Te INIT# C200 
C2LsC22eINITOINITeC25eC26eINIT# INIT#C29e INIT» 
INITeOINITe INI Te INIToINITOINITs INI Te C38eC39e INIT? 
INITeINITeINITOINIToINIT# INITOoINITeC4Be INITS 
DEFINE TIMELIMITMAX#15#3 
GO TO CEPRTICPIMIX29))3 
GO TO INITIATES 
TIME INTRINSIC 
IF Cr4e14) GE@ ("™2) AND 14 LE@ 6 THEN 
BEGIN GO TO S{t1442)3 
ITs J4eJARCPIMIX,2),0531]3 
JAREPIMIXe2]¢ C#PCDUP)) & 20484632)3 
GO INITIATES 
USs R4*USERCODELCPIMIX]3 GO TO INITIATES 
De 14*DATE3 GO TO INITIATES 
Tp? T4eXCLOCKS+PCRTR)8 GO TO INITIATES 
PR} L4eJARCPIMIXe3J#PROCTIMELPIMIXJ4CLOCKSPCRTR)3 
GO TO INITIATES 
10Ts I4*TOTIMELPIMIXI]+JARCPIMIX®4)} 
GO TO INITIATES 
TMR§ f4ePCRTRIS GO TO INITIATE? 
AD} IS*¢ACTDOATES GO TO INITIATES 
wos T4*WEEKDAYS 


GO TO INITIATES 

RETURN SPECIFIC ARRAY 

ARTNENG(OJ]e1)5 % RETURN 1 DIM ARRAY 

TIBCAITLI,CCFI % REMOVE FROM AIT 7 

IF NOTCAIT#PRIECPIMIX*6))402819 THEN MAKEPRESENT(T)3 
J ¢ AITCO]s T + N4,CCFIS 


18592200 
16592300 
16592400 
186592500 
16592600 
18592700 
18592800 
16592900 
18593000 
18593100 
18593150 
18593208 
18593300 
18599000 
18700000 
18700100 
18700200 
18700300 
18700400 
18700500 
18700600 
18700700 
18700800 
16700900 
18701000 
18701100 
16701200 
16701300 
16701400 
18701500 
18701600 
16701700 
18701800 
16701900 
18702100 
18702200 
18705000 
18710000 
18710100 
16710200 
18710300 
18710400 
16710500 
18710600 
16710700 
18710800 
18710900 
18711000 
16711100 
16711200 
18711300 
18711400 
186711500 
16711600 
18711700 
18720000 


026718720100 
%026°18720200 


18720300 
18720400 


C73 


FOR I#1 STEP 4 UNTIL J™d DO 
IF ALTCTIeC188159eT THEN 
BEGIN MOVECJ@IloCAITOS +22 Je CAITLIVI)38 Jed END; 
IF JeO OR AITCUISCFF IST THEN AITCO) « wPCDUP)=13 
N4(01603 
GO TO INITIATES 
WHEN 
IF 14 GTR TIMELIMITMAX THEN 
BEGIN TERMINATECPIMIX)3 TERMINALMESSAGE(89)3 END} 
143 #60x]44+CLOCK+PCRTR)3 
WHILE NOTERMSETCPIMIX) AND CLOCK#PCRTRI<I4 DO 
SLEEPCECLOCK]»sNOT CLOCK)3 
GO TO INITIATES 
IF NOT A5,£291] THEN MAKEPRESENTONFLAGCNOT O INX [14]))3 
TeMEAS INX NOT O78 JeMCAS INX NOT 1)3 
PCCMCAS INX NOT 1)]e10R)3 
IF ONT2@CNTLe#C14 INX PRTICPIMIX04))),018815))2>NT3#A5,08910) THEN 
NT2eNT33 
DISKWAITCPWA5, CCF] eNT2+14e#JARCPIMIXONTI gg (CF) 
DIV. JARCPIMIXeBI+1O]+nTie £33815) MOD JARCPIMIX*8))3 
MCAS INX NOT Ol]e#PC,1)3 
IF NOT C#¥PC,J)2-02813 THEN PCEMCAS JINX NOT JJ) JePRLD3 
GO TO INITIATES 


C8t ZIPPERCRSeR4)3 


ci7s 


c20% 


C2i1A3 


GO TO INITIATE 
COBOL 1/0 ERROR 
ASe#AaS$s A*PRICPIMIXe3]3 Te"i/0 ERR" 
IF ASC53.0181] THEN 
_ BEGIN 1t® PINVALIDO"s Jte® USER"S R6s"1 END ELSE 
STREAMCR4sN@CJ))3 BEGIN SI*LOC R4b DI+DI41s DS+7 DECS 
DIeDI"73 DS*5 FILLE 
END3 
FILEMESSCIRROL LIST EL eJeALT#ASL AI CASsLLIIsACT +1)» 
IF R4e(R4e46 OR R4#17 OR R4"B82) THEN R&B ELSE OO» 
IF R& THEN R7 ELSE 0°0)3 
GO TO INITIATES 
TAPE SWAP FOR TAPE SORT 
SLEEPCONSC 3] J+ 1OMASK)$ SLEEPCEINS(4) J) +1 OMASK)S 
FOR I#3 STEP 1 UNTIL 4 DO 
BEGIN NSCTI] gf 33815)eN4C1)3 


18720500 
18720600 
18720700 
18720800 
18720900 
18721000 
18730000 
18730100 
18730110 
18730120 
18730200 
18730300 
18730400 
18740000 
18740100 
18740200 
18740300 
18740400 
18740500 
18740600 
18740700 
18740800 
18740900 
18750000 
18750100 
18770000 
18770100 
18770200 
18770300 
18770400 
18770500 
18770600 
18770700 
18770800 
18770900 
18771000 
18780000 
18780100 
18780200 
18780308 


MCNGCI J INX NOT L)¢C#PCDUP)8N503901498384980N503)1033833215118760400 


END} 
A#NGLO)$ ALS), C3984) ¢23 ALIG]+O3 ALLBI*NABSC#PCDUP))3 
A®NS(O]3 ALS]*03 ALIGI*NFLAGCNSD(3])32 ACIBIJ©ABSCHPCDUP))3 
GO TO INITIATE3 
SORT STORAGE ASSIGNMENT 
Ae(MEGETSPACE(R64R50201)42))8R5(6838910)3 
ACOJ*+CRS INX AIACAICCTFISRELHI36t10)5 
NA(OJoA3 
IF _NOT CONQUERCO*RSeisCROB(NOT JILLI47I1])91 INX AvJd) THEN 
BEGIN FORGETSPACECA)3 
STREAMCPIMIXe T#R5SxRGeAel@SPACE(7))3 
BEGIN DS#LIT "#"3 STe*LOC PIMIXS 
DS*2 DEC# DSe 13 LIT ™" NO SORT MEMINS 
DS*5 DEC# DS+9 LIT * WOS RQDe"3 
ENDS 
SPOUTCI)3 
REPLYCPIMIXJ*"VWYQVOK( 3684276) 8VOULI0OSG216)3 
IF MEMROWCPIMIXJ,(CF] GEQ FENCE THEN SWAPCWAITSWAPe1) ELSE 
COMPLEXSLEEPCREPLYCPIMIX]>0 OR TERMSETCPIMIX))3 


18760500 
18780600 
18780700 
18780800 
18790000 
18790100 
18790200 
18790300 
18790400 
187905008 
18790600 
18790700 
18790800 
18790900 
18791000 
18791100 
18791200 
18791300 
16791408 


C221 


3 


C2533 


C2683 


C2983 


T 


IF TERMSETCPAMIX) THEN GO TO INITIATES 


IF NOT WHYSLEEPCVWY&VOKE3614286)8VOUL3084216)) THEN GO TO C2i1A3 


VeREPLYCPIMIX], CCF J eVOU3 

GO TO C213 

END} 

GO TO INITIATE} 

SORT STORAGE RETURN 

Je CA*FLAGC(N4SLOJ)2, 088101713 

FOR IT#1 STEP 1 UNTIL J DO 

IF T>CTeACT),£CF)) OR T>K THEN 

BEGIN KeMET"2),0CFI3 FORGETSPACEC(T) END3 

FORGETSPACECN4(0])3 N4&(0] «05 

GO TO INITIATES 

RETURN OLD COPY OF OWN ARRAY 

ARTNCAS#R4)3 

MEAS CFF J JeA*PRICPIMIXs 17 J&P C eAS@LODIC18816515)3 

IF Agl231) THEN MCAS(CFITLICCFISCASS LFF JS 

GO TO INITIATES 

INVALID ARGUMENTS TO ALGOL INTRINSICS 

IF (1 « R4)20 THEN 

STREAMCAS@R4e TS] SeSPACECIO))5 

BEGIN SIe*LOC 18 SteStwis DOSeLIT "9"] 
IF SC2@3 THEN DS#*4 LIT "MAXN" ELSE 
IF SC<®2 THEN DSe5 LIT “NEGTV"™ ELSE DSe«4 LIT "ZEROS 
DS«8 LIT * ARGMNT "3 
CLeCI+As 
GO LOGS GO ROOTs GO LOG! 
DS*3 LIT "cOS"s GO EXIT} 

LOG? DS*2 LIT "LNs GO EXITS 

ROOT# DS*&4 LIT *SQRT"S GO EXITS 


GO EXP3 GO SIN3 


EXP! DSe3 LIT “EXP™3 GO EXITS 

SINS OS¢3 LIT "SINS 

EXIT# DSta2 LIT “tes 

END} 

IF | * €°7) THEN % COBOL INVALID INDEX 

BEGIN 
R4 © R53 RS © RO} 
ERRORFIXERC4)3 ® INVALID INDEX CHECK 
ENDS 

TERMINATECPIMIX)S TERMINALMESSAGEC?I)3 


COMMENT THIS COMMUNICATE PROVIDES FOR DS*ING AN OBJECT PROGRAM 


AND/OR SPOUTING A MESSAGE ABOUT A PROGRAM, 
R& 1S USED TO SPECIFY THE MESSAGE REQUIRED, 
R5 SET TO TRUE SPECIFIES PiMJX 1S TO BE DS@ED, 


SWE 


RWF 
SWF 
RWF 
ZW 
ZW 
2WF 
BW 
WF 
SWF 
SWE 
IWF 


RWF 


T 1S THE ADDRESS OF THE MESSAGEC WHICH ENDS WITH A oe"), 


REMAINING VARIABLES MAY BE USED AS DESTRED: 
ts SPACE(12)5 


IF R4 ¢ 2 THEN 


BEGINS Z 29°74 
STREAMCJET)3 
BEGIN B 2972 
DSes9 LIT “*@DEC ERRo™S 
Jv ¢ O18 
END? & 29"2 
Joe PY 
IF R481 THEN 
BEGIN? % 29"3 


16791500 
18791600 
18791700 
187918608 
186791900 
18792000 
18800000 
16800100 
18800200 
16600300 
18800400 
18800500 
18800600 
18810000 
18810100 
18810200 
16810300 
16810400 
18820000 
18820100 
18820200 
18820300 
18820400 
16820500 
16820600 
18820700 
16820600 
168620900 
18821000 
16621100 
18821200 
16821300 
186821400 
18621500 
16821600 
16821700 
18821600 
16821900 
18822000 
16822100 
18622200 
18822300 
16822400 
18830000 
16830100 
18830200 
16830300 
16830400 
18830500 
16830600 
16830700 
18830800 
18830900 
18631000 
16631100 
18831200 
18631300 
18831400 
18831500 
16831600 


a 


STREAM(T1¢CR6<0)eR6eABS(R6)9J)3 
BEGIN B 29-4 
DS*«17 LIT "ARRAY DIMENSIONS "3T1CDSe 1 LIT "95s 
SI ¢ LOC R63 
DS « 8 DECS J «+DIs 
DI + DIn8s 
DOS « 7 FILL$ DI « J3 
DSs=2 LIT “19%; 


END} B 29"4 
END B 2973 
ELSE 
BEGIN3 % 2995 
STREAMCR60aJ)3 
BEGIN & 2976 
DS «15 LIT "NO, DISK ROWSS "3 
SI « LOC R63 
OS « 8 DEC3 J « OF3 
DI ¢ O1783 
DS «© 7 FILLS OF © U3 
OSts2 LIT "16" 
END3 & 2976 
ENDS$ B 29"5 
END? % 2974 
IF R4=3 THEN 
BEGIN 
SSTREAMCT)3 
BEGIN 
DS* 48 LIT "*MAXN ARGMNT EXPte™3 
END3 
ENDS 


IF R4 # 4 THEN STREAMCT)3 BEGIN 
DSt=37 LIT™ILLEGAL PERFORM © RETURN OR RELEASEFe"3 
END33 ; 
IF R5 THEN 
BEGIN % 29°7 
TERMINATECPIMIX)3 
TERMINALMESSAGE("T)3 
END % 29"7 
ELSE 
SPOUTC(T)3 
GO TO INITIATES 


C38: % RETURN STORAGE € AND AUXMEM ) FOR CODE OR DATA SEGMENT 
IF A4,C1#1) THEN & DESCRIPTOR TO CODE SEGMENT 


BEGIN 
AIGPRILPIMIXs*)3 
TISNFLAGCAS & C1E80)0584781))3 
% FIND LAST DESCRIPTOR LINKED INTO THIS CODE SEGMENT 
bo IF Tel531] THEN [te@T.C18:15) & SEGeNOgFROM PROGeDESC, 
ELSE IF 7.0681] THEN IseTeCO7!13) & SEG»NO,(STOPPER BIT ON) 
ELSE TSeNFLAGCALT,(C7#11))) % LINK TO NEXT DESC, 
UNTIL I NEQ 03 
ADDORts I INX AC4)#% ¥ DESCRIPTOR TO SEGMENT DICT, ENTRY 
IF ADORCO}.£331) THEN COMPLEXSLEEPCCNOT ADOR(0)e(3813))8 ZINTERLOCK 
KteCADDROO].C482] NEQ 028 % AUXMEM FLAGS 
ADDRLO],C3t2)8825 & SET INTERLOCK*RESET (491) CAUXMEM FLAG) 
WA] TSTORECPIM]X)# STOREDYCPIMIX) $803 
IF Clie CTERADDROOJ),CEFI2 GTR 1023 THEN 
%2 "T* 1S SEG,DICTAENTRYo"I" IS CORE ADDRESS IF GTR 1023 
BEGIN & PRESENT SEGMENT 
JiseMeyet)3; % SECOND MEMORY LINK 


16831700 
16831800 
18831900 
18832000 
18832100 
18632200 
18832300 
18632400 
18832500 
18832600 
18832700 
18832800 
18832900 
168833000 
16833100 
16833200 
16833300 
18833400 
186833500 
18833600 
16833700 
18833800 
18633900 
18834000 
18834100 
18634200 
186834300 
18634400 
188634500 
18634600 
16834700 
18834800 
18834900 
188635000 
18835108 
18835200 
18635300 
18835400 
16835500 
18835600 
18835700 
18840000 
18840100 
18640200 
18840300 
16840400 
18840500 
18840600 
18840700 
18640600 
18640900 
18641009 
16841100 
18841200 
16841300 
18841400 
16641500 
18841600 
18841700 
16841800 


PCOLAYCI™2ePIMIX) eDFL)3 
® OLAY WILL NOT WRITE TO AUXMEM IF NOT C481) IN SEG,DICT, 
$ SET OMIT = NOTCAUXMEM) 
END % IF PRESENT SEGMENT 
ELSE IF Tel5t1) THEN & CODE SEGMENT ON AUXMEM 
DISKWAITC*CLU] INX 1) *°0°eCODEADDRESS(PIMIXeT))3 
B"J" 1S MEM,ZLINK FROM AUXMEM WITH SIZE AND ORIG,DISKsADDR, 
IF T,05%1] THEN % CODE SEGMENT ON AUXMEM (PRESENT OR NOT) 
BEGIN 
ADDREOJteCePCDUP) RUE 33t3t15]s & RESTORE ORIGINAL DISK ADDR 
FORGETAUXILIARYSPACE(J,CFFJoTelCFI)3 
AUXCODELPIMIX]?= *PCDUP) = J,f2386)] "13 
$ POP OMIT 
END? 


% RESET SEG,DICT,INTFRLOCK AND RESTORE AUXMEM FLAG IF IT WAS PRESENT 


ADDRCOJS3CePCOUP) BOC SIA7SLIAKCOsa7s1Jaocosr4s7aids 
STOREDYCPIMIXI0815 
GO TO INITIATES 
END3 #% CODE SEGMENTS 

WAITTSTORECPIMIX)S STOREDYCPIMIX) 3503 

IF CTEBNFLAGCMEJIFA4, (FF II)2,£291) THEN 

2 "J" TS CORE ADDRESS OF MOTHER» "T" IS MOTHER DESCRIPTOR 
BEGIN % PRESENT SEGMENT 
MCT INX NOT O)8=C¥PCDUP) ACCT SSPCDUP) CFF J) OR LICCTEIS 
’ "1" 1S OLAY ADDRsOF SEGMENT FROM SECOND MEMORY LINK 
® SET CFF) OF 2NDsMEMeLINK NEQ 0 SO OLAY WILL NOT GET DISK SPACE 
KeeM{T INX NOT 1),02tt)3 % SAVE BIT FROM MEM,LINK 


MEJJeC383)]9575 B MARK "READ ONLY*WRITTEN” SO OLAY WILL NOT WRITE SEGe 


—PCOLAYCT CCR I*22PIMIX)eDEL)S % RELEASE CORE SPACE 
END ® IF SEGMENT WAS PRESENT 
ELSE [4eT,CCFIJ% & OLAY ADDRESS FROM NON*PRESENT DATA DESC, 
STOREDYCPIMIX) $13 % FREE MEMORY TO ALLOW "ARTN® TO BE BROUGHT IN 
IF I GTR 541 THEN ARTNG CL&TLC888I110) 07128 FB RETN OLAY STORAGE 
MCJISSFLAGCTSOC2Z842:6)]&KICTC])3 & MARK NOT PRESENT WITH "SAVE" ENTRY 
GO TO INITIATES 
C393! ® BASIC ARRAY RETURN 
ARTNCN4G[0)*R5)3 % RETURN &5 DIM ARRAY 
GO TO C3A} % TO REMOVE FROM AIT 
% MEMORY DUMP OR TRACE FROM THE INTRINSICS 
C48: % 
$ SET OMIT = NOTCOUMP OR DEBUGGING) 
IF 14 NEQ@ QO THEN 
S$ SET OMIT = NOTCDEBUGGING) OR OMIT 
—60 INITIATE 2 TRACE TS NOT [NCLUDED IN THE TSS MCP, 
$ POP OMIT 
ELSE DUMPNOWCRS)3 
$ POP OMIT 
GO INITIATE?% 
END OF COMMUNICATEO3 
PROCEDURE SHORTCOMMUNICATESS 
BEGIN REAL R46" 4eR5e*5eR6R*6eR7EP7 PROB Be ROMS 
ARRAY ASFFALa) pe ASerS( ale p6er6l(ulepa7er7 (alo pberd(u) sagar9l[ a); 
REAL LeTeTisT+i3 
LABEL SLOW» INI Tse TWS 
LABEL C20C5e Che C109C11 9 CL 39 C14 CIS eC19eC239C240C 343 
LABEL CMLeCM2eCM3eCMGe CMS eo CM60CM7 es CMBeCM9 
eCM21e CM20 
eCML9e CMLBeCMI7 eo CMLGOCMLSe CML Se CM13eCM12eCM11 eC M10 
eC350C36eC37eChOeC dy & 


16841900 
18842000 
18842100 
18842200 
18842300 
18842400 
18842508 
18642600 
18842700 
18842800 
18842900 
18843000 
18643100 
18843200 
18843300 
18843400 
16843500 
18643600 
18843700 
18843600 
18643900 
186844000 
16844100 
18844200 
18844300 
18844400 
18844500 
18844609 
16844700 
18844800 
18844900 
16845000 
18845100 
18845200 
18845300 
16850000 
18650100 
18650200 
18670000 
18870100 
18870200 
18870300 
18870400 
18870500 
16870600 
16870700 
18870800 
18870900 
18872000 
19500000 
19501000 
19502000 
19503000 
19504000 
19505000 
19505100 
19505150 
19505200 
19505300 
19505499 


SWITCH Se 
CM21e CM2058 
CM19DeCMIBeCMI7 eo CM16eCM1ISeCML4eCM13eCM120CM119CM108 
CMD eC MBeCM7 oe CM6eCM5aCMG4eCM3eCM2eCM1» 
SLOWe TWeC2eTWeSLOWeCSeTWe TWe TWe INI Te C108 
CULO INIT# CizseClLaeSLOWeSLOWs TWe INI Te Cl Oo TWo TWe 
TWeC23eC24eTWeTWe INI Te INI] Te TWeSLOWs IN] Te 
INIT TeSLOWeC34eC35eC36eC37eTWe TWeChOe Cao Nits 
INITeINITe INITo INI T® {INI Te TWe SLOWS 
DEFINE TIMELIMITMAX=15#3 
GO TO SCPRICLPIMIXs9)+¢ 
21 
}3 
COMMENT YOU MUST ADD NEW LABELS TO THE FRONT OF THE 
SWITCH AND CHANGE THE LITERAL ABOVE TO CHANGE 
THE NUMBER OF “NEGATIVE” COMMUNICATESS3 
@NiTt GO TO INITIATES 
SLOW! PC, ,COMMUNICATE1)3 GO TO DIFFCOMS 
TWi PCy esCOMMUNICATEO)$ GO TO DIFFCOMS 
% ONLY ON TSS IF THE SLEEP CONDITION IS NOT MET IN 15 SECONDSe DS 
C2t LtsTIMELIMLTMAXx604CLOCK4+PCRTR)3 
IF NOTCMCA5) AND R4) = NOTCO) THEN 
COMPLEXSLEEPCCTs#(CLOCK+P(RTR)) GIR 1) OR & TIMLIMIT 
CNOTCMEA5J] ANO R4) # NOT(O)))3 % CONDITION ME 
IF T=1 THEN BEGIN TERMINATECPIMIX)3 TERMINALMESSAGE( 89)3 
GO TO RETURNS 
C58 PC,COM5)3 
CiO0s PC,ASR)3 
Cils 


GO TO DIFFCOM; 
GO TO DIFFCOM; 


IF R460 THEN FILEOPENCO*A5, I CFI )3 
IF R456 THEN 
BEGIN FILECLOSECNFLAGCAS))% GO TO INITIATE ENDS 
IF R484 THEN 
BEGIN 
IF A5£C4) THEN & FILE IS IN DIRECTORY 
FORGE TSPACECDIRECTORYSEARCHCRB®R/ oe "CAS, LCF) I&ROLCTFI)) 
BEGIN 
IF (€Tt=R9,01815)) GTR O THEN % EV SPECIFIED 
THeCIF T GTR 20 THEN O ELSE “T) ELSE 
IF CT&S*®R9,C01632)) GTR O THEN &% SPEED SPECIFIED 
TeeCIF T GTR 2 THEN O ELSE T) ELSE 
TisO3 % NO SPEED OR EU SPECIFIED 
A5LROJS=PETUSERDISK(AS( BJ 0T)3 
ENDS 
60 TO INITIATE} 
ENDS 
P(C,COM11)$ GO TO DIFFCOMS 
Ci3s PC.COM13)3 GO TO DIFFCOM; 
C14: IF NOT R4,0281) THEN MAKEPRESENTCER4) INX 0)3 
MCRG INX NOT 1) © CH#PCDUP))I&CNOT PCDUP))C28281)3 
GO TO INITIATES 
C198 PC,COMI9)3 GO TO DIFFCOMS 
C23t PC,COM23)3 GO TO DIFFCOMS 
C241 T © A4CR5)3 ASCR5] « O3 
& SET OMIT & SHAREDISK 
FORGETUSERDISK(Ts#A4(8))3 
$ POP OMIT 
$ SET OMIT ® NOTCSHAREDISK) 
FORGETUSERDISKCTeAGLBIRCNOT A4L4IIC184781))3 
$ POP OMIT 


1 


BE BE BL BE BE BE BE IE BE BR DG IT DE BE BE BWA BE BE BE 


19505500 
19505700 
19505800 
19505900 
19506000 
19507000 
19508000 
19506100 
19508200 
19508300 
19508800 
19508900 
19509000 
19509100 
19509200 
19509300 
19509500 
19509600 
19509700 
19509900 
19510000 
19510100 
19510200 
19510300 

ENDs 19510400 
19511000 
19512000 
19515000 
(SHM)19516000 
(SHM)19516050 
€SHM)19516100 
(SHM)19516150 
(SHM819516200 
(SHM)919516250 
(SHM)19516300 


LSE 19516350 


(SHM)19516400 
(SHM)195164140 
(SHM)19516420 
(SHM) 19516430 
(SHM)19516440 
(SHM) 19516450 
(SHM) 19516460 
(SHM919516470 
(SHM)19516500 
(SHM) 19516600 
(SHM) 19516700 
19517000 
19518000 
19519000 
19520000 
19523000 
19524000 
19525000 
19525999 
19526000 
19526001 
19526499 
19526500 
19526501 


GO TO INITIATES 
C34ss IF (CT#R4) > O THEN STREAMCR4aT*T*SPACE(L7))3 
BEGIN ST*R43 NS*17 WOS END3 
TERMINATECPIMIX)S TERMINALMESSAGEC®T)3 
C358: IF R4.fFF) LE® 33 THEN PC,LIBRARYDUMP) 


ELSE IF R4,CFFJ LEQ 35 THEN PCeLIBRARYLOAD) 


ELSE PC, LIBRARYZERO); 
TeP(DUPsLODeRFB)ST+T&SPACE(T,C8t10JILCTCI3 
$ SET OMIT = NOTCAUXMEM) 
IF Te{641] THEN % STORED ON AUXMEM 
DISKWAITC™TeLCFJ] eT el8810}e™(O8&TL32821812))) 
ELSE 
$ POP OMIT 
DISKWAITC@™T CCF) oT C8810) eT a CFF I*MCPBASE)3 
METLJ.CCFIJseTs 
GO TO DIFFCOM3 
C368 TF CMCA5S] AND R4)80 THEN 
BEGIN 
T $3 MEMEAS] INX 


CIF PCDUP),f2231) THEN 2 ELSE NOT 1)]),01286)3 


WAITTORSWAP(Ts ASe(CFJ)3 
END} 
GO TO RETURNS 
C37: NEXTICPIMIX] st R53} &B SHM 
NEXT2CPIMIXI]38R43 
GO TO INITIATES 
C4O0st TF R5,(8810)%1023 THEN 
BEGIN MERS,CCFIIISPRNTABLECRS,CFFII3GO INITIATESEND ELSE 
IF RS,C{CFJ]#0 THEN 
BEGIN LINKUPCR6-R523R5,0FF 123 
SLEEPCEMER5))+@1000000000000000)3 GO RETURN? 
END ELSE 
TF R5,.015915)0 THEN 
BEGIN MCRSJ#SNOT 08 GO TO INITIATES END ELSE 


IF RS,CFFI#@77777 THEN BEGIN MCRSJ3#MOD310S3GO INITIATESEND ELSE 


DKBUSINESSCR5)3 
GO RETURNS 
C4itt LOREQUESTCR7*R6sFLAGCRS))3 GO INITIATES 
CM2t PC.COMM2)3 GO TO DIFFCOM; 
CM1s PC,COMMI)S GO TO DIFFCOMS 
CM18t GO TO RETURNS SINVALID COMMUNICATE 
CM&: FORGETESPDISKCRS)3 
GO TO RETURNS 
CM38 R4*GETESPDISKS 
GO TO RETURN} 
CMSs PC,COMM5)3 
GO TO DIFFCOMS 
CM6% R4eGETUSERDISKCR7)3 
GO TO RETURN; 
CM7& FORGETUSERDISKCR6eR5)3 
GO TO RETURNS 
CMB8S DISKWAITCCASSCCFIDIEROCIS4731)eROORSD)S 
MCAS .CCFIVII«O3 
GO TO RETURN3 
CM9t PC.COMM9)3 
CMLOSUSERCODECPIMIXIJ¢RS3 
GO TO RETURNS 
CMI2ZILOGLINE*RB} 
IF FALSE THEN 
CM1191F NOT DATEPIMIX),NDSABLE THEN R5tek5 OR MEMORYS 


GO 10 DIFFCOMS 


19527000 
19528000 
19529000 
19530000 
19530500 
19530505 
19530510 
19530520 
19530522 
19530524 
19530526 
19530528 
19530529 
19530540 
19530560 
19530600 
19532000 
19532100 
19532300 
19532400 
19532500 
19532600 
19532700 
19532800 
19532900 
19532910 
19532930 
19532935 
19532940 
19532945 
19532950 
19532955 
19532960 
19532962 
19532964 
19532966 
19532968 
19532970 
19533000 
19534000 
19539300 
19540000 
19541000 
19542000 
19543000 
19544000 
19544100 
19545000 
19546000 
19547000 
19548000 
19549000 
19549500 
19550000 
19551000 
19552000 
19553000 
19554000 
19554800 
19554900 


CM13% 


TWXOUTCA7T. CCF) +R6eR5eLOGLINE D3 
RSt*BREAKCLOGLINE.(4038))3 


GO TO RETURNS 
P¢,COMM13)3 


GO TO DIFFCOM3 


CMLASIF (RO3FRO404018)) LEG LMAX THEN 
IF SCHEDLINELR6)] THEN GO TO RETURN: 


SEQARRAYLR6Jt#R53 


STREAMCASERS, C2L227] eTs=TieGETAREACO))3 

BEGIN SIseLOc As DS38 DECS DSTBLIT LEFTARROWS 
DIs#DI"9s OSt#B FILLS ALFDIS 
DIssTs STtsasy OSte"9 CHR) 


END3 


TWXOUTCTe Os ORL CTFIRILCZI47sLJeROdS 
FORGETAREACOeT)$ 


GO TO RETURNS 


CMIDSRSISGETSPACE( 3096425)423 
IF NOT A6el281) THEN MAKEPRESENTCER7] INX 103 


CM153 
CM161 
CMI7t 


CM2%) 


MOVEC308#A6#R5)3 


R665 
P¢.COMM15)3 


GO TO DIFFCOMS 


GO TO RETURNS 
P€,COMMI7)3 


GO TO DIFFCOMS 
CM2O8TF CTSeDIRECTORYSEARCHCROsUSERCODE(PIMIX)*6),(CF)) LSS 64 
THEN GO RETURNS 


MEOTe+2]EeUSERCODELPIMIXI]S MCT4+5)#eR55 MET+6) ¢aR7} 


MET+27) 5 "R83 


R5tsGETSPACE( 3026495) +23 
MOVEC30*eT®R5)3 


FORKCPC,SCHEDIDLE) *RO&1(284791)» 20916090)3 


GO TO RETURNS 


IF CTEBDIRECTORYSEARCH(R7+#R605)) NEQ O THEN 


BEGIN 


DISKWAITC™CA9,CCFI) + 30° TEFFI)S 


MCAD eC CFI"1LII803 
FORGETSPACECT)3 


END ELSE MLAS, CCFIIIS 13 


GO TO RETURNS 


END SHORTIES3 
PROCEDURE FRONTENOCMIX)3 


BR BR DE BR VE BE BO HE BR BE BE BA BE DE 


VALUE MIX} 
REAL MIX3 
FORWARD3 


$(0] 

Sti] 

§(2] 

$(3] 

$t4] 

$(5) 
$(6).C181) 
$(6] 
$(7],0281) 
$€77.033%15) 
$€77.0163:15) 


nRennaAnuun 


THE FORMAT OF SEGMENT ZERO OF PROGRAMS% 


GET SPACE BELOW THE FENCE 


LOCATION OF SEGMENT DICTIONARYS 


SIZE OF SEGMENT DICTIONARY 
LOCATION OF PRT% 
SIZE OF PRTS 


LOCATION OF FILE PARAMETER BLOCK 
SIZE OF FILE PARAMETER BLOCKS 


1 FOR NEW FORMAT SEGMENT O* 
STARTING SEGMENT NUMBERS 
FORTRAN FAULT FLAG 

NUMBER OF FILES% 

CORE REQUIREMENT / 64% 


IF ${2] « 0 THEN THE JOB WAS COMPILED BY COBOLS 


$15) 


DISK ADDRESS OF LABEL EQUATION ENTRIES 


ELSE 0 


19555000 
19555100 
19556000 
19557000 
19558000 
19559000 
19559020 
19559050 
%11019559100 
11019559120 
11019559140 
211019559160 
%$11019559180 
19559200 
%11019559220 
19560000 
19560100 
19560200 
19560300 
19560400 
19561000 
19562000 
19563000 
19564000 
19565000 
19566000 
19567000 
19568000 
19569008 
19569100 
19570000 
19571000 
19572000 
19573000 
19574000 
19574100 
19574200 
19574300 
19574400 
19574500 
19574600 
19900000 
®R7519991000 
%R7519991100 
%R7519991200 
%R7519991300 
20000000 
20001000 
20002000 
20003000 
20004000 
20005000 
20006000 
20006500 
20007000 
20007100 
20008000 
20009000 
20010000 
20010100 


Be BR Be BA BE BE Be DE 


S(16) 
St17) 
$(18) 
$(19) 
§(20) 
$(21] 


PROCEQNURE SELECTRUNI3 


BEGIN 


REAL 


ARRAY 


REAL 


ZXUBZ 


¥2%3% THE VART ABLES DECLARED ABOVE MUST CORRESPOND EXACTLY TO 


MSCW 


OLAYOISK 
THISLINK 
NEXTLINK 
PREVLINK 
TYPE 
STACKLOC 
SHEETLOCKED 


$ 
SEGO 
TRP 
LBL 
SD 
TSKA 


BELOW 
SWAPDISK 
SWAPDISKSIZE 
UVSPACE 
SVALUE 
RETURNMSCW 
RE TURNRCW 


aH nA ou tH oH 


uuntspnnuanH anna eunns 


aunun @ 


uneaenean 


B2ZXX THOSE DECLARED IN 


REAL 


EUVAL 
FBADRS 
FPBVERSION 
FT 

LINDX 

LINK 
SENSEVAL 
SPDVAL 


PRESENTED WHEN PROGRAM WAS COMPILED AND 
APPLICABLE TO ALL EXECUTIONS 

ESTIMATED PROCESSOR TIME 
ESTIMATED 1/0 TIME 
PRIORITY 

COMMON VALUE 

ESTIMATED CORE REQUIREMENTSCFROM 
STACK SIZE 


™2e 
—1e 
bale We] 
+Qo 
+1 
+2 
+3 
+4 
+50 
+68 
+72 
+60 
492 
+4100 
ile 
+120 
#13 
414 
+153 


+16") > 
ti7E*]s 
#18[*). 
+19(C4%]> 
NT2E*%)>» 
NT2C*]3 


LBL +1 
BELOW + 1» 


SWAPDISK + 1» 


SWAPDISKSIZE + te 


UVSPACE>s 


UVSPACE + 1» 
RETURNMSCW + 13 


eeeNOTE eee 


PROCEDURE SELECTRUN, 


RETURNRCW 
EUVAL 
FBADRS 


+ 
+ 
+ 


FPBVERSTON+ 


LINK 
SENSEVAL 


+ 


* 
+ 
* 


1° 
le 
1* 
Le 
ie 
je 
je 
1 


20010200 
20010300 
COMPILATN) 20010400 
COMPILATN) 20010500 
COMPILATNI 20010600 
COMPILATN) 20010700 
COMPILATN)20010600 
COMPILATN) 20010900 
20011000 
20011100 
20011200 
20011300 
20011400 
20011500 
20011600 
20011700 
20011800 
20011900 
20012000 
20012100 
20012200 
20012300 
20012400 
20012500 
20012600 
20012700 
20012800 
20012900 
20013000 
20013100 
20013200 
20013300 
20013400 
20013500 
20013600 
20013700 
20013800 
20013900 
20014000 
20014100 
20015300 
20015400 
20015500 
20015600 
20015700 
20015800 
20015900 
20016100 
20016200 
20016300 
20016400 
20016500 
20016600 
20016700 
20016800 
20016900 
20017000 
20017100 
20017200 
20017300 


$2 = SPDOVAL + Le 

FB = $2 + La 

FPB = FB + 13 
REAL FT4 = NT1e 

TYPEDISK = NT3) 


COMMENT THE VALUE OF "TYPE" DETERMINES WHICH PORTIONS OF 
THIS PROCEDURE WILL BE EXECUTED, THIS PROCEDURE CAN ALSO 
DETERMINE WHICH PORTIONS OF PROCEOURE "SELECTRUN” WILL BE 
EXECUTED BY ASSIGNING A NEGATIVE VALUE TO "TYPE" BEFORE 
RETURNING TO THAT PROCEDURE, 

END OF COMMENTS 


DEFINE STARTING ws 18, 
CONTINUEING = 28s 
QUITTING = St» 
RUNING = At, 
PASSING = 5H. 
EQUATING = 6#} 


DEFINE XCLOCKTIME = 
CCONT2ISCXCLOCK DIV 3600)) MOD 60 + CNT2 DIV 60)x100 + 
0,5) DIV 1283 


DEFINE ACTUALDISKADDRESSCACTUALDISKADDRESS1) = 
CCUAREMIXe CONT4tACTUALDISKADDRESS1) DIV (NF3tSJARC(MIX28))2410) 
+ (NTG4 MOD NT3) + 0,5) DIV 1943 


$ SET OMIT & NOTCPACKETS) 
DEFINE UNITNO ® S[£23),0286]#3 % ORIGINATING UNIT 
$ POP OMJT 
LABEL CONTINUE® DLX» EXITe LEMs RMSGe UNBLK» STOP3 
SUBROUTINE DELINKS 
% DELINKS THE SHEET ENTRY AND RETURNS SHEET DISK SPACE 
BEGIN 
STREAMCAS@S(3),08410] 0Bt@P(,SCHEDULEIDS))3 
BEGIN &% MARK SCHEDULE SLOT "OPEN® 
SKIP A DBS DSt#RESET 
ENDS 
IF F ® 0 THEN & SHEET ENTRY NOT PASSED AS PARAMETER 
BEGIN 
IF NEXTLINK#O THEN SHEETCLEVELIJ, CFF Is sPREVLINKS 
IF PREVLINK®O THEN 
BEGIN 
SHEETLLEVELIJ gC CFIJ¢@NEXTLINK? GO DLX3 
END} 
LBL&=CMESPACE(30))3830(61363:10)3 
DISKWAITC*®C(LBL INX 0)» 300 PREVLINK)S 
LBLE29)8eNEXTLINKS 
- DISKWAITC CLBL INX Oe 300 PREVLINK)S 
DLXs FORGETESPDOISKCTHISLINK)3 
IF LBL NEQ@ O THEN FORGETSPACEC(LBL)S LBL3#03 
END} % IF SHEET ENTRY NOT A PARAMETER 
END DELINK} 


_ POMYMSCWe STF} 


20017400 
20017500 
20017600 
20017700 
20017800 
20017900 
20018000 
20018100 
20018200 
20018300 
20018400 
20018500 
20018600 
20018700 
20018800 
20018900 
20019000 
20019100 
20019200 
20019300 
20019400 
20019500 
20019600 
20019700 
20019800 
20019900 
20020000 
20020100 
20020110 
20020119 
20020120 
20020121 
20020200 
20020300 
20020400 
20020500 
20020600 
20020700 
20020800 
20020900 
20021000 
20021100 
20021200 
20021300 
20021400 
20021500 
20021600 
20021700 
20021800 
20021900 
20022000 
20022100 
20022200 
20022300 
20022310 
20022400 
20022500 
20022600 
20022700 
20022800 


PCOs O» OF Or Or OF Ov Ov Or O» OPS B FOR VARIABLES LOCAL TO THIS 
% PROCEDURE ONLY 


IF TYPE®CONTINUEING THEN GO TO CONTINUES 
IF TYPESSTARTING THEN %& SEARCH THE SHEET QUEVE TO FIND A CANDIDATE 
% FOR SELECTION 
BEGIN 
FOR LEVEL8®O STEP 1 UNTIL SHEETMAX DY % FOR ALL "SHEET PRIORITIES" 
BEGIN 
PREVLINKS@NEXTLINKS303% &® RESET FOR EACH "LEVEL® 
% IF THERE IS AN ENTRY IN THE SHEET* SEE IF IT WILL FIT 
IFCTHISLINK&=SHEETCLEVELJ+(CF)) NEQ@ O THEN GO TO LEMS 


CONTINUES 


% "NEXTLINK™ OBTAINED FROM “SHEET(C29]" BELOW 
® IF THERE JS ANOTHER ENTRY AT THIS LEVEL» PROCESS IT NO 
IFCTHISLINKSSNEXTLUINK) NEQ O THEN GO TO LEMS 
END} 

TYPE t@ sQUITTINGS % END OF SHEET SEARCH 

GO TO EXIT? 


LEMS 


% AT THIS POINTs THERE IS A CANDIDATE FOR SELECTION 
IF S * 0 THEN % NO SHEET SPACE OBTAINED YET 


BEGIN 
§ r= CMEGETSPACE (312220942) 1830(8836310)3 
END? 
x e a e 9 t) a ¢ 9 i} ® t ] i] ry ® 8 e e ® 4 t ] ° s a 
% READ SHEET ENTRY INTO CORE AT "S" 
% i} qa ® i e 9 ® e e e ® i] e e i) e e e ea e ] ® a 
DISKWAITC@CS INX 0)% 309 THISLINK)? 
NEXTLINK§eSC29]3 & NEXT ENTRY IN SHEET QUEUE AT THIS LEVEL 
S hee ke * ke * x KK eK Oe 
> * * * * * ~_ * x «8 x 
S “ee * * tO er. ee) * eee 
e * * * * * x * 
& * +R HERE KK * * *  m * * 0 


HDR $* GETSPACEC30+020)4+23 

DISKWAITCTHDRe 305 S(25])3 & READ FILE HEADER INTO CORE AT "HDR" 
GO TO EXITS 

END) &% IF TYPE & STARTING OR CONTINUEING 


IF TYPESPASSING THEN % PASS THIS ENTRY WITHOUT DELINKING 


BEGIN 
% eke eK HK RE 
% * x * * * 
b 4 Tee. eee.) eee fee? ee te eT | 
& * * * * * 
% * * * xe RE 


IF $€£3] GTR O & S$C33,£181]80 FIRST TIME THROUGH 
_$ SET OMIT © PACKETS 
AND SCHEDMSG 


20022900 
20023000 
20023100 
20023200 
20023300 
20023400 
20023500 
20024600 
20024700 
20024800 
20024900 
20025000 
20025100 
20025200 
20025300 
20025400 
20025500 
20025600 
20025700 
200256800 
20025900 
20026000 
20026100 
20026200 
20026300 
20026400 
20026500 
20026600 
20026700 
20026800 
20026900 
20027000 
20027100 
20027200 
20027300 
20027400 
20027500 
20027600 
20027700 
200276800 
20027900 
20028000 
20028100 
20028700 
20028900 
20029000 
20029100 
20029200 
20029300 
20029400 
20029500 
20029600 
20029700 
20029800 
20029900 
20030000 
20030100 
20030200 
20030249 
20030250 


$ POP OMIT 20030251 
THEN BEGIN 20030300 
$(3]s®NABS(SE32)3 % MARK IT SCHEDULED 20030400 

IF FsO THEN & SHEET ENTRY NOT PASSED AS PARAMETER 20030500 

% WRITE THE SHEET ENTRY BACK OUT WITH SC3) "MARKED" 20030600 
DISKWAITCCS [NX 0)* 305 THISLINK)} 20030700 
STREAM(CSSLEVEL, ASESE*]» [D98S(3),(8810]> 20030800 
QseXCLOCKTIMEs BSFHDR)} 20031500 

BEGIN 20031600 
“STSBLOC CE DSERE6DECS DItSDI™63 DStSSFILL3 % PRIORIT¥20031700 

DIt*Bs DIsspl46s DSteuitans 20031600 

SItsas STteSI4is DSte7CHR} % MFID 20031900 
SIssSl#13 DSISLIT"/"3 OSER7CHRS % FID 20032000 
DS##LIT"e"3; STPELOC 103 DS##2DEC3 % SCHeNO, 20032100 

DSteii LIT" SCHEDULED "s SItRLOC Qs DSte4DECS % TIME 20032200 
DSIBLITM "3 20032900 

END STREAM) | 20033000 
SPOUTERCHDR» UNI TNO» SCHEDMSG) 3 20034000 

END ® IF SCHEOMSG AND FIRST TIME THROUGH 20034100 
ELSE FORGETSPACECHDR)3 20034200 
IF F NEQ 0 THEN % SHEET ENTRY PASSED AS A PARAMETER 20034300 
BEGIN 20034400 
DISKWAIT(FelCF)s30+TISGETESPDISK)3 ® WRITE SHEET ENTRY TO DISK 20034500 
FORGETSPACE(SE7])$ % CORE ADDRESS OF SEGMENT ZERO IN S[7J 20034600 

IF NOT SHEETLOCKEN THEN 20034700 
BEGIN 20034800 
SLEEPCETOGLE) »SHEETMASK)5 20034900 
LOCKTOGCSHEFTMASK)3 20035000 
SHEETLOCKED 43 15 20035100 

ENDS 20035200 

IF CLE@SC2).0CF}) GTR SHEETMAX THEN Lts=SHEETMAX3 20035300 

%® SHEETL2),CCF] © “SHEET” PRIORITY 20035400 

IF SHEETEL),(CCF) NE@ O THEN % SHEET GUEVE ALREADY EXISTS 20035500 
BEGIN ® LINK IN THIS ENTRY 20035600 
DISKWAITCOF CCF ]e3001$@SHEETCLILLFFI% BTAIL OF QUEUE 20035700 
S(29)%#T} & LINK TO THIS ENTRY 20035800 
DISKWAITCF,CCF)*e3001)3 % REPLACE ENTRY 20035900 

END 20036000 

ELSE SHEETCL]¢"T$ % ESTABLISH NEW SHEET QUEUE 20036100 
SHEETCLJ,CFFIJSeTs & LINK IN AT END OF QUEUE 20036200 
TYPE §® PQUITTINGS 20036300 

GO TO EXITS % DONT PROCESS ANY MORE ENTRIES 20036400 
END} 20036500 
PREVLINKSSTHISLINK? 20037100 
IF MIX LEQ MIXMAX THEN 20037200 
BEGIN 20037300 
TYPE 3% =CONTINUEINGS 20037400 

GO TO CONTINUES 20037500 

END 20037600 
ELSE 20037700 
BEGIN 20037800 
TYPE $m PQUITTINGS 20037900 

GO TO EXIT3 20038000 
ENDS 20038100 
END} & IF TYPE = PASSING 20038200 
20038300 

20048000 

IF TYPE * EQUATING THEN 20048100 
BEGIN 20048200 
20048300 


p | eC ek dk ee ae 

% * * * * * 

% +m OR eK 

% * * * ¥ 

z * QO -* OQ keeew 0 


FPBIGETSPACECSEGO[5] INX 1°000)+#23 

% SEGO(5) & SIZE OF THE FILE PARAMETER BLOCK ON DISK 

% SEGOL4] * RELATIVE DISK ADDRESS OF THE FILE PARAMETER BLOCK 
® SEGOL7) = NUMBER OF FILES IN THE FePeBs 

% ETRLNG * NUMBER OF WORDS PER FILE USED IN THE FePeBe 


20048400 
20048500 
20046600 
20048700 
20048800 
20048900 
20049000 
20049100 
20049200 
20049300 
20049400 


MCSEGOLS]) INX FPB]%s0! % SET TO ZERO TO INSURE THAT STREAM STATEMEN¥ 20049500 


® USED TO BUILD "JN®CORE® FPB WILL NOT SKAN 


20049600 


® PAST THE END OF THE COMPILER GENERATED FPBe20049700 


FBteGETSPACECSEGOLT I, CCF IXETRUNG* O01 2423 
® "FB" WILL BE “IN@*CORE”™ FILE PARAMETER BLOCK LOCATION 
DISKWAITC*FPBe SEGOLES] INX Os ACTUALDISKADDRESS(SEGOL4),£CF]))3 


COMMENT FORMAT OF COMPILER GENERATED FPB! 


CHRS 1 AND 2 = FILE NUMBER (12 BIT BINARY) STARTING WITH 1 
CHR, 3 e FILE TYPE 

CHRS 4 THRU 10 #® MFID 

CHRS 11 THRU 17 * FID 

CHR 18 © LENGTH OF INTERNAL FILE NAME (€6 BIT BINARY) 


CHRS 19 THRU N ® INTERNAL NAME 
FOR VERSION 1 ¢ VERSION NUMBER IN SEGOE5] 20188) ) 
NEXT TWO CHARACTERS FOLLOWING INTERNAL NAME CONTAINS 


£4081] = SENSITIVE BIT 
(4182) = DISK SPEED CI*®FAST»s 25SLOWs OBUSPECIFIED) 
(4345) = FU NUMBER # 4 


COMMENT FORMAT OF “"[N@=CORE™ FPB ( 5S WORDS FOR EACH FILE ENTRY ) 
WORDEOJ,£ 6842] = MFID 
WORDCLI,C 6842) FID 
WORDE2),0 1917) REEL NUMBER (3 BCL DIGITS) 
WORDE2).018830) CREATION DATE (5 BCL DIGITS) 
WORDE3),0 155 J CYCLE NUMBER CBINARY) 
WORDE 3) eC 61917) PRN CPHYSICAL REEL NUMBER) FOR NON®DISK FILES 
WORDO3),CU5t1 J SENSITIVE BIT CDISK FILES ONLY) 
WORDEC3),(£1682 } DISK SPEED CDISK FILES ONLY) 
WORDE3],048:5 J EU, NUMBER+1 (CDISK FILES ONLY) 
WORDE3],€2381 1 10 CODE CINPUT#O-0UTPUT#1) 
WORDE31,.024112) NUMBER OF ERRORS 
WORDE3].03686 ] LOGICAL UNIT NUMBER + 1 
WORDE3].04395 J UNIT TYPE 

END OF COMMENTS 


BeanrnanannRr hts i 


FPBVERSION#SSEGO[5],C1%:8)3 & NEWER VRSN,CONTAINS EUsSPDOETC,. 
STREAMCTOGISCFPBVERSION#1) oTis¢e0-T2ts0eCtwOeoFPBeFB)S 
BEGIN 
SItarPBs 
LUL' TF SCe"O" THEN & FIRST OIGIT OF FILE NUMBER 
BEGIN , 
StsseSteist IF SC=2"0" THEN GO TO L2s % END OF FPB 
END ELSE SIteSI413 
SJesSrets Tit+eSts SlseSle13 & FILE TYPE LOCATION 
2CDSteLIT"O"s DSse7CHRIS B MFIDeFID 
T28aDIS DIGFLOC C3 DI teDle7s DOSIsCHRS OL 3eT2s BINT NAME SIZE 
OStw1SLIT"O"%3 & ZERO OUT REEL DATEsCYCLESETC, 
T2eaSt3 SITSET1S OSteCHRs SlteT2) & FILE TYPE 


20049800 
20049900 
20050000 
20050100 
20050200 
20050300 
20050400 
20050500 
20050600 
20050700 
20050800 
20050900 
20051000 
20051100 
20051200 
20051300 
20051400 
20051500 
20051600 
20051700 
20051800 
20051900 
20052000 
20052400 
20052200 
20052300 
20052400 
20052500 
20052600 
20052700 
20052600 
20052900 
20053000 
20053100 
20053200 
20053300 
20053400 
20053500 
20053600 
20053700 
20053800 
20053900 
20054000 
20054100 
20054200 
20054300 


GO TO SK} Lit GO TO LLs L2! GO TO XXIT3 SK% 

SLsaS]+C3 & SKIP OVER INTERNAL NAME 

TOGCT2¢EDI3 DIisspr"63 SKIP 3DBs SKIP 4SB3 
IF SB THEN DStsSET ELSE DSEFRESETS SKIP SBS & SENSITIVE 
2CIF SB THEN DSteSET ELSE DSS¥RESETI SKIP SB8)% &% SPEED 
5C IF SB THEN OS8sSET ELSE DS?#SRESET? SKIP SBS & EU 
NLtsT2)3 

OSts6LIT*O%; & ZERO OUT FIFTH WORD OF FB 

GO TO Li} 

XX1]T: END STREAM STATEMENT? 


IF MCPJOB THEN GO TO STOP; % NO LABEL FQUATION FOR "SYSTEM" JOBS 
44% LABEL EQUATION PROCESSING 
COMMENT LABEL EQUATION RECORD FORMAT? 


WORDE 0] = MFID € ZEROe IF NONE GIVEN ) 
WORDE 1) = FID 
WORDEL 2 J,013817)] = REEL NUMBER (€ 3 BCL DIGITS ) 
0f18830) = CREATION DATE € 5 BCL DIGITS ) 
ef42%1 ] = MARKER FOR FILE OPEN ( 1 # CDATE GIVEN ) 
WORDC 33,€ 12:5 ] & CYCLE NUMBER 
0f1586 J = NUMBER OF COPIES *1 
eC23ti J = PACKETS 
0€4231 J] = “FORMS” REQUESTED 
0f4385 ] & UNIT TYPE 
WORDE 4),£ 086 ] = SIZE OF INTERNAL NAME 
o€ 6842) #& FIRST SEVEN CHARACTERS OF INTERNAL NAME 


WORDC 5S) THROUGH WORD{L11) = REMAINDER OF INTERNAL NAME 
WORDE123,01581 J = SENSITIVE BIT 
91632 J] = DISK SPEED CLIBFAST*#2*SLOW*O=NOT SPECIFIED) 
0C1835 ] © EU NUMBER + 1 
WORDDL14) @ START OF NEXT LBLeEQNeENTRY (14 IF NO MORE ENTRIES) 
WORDEL29)] » LINK TO NEXT ESP SEGMENT FOR LABEL EQUATION 
END OF COMMENTS 


FOR L #3 1 STEP 1 UNTIL 2 DO 
BEGIN 
LINKteIF L THEN SC15] ELSE S£13)3 % EQN FROM COMPILE/EXEC, 
% $Ci5) = RELATIVE DISK ADDRESS IN CODE FILE FOR LABEL 
% EQUATION ENTERED AT COMPILE TIME 
% SC13) = ACTUAL ESP DISK ADDRESS OF LABEL EQUATION ENTERED 
z AT RUN TIME, 
$2 t= NOT L§ & TRUEe IF LBL eEQNeENTERED AT RUN TIME 
WHILE LINK NEQ 0 DO & IF LBLeEQN,EXISTS 
BEGIN 
LBLE=CMCGETSPACE(302020)42))830(8838810)3 
% IF GINKSSCA5J+READ FROM CODE FILE ELSE READ FROM ESP DISK 
DISKWAITC*CLBL JINX 0)» 30+ 
IF L THEN ACTUALOISKADDRESSC(LINK) ELSE LINK)3 
ft $3 03 & START AT BEGINNING OF SEGMENT 
IF NOT L THEN FORGETESPOISKCLINK)3 
LINK t* LBLL29)) %2 NEXT LINK 
IF LBLLO] = 14 THEN GO TO STOP3 
UNBLKS LINOXs#Ix143 8 INDEX INTO LABEL EQUATION SEGMENT 
STREAMCFNS=O0 ¢ FTSBLFT)e ZEROBROe T2I80» 
TOGSSC(FPBVERSION®1)« FPBs FIESCLBLILINDX*4)]5 C8#0)3 
BEGIN 
SI] t™ FS OLlesLOC C3 DI teDI+7 3 DSIBCHRS & LBL,NAM,SIZE 


20054400 
20054500 
20054600 
20054700 
20054800 
20054900 
20055000 
20055100 
20055200 
20055300 
20055400 
20055500 
20055600 
20055700 
20055800 
20055900 
20056000 
20056100 
20056200 
20056300 
20056400 
20056500 
20056600 
20056700 
20056800 
20056900 
20057000 
20057100 
20057200 
20057300 
20057400 
20057500 
20057600 
20057700 
200576800 
20057900 
20058000 
20058100 
20056200 
20058300 
20058400 
20058500 
20058600 
20058700 
20058800 
20058900 
20059000 
20059100 
20059200 
20059300 
20059400 
20059500 
20059600 
20059700 
20060800 
20060900 
20061000 
20061100 
20061200 
20061300 


S] t= FPBS 20061400 

Lt DitsLOC FNS DliwDI4+63 PStR2 CHR? & FILE NUMBER 20061500 
DI t# LOC ZEROS SJtaS]e23 20061600 

IF 2 SC # DC THEN GO TO XXIT3 B® FILE NUMBER®O 20061700 
DIteFTS DStecHRs SliaSi+i14s & SAVE FILE TYPE FOR CHK BELOW 20061600 

DI 3% FR & ST AT FPB INT,NAMsDI AT LBLEQN,y 20061900 

IF SC * DC THEN &% SAME STRING SIZE 20062000 
BEGIN 20062100 

IF C SC#®DC THEN GO TO XXIT$ % ALL CHARACTERS MATCH 20062200 

END 20062300 

ELSE 20062400 
BEGIN & NOT THE SAME SIZE 20062500 
SIssSiteis DIteLOc Tes DIIsDI+73 DSIECHR 20062600 
SJ]t=S]+T23 & SKIP OVER FPB ENTRY 20062700 

END3 20062800 
TOGCST¢eSi42)s % SPEED AND EU CHARACTERS IN FPBCVERSION 1) 20062900 

GO TO Li 20063000 
XXIT?# ENDS 20063100 
20063200 

IF (Tis#P) NEQ@ O THEN 4 VALID LABEL EQUATION 20063300 
BEGIN 20063400 
FBADRS##(T*1)xETRUNG+FBs &% ADRS OF FB FILE ENTRY 20063500 

2 FT IS FILE TYPE FROM FPB OBTAINED ABOVE 20063600 


IF CFTLt=LBLELINDX43),(4335)]) NEQ @37 THEN FISF Tis 2NEW TYP20063700 


FTYeFT,£C4335)3 &B REMOVE "FORMS" BIT 20063800 

TYPEDISK © (FT#10) OR CFT#12) OR (CFT#13) OR CFT=26)3 20063900 
STREAMCXSeCLBLOILINDXJJ+TOGISC(TYPEDISK AND CFPBVERSIONS1))2 20064000 

FBADRS)3 20064100 

BEGIN 20064200 

SltsX3 ODSte3WDS3 DS&sCHRe & MFIDe FI De REELS DATE ®CYChE 20064300 
TOGCSTteS3423 SKIP 5SB3 DO] teby+23 SKIP SDB3 20064400 

IF SB THEN DS##SET ELSE DSSRRESETS SKIP SB3 20064500 

JUMP OUT TO L)s % SAVE EU/SPEED SPECS FOR DISK 20064600 

OS§s3CHR} 20064700 

Lt OS2*3CHR} 20064800 

IF SC NEQ “e™ THEN & NEW TYPE SPECIFIED 20064900 

IF SC NEQ """ THEN DS&®CHR ELSE DSIFSETS 20065000 

END STREAM STATEMENTS 20065100 

SENSEVAL t@ CEUVAL $8 LBLELINDX#12),01598]),(4031)5 20065200 

SPDOVAL te EUVAL,L418273 20065300 

EUVAL ts EUVAL AND @373 20065400 

IF SPOVAL GTR O THEN 20065500 
MEFBADRS+3)]28C*P (DUP) D&SPDVAL[L16!4612]3 20065600 

IF SENSEVAL THEN % FILE SENSITIVE 20065700 
MEFBAORS4+3)]82¢*P(DUP)&SENSEVAL(C1I5#¢4751)3 20065800 

IF EUVAL GTR O THEN ® NEW EUV NUMBER REQUESTED IN LBL,EON, 20065900 
MCFBADRS+3] tS C*#P(DUPIIQEUVAL £1684345]3 20066000 

ENps % ITF VALID LABEL EQUATION 20066100 

IF C]teyel) = 1 THEN JTF LBLO14J NE@ 14 THEN GO TO UNBLK3 20066200 
ENDS & WHILE LINK NEQ 0 20066300 
STOPs ENDS ® FOR L 20066400 
FORGETSPACECFPB)3 20066500 
If LBL NEQ@ 0 THEN 20066510 
BEGIN 20066515 
FORGETSPACECLBL)$ LBLYF03 20066520 
END3 20066525 
TRPC3] s© CMCFB)] & CSEGOE7), CCF IXETRLNG)(8:36:10)3 20066600 
ENDS & IF TYPE =& EQUATING 20066700 
20066800 


EXITS 20080000 


PCCRETURNRCWJ)» STS, 
END PROCEDURE SELECTRUNI} 


PROCEDURE SELECTRUN2} 


BEGIN 
REAL 


ARRAY 


REAL 


MSCW 

F 
MYMSCW 
RCW 


OLAYDISK 
THISLINK 
NEXTLINK 
PREVLINK 
TYPE 
STACKLOC 
SHEETLOCKED 


S 
SEGO 
TRP 
LBL 
SD 
TSKA 


BELOW 
SWAPDISK 
SWAPDISKSIZE 
UVSPACE 
SVAWUE 
RETURNMSCW 


RETURNRCW 


O» 


ueunn & 


RDS» Oe XCH» 


"=? 
=. 
"1s 
+0» 
+1e 
+28 
+30 
+4 
+50 
+65 
+7o 
+685 
+9» 
#102 
oii» 
+120 
#13 
+14 
+153 


+16f*) > 
+17)» 
+18(*)> 
+19(%)> 
NT2(#J» 
NT2C#)3 


LBL +1 
BELOW + I» 


SWAPDISK + 1 


P&PLCTF I» 


SWAPDISKSIZE + 1» 


UVSPACEs 
UVSPACE # te 


RETURNMSCW # 13 


eeONOTE RRR 
R3R%B THE VARIABLES DECLARED ABOVE MUST CORRESPOND EXACTLY TO 


SEZZ THOSE DECLARED IN PROCEDURE SELECTRUN, 


LABEL DLXe BMSGe NGe 


DEFINE XCLOCKTIME #& 


CCONT28eCXCLOCK DIV 3600)) MOD 60 + (NT2 DIV 60)x100 + 


0.5 ) DIV 1985 


DEFINE ACTUALDISKADDRESSCACTUALDISKADDRESS1) 8 
COJAREMIX®CONTSS@ACTUALDISKADDRESS1) DIV CNT3SSVARECMIX28)))410) 
+ (NT&4 MOD NT3) + 0,5) DIV 1783 


EXITS 


$ SET OMJT = NOTCPACKETS) 


DEFINE UNITNO * S£23],f2:6]83 


$ POP OMIT 


DEFINE NALOCSIZE = 7#3 


SIF )3 


% ORIGINATING UNIT 


20080100 
20060200 
20080300 
20080400 
20080500 
20080600 
20080700 
20080800 
20080900 
20081000 
20081100 
20081200 
20081300 
20081400 
20081500 
20081600 
20081700 
20081800 
20081900 
20082000 
20082100 
20062200 
20082300 
20082400 
20082500 
20082600 
20082700 
20082800 
20082900 
20083000 
20083100 
20083200 
20083300 
20084500 
20084600 
20084700 
20084800 
20084900 
20085000 
20085100 
20085300 
20085400 
20085500 
20085600 
20085700 
20085800 
20085900 
20086000 
20086100 
200866200 
20086300 
20086400 
20086500 
20086600 
20086700 
20086799 
20086800 
20086801 
20086810 
20086900 


DLXs 


Be BE BR DE BC 


Z VALUES ASSOCIATED WITH “TYPE” 8 


DEFINE STARTING = 1é» 
CONTINUEING zm 2h» 
QUITTING « 3#e 
RUNING a Abs 
PASSING =z 5h. 
EQUATING = 683 


SUBROUTINE DELINK? 


® DELINKS THE SHEET ENTRY AND RETURNS SHEET DISK SPACE 


BEGIN 
STREAMCAS#S(3), (8810) Bs eP(.SCHENULEIDS) 3 
BEGIN % MARK SCHEDULE SLOT "OPEN" 

SKIP A DBS DSSeRESETS 
END3 


IF F * QO THEN ® SHEET ENTRY NOT PASSED AS PARAMETER 


BEGIN 


IF NEXTLINK=O THEN SHEETCLEVELJS CFF I SSPREVLINKS 


IF PREVLINK®O THEN 

BEGIN 

SHEETCLEVELIJ.CCFISENEXTLINKS GO DLX3 

END3 
LBL&e(MCSPACEC302)I&830(8338310)3 
DISKWAITC™C(LBL INX 0) 300 PREVLINK)? 
WBLE29) 3=NEXTLINKS 
DISKWAIT(C CLBL INX O)* 30% PREVLINK)3 
FORGETESPDISKCTHISLINK)3 


IF LBL NE@ O THEN FORGETSPACECLBL)S LBL3 #03 


ENDS ® IF SHEET ENTRY NOT A PARAMETER 
END DELINKS 


PCMYMSCWs STF)3 


Lt! + eK kee RE eR COKE. 
* * * * * x * & * 

eee * * * + + RRR 
* * * * x * * 
em oe ELT. eo * © *« ERROR RK 


IF LOGLINE LSS 0 THEN % NOT BY CANDE 


DISKWAITC™CTSSSPACEC10))» 109 SC6J,(CFI) ELSE 


BEGIN ® VIA CANDEs BUILD A LOG MESSAGE 
IFCTs#S(2),08310])"0 OR T#2 OR T35 THEN 
BEGIN ® GOsEXECUTE OR RUN 
STREAMCC3 R120 AZSSMABS(S(24))2 ALEsS(O]> 
B t= T tm SPACEC9))3 
BEGIN 
SIswLOc CS SI8BSI+73 OS#3CHR3 
OSte5LIT*USERS"s STtsSl413 DS&e7CHR} 
DSsF1OLIT"s EXECUTE 3 
2CSITSeS1413 DStR7CHRS DSHELIT*/")3 
DIseDI"1s DSse34LIT™ "3 
ENDS 
END 
ELSE 
BEGIN % COMPILE PART 


STREAMCCRR1L2eAZtESEL)e AZSBSC2Z4) + ALSESCO]» 


A2tes(il> 


20087400 
20087500 
20087600 
20087700 
20087800 
20087900 
20088000 
20088100 
20088200 
20088300 
20088400 
20088500 
20088600 
20088700 
20088800 
20088900 
20089000 
20089100 
20089200 
20089300 
20089400 
20089500 
20089600 
20089700 
20089808 
20089900 
20090000 
20090100 
20090200 
20090210 
20090300 
20090400 
20090500 
20094500 
20094600 
20094700 
20094800 
20094900 
20095000 
20095100 
20095200 
20095300 
20095500 
20095600 
20095700 
20095800 
20095900 
20096000 
20096100 
20096200 


® QUESTION MK,20096300 


% USER CODE 
% JOB NAME 


20096400 
20096500 
20096600 
20096700 
20096800 
20096900 
20097000 
20097100 


Bs=TseSPACE(9))320097200 


Be BR We BE DE 


BEGIN 20097300 

Slt#_oc Cr SJTteS]+735 DSSECHRI % QUESTION MARK20097400 
DSte7LIT"COMPILE™S DSts5LIT" 3 20097500 

2CSTtsSTei3 DSte7CHRS NSteLIT"/")3 ’ JOB NAME 20097600 

DI¢sDI713 OSPSSLIT* 3 20097700 

STteSl+e13 DS2=7CHR}3 %® USERCODE 20097800 

OSss14lLI7T" LIBRARY "3 20097900 

DStHL1BLIT* 3 20098000 

END3 20098100 

END3 20098200 
DISKWAITCT SC CFIs10eJAREM[ Xe6]teSl6]seGETESPDISK)3 20098300 
END) 20098400 
MAKELOGC(T,CCFIJ%1» CNTRLCARD)S 20098500 
FORGETSPACECT)3 20098600 
Teed) 20100600 
IF BOJMESS THEN 20100700 
IF MCPJOB,C1817 THEN ® "SYSTEM" TYPE JOB 20100800 

IF NOT CAUTOMESS) THEN & SUPPRESS BOJ/EOJ MESSAGE 20100900 

IF NOT €S£2),(2%1]) THEN & NOT ES*@ED 20101000 

IF $£2).0431]) THEN 8 SUPRESS BOVJ/E0J MESSAGE 20101100 

BEGIN 20101200 

STREAMCNS@SCLOJs MIXse TiaTisGETSPACE(42020)4+2)3 20101300 

BEGIN 20101400 

OSts6LIT™ AUTO" 20101500 

STtseLOC N3 STtsSl4e13 DSts7CHR$ 20101600 

DSse2LI7T" =") STteLOc MIX OSIF2DEC3 20101700 

DSteLiT*e"s DP ssO1"3s OSPEF ILL) 20101800 

ENDS 20101900 

SPOUTCT)3 20102000 

1:#03 20102100 

END) 20102200 
STREAMCCHSLOGLINE, C4088IxC(LOGLINE,( 3387] NEQ 0)» 20102400 
PRIORITY @eSLiSje DAATteDTe DTOG§=NOTCMCPJ0B) AND TRUE, 20402500 
KTSacCCONTissABSC(S(24))) NE@ S£1) AND NT1 NEQ 0)42- 20102600 

AL8eSCO)» A2teS(ile ASLBNT is MIX» 20102700 

Q 8= XCLOCKTIMEs SVite05 BisTt=SPACE(10))3 20102800 

BEGIN 20102900 

SIssLOC C3 DSts4DECs DSssLIT” %3 % STATION NO,20103000 
DSte4DEC? DStaLIT*ie; ® PRIORITY 20103100 
DIseD1"53 OSte3FILLs DLeeDI is DSseLITte*s 20103200 

D1tsBs OStFBF ILLS 20103300 

DJswBs OLtepreiOs STe*stLoc Als 20103400 
KTCST¢*SI+i3 OSHF7CHRS NSHSLIT™/")3 % NAMES 20103500 

SrtslLOc MIX, DIENT eLs OSSELIT*e"s NSt=2pEcs ® MIX INDEX 20103600 

SVtaD13 Ol teDre2s DStar ILLS Dibesv3 20103700 
OSsae5LI7T" BOU "3 DSteaDEC?3 % TIME 20103800 
PTOGCDSHaLIT™ "se STssLOC DAATS SI[seS]e2s 20103900 
3JCDSSS2CHRE DSteLIT*/")3 DIteDIRL)s DStaLIT™e"3% CDATE 20104000 

END STREAM) 20104100 
SPOUTERC Te UN] TNO 20104200 
eCCNOT Sf0)),0C281] OR CANDYMESS) AND BOUMESS AND I] OR BOJK)320104300 
20108900 

20109000 

LLL eee Le. tee eS eR aR RR a Ok 20109100 
* * Py * * * oo * 20109200 
LL. ee 2. ee eS * eRe ERE OK * 20109300 
* * * * * * * * * * 20109400 
Pere) errs.) eee rt YF | eee Ok x hk 20109500 
201409600 

IF F NEG O THEN & SHEET ENTRY PASSED AS A PARAMETER 20109700 


Be BE 82 aE DC 


BE ave ae 


Be Be BL de Be 


® ° ¢ ’ , e ) ) 
READ IN PRT FROM DISK 


BEGIN 


SeGO:sSaSc/Jcctc) &® SEGMENT ZERO PRESENT AT CORE ADDRESS "S[7)" 


BEGIN 
SEGOISCM(SPACE(C30)])830€6836210)3 
DISKWAITC*™CSEGO INX 0)930*eMCHDR INX 10))5 % READ SEGMENT ZERO 
ENDS % IF SEGMENT ZERO WAS NOT PRESENT 
JVARCMIXe2] t= CHPCDUP)) & SEGOLeILAti+¢2) & 
SEGOC7IC38291)3 
% SEGOLAI«f191)] = JOB COMPILED BY COBOL ¢ NO "OAT" ENTRY ) 
® SEGOC2).02833)» SEGOL7Z),C231) = USED FOR INTER*PROGs»COMMUNICATION 


Me eK eee eee EK eK * * ee kee We ee ee & 
* * * * * * * * * ¥ * * * 
ee x ee * eke eK ak ee * KKK * 

% * * * * * & * * * * 
ee * * * we ak ok * * * * * * 


® §£21] CONTAINS STACK SIZE* SEGOL3) CONTAINS PRT SIZE 
SINFOCMIXI],{(cF] 3:3 
CSTACKLOCESGETSPACECSEGO[3) INX SE21) INX 64% OF 1))423 
% COMPUTE THE ADDRESS FOR THE PRT SUCH THAT PRTADRS¢(4236)#0 
TH*CCCSTACKLOCHESTACKLOC4+2)4S(21)) OR 63) + 18 & SC21JBSTACKSIZE 
IF CCLS=MCSTACKLOC#2),CCFIJI*(LreSEGOL3)] INX T)) GTR 10 THEN 
BEGIN ® RETURN REMAINDER OF PRT SPACE 
WAITSTORECMIX)$ STOREDYCMIXJ] #203 
MEL] #@ [ & CSTACKLOC™2)CCTFI & MIXE9842t6)3 % NEW LINK 
MEIIJ.CFF) t= L3 % BACK LINK 
MESTACKLOC®"2),.{CF) t= L3 % FORWARD LINK 
STOREDYEMIX] %t* 413 
FORGETSPACE(CL+2)3 
END} % IF PRT SPACE WAS TOO LARGE 
% ZERO OUT STACK TO EASE PROBLEMS OF CONGENITAL DUMP*READERS 
MESTACKLOC] #8 @3333333333333333) 
MOVECT@STACKLOC™L®STACKLOC®STACKLOC#l D3 


® 2 e e e i] ¢ 9 ¢ 9 i] ® ¢ 8 


* i] 9 5] 9 * e ® ® e s e . ] e ¢ ® * * e e ° ty 


DESKWAITC#T» SEGOL3],CCFJ» ACTUALDISKADDRESS(SEGO(2),(CF]))3 

% SEGOr2) = RELATIVE DISK ADDRESS OF THE PRT IN THE CODE FILE 

% SEGOC3) = SIZE OF THE PRT 

TRPSwPRTROWCMIX) PeCMECTIIRL0ON3C8838810)}3 & DESCRIPTOR TO THE PRT 


200K eR RO eK eek eee OR 
* * * * * * * * 
EER EEK Oe * * * * * 

- * * * * * * * * 
EORE EEK kate 0 eee ee eee * 0 


SEGDIMIX) 3&5 

TRPCSOISSCMCTIEEGETSPACECSEGOLL IL CR IJe301)4+2))3 

DISKWAITC™Ts SEGOLLJe(CFJ]*e ACTUALDISKADDRESS(SEGO(OIJ,(CCFI))3 
% SEGOLO)® RELATIVE DISK ADDRESS OF SEGMENT DICTIONARY 

% SEGOC1)* SIZE OF THE SEGMENT DICTIONARY 

MCTRPC4)) te SEGOT1I,£CF) "13 & SEGDICTLOJ&SIZE OF DICTIONARY 


$ SET OMJT # NOTCAUXMEM) 


IF CODEOQLAY THEN % MARK ALL CODE SEGMENTS "TO GO TO AUXMEM" 


20109600 
20110000 
20110100 
20110200 
20110300 
20110400 
20110500 
20110600 
20110700 
20111100 
201311200 
20111300 
20115200 
20115300 
20115400 
20115500 
20115600 
20115700 
20115800 
20115900 
20116100 
20116200 
20118800 
20118900 
20119000 
20119100 
20119300 
20119900 
20120000 
20120100 
20120300 
20120800 
20120900 
20121000 
20121100 
20121200 
20121300 
20121400 
20121500 
20121600 
20121700 
20121800 
20121900 
20122000 
201221400 
20422200 
20122300 
20122400 
20122500 
20122600 
20122700 
20122800 
20124400 
20124900 
20125000 
20425100 
20125200 
20125300 
20125400 
20125500 


BEGIN 


SDIFTRPCAI ACT ESSEGOLII,CCRI)08838s10)% % END OF SEGseDICT, 


WHILECT$*1"1) NEQ@ O DO 
IF SOCT],€C1#5)%0 THEN SDCII,C4#ijsais 
% C4tijJe "TO GO TO AUXMEM ON FIRST OVERLAY” 
END} 
$ POP OMIT % AUXMEM 


3 khan Keeee ok ORO ok 
% * * * x * * * om 
% * « kK kK * x 
% * * * * * * x * 
r 4 * * + ££ KK be 
STREAMCDs ®DALOCROWCMIX] 220 MCGETSPACE(CDALOCSIZE*#090)4+2I)) & 
DALOCSIZEL6838:10])3 
BEGIN 
StteDd SissS7"Bs OSteDALOCSIZE WDS3 
END3 
IF OLAYDISK NEQ O THEN @ OLAY DISK OBTAINED ABOVE 
BEGIN 
DALOCEMIXe0] $2 @2000023 
DALOCEMIXel] t* OLAYDISK3 
OLAYODISK t= 03 
END} 
OLAYMASK $2 TWOCMIX) OR OLAYMASKS &% OLAYS NOW ALLOWABLE 
4 Peer. ee 2 2 2! a ok a ats. ee: * 
x * * * * ££ * *& # & & x ek Pi 
% . * ee ee ee ee ee ee ~ * ek 
% * * ee ee ee ee ee ee ee * *- & & 
4 we mk ** 
% PLACE “COMMON® VALUE IN FIRST SIMPLE VARIABLE IN THE PRT 
NTL $8 SC19)3 ¥ COMMON VALUE IN SHEETL19) 
FOR J: @25 STEP 1} WHILE NT1 NE@ O AND 1 LSS SEGOL3I 00 
IF TRPCT]*0 THEN % SIMPLE VARIABLE CNOT A DESCRIPTOR) 
BEGIN 
TRPCTJSENT13 
NT1880 
ENDS 
DELINK! % DELINK SHEET ENTRY FROM SHEET QUEUE 
EXITS 


PCCRETURNRCW)e® STS» Or RDSe Os XCH» P&PECTFJs STF)3 
END PROCEDURE SELECTRUN23 


% FOR ADDITIONAL INFORMATION CONCERNING THE SHEETs SEE THE 
© DOCUMENT AT SEQUENCE NUMBER 20512000 


PROCEDURE SELECTRUNCF)3S VALUE Fs REAL F3 


_ BEGIN 
REAL MSCW 2 "2s 
F = de 
MYMSCW xz ts 
RCW = 64¢0n 
I mp +4 
T = +29 


20125600 
20125700 
20125600 
20125900 
20126000 
20126100 
20126200 
20126600 
20126700 
20126800 
20126900 
20127000 
20127100 
20127200 
20127300 
20127400 
20127500 
20127600 
20127700 
20127800 
20127900 
20128000 
20128100 
20128200 
20128300 
20128400 
20128500 
20128600 
20128700 
20128800 
20128900 
20129000 
20129100 
20129200 
20129300 
20129400 
20129500 
20129600 
20129700 
20129800 
20129900 
20130000 
20130100 
20140000 
20140100 
20140200 
20140300 
20140400 
20140500 
20140600 
20140700 
20140600 
20140900 
20141000 
20141100 
20141200 
20141300 
20141400 
20141500 
20141600 


ARRAY 


REAL 


EXE 


223% VARIABLES DECLARED 


DEFINE 


L 

DT 

MIX 

HDR 
LEVEL 
MCPJOB 
OLAYDISK 
THISLENK 
NEXTLINK 
PREVLINK 
TYPE 
STACKLOC 
SHEETLOCKED 


Ss 
SEGO 
TRP 
LBL 
SD 
TSKA 


BELOW 
SWAPDISK 
SWAPDISKSIZ 
UVSPACE 
SVALUE 
RETURNMSCW 
RETURNRCW 


XCLOCKTIME # 


ee ee ee ee ee ee ee: ee, | 


E 


+3 
+4 
+50 
+68 
+7 
+6 
+9 
+100 
+1is 
+120 
+13 
#140 
#153 


+16€u)» 
+17Cel> 
+1804) 0 
+190") > 
NT2€%1 5 
NT2C¥]3 


LBL #1 
BELOW + fe 
SWAPDISK + 1 


SWAPDISKSIZE + te 


UVSPACEe 
UVSPACE # 1» 


RETURNMSCW + 13 


*eeNOTE ee ee 
Z2%3%2% RETURNMSCW AND RETURNRCW ***MUST#** BE THE LAST TWO 


IN THIS PROCEDURE, 


CCONT22&(XCLOCK DIV 3600)) MOD 60 + (NT2 DIV 60)x100 + 


0. 


3) DIV 1)8#3 


$ SET OMIT = NOTCPACKETS) 


DEFINE UNITNO & SC23],(286)#3 


$ POP OMIT 


LABEL S$ 
LABEL J 


SWITCH 


TARTs CONTINUE® LOAD» PASS» 
ARSPACE» TRYAGAINS 


SW te QUIT. 


START» CONTINUE? 


WINDUPs QUIT: 


QUITs QUITe 


® ORIGINATING UNIT 


PASS} 


COMMENT THE VALUE OF "TYPE™ MAY DETERMINE WHICH PORTIONS OF 
PROCEDURES "SELECTRUNI™ AND/OR "SELECTRUN2" WILL BE EXECUTED, 


PROCEDURE "SELECTRUNI™ AND “"SELECTRUN2” MAYe 


THE BRANCH POINT IN THIS PROCEDURE. 
THE FOLLOWING DEFINES ARE USED TO SPECIFY THE BRANCH POINT 


IN SWIT 
END OF 


DEFINE 


CH "SW", 
COMMENTS 


STARTING 
CONTINUE ING 
QUITTING 
RUNING 
PASSING 
EQUATING 


onus us 


14. 
Z2#e 
38» 
Ge 
She 
6#3 


IN TURN» 


SPECIFY 


20141700 
20141600 
20141900 
20142000 
20142100 
20142200 
20142300 
20142400 
20142500 
20142600 
20142700 
20142800 
20142900 
20143000 
20143100 
20143200 
20143300 
20143400 
20143500 
20143600 
20143700 
20144900 
20145000 
20145100 
20145200 
20445300 
20145400 
20145500 
20145700 
20145800 
20145900 
20146000 
20146100 
20146200 
20146300 
20146400 
20146410 
20146419 
20146420 
20146421 
20146500 
20146600 
20146700 
20146800 
20146900 
20147000 
20147100 
20147200 
20147300 
20147400 
20147500 
20147600 
20147700 
20147800 
20147900 
20148000 
20148100 
20148200 
20148300 
20148400 


ar 


PCOeOe Oe Oe Ve De Oe Oe Oe Oe Oe Oe Oe Oe Oe0e0eVe0e0e0r020)3 
RCW £8 RCW & PCy eSELECTRUNSLODICCTCI3 


TYPE $@ STARTING3 


STARTS 
PIMIX @# 0} 
IF F NFQ O THEN & SHEET ENTRY PASSED AS A PARAMETER 
BEGIN 
$ t= TOQUE & FCCTCI]3 % SHEET ENTRY 
HDR $3 F,CFFIS & CORE ADDRESS OF OBJECT FILE HEADER 
END 
ELSE 
BEGIN 
IF TYPEBSTARTING AND NOT SHEETLOCKED THEN 
BEGIN 
SLEEPCELTOGLE ]+sSHEETMASK)3 
LOCKTOGC(SHEETMASK )3 
SHEETLOCKED += 13 
END3 
PCESVALUE]+ STS)3 
SELECTRUNIYS 
IF TYPE USS O THEN 
GO TO SWETYPES#ABSCTYPE)D]3 
END: 
CONTINUES 
PIMIX «2 03 


IF (MCPJOB 82 
CCSC1) EQV "DISK "ysCNOT 02) AND 
CCCSCO) EQV “PRNPBT ")®CNOT 03) OR 
—CCSC0O) EQV "LIBMAIN"’)#C(NOT 0)) OR 
C€(S$C0)] EQV "LOCNTRL™)*=C(NOT 0922) THEN 
IF €CCSC0) €QV *PRNPRT “(NOT 02) AND AUTOPRINT) OR 
CCCSCO] FQV *LDCNTRL™)3(NOT 0)) AND CDONLY) THEN 
MCPJOB,fit1) ¢2 13 


% NOTE? A NEGATIVE SIGN FOR MCPJOB IMPLIES THAT THIS JOB 
z SHOULD BE STARTED REGARDLESS OF THE AVAILABILITY OF 
z SYSTEM CORE, 


If INTSIZESO THEN % NO INTRINSICS FILE 
IF NOTCMCPJOB) THEN & NOT "SYSTEM™ PROGRAM 
BEGIN 
STREAMCNT382®NT32®SPACEC4))8 
053824 LIT"##NO INTRINSICS FILE op "3 


SPOUTCNT3)3 

SLEEPCCINTSIZE 32817773 

END? 
% ee ee ee ee ees eee ef | ee ae wok eeKKEK Ok * 
z * * * #* & x * * * * * * * * 
x Pe) ee ee ee ee eS ee 2 ee * * * rr.) es 2 
4 * *£ * #& & * * * * * x x &* 
x eRe * * eERK eae eee * 


20148500 
20149000 
20149200 
20149300 
20149400 
20149500 
20149600 
20149700 
201498600 
20149900 
20150000 
20150100 
20150200 
20150300 
20150400 
20150500 
20150600 
20150700 
20150800 
20150900 
20151000 
20151100 
20151200 
20151300 
20151400 


20151500 


20151600 
20151700 
20151600 
20151900 
20152000 
20152100 
20152200 
20152300 
20152400 
20152500 
20152600 
20152700 
20152800 
20152900 
20153000 
20153100 
20153200 
20153300 
20153400 
20153500 
20153600 
20153700 
20153800 
20153900 
20154000 
20154100 
20154200 
20154400 
20154500 
20154600 
20154700 
20154800 
20154900 
20155000 


IF S$€2],06810) NEQ@ 5 THEN ® ABOVE THE FENCE* GET SWAP DISK 20155100 


IF SWAPDISK = 0 THEN & NO SWAP DISK UBTAINED YET 20155200 

IF CSWAPDISK 1t& 20155300 
GETUSERDISKCCSWAPDISKSIZEtS(NTLS=NOT FENCE INX 1) DIV 30 + 20155400 

PONTY DIV 18900eDUPe+) 4638102947913)) = 0 THEN 20155500 

BEGIN 20155600 
STREAMCXtsS(eJ}e NTLBENTIS25SPACE(5) 3 20155700 

BEGIN 20155800 

DSt®18 LIT"#NO SWAP DISK FOR "3 20155900 

S[texXs SyptaSteis OSts7 CHRE OSteLIT*/™3 20156000 

STeeSl+i3 OSts7 CHR$ DStslLyTte%3 20156100 

END? 20156200 
SPOUTERCNT1L® UNI TNO*1)3 20156300 

GO TO PASS; 20156400 

END} 20156500 

IF UVSPACE # 0 THEN 20156600 
BEGIN 20156700 
STREAMCD t= UVSPACE 22 GETSPACECUVSIZE*®020)42)5 20156800 

BEGIN 20156900 

S1tsDs SPtsSy"Bs OSSeuVSIZE WDS3 20157000 

END} 20157100 

ENDS 20157200 

$ SET OMIT * NOTCSTATISTICS) 20157300 
JOBNUM t= JOBNUM + 13 20157400 

$ POP OMIT 20157500 
WHILECNT2$=XCLOCK4PCRTR)) GEQ@ WITCHINGHOUR DO MIDNIGHT} 20157700 
20157800 

> § eek < «ee OF * ok woe eRe OF * 20157900 
x * * * 7 * x * * * * * * * 20158000 
% * -  * eK * * * * c4eeE ORR 20158100 
z * “ * * * * * * * * * 20158200 
% eeeek tO * * ade eee 2 ee * 20158300 
20158400 

IF NOT McCPJOB THEN & NOT “"LIBMAIN™e"LOCNTRLs*PRNPBT® 20158500 

IF OLAYDISK®O THEN % NO OLAY OJSK OBTAINED YET 20158600 
OLAYDISK##PETUSERDISK(500 OR Mel)3 20158800 
20160200 

COMMENT JOB WILL BE RUN ONLY IFS 20160300 


1) AN XS OR ES MESSAGE HAS BEEN ENTERED FOR THIS JOBs CIN WHICH 20160400 
CASE SHEETDIDDLER TURNED ON S$C£2),01%1) AND CALLED SELECTION)» 20160500 

OR 2) THE SUM OF THIS JOBS CORE REQUIREMENTS (S{£20J) PLUS THE SUM 20160600 
OF THE CORE REQUIREMENTS OF ALL OTHER JOBS ACTUALLY RUNNING 20160700 
CCORE, LFF J) 1S LESS THAN THE TOTAL AMOUNT OF CORE AVAILABLE 20160600 

FOR USER PROGRAMS (THE INITIAL SPACE AVAILABLE (CORE,.CCFI) 20160900 


TIMES THE MULTIPROCESSING FACTOR (CORE,£4814)))> 20161000 

OR 3) "LOCNTRL/DISK" 1S BEING TESTED AND THE "CDONLY® OPTION JS SET 20161100 
OR 20161200 
*PRNPBT/DISK"” 1S BEING TESTED AND THE “"AUTOPRNT™ OPTION JS SET20161300 
20161400 

IF THE JOB BEING TESTED JS A “SYSTEM” JOB CLIBMAINeLOCNTRLe 20161500 
PRNPBT) AND THE ABOVE CONDITIONS ARE NOT SATISFIEDs THE 20161600 


THE APPARENT AMOUNT OF AVAILABLE CORE CAS SHOWN IN THE “CORE” 20161700 
WORD)? IS TESTED USING A FACTOR OF 141 TIMES THE ACTUAL FACTOR 20161600 


IN ORDER TO ATTEMPT TO FORCE THESE JOBS IN, 20161900 

END OF COMMENTS 20162000 

20162100 

IF CBELOWSe(S£2),084810]85)) THEN % "RUN" REQUEST? 20163600 
BEGIN ¥ RUN IT BELOW THE FENCE 20163700 

IF (S02) LSS 0) OR (MCPJ0B,(131]72 THEN GO TO JARSPACES 20164200 


% MCPJOB,L181)&1 MEANS RUN IT REGARDLESS OF CORE AVAILABILITY 20164300 


® S§$C2].0182) sts CORNORMAL» 1=NOT USED* 25XS*EDe 3RES*EDI 
IF CL#*CORE,C4%14)/100) GTR O THEN & FACTOR GTR O 
IF MCPJOB THEN 1881.10 x I3 % TRY AND FORCE IT IN 
IF CORE.CFF) + S£20) GTR CORE(CFIx! THEN GO TO PASS3 
END 2 JF “RUN” JOB 
ELSE 
BEGIN % NOT A “RUN” JOB 
If $€2) LSS O OR MCPJOBef121) THEN GO TO JARSPACE? 
IF BACKGROUND THEN & *"NOBATCH® OPTION NOT SET 
IF CLOGLINE #® $(26]) LEQ 0 & NOT FROM CANDE 
OR CIF LOGLINE,(£4088) GTR LMAX THEN O ELSE 
SCHEDLINELLOGLINE.£4028))) THEN % CANDE (TASK) SCHEDULE 
IF BATCHSELECTCFe S£20J]»+ BELOWs SHEETLOCKED) THEN GO TO PASS} 


ENDS 
% ee ae Se ee ee se es ee. ee es ee Le 2 ee 2 ed ee 2 2 
4 * * * *  « * Ok * * 7 
y 4 * Tet? eet te eee. 2... ees 2? ee 22 2 2 ee oe ok 
% * ™ * x* * % *  O% * * * * 
S wexake * x * Pe... eee | * * oO Ok 
JARSPACES 
® FIND A MIX SLOT FOR THIS JOB 
FOR MIXt21 STEP 1 UNTIL MIXMAX DO 
IF JAROGMIXe*)=0 THEN GO LOAD; 
%® NO FREE SPACE IN JAR! PASS ENTRY WITHOUT DELINKING AND CONTINUE 
NEEDSELECT 38 13 % CALL SELECTION NEXT EOU 
GO TO PASS} 
% * eee, eee ts ee eT S| Ee FERRE RR 
z * * ee. * * x * x * 
F | * * x kK Ok * * WON Me ii cae 
% * * * * * * * * * + * & 
x eKREK EK OF Ok xe * * * * 
LOAD? 
JWARROWEIMIX] «® TOQUE & HDREICTC)3 %® FILE HEADER BECOMES JAR ROW 


PRTROWCMIX] ¢8 O38 

UVROWELMIX] s#® UVROWLO] & UVSPACECCTC) & BELOW(7s121])3 

UVSPACE #5 03 %® MARK IT EMPTY CNO "FORGETSPACE” LATER) 

IF BELOW THEN 

CORE,CFF] t# CORECFF) + SC20)3 % ADD IN THE CORE ESTIMATE 
$ SET OMIT = NOTCPACKETS) 

IFC1§88¢23),£236]) GEQ 32 THEN PSEUDOMIX(CMIX) 3e1% & PSEUDOPROR JOB 
$ POP OMIT & PACKETS 

JARCMIXe20] s SLO]3 

JAREMIXel] 3& SE1I3 


20164400 
20165300 
20165400 
20165500 
20165700 
20165800 
20165900 
20166000 
20166100 
20166200 
20166300 
20166400 
20166500 
20166600 
20166800 
20166900 
20167000 
20167100 
20167200 
20167300 
20167400 
20167500 
20167600 
20167700 
20167800 
20167900 
20168000 
20168100 
20168400 
20168500 
20168700 
20168800 
20168900 
20169000 
20169100 
20169200 
20169300 
20169400 
20169500 
20169600 
20170100 
20170200 
20170300 
20170400 
20170600 
20170700 
20170800 
20170900 
20171000 
20171100 


JAROMINe 2) e5SC2)RCIF CNTI18#S(2),08810))85 THEN 2 ELSE NT1)(6s388101]320171200 


® IF THIS IS A "RUN® JOBse CHANGE IT TO SAY "EXECUTE" 
® JARCMIX02),08310] = SHEETC2), (8410) = 

% O = "GO" PART OF COMPILE AND GO 

% = COMPILE AND GO 

% = EXECUTE 

% # COMPILE FOR SYNTAX 

% = COMPILE TO LIBRARY 

% mw RUN JOB 

S AsBJARUMIX03),030818]» Dss(DT))3 & CREATION DATE FROM HDR 


STREA 


20171300 
20171400 
20171500 
20171600 
20171700 
20171800 
20171900 
20172000 
20172100 


| 


BEGIN 
S1saL0C As OStS8DEC3 
ENDS 
GIMEDATECCOT).«CCFJ]e "OT)$ &® CONVERT DATE TO ""MMDDYY"* FORMAT 
JARCMIXe3] te SC16]3 % PROCESS TIME LIMIT 
JARCMIX0e4)] 33 SCL7]3 & 170 TIME LIMIT 
STREAMCDATEs At#L1])3 & CONVERT DATE TO OCTAL FOR LOGGING 
BEGIN 
SItsLOC DATE’ DStz80CT3 
END) 
JARCMIXeSI]8aCXCLOCK4PCRTR)) & 1L1825%823)3 % DATE AND TIME 


JARCMIX26] 8m SLOIRSC23)(28286)3 & CARD/PSEUDO RDRe UNITNO IN C216) 


JARCMIXe7) ¢= SC14)3 % ACTUAL MFID OF OBJECT PROGRAM 

% JARCMIX28) THROUGH JAREIMIX229) STILL CONTAIN CONTENTS OF 
% OBJECT FILE HEADER AS OBTAINED ABOVE 

JAREMI X09) t® MCHDR INX 9),CCF)] & MCPJOBLI84791) & 


CSE2]),0C4t1) AND NOTCS£2),€2s1] OR AUTOMESS)IC284701)3 


® S€2).C4t1)]=#1 MEANS SUPPRESS BOJ/EOJ MESSAGES 

® MARK JARC9O).Ci81)21 FOR "LIBMAIN”'*"PRNPBT**"LOCNIRL"” 

SEE ALSO “SEGMENT ZERO” SECTION IN PROCEDURE “SELECTRUN2” FOR 
FURTHER ALTERATIONS TO THE JAR, 


Tit) eet.) eee TT * ere? rT ees 
& * * * *  & * * 
ik wo ORR Pee? ae. ss 
* * * * * * 
e * * eH TL ee. eee 


IF $€2],02:1] OR CSL21) LSS 128) THEN SL21) 31265 

® $(2),02s1)*1 WHEN ES*EDe S£21) CONTAINS STACK SIZE 

SINFOCMIX) t= 0 & SLC2ZO0JCCTFI & CCCLOCK+#PCRTR)) DIV 60)£1831217)3 
SQUMIX) t= "45 

DATEMIX] $= "13 

PRYORLMIX) se 13 

PROCTIMECMIX]#® "SC16]"CLOCK*PCRTR)$ & PROCESS TIME LIMIT IN SE16) 


$ SET OMIT = NOTCNEWLOGGING) 


LOGSTOPPEDEMIX]) t= 03 % LOGGING IS ALLOWABLE 


$ POP OMJT & NEWLOGGING 


1OTIMECMIX] se "SC17)3 ® 1/0 TIME LIMIT IN S17) 


BREEZE % ZLZBR ¥E% % | 

3% z B% %* & & a a % 
PIMIXS83MIX3 ro 59S | 2% % & 2& i % 

% % % & & % % & 

% BER 2 & & REE a % 


USERCODELMIXI]##ABSCS({24])s & USERCODE IN SE24) 

IF S$(€2]7.€8810]"0 THEN FORGETESPOISKCS£25))t & FORGET OBJ,SKELETON 

% S$(2),[08810]7%0 FOR "GO" PART OF “COMPILE AND GO® 

IF CLOGLINE#®S(26)),(3337] NEQ@ O THEN &® CANDE JOB 
BEGIN 
STATABLECLOGLINE,L4088]),MIXFLAG t# | t# 
CIF JAREMIXe0) 90182) NE@ O THEN 32 ELSE 0) + MIX3 
DATCMIX) NDOSABLEtBJAREIMIX00),(281]3 
Z JARCMIXe0),(2t1)8J0B NOT DS*ABLE BY USER 
% JARCMIX20),0181) © COMPILE JOB 
IF 1 LSS 32 THEN TWXOUTCOeOs1 oLOGLINE D3 
% SEND CARRIAGE RETURN/LINE FEED TO INDICATE BOV 
END} 

REPORTBACK(BOUW#M1X00)3 


20172200 
20172300 
20172400 
20172500 
20172600 
20172700 
20172800 
20172900 
20173000 
20173100 
20473200 
20173300 
20173500 
20174100 
20174200 
20174300 
20174400 
20174500 
20174600 
20176200 
20176300 
20176400 
20176500 
20176600 
20176700 
20176800 
20176900 
20177000 
20178100 
20178200 
20176400 
20178500 
20178600 
20179100 
20179200 
20179300 
20179400 
20179500 
20179600 
20179700 
20179800 
20179900 
20180000 
20460100 
20180200 
20180300 
20180400 
20180800 
20180900 
20181300 
20181400 
20181500 
20181600 
20161700 
20161600 
20181900 
20182000 
20182100 
20182200 
20182300 


IF BELOW THEN 
BEGIN 
FRONTENDCMIX)3 
STASUSEMIXI]SSSELECTINGS 
END 
ELSE 
BEGIN 
DISKSTORECMIXJ]teSWAPDISK$ 
SWAPDISK %t# O% % MARK IT EMPTY 
INITIALSWAPCS(20),CCFI))3 
IF S£20),0C231) THEN MAXCOREC MIX] #512 2 "CANT EXPAND” BIT 
END3 
HDR t© JARROWEMIX] (CF I$ & “FRONTEND” MOVES THE JAR ROW 
STREAMCQESFSROWEMIXJSS(MCGETSPACEC4e001)42))84(8536810))5 
DSteZ2L1T"O"; 


IF €€S£0) EQV "CANDE “)®(NOT 0)) THEN 
IF (€CSE1) EQV “TSHARER™)=C(NOT 0)2 THEN 
BEGIN 
I t* S€2),0281)3 T8=5(18)3 
STARTCANDY( Is T)3 
$£2],0281] t= 1% SC18)] s= T3 
END} 
® SC2),02:1)=1 FOR ES*ED JOB» SCIBIFSPRIORITY 


NT4 3% IF BELOW THEN 518400000 ELSE 1803 
LOCOUNTEMIX] t= 913 
ELAPSEDLIMITCMIX] t= TOTIMELMIXJ+#NTI*NTIS 
PROCLIMITEMIX] te PROCTIMECMIXI]#CLOCK+PCRTRD+NTLE 
OLAYCTREMIX) t= UPOLAYCNT))3 

$ SET OMIT &® NOTCAUXMEM) 


20182400 
20182500 
20182600 
20182700 
20182800 
20182900 
20183000 
20183100 
20183200 
20183300 
20163400 
20183500 
20183600 
20183610 
20183620 
20183700 
20183600 
20183900 
20184000 
20184100 
20164200 
20184300 
20184400 
20184500 
20184600 
20184700 
20184800 
20184900 
20185000 
20185100 
20165300 


AUXCODECMIXJSSAUXDATACMIX]8=03 & AMOUNT OF AUXMEM USED FOR THIS JOB 20185400 
AUXERRORTOGI#®(*#PCDUP)) AND NOTCTWOCMIX))$ % MASK FOR AUXMEM RECOVERY20185500 


$ POP OMIT % AUXMEM 
TYPE #3 CONTINUEINGS3 


% SELECTRUN2 IS CONCERNED WITH! 
%  BOJ MESSAGE 

% SEGMENT ZERO 

% STACK AND PRT 

% SEGMENT DICTIONARY 

%  DALOC 
% COMMON 


PCCSVALUEJ*STS)3 
SELECTRUN2} 
IF TYPE LSS 0 THEN 
GO TO SWLTYPES*ABSC(TYPE) )3 


IF CSEGOL7],CCFJ®0) THEN % BUILD A DUMMY FILE PARAMETER BLOCK 
TRPL3] EBC MLGETSPACE(12001)42)) ELSE 


BEGIN 
TYPE t# FQUATINGS % BUILD FPB AND PROCESS LABEL EQUATION 
PCCSVALUEJ*STS)3 
SELECTRUN1I3 
IF TYPEsCL#4) THEN GO TO SWETYPES#ABSC(TYPE) U3 
END} 


FPBDUMIX] s2# TRPL3)3 


20185600 
20185700 
20185800 
20185900 
20186000 
20186100 
20166200 
20186300 
20186400 
20186500 
20186600 
20186700 
20186600 
20186900 
20187000 
20187100 
20187200 
20187300 
20187400 
20187500 
20187600 
20187700 
20187800 
20187900 
20188000 
20188100 
20168300 


% TRPL3) VALUE SET BY SELECTRUN1 FOR NON@MCP TYPE JOB 
GO TO WINDUPS 


PASS? 


TYPE #3 PASSING} 
PCESVALUEJ*STS)3 
SEWECTRUNI3 

IF TYPE LSS O THEN 


GO TO SWCTYPES2ABS(TYPE)J3 & SELECTRUNi DETERMINES BRANCH POINT 


WINDUPS 

| Ls * * *k% Wek oR aOR 
a oi x* * * * * * _ * 
% * ** * * * * * * ekEM 
x * * ** * * * * * * * * 
3 ** * *e wx * 0 * 4K eet. ee ee 


% INITIALIZE OTHER PRT CELLS 
TRPCO] &% WORDOFEASES 
TRPC2) ¢% MEMORY? 
TRPC10) 8% TRP&CSTACKLOC4#19016333215)3 
IF JARCMIX*0) LSS O THEN & COMPILE JOB 
BEGIN 
IFCNTLPSIJARCMIX22],08910))284 THEN & COMPILE TO LIBRARY 


TRP(@26)82S(22] % SAVE FACTOR FOR OBJECT FILE IN SHEET(22] 


ELSE IF NTJis3 THEN ® COMPILE FOR SYNTAX ONLY 
BEGIN 


TRPC@26)!s°13 & SAVE FACTOR & ("1) & DONT SAVE OBJECT 


JARCMIX22]),(8840]9%23 % MARK IT AN “EXECUTE” JOB 
END} 
END§ % COMPILE JOBS 
TRPCO) FFL AGCORCTRP(6)1£18%33815)832061388101)3 
IF JAREMIX*#2] GEQ 0 THEN % NOT COBOL 


TRPCLLJ eSFLAGCORLCTRPL11]1018233915)8818238810))3 % MOAT" ENTRY 
% BRING IN STARTING SEGMENT&BUILD CONTROL WORDS FOR INITIATES 


MAKEPRESENTCTRP INX POLISHCSEGOL6] *®TRPC SI] e INX*LOD),C8k10)3)3 
% SEGO(6) = STARTING SEGMENT NUMBER 


% SEGDICTCSEGOL6)],68410) 2 PRT LOCN, OF DESC, FOR STARTING SEGMENT 
MCSTACKLOC42) 8% "FLAGCPOLISH(SEGOLO] eTRPC 4] oJ NXeLOD),(18815))3 


MCSTACKLOC41 J) 8% PFLAGCORCTRP)£C683389))3 
MCSTACKLOC) 12 ©22222222222222223 
TRP(8) $® "FLAGCSTACKLOC#2)3 % INITIATE CONTROL WORD 
IFONTL@STRPCL4],01816)) NE@ O THEN 
INTABLEROWEMIXJ F# INTABLEROWENTI J 
ELSE IF NOTCUAREMIX09)].0191]) THEN % NOT SYSTEM TYPE JOB 
BEGIN 
IF BELOW THEN It®INTSIZE ELSE 
JSFINTL3ISTZE+INTISSTARTS 
INTABLEROWCMIXISSCMLGETSPACECITotel) +2) ]8108836810)3 
STREAMCAISL eo TES INTABLEROWLMIX) 23 
BEGIN 
StisTs StteSp78s DSteA WOSs 
END$ 
END} 


FORGETSPACE(SEGO)3 
IF S€2],C2t1] THEN & SC2],0251)81 WHEN ES*EDs CALL TERMINATE 
BEGIN 


20188800 
20188900 
20189000 
20189100 
20189200 
20189300 
20189400 
20189500 
20189600 
20189700 
201896800 
20489900 
20190000 
20190100 
20190200 
20190300 
20190400 
20190500 
20190600 
20190700 
20190800 
20190900 
20191000 
20191100 
20191200 
20191300 
20191400 
20191500 
20191600 
20191700 
20191800 
20191900 
20192000 
20192100 
20192200 


- 201923080 


20192400 
20192500 
20192600 
20192700 
201492800 
20192900 
20193000 
20193100 
20193200 
20193300 
20193400 
20193500 
20193700 
20193800 
20194300 
20194400 
20194500 
20194600 
20194700 
201948600 
20194900 
20195000 
20195100 
20195200 


TERMINATECMIX & 35€CTFI)3 


E 


ND} 


8 SET OMIT = NOTCNEWLOGGING) 
STOPLOGCMIX20)3 % STOP LOGGING TIME FOR THIS J0B 
$ POP OMIT % NEWLOGGING 
SAVEMIXCMIX*LOGLINE)3 
(MIX) ¢= SE16)3 % PRIORITY IN SHEET(16])3 
STASUSEMIX]t=RUNNING3 
$ SET OMIT = NOTCSTATISTICS) 
TIMINGEMIX] $@CLOCK+PCRTR)S 


PRYOR 


$ POP OM 


IT 


IF F®O THEN 2 SHEET ENTRY NOT PASSED AS A PARAMETER 


B 
T 
E 
QUITS 
PiMIX 


EGIN 


YPE t® CIF S£2],01%1] THEN STARTING ELSE CONTINUEING)3 
® IF ES*ED THEN RE*START SHEET SEARCHES OTHERWISE sCONTINUE ON 
GO TO STARTS 


Nos 


1% O03 


IF SHEETLOCKED THEN UNLOCKTOGCSHEETMASK )3 


IF § NEQ 0 THEN FORGETSPACECS)3 


% SPACE FOR SHEET ENTRY 


IF OLAYDISK NEQ@ O THEN FORGETUSERDISKCOLAYDISK»"500)3 
IF SWAPNDITSK NEQ O THEN FORGETUSERDISK(CSWAPDISKe*SWAPDISKS]ZE)3 
NE@ O THEN FORGETSPACE(CUVSPACE)3 


IF UV 
KI{LL¢ 


END SELECTION ROUTINES 


SPACE 
CF] INX 


DEFINES 
co 
EQ 
PE 
SL 
QU 
PO 
SP 
ID 
UN 
US 
LO 
FR 
OP 
PA 
US 
RU 
c0 
EX 
ae) 
UN 
AD 
EN 
RE 
CH 
EN 


$ SET OMIT = NO 


WA 


£$ POP OMIT 


DA 
LA 
SE 


NOT 1)5 


MMA 
UAL 
R10 
ASH 
EST 
YND 
EC1 
ENT 
LOCKV 
EV 
CKV 
EE 

EN 
CKET 
ER 

NV 
MP I 
ECU 
PY 
LOAD 
DV 
TER 
MOV 
ANG 
DF I 
TCPACKET 
ITV 


HOOK AHA CHO HAH HR RHR RN Hn 


TAV s 
BEV 5 
TV = 


108-2 
11#09% 
12403 
13493 
14808 
15#9% 
19# 0% 
20405 
224 0% 
23808 
248% 
258k 
264 0% 
27H 
284 
298» 
30#5% 
31#93 
328» 
33%» 
348» 
358» 
368» 
3748» 
398-8 


G08’ 
G1i8es 


A2#n% 
43403 


ZLP 1 


A SWITCH LABEL (FUNC) IN 
SECURITYMAINT USES THE ORDER OF 
VALUES OF "UNLOCKV® THROUGH "OPEN", 


20196000 
20197900 
20198000 
20198100 
20198200 
20198300 
201986500 
20198700 
20198800 
20198900 
20199000 
20199200 
20199300 
20199400 
20199500 
20199600 
20199700 
20199800 
20210000 
20210100 
20210200 
20210300 
20210400 
20210600 
20210900 
20211000 
20211100 
20211600 
20212000 
20213000 
20214000 
20215000 
20216000 
20217000 
20217500 
20218000 
20219000 
20219050 
20219060 
20219100 
20219200 
20219300 
20219310 
20219400 
20219500 
20220000 
20221000 
20222000 
20223000 
20224000 
20224500 
20225000 
20225500 
20226000 
20226099 
20226108 
20226101 
20226500 
20227000 
20228000 


COMMENT 
REAL 


RESETV = 448s’ 


FILEV =47#» 
EXPIRED 488» 
ACCESSD ek w 
PROCE @ 50%#e% A STORE NEAR THE END OF PCC 
10 = 51#°8 MAKES USE OF THE ORDER AND VALUES 
PRIOR = 520% OF "PROCE” THRU "SAVEV"™, 
COMMONV 5 538% 
COREV = 54S 
STACK = 55#0% 
SAVEV ms 56805 CSAVE #DAYS ON COMPILE TO LIBRARY) 
ALGOL = 60892 
FORTRAN a 628d 
TSPOL BO3Ks 
BASIC = 648. 
COBOL68 e658> 
WITH = 668s 
COBOL = 678. 
LIBRA = 68#:% 
SYNTA = 698% 
FROM = 708% 
TOV = 71#0% 
FORM = 788. ZSWITCH DCPCC)? “"FORM™@="SPECTAL"S 
NO = 798% 
DISK = B0#9% 
TAPE = Bites 
PUNCH = B28 
PRINT = 83#2% 
BACK = B5#e2 
SPECITAL=O9# 0% 
EU e918. 
SLOW EO2#. 
B6500 ORF» 
FAST = 94k» 
COPYN 95H. 
MAXV = 96#» 
FREEF aO7#s 
FIXED = 9B#> 
SENSE = 1008» 
LATESTYV = 1018 
PAPER = B4#3% 


RESWDS CONTAINS RESERVED WORDS FOR CONTROL CARDS3% 
MSCW = 72 


CARD = MSCW+HLe MYMSCW = CARD» 
RCW = #02 

PROCVAL = RCW4+1e ZIN CASE OF TYPED PROCEDURES 
A = PROCVAL#I1.« T = Ae 
CADDR = A+ie SFID = CADDR»s 
CARDLOC = CADDR+1>. 

CDEX = CARDLOC41> SDEX = CDEX» 
CLOSET = CDEX+1» 

CMPLR =m CLOSET+41» 

CN = CMPLRele 

INV = CNele 

KOUNT = I INV+1e 

LASTSCAN = KOUNT#41Ls 

LIBNO = LASTSCAN+1> 

N{¢ = LIBNO+lLs 

N2 =e Nite 

N3 = N2+lLe 


20228100 
20228200 
20228300 
20228400 
20229000 
20230000 
20231000 
20232000 
20232500 
20233000 
20233500 
20234000 
20235000 
20235050 
20235075 
20235080 
20235099 
20235100 
20236000 
20237000 
20238000 
20239000 
20240000 
20241000 
20242000 
20243000 
20244000 
20245000 
20246000 
20247000 
20247600 
20247700 
202476800 
20247900 
20247910 
20247920 
20247930 
20247940 
20247950 
20247960 
20248000 
20249000 
20288100 
20288105 
20288110 
20286115 
20288120 
20288125 
20288130 
20288135 
20288148 
20288145 
20288150 
20288155 
20286160 
20288165 
20288170 
20288175 
20286185 
20288390 


ARRAY 


NAME 
BOOLEAN 


REAL 


N4 

OPTN 
OPTNN 
PADDR 
PNEX 
PPCPROCESS 
SFO 

SMD 
SOURCE 
SPOUTUNIT 
ST 

T1 

UNTTNO 


RETURNMSCW 
RETURNRCW 
RETURNVAL 


wannnurmrHtwenrn atk neAn he RUHR Ha 


N341. 

N44¢1e 
OPTNe1.s 
OPTNN4+1 2 
PADOR+1.¢ 
PDEX+1. 
PPCPROCESS+#1.e 
SFD+1» 
SMD¢1e 
SOURCE +1» 
SPOUTUNIT#4#1 + 
ST+is 

Titi» 
UNITNO+]3 
USFRID+1(#)> 
ACCUM41 [alo 
CEQN4+1 0% J» 
CMM+1[*]>¢ 
DIRECT+4(*)» 
NB+iC*d» 
PFONSI[*]} 
PROG#+]3 
ADDR+ie 
ABORT+4+13 
TOG+1»s 
RETURNMSCWele 
RETURNRCW4]3 


$ SET OMIT # NOTCPACKETS) 
PROCEDURE PRINTTHECOVERCCARD*sUNITNO®PS)3 
VALUE CARD*UNITNO*PS3 REAL CARDeUNITNO®PS3 
% TO ALTER SIZE OF ONE™AREA PACKET PAGE CHANGE DEFINE AT 02113091 
BEGIN LABEL LeTRYAGAIN} 
REAL BUF eT» TPeX3 
INTEGER I»ePAGEADDR3 ARRAY HEADER[*)3 
SUBROUTINE BUILDHEADER? 


TRYAGA! 


BEGIN 


HEADER#*1OQUE & BUFICTCIJ; 


MCBUF J 5*Q3 


MOVEC29eBUF sBUF+1)3 
STREAMCDATE®H3I=HEADER INX 3)3 


BEGIN SIs*LOC DATES DS!#80CT3 
DItFH33 OSte2LIT +e" 3: 
SIteH3s SLtFS1+5) DSts3cHRs %& ACCESSED 


ENDS 


& THESE LOCALS 


% CREATION 


% SAVE 10 


HEADER(O)2#800132001320001033 & 902900153 
HEADERE 1) F#CXCLOCK+PCRTR)) & HEADER(C3I(6830916)3 
HEADER(L2) 8 #MCPi 


HEADER(C4)¢#0 & €@1001)9021381310)3 


HEADERCSIs*"PACKET "3 
HEADERC7Is#CPAGESIZE DIV 3)°13 
HEADER(8)s#PAGESIZE; 


HEADERE 9) 3 "13 


HEADERL 10] 8*#PAGEADDRS 


END BUILDHEADERS 


Ni 


MUST BE THE LAST 


% THREE LOCALS OF CONTROLCARD 


CIDTABLELUNITNO@3206)te®TP#= 001 & NEXTCONUM(1)(6824824)3 


IF DIRECTORYSEARCHC®"PBD 


BUF PaGETSPACE(9026455)425 


PAGEADDRIsGETUSERDISKCPAGESIZE)3 


"sTP23)#0 THEN GO TRYAGAINI 


20288195 
20288200 
20288205 
20288210 
20288215 
20288220 
20288225 
20288230 
20288235 
20288240 
20288245 
20288250 
20288255 
20288268 
20288265 
20288270 
20288275 
20288280 
20286285 
20288290 
20288295 
20288300 
20288305 
20288310 
20288315 
20288320 
20288325 
20289000 
20289009 
20289010 
20289020 
20289025 
20289030 
20289035 
20289040 
20289045 
20289050 
20289055 
20289060 
20289065 
20289080 
20289085 
20289090 
20289095 
20289100 
202891405 
20289110 
20289113 
20289115 
20289116 
20289120 
20289125 
20289130 
20289135 
20289140 
20289142 
20289144 
20289146 
20289148 
20289150 


Lt 


PSis= 
IF PS#O THEN “CRA” ELSE IF PS®1 THEN “CRB” ELSE 
IF PS#2 THEN TINULUNITNOJ,C€C30218) ELSE 
IF PS#3 THEN "ZIP" ELSE 
"” Wy 
STREAMCCARD® TPSECIDTABLELUNITNO"32e2])9PS 
» NEFCIDTABLELUNITNO"3297)4142BUF D3 
BEGIN DStwBLIT" "3 ST&sBUF s 2¢DS8%44 WDS)3 
SIlteLOC NS DIteLOC N# OSISBDECS DIteLOC N3 DSteBFILLs 
SIs#LOC NS SlteSt433 DL teBUFs DOL FeD1+123 
DSIS7TLIT®INPUT 3 DSIZSCHR? DSt¥e12LIT" CARDS FROM "3 
SITtsLOC PS3 StseS][+53 DSts3cHR 
DISsBUFS SC DI3S2D14+34)s DSseBLIT™sx214000"$ BUF IEDI3 
STieLOC TPs STewS] +22 DL tsO +123 
OSt=SBLIT*PACKET “3 DSt#4CHRI 
DISSBUFS 4° OL 880143493 DSsSBLIT@sx214000"3 BUF SEDI 
STRECARDS DSt=9WDS3 
DISSeBUFS 4CD1t2D14+34)3 DSs=BLIT"sx212000%§ BUF P=0T3 


S4(DSteLIT@#")s OStSL1I LIT" ABORTED 3 SSCDSISLITM#")3 


DISsBUFS SCDLEsD14+34)3 DStsBLIT*$x212000"3 BUF SFDT3 
DSIsL6OLIT*+ABORTEDOPAGE "; DSIxOLITMOPACKET O*3 
S1teLOC TPS SiseSle23 OSte4CHRs DiteD1+33 
SIESCARDS OSteBwDSS DSteBLIT"OPACKET "3 
4OCDSSeLIT"O")3 
ENO! 
DISKWAITCBUF eP9OsPAGEADDR)} 
STREAMCALS1IECONTLteCCXCLOCK+#PCRTR)) DIV 3600)) MOD 60 
+ONTL DIV 60)xX100) *ACTDATE® WEEKDAY es BUF )3 
BEGIN 
ZCACDI 2 eD1434)3 OSteBLIT*#xOx2000")3 BUF SEDI3 
DSteBLIT" "s SFsSBUFS OSt=34 WOS? OL P=BUFS 
SIS*#LOC WEEKDAYS DItsD] 412% DSts4LIT@DATE"s DI PaO +4 
SiseSie2! 6OcCIF SC#" “ THEN S]teS141 ELSE DSteCHR)} 
SIT'eLOC ACTDATE? DSteSLIT™DAYs 3 
SfawS14+2s 2CDSHR2CHRS OSseLIT"/")3 DS#s2 CHR 
DISFBUFS A4CDI8eD14+34)3 DSsSBLIT"§x214000%3 BUF TFDIS 


SI#tsLOC A$ DListed] +123 DSte4LIT"TIME*s DIseDI+4s DSIF4DEC3 


DItFBUFS 4¢CDL9#D14+34)3 DSssBLIT*&x214000%% 
END} 
DISKWAITCBUF? 902PAGEADDR#3)3 
GO TO Ls 
X1863 MC BUF417I)9=03 
IF CTISDIRECTORYSEARCHC "MESSAGE" *® "OTHEDAY%#5) #0 THEN 
BEGIN 
FOR [tO STEP 1 WHILE €1<6) AND NOT M(BUF417) DO 
BEGIN 
DISKWAITC#BUF e90eM(T4+10)43xI1)3 
DISKWAITCBUF 2 902PAGEADDR4+643x] )3 
X¢aeXe33 
END3 
FORGETSPACECT)3 
END? 
STREAMCML S$ @MARKLEVELe PLS @PATCHLEVELe LL eLOCALEVEL 
eT LS=MC3)¢BUFSSBUF +94) 3 
BEGIN DS##8LIT™ "3 SITSeBUFS DSH#34 WOS) DIFFBUFS 
DIIFDITBs DStSBLIT™&x0QO803"3 
DIsteDl+12s DSIeLBLIT"#NO MESSAGES TODAY"? 
DIIMSBUFS ACDILESDI1434)3 DSsFBLIT"sx242002"5 BUF SEDIS 
DTtsD14+8s PSssZiL]T%#ee BURROUGHS BH700 TSMCP MARK "3 
S1l##LOC MLS IF SC GEQ@ * * THEN} 


20289152 
20289153 
20289158 
20289155 
20289159 
20289160 
20289163 
20289165 
20289170 
20289175 
20289180 
20289185 
20289190 
20289195 
20289200 
20289205 
20289210 
20289215 
20289220 
20289225 
20289230 
20289235 
20289240 
20289245 
20289250 
20289255 
20289260 
20289265 
20289270 
20289275 
20289280 
20289285 
20289290 
20289295 
20289300 
20289305 
20289310 
20289315 
202893208 
20289325 
20289330 
20289335 
20289340 
20289345 
20289350 
20289355 
20289368 
20289365 
20289370 
20289375 
20289380 
20289385 
20289390 
20289395 
20289400 
20289405 
20289410 
20289415 
20289420 
20289425 


BCIF TOGGLE THEN IF SC#"0O" THEN STtsSI+1 ELSE DSt=CHR 
ELSE DSt*CHR)# DSteL17","3 


Sit 


zLOC PL3 


IF SC GEO * * THEN; 


6CIF TOGGLE THEN JF SCwe"O" THEN SJteSIl+i ELSE DStsCHR 
ELSE DS#sSCHR)? DOSte2CHR3 


SI! 


=LOC LL? 


IF SC GEO * * THEN} 


BCIF TOGGLE THEN IF SCe"O" THEN STteSI+1 ELSE DSIsCHR 
ELSE DS#SCHR)S DSte21L1T" AND INTRINSICS MARK "3 


SI! 


#LOC ML3 


IF SC GEG ” * THENS 


BCIF TOGGLE THEN IF SC#"O" THEN STteSlet ELSE DSteCHR 
ELSE DS#sCHR)$ DSteL IT", "3 

S1s#LOc JLs STi=Sto13 IF SC>*O" THEN DSt2CHR ELSE 

SLteSle1s3 DS#R2CHRI OSte4LIT” aur} 

OL§*BUFS 4CO182014+34)3 pSreBLIT™ex212001%3 


END} 

DISKWAITCBUF * 9O»sPAGFADDRX)3 
BUILDHEADER?S 

ENTERUSERFILEC"PBD “sTPeBUFT1)3 


PSEUDOCUNITNO™32]8=(#PCDUP) 28 


FORGETSP 


ACECBUF )3 


END PRINTTHECOVERS 


$ POP 
COMMENT 


OMIT 


FETCH READS THE NEXT CONTROL CARD » 


OF CAR 


R 
BEGINS 


1106#36810]& ® PACKETPBD 

CIF T#0 THEN 3 ELSE 2)(18845%3)& & PACKETREC 
10228479138 & PACKETFREE 
CPAGEADDR#X)(22822:26)3 & PACKETPAGE 


SETS SOURCE TO BEGINNING 


D e SETS LAST WORD OF CARD TO PERIOD, $3 
PROCEDURE FETCHCUNI TNOsCARDLOC+SOURCE)3 

VALUE UNITNOeCARDLOC? 

FAL UNITNOeCARDLOC,SOURCE 3 


REAL TeE3 


EtS@L4QUNITNOLC4SStisids UNITNOPSABSCUNITNO)3 
IF CUNITNO OR 1)#31 THEN 2DATACOM OR ZIP 
MCSOURCEs*CAROLOE 13 3@1425452432373737 ELSE 


BEGIN 


$ SET OMIT © PACKETS 
IF UNITNO232 THEN Te 


$ POP 


OMIT 


$ SET OMIT ® NOTCPACKETS) 
1F UNITNO GE@ 32 THEN 
DO UNTIL NOT E€,€4581) OR Tite 


$ POP 


OMIT 


Do 


READEMFROMDISKC(CIDROWCUNITNO*32) 03% 


CMECCARDLOC)1&810(6838810)) ELSES 


BEGIN T#®IF UNITNO®30 THEN O ELSE 

WAITIOCCARDLOC INX @40000000rEe UNI TNO) 

IF UNITNO*®30 OR T,(4581) THEN 
STREAMCCARDLOC )3 

BEGIN DSteLIT MARKSDSI#4 LIT "ENDe” ENDS 
IF UNITNO#25 THEN 

BEGIN 
STREAMCT#OSCARDLOC 3% 
BEGIN SI#CARDLOCIDIS©LOC TiDleD1+6sSleSleLiDSe2CHRiSIS12°1520301000 
DI©CARDLOCIDI#DIMLIDSeLIT™<"Z8(60CIF SCeMe” THEN 
BEGIN DS*CHRIJUMP OUT 2 TO L ENDSIF SCB"<" THEN 
BEGIN DleDITISIF SC#OC THEN DI*DI"!l END ELSE 
DS*CHR))5 


20289430 
20289435 
20289440 
20289445 
20289450 
20289455 
20289460 
20289465 
20289470 
20289475 
20289480 
20289485 
20289490 
20289495 
20289500 
20289510 
20289520 
20269530 
20289540 
20289550 
20289560 
20289570 
20289580 
20289590 
20289608 
20289601 
20290000 
20291000 
20292000 
20292100 
20292200 
20293000 
20294000 
20294600 
20295000 
20295100 
20295200 
20295999 
20296000 
20296001 
20296099 
20296100 
20296200 
20296201 
20297000 
20298000 
20298100 
20298200 
20299000 
20299020 
20299030 
20299040 
20299110 
20299114 
20300000 


20301100 
20301200 
20301300 
20301400 


END 


Lt 
END3 


DI*CARDLOCIDIeDIMIISITSLOC TISIT*S1T+630S¢CHR3 


MAKELOGCCCARDLOCeECFI)"1*SPIN)3 
END ELSE PCO)3 

ENO UNTIL P,C4286)#4315 

MCCSOURCE © CARDLOCI+91¢0R","C1843s5) 3% 


END3 
3% 


COMMENT THE SCAN ROUTINE IS USED FOR CONTROL CARD SCANNING,&% 


SCAN 


RETURNS THE FOLLOWING RESULTS 3% 
4 FOR IDENTIFIERS WHICH ARE NOT RESERVED2 
QO FOR PERIOD 
1 FOR SLASH 
2 FOR QUESTION MARK 
Seee FOR IDENTIFIERS IN DIRECT. 
3. FOR OTHER SPECIAL CHARACTERS «3% 


13 FOR "PRIORITY" 4% 
REAL PROCEDURE SCNCUNITNOsCARDLOC* SOURCE PACCUM®KOUNT sLASTSCAN? 
DIRECT) 
VALUE UNITNO»eCARDLOC ; 


REAL UNITNOsCARDLOCsSOURCE®s 


KOUNTsLASTSCAN 3 


ARRAY ACCUM(#*]sDIRECT(#]3 


BEGIN 
LABEL 


% 


GOGO= 


TYPEO* TYPEL®1TYPEQ34 


SWITCH TYPE © TYPEO*#TYPELSTYPE2 3% 


REAL 


13% 


LABEL PERPERSS 


G0G01% 


IF LASTSCAN THENS 
BEGIN IF LASTSCAN < 0 OR UNITNO = 31 THENS 


BEGIN I ¢ QUEST LASTSCAN + 03 GO TO TYPE ENDS 
FETCHCUNITNO*CARDLOC »SOURCE)3 
LASTSCAN? £0 


$ SET OMIT = NOTCPACKETS) 


&1f234731)3 


$ POP OMIT 
END3% 
I * IDENTS& 
STREAM CJeOeKeOeSOURCE & ACCUM)32 
BEGINS 
Sq] * SOURCE 3 DI © ACCUM $ DleDI+14% 


Ls 


IF SC & " " THEN BEGIN ST#5]1413 GO L ENDS 
IF SC & ALPHA THEN 


BEGINZ 


IF SC ®@14 THEN GO TO L333 


Lis 


ELSE 


DS * CHR 3 TALLY + 134 
63CI1F SCBALPHA THEN BEGIN DS*CHRSS 
TALLY*TALLY#1 END ELSE JUMP OUT)33 


KeTALLY$ TALLY*O3 JeTALLYS DS*8 LIT" "3% 
ENDS 

IF Sc a """ THENS 

BEGIN Si ¢ Spots 


30CIF SC#""" THEN JUMP OUTS 
DSteCHRs TALLYISTALLY41)3 
IF TOGGLE THEN % FOUND CLOSING QUOTE 
BEGIN DSte6 LIT" "3 STseSl4e13 
KemTALLYS TALLYs*1s JUteTALLYs 
END 
ELSE %B INVALID STRING 


20301500 
20301600 
20301650 
20301700 
20302000 
20303000 
20303900 
20304000 
20305000 
20306000 
20307000 
20308000 
20309000 
20310000 
20311000 
20312000 
20313000 
20314000 
20314050 
20314100 
20314200 
20314300 
20315000 
20316000 
20317000 
20319000 
20320000 
20321000 
20322000 
20323000 
20324000 
20325000 
20325100 
20325109 
20325110 
20325111 
20326000 
20327000 
20326000 
20329000 
20330000 
20331000 
20332000 
20333000 
20334000 
20335000 
20336000 
20337000 
20338000 
20339000 
20340000 
20341000 
20342000 
20342250 
20342500 
20342750 
20343000 
20343250 
20343500 
20343750 


S1+S1°313 GO L33 
END3 
END& 
ELSE BEGINZ 
L318 


TALLY © 23 JeTALLY# DI*LOC KS DleDI] +73 DS*CHR 3% 


END3% 
SOURCE * S]32% 
END#% 
COMMENT STACK NOW CONTAINS ! O FOR JDENTIFIER & NO, OF CHRSS% 
1 FOR "Jp" & NO, OF CHRS2 
2 FOR SPECIAL CHR & ACTUAL CHR 
PCECSOURCEJr©)3 
PCCKOUNTJ9«#)3 
GO TO TYPECPOLISHI3% 
TYPEOIS 
BEGIN 
T+*23 WHILE DIRECTCI*¢1+2174#0 DOB 
IF CDIRECT£LI) E@VY ACCUM[LO))2 NOT 0 THENS 


3% 


BEGIN IF DIRECTLI41)#QUEST OR CUNJTNO#25 OR UNITNO230) 


AND CARDLOC,CCFIJ"SOURCE,CCF) THEN 
BEGIN T*DIRECTLI4+133G0 TO TYPES END ENDS 
I] * IDENT ¢& ENDSE 
GO TO TYPEL 3% 
TYPE23% 
IF KOUNT#"«*" THEN ACCUM[OJ}+ ™ 
IF KOUNTS"e" ORS 
KOUNT ="," THENZ 
BEGIN LASTSCAN « 13% 
PERPERS I « PERIOS GO TO TYPE(3% 
END3% 
IF KOUNTS"=*" THEN BEGIN IF UNITNO232 THEN 
IF CIOTABLECUNJ TNO@3203)2 
CIDTABLELUNITNO"32e7]) THEN 


O* OR KOUNT3 


BEGIN I*ENDFIF GO TO TYPE’ ENDS 


IF UNITNO = 31 THEN 


BEGIN I*PERIO# GO TO TYPE1 ENDS 


FETCHCUNITNOsCARDLOCsSOURCE)3 
$ SET OMIT = NOTCPACKETS) 
IF UNITNO GE@ 32 AND NOT LASTSCAN,L 221) THEN 
BEGIN STREAMCCARDLOCe YeleSPACECI0O) 23 
BEGIN DS#5LIT">%3 
SIT*CARDLOC)S 2¢(DS*#36 CHR): DSeLITo "3 
END SPOUTERCIT*®UNITNO*#64)3 
END3 
$ POP OMIT 
GO TO GOGO} 
END? 
IF KOUNT = "3" THEN? 
BEGIN LASTSCAN + #13 GO JO PERPER ENDSS 
I # IF KOUNT #"/" THEN SLASH ELSES 
CIF KOUNT =» @14 THEN QUEST ELSES 
CIF KOUNT #0" THEN COMMA ELSES 
CIF KOUNT#"=" THEN EQUAL ELSE % 
CIF KOUNT#="#" THEN POUND ELSE SPECI)))93 
TYPE1$ SCNeI3 
END SCAN 3% 
PROCEDURE SEEKNAMCA®BeCeDeEoN)3 VALUE AeB$ REAL ArBeCeDeEoN$ 
BEGIN 
LABEL FINDeL3 


aLP 1 
BLP 1 


20344000 
20344250 
20345000 
20346000 
20347000 
20348000 
20349000 
20350000 
20351000 
20352000 
20353000 
20354000 
20355000 
20356000 
20357000 
20358000 
20361000 
20362000 
20363000 
29364000 
20364500 
20365000 
20366000 
20367000 
20368000 
20368100 
20369000 
20370000 
20371000 
20372000 
20373000 
20374000 
20374100 
20374200 
20374300 
20374310 
20374320 
20374400 
20374409 
20374410 
20374415 
20374420 
20374425 
20374430 
20374435 
20374436 
20374500 
20374600 
20375000 
20376000 
20377000 
20378000 
20379000 
20380000 
20380500 
20381000 
20382000 
20382010 
20382020 
20382030 


ARRAY NB[*]3 
REAL IeTé INTEGER J 
INTEGER JleJ2eJ3eKie Kes 
LABEL RESTART} 
IF C#0 THEN 
BEGIN Nt®SPACE(60)"713 
Ji9eJ38F03 KLtEK2ssMODULUS"1;3 


20382040 
%10420382050 
%¥10420382052 
%10420362054 
210420362056 
%10420362058 
%10420382060 


IF A GE@ O THEN JLtFK193CAel 6818) 4Ae024324)) MOD MODULUS’ 20382062 
IF B GE@ O THEN J38BK21%(80(6118)4B,024%t24)) MOD MODULUS; 20382064 


END ELSE %10420382066 
BEGIN [s®CT#*™MEN]).[4216)3 %10920382068 
JLPBTL3I616)3 J2seTe fC 308615 J3taT,Ci2t6)3 ®10420382070 
KissT,C2486)3 K2teT,[18t6)3 %10420382072 

ENDS 10420382074 
NBtweCMCN+1)3&860(6838610)3 %10420382076 

IF C NEQ@ O THEN GO TO RESTART! 210420382095 

FOR JiseJ1 STEP 1 UNTIL K1 00 %10420382100 

FOR J2s5J3 STEP 1 UNTIL K2 DO %10420382110 
BEGIN J#®SCRAMBLECJ19J2)3 210420362120 

DO BEGIN %10420382130 
DISKWAITC?N™12600J))3 %10620362140 

FOR 1880 STEP 3 UNTIL 57 00 %10420382150 

BEGIN %10420362160 

IF CTS@NBCT]) NEQ@ @14 THEN %10420382165 

IF CT FQV A)YENOT O OR AKO THEN 20382170 

IF (NBCIT4+1] EQV B)=ZNOT 0 OR B<O THEN GO FINDS 20382189 

RESTART? END? %10420362190 
END UNTIL CJtBNBL2), CFF) )203 %10420382195 

END3 20382200 
FORGETSPACECNB)3 %10420382202 

IF c#O THEN Nis0 ELSE C1803 20382204 

GO TO 3 210420382206 
FINDS 20382210 
DeNBCIJSE*NBCI+193 20382220 
CeSNBCI42),(CFI]3 %10420382225 

MENT EBLUL C 3684216 IRI2L 30s aSsGIAKIL 24s h42selak2liss42s6)8& %10420382226 
J3C1284236)3 %10420382227 

Lt. 20382230 
END3 % SEEKNAME 20362248 

REAL PROCEDURE PPC 20383000 
CADDREEQN®XeDEXe TYPE ®UNITNO#CARDLOC »SOURCE sACCUM*LASTSCAN? 20384000 
DIRECT)3 20384100 

VALUE TYPE »UNITNO*®CARDLOC 5 20385000 
REAL ADDR» DEXe TYPE R®UNITNOs CARDLOC »SOURCE>» LASTSCAN 3 20386000 
ARRAY ECQNC¥IeXL#IFACCUME*I}eDIRECTLI*I: 20386100 
BEGINS 20387000 

REAL JODeKOUNT} 20388000 
LABEL EXITseERROReNEXTs LFORMPLNOSLOISK se LTAPE pL PUNCH®LPAPER oS 20389000 
ROUND» PROTECT? 20390000 

SERIALS UPDATE * SPO»DSKCHECK» % (SHM)20391000 

DOWNS 20392000 
LSPECIAL*+LPRINT# LBACKeLCOPYosLFREES 20393000 

SWITCH D © LFORM*sLNOeLDISKeL TAPE» LPUNCH®eLPRINTeLPAPER#& 20394000 
LBACKs SERIAL® UPDATEs SPO0e% 20395000 
LSPECIALeFRROR* ERRORS ERROR*@ ERRORS ERROR@ LCOPYSERROR® 20396000 

LFREE* ERROR» PROTECTS 20396010 

REAL NOLBLe«eTPNO 3% 20397000 
BOOLEAN FAROUTs 20397050 

REAL SUBROUTINE SCAN3 20397400 


BEGIN SCAN*SCNCUNTTNOsCARDLOCe SOURCE sACCUM*KOUNT PLASTSCAN® 20397200 


DIRECT) 20397300 

END3 20397400 

IF TYPE = FILEV THEN 20398000 
BEGIN 20399000 

IF ADDR #0 THEN ADOR*X(CI3I+GETESPDISK 3% 20400000 

IF DEX #F 2 THEN 20401000 
BEGIN& 20402000 

EQN (29) © GETESPDISKi4 20403000 
DISKWAITCEQN, (CF Js 302ADDR)S 20404000 

ADDR « EQN[29]3% 20405000 

DEX « 03% 20406000 

END#& 20408000 

IF CTYPES®SCAN) < JOENT THEN GO TO ERRORS 20409000 

EQN * (14 x DEX) INX EQN 33 20410000 
EQNC12]:e03 & ZERO OUT EU/SPEED CELL Z €SHM)20410100 
STREAMC KOUNTs ACCUMe Z © CEQNE4)J)3% 20411000 
BEGIN 20412000 

S] * LOC KOUNT 3 SI*S14+73 DIe©Zs DS*CHRSS 20413000 

SI * ACCUM § S]e#SI+#13 DS* KOUNT CHR 33 20414000 

END 33 20415000 

IF X£0J<O THEN IF KOUNT®4 AND ACCUMLOJ,[6t24]="CARD" 20415100 

THEN FAROUT © TRUES 20415200 

IF SCAN # EQUAL THEN GO TO ERRORS 20416000 

IF SCAN < IDENT THEN GO TO ERRORS 20416500 
EQNC2) © EQNI 3] +% 20417000 
EQNCOJ+OS EQNE1] © ACCUMCOI3% 20418000 

IF (CTYPE*SCAN)® SLASH THEN 20419000 
BEGIN IF SCAN2IDENT THEN 20420000 
BEGIN EQNCOJ*EQN( 13% EQNCLJ*ACCUM(O) 1% 20421000 

; END ELSE 60 TO ERROR? 20422000 

TYPE + SCAN END3& 20423000 

IF TYPE = COMMA THEN2 20424000 
BEGINZ 20425000 
IFCTYPE*SCAN)# IDENT OR KOUNT >3 THEN GO TO ERRORS% 20426000 
STREAM € S © 3"KOUNT#sKOUNT®ACCUMs T+CLEQN(2)))3% 20427000 

BEGIN SI*ACCUMS SI*#SI413 D1leDI1+S3 DS*KOUNT NUMS% 20428000 

END3% 20429000 
IFCTYPE*SCAN)® COMMA THEN 20430000 
BEGIN2 20431000 
IFCTYPE*SCAN)# IDENT OR KOUNT>5 THEN GO TO ERRORS’ 20432000 

STREAMC S#B*KOUNT#KOUNT®ACCUMs T#LEQN(2)) 93% 20433000 

BEGIN SI*ACCUMS SleSI4+13 DI*DI+SSDS*KOUNT NUMZ 20434000 

ENDS 20435000 

IFCTYPE*SCAN)= COMMA THEN 20436000 

BEGIN 20437000 

IF CTYPE*SCAN)#IDENT OR KOUNT?3 THEN GO TO ERRORS 20438000 
STREAMCSe1L*KOUNT®KOUNT®ACCUMeT#CEQNE3)))3 20439000 

BEGIN SI*ACCUMS SIe#SI413 DIeDI+SsDS*KOUNT NUMS% 20440000 

ENDS TYPE «+ SCAN32 20441000 

END% CYCLE 3% 20442000 

END% CREATION DATE 3% 20443000 

ENDSSREEL NUMBERSS 20444000 
TPNO©@3753 20445000 
NOLBL * 03% 20446000 
ROUNDS 20447000 
WHILE TYPE#PERIO AND CTYPE LSS FORM OR TYPE GTR FREEF) DO 20448000 
TYPE S#SCAN3 20448100 
IF TYPE &* PERIO THEN GO TO EX] TI& 20449000 
GO TO DLTYPE"FORM)3% 20450000 
NEXTS TYPE*SCANS GO TO ROUNDS 20451000 


| i 


% 


OSKCHECKs 


LFORMS% 20452000 
EQNE3I,C42:i)]e13 GO TO NEXTES 20453000 

LNOE 20454000 
NOLBL « 13 GO TO NEXT3% 20455000 
LDISK ES 20456000 
TPNOS®108 GO TO DSKCHECKS ® €SHM)20457000 
LTAPES% 20458000 
TPNO «© 23 GO TO NEXT3®& 20459000 
LPUNCHS® 20460000 
TPNOS&OS 20460100 

IF (CTYPEt*®SCAN)=PERIO THEN GO TO EXITS 20461000 

IF TYPESFREEF THEN GO TO LFREE ELSE 20461050 

IF TYPE#BACK THEN 20461100 
TPNO*20 ELSE 20461200 
BEGIN TPNO*213 IF SCAN#BACK THEN GO ERROR ENDS 20461300 

IF SCANSPERIO THEN GO ERROR} 20461400 

IF CTYPE*SCAN)®PERIO THEN 20461500 
TPNOSTPNO+4 ELSE 20461600 

IF TYPESFREEF THEN GO TO LFREE ELSE 20461650 

IF TYPESDISK THEN 20461700 
TPNO*TPNO4¢2 ELSE 20461800 

IF TYPE#TAPE THEN GO ERRORS 20461900 

IF TYPE#PERIO THEN GO NEXT ELSE GO EXITS 20461950 

LPAPER#3 20462000 
TYPE © SCANS TPNO © 73 GO TO NEXT32 20463000 
LSPECIAL&& 20464000 
TPNO © 33 GO TO NEXTS& 20465000 
LPRINT#% 20466000 
TPNOSFILI 20466100 

IF CTYPES*SCAN)*PERIO THEN GO TO EXITS 20467000 

IF TYPESFREEF THEN GO TO LFREE ELSE 20467100 

IF TYPE=BACK THEN BP 20468000 
LBACKS TPNO*6 ELSE BP 20469000 
BEGIN TPNO«4s |F SCAN#BACK THEN GO ERROR END} xP 20470000 

IF SCANSPERIO THEN GO ERROR} *P 20471000 

IF CTYPE*®SCAN)&PERIO THEN ZP 20472000 
TPNO*22"TPNO ELSE BP 20473000 

IF TYPESFREEF THEN GO TO LFREE ELSE 20473100 

IF TYPE#DISK THEN zP 20474000 
TPNO*21*TPNO ELSE BP 20475000 

JF TYPE#TAPE THEN GO ERRORS %P 20476000 

IF TYPE #PERIO THEN GO NEXT ELSE GO EXIT; 20477000 

BP 20478000 

LFREES 20476500 
$ SET OMIT & NOTCPACKETS) 20478504 
EQNE3),C2381)¢13 2047850 

$ POP OMIT 20478506 
GO TO NEXTS 20478508 

LCOPY3 IF CTYPES®SCAN) NE@ IDENT OR KOUNT GTR 3 THEN GO TO ERRORS 20478510 
STREAMCASB®OSKOUNT® ACCUM) S 20478520 

BEGIN SISeACCUMSSII*SI4+15D188LOC ASOStSKOUNT OCT ENDS 20478530 
IFCTYPE&#P(OUP)) GTR 256 OR PCXCHILSS 1 THEN GO ERRORS 20478540 
FONC3],C1S5s6)]:sTYPE*713GO TO NEXT 20478550 

ERRORS 20479000 
PPC*TRUE3GO DOWN}% 20480000 

SPOt TPNO#115GO TO NEXT3S% 20481000 
SERIAL# TPNO#B125 GO TO DSKCHECK? & (SHM) 20462000 
UPDATE! TPNO*13$ GO TO DSKCHECK3 20483000 
PROTECTs TPNO#263 20483100 


® (SHM)20484000 


IF CTYPE8®SCAN)=COMMA THEN GO TO DSKCHECK3 


IF 


ELSE IF TYPESFAST OR TYPESSLOW THEN 


ELSE IF TYPE = SENSE THEN 


Go T 
EXITs3% 


IF NOLBL THEN TPNO ¢ 
CIF TPNO 
CIF TPNO®7 THEN 8 
CIF TPNO#@37 THEN 


TYPESEU THEN 
BEGIN 


IF SCAN NE@ EQUAL THEN GO TO ERROR ELSE 


% 
z 
% 
2 


(SHM) 20484050 
(SHM) 20484100 
CSHM)20484150 
CSHM220484200 


IF (CTYPES*SCAN) NE@ IDENT OR KOUNT GTR 2 THEN GO ERROR#20464250 


STREAMCKOUNT*# ACCUM TEFLTYPEI)3 


BEGIN 
SPSSACCUMS 
ENDS 


EQNCIZ) CL6iSJssTYPE +t; 
GO TO DSKCHECKS 


END ® IF EU 


BEGIN 


EQNCIZI, LAL6t2leel_eCTYPE*SLOW)S 
GO TO NSKCHECK3 


END 


BEGIN 


EQNL12],Ci5sLisel; 
GO TO DSKCHECKS 


END3 
0 ROUND3 


S]tsS]e13 DEseTs OSH=EKOUNT OCT) 


IF TPNO#2 THEN 9 ELSES 


9 ELSE TPNO)))3% 


Be BE BE DE DE BEC BE DE BL BL IC 


(SHM) 20484300 
(SHM) 204684350 
€SHM) 20484400 
(SHM) 20484450 
€SHM) 20484500 
(SHM) 20484550 
(SHM) 20484600 
(SHM) 20484659 
(SHM}20484700 
(SHM) 20484750 
(SHM) 20484800 
20484850 
20484655 
20484860 
20484865 
20464870 
20484875 
€SHM920484900 
20485000 
20486000 
20487000 
20468000 
20489000 


IF FAROUT THEN IF UNJTNO2Z32 THEN CIDROWLUNITNO"™32],[385] + 0 20489100 


EQNE3),40 
DEX 
END 

ELSES 
BEG 


DO UNTIL (10D « SCAN) = EQUAL OR [0D = PERIO‘S 
IF 10D * PERIO THEN GO TO ERRORSS 


ELSE IF UNITNO#®23 THEN READERA( FF) ©« 0 
ELSE IF UNITNO#24 THEN READERB«CFFI) © 03 


4385)¢TPNOSS 
« DEX+13% 

% 

INS 


10D * SCANS2 


STR 


END 


IF C(CTPNO*P),C1i81] THEN GO TO ERRORS 
IF TYPERPROCE OR TYPESIO THEN XCI6+¢TYPE*PROCE J*TPNOx3600 
ELSE IF TYPE*COREV THEN X(20) «+ TPNO DIV 64 


EAM (KeOs A © EACCUM(OJ J *KOUNT) 5% 


BEGINS 


SI ¢ Ab SIeSI#13 Di«LOC KI 

KOUNTCIF SC<"0" THEN BEGIN DSeLIT%+"3 
JUMP OUT TO ERR& ENDS SIeSi4t)3 
ST*S]*KOUNT3 


DS + KOUNT 
ERR} 
34 


20489200 
20489300 
20490000 
20491000 
20492000 
20493000 
20494000 
20495000 
20496000 
20497000 
20498000 
20499000 
20500000 
20500100 
20500200 
20500300 
20501000 
20501100 
20502000 
20503000 
20504000 
20504500 


ELSE IF TYPE2PRIOR AND TYPESSAVEV THEN XCI84TYPE@PRIORJ©TPNOS 20505000 


IF TYPE 


BEGIN DO UNTIL CIODS#SCAN) SMAXV OR JOD#PERIO3 
IF LODREMAXV THEN PCCXC20])e10R) ELSE GO TQ DOWN? 


END? 


DO UNTIL SCAN ® PERIOS2 


® COREV THEN 


END3& 


DOWNS? 


20506000 
20507000 
20507100 
20507200 
20507300 
20508000 
20509000 
20510000 


any 


END} 


PROCEDURE SECURITYMAINT(C TYPEsSMIDeSFID*CMMsSFHeCARD)3 
VALUE TYPE *+SMIDeSFIDsSFHs CARDS 

REAL TYPEsSMIDsSFID*eSFH» CARDS 

ARRAY CMM(#]3 


BEGIN 
% 


REAL N4eOPTNeT13 

REAL T#TYPE) 

LABEL SEC3*#FUNCOsFUNCL ®FUNC2*FUNC3eSEC4PEXYTS 
LABEL ERReERRORO FUNC US 

SWITCH FUNCeFUNC UF UNCOsFUNC 1 PF UNC 2eF UNC 33% 


LABEL EX] 


ERRORS? 


SEC3§ 


FUNC JS 


FUNCOS 


FUNC1LS 


FUNC2% 


FUNC33 


Ti & 

N4t= ABSCCMM(5])3 

IF CCCMMCOJEQV "DECK ")zNOT 0) AND 
COCOMMEILIJAND @77000000007777)EQV @12000000003714)sN0T 0) 

OR SYSTEMFILECCMMELO]eCMM(C1)) THEN GO TO ERROR} 

IF TYPE © USEV AND 

CCCMMLOJEQV SMID)*NOT 0 AND CCMME1JEQV SFID)=NOT 0) THEN 

ELSE 

IF COPTNS2DTRECTORYSEARCH(CMMLOJ]*®CMM(C1)24)) GE@ 64 THEN 

BEGIN 

IF TYPESUSEV AND MCOPTN#2)<0 THEN GO TO ERRI 

IF CTL*©C ONG EQV MCP)ENOT 0) OR CCMME5SJ=NOT 0)) OR 
CMCOPTN+2)>0 ANDCNA EQV ABSCMLCOPTN+2)))=NOT O)THEN 

GO TO SEC3 ELSE 

BEGIN ERR$ FORGETSPACECOPTN)S 

FORGETSPACECDIRECTORYSEARCH(CMM( 0) eCMME11014))3 

ENO} 

END: 


STREAMCAS=CCMMEO) J >BEeCOPTNESSPACE(10)))5 
BEGIN SI$aAs SyteSt4i13 DSteLiT” "3 DSte7 CHR} 
ST#sS}413 OStebLIT"/9s DSte7 CHR} 

DSt#24 LIT * SECURITY MAINT IGNORED@"; 
END STREAM; 
SPOUTERCOPTN@CARD#1)3 
GO TO EXYT3 


GO TO FUNCCLTYPE=@UNLOCKV)3 

MLOPTN [NX 5J@¢MLOPTN INX 6Je@1452% 

CMM(2]) 8% * UNLOCK™S CMM(C3) 8 "EDee "ih 
GO TO SEC4;33% 


MEOPTN INX 5) ¢m"SMID3 MCOPTN INX 6)48 SFID3 
CMM(2)¢@ * SECURE"S CMME3]8= "D WITH "9 
MESFH+2) t= PCDUP»sLODsSSB)3 

GO TO SEC43 


IF (Tie#T1 AND CMLOPTN#2)#0)) THEN MCOPTN+2)«CMM[6)3 
SMID?tSMCOPTN¢5)3 SFIDS=sMEOPTN+6)3 

MCOPTN JINX 5SJ)s# MCOPTN INX 6]4303 

CMM(C2)]e" LOCKED®SCMM(C 3)" FROM “ECMMEG)©* WITH 3$"3G0 TO SEC43 


MCOPTN JINX 2)t=MCOPTN INX S]8*MCOPTN INX 6)3503 
CMMC2)t= " FREE F"S CMMC3] te "JLEe* "3 GO TO SEC43 


MLOPTN JINX S)te @1443 MCOPTN INX 6) OF 
CMMC2]4= " PUBLIC™ZSCMME3]35 * FILE"? 


20511000 
20511100 
20511110 
20511120 
20511130 
20311140 
20511145 
20511150 
20511155 
20511160 
20511165 
20511170 
20511171 
20511181 
20511182 
20511184 
205111868 
20511295 
20511300 
20511305 
20511306 
20511311 
205113182 
20511315 
20511320 
20511330 
20511340 
20511350 
20311360 
20511363 
20511365 
20511370 
20511380 
20511390 
20511400 
20511410 
20511420 
20511430 
20511440 
20511445 
20511450 
20511455 
20511457 
20511459 
20511460 
20511470 
20511480 
20511490 
20511500 
20511510 
20511515 
20511520 
20511525 
20511530 
20511540 
20511550 
20511560 
20511570 
20511580 
20511590 


SEC4$ 


DISKWAITCOPTN, CCF IJ230/0PTN,CFFIJ)3 
PeDIRECTORYSEARCHC™CMM(CO) sCMML1J 014) eDEL D3 
STREAMCALSABS(SMIN) sBISSFIDeCeeECMMe,QeecT LSS FREED 


BEGIN 


EXYT3 


AND CT#UNLOCKV) AND CABSCSMID)#12)>» 


Xte(SFIDeO OR ABSCSFIDNI#12) & 


AND T LSS FREE AND T#UNLOCKVs 


YeTeLOCKV ANDCC ONG FOV MCP)SNOT O)JANDCCCMMEL6) EQV MCP)# 

NOT 03) AND TieD*OPTN*OPTN INX 0)3 

SISecs SlaewSleis OSssLitT™ "3 OS2e7 CHRIS DSIaLIT"/%3 

3(StseSle11 DSt7 CHRD} 

XCDIaeDI"73 OStF2 LIT*ee")3 

QCDSsFLIT™ “"sSieslLoc ARSITSFS1413DStF7 CHRS DSetsLIT*/s*3 

SleS1+13 0S«7 CHR)3 

YOXCOTeDI*18IF STeCeaCSleSl+B)sSteSle1sOSe7 CHR} 
Sfl#S[+9! OSe¢7 CHR)s DSe LIT "oh; 

END STREAM} 

SPOUTERCOPTNeCARDeSECMSG)} 


END SECUTITYMAINT3 


COMMENT 


Sf 
Sf 


2] 
2) 
3) 


3] 
3) 
5] 
6) 


0£16915] 
9€33215] 
of G44) 


oC 2% 14) 
oC 8810) 


$c20),C 211 ) 


of 33915) 


THE PRT CELL "SHEET" GIVES DISK ADDRESS OF 1ST SHEET ENTRY 
wee ENTRIES IN THE 


SHEET ARE AS FOLLOWS! 


DT hH AnH HR 


1ST NAME (7 CHRS) 

"CANDE™ JOB CTSS ONLY) 

2ND NAME (7 CHRS) 

0 NORMAL 

2 JOB HAS BEEN XS*ED CFORCED RUN) 

3 JOB HAS BEEN ES*ED CFORCED RUN AND DS) 
SUPPRESS BOJ/EOJ MESSAGES FOR SYSTEM JOBS 

GO JOB CFROM COMPILE & GO) 

COMPILER (FOR COMPILE & GO) 

EXECUTE JOB 

COMPILER (FOR SYNTAX CHECK)CSET TO 2 LATER) 
COMPILER (FOR COMPILE TO LIBRARY) 

RUN JOB 

SKELETONS DISK ADDRESS CIF SC2),08310) = 10204 
PRIORITYse SAME AS S(18) 

SET BY SELECTRUN WHEN “SCHEDULED” MESSAGE 

1S SENT CIF SCHEDULED) 

1 RESTART JOB 

SCHEDULE*ID FOR THIS JOB 

STARTING TIME FOR LOG 

LOCATION OF LAST PART OF LOG 

CORE ADDRESS OF SEGMENT ZERO CWHEN THE 

SHEET IS PASSED TO SELECTRUN AS A PARAMETER) 
DISK ADDRESS OF LABEL EQUATION ENTRIES 
APPLICABLE TO THIS EXECUTION ONLY (SEE BELOW) 
ACTUAL MFID OF JOB (TSS ONLY), THIS MAY BE 
BE DIFFERENT FROM SCO) FOR SOME JOBS 

WHICH ARE STARTED BY CANDE, 

DISK ADDRESS OF LABEL EQUATION ENTRIES 
PRESENTED WHEN PROGRAM WAS COMPILED AND 
APPLICABLE TO ALL EXECUTIONS 

ESTIMATED PROCESSOR TIME 

ESTIMATED 170 TIME 

PRIORITY 

COMMON VALUE 

ESTIMATED CORE REQUIREMENTS 

"CAN®T EXPAND” BIT (TSS) 

ESTIMATED CORE REQUIREMENT 


WS w Ne © 


20511600 
20511610 
20511620 
20511660 
20511662 
20511663 
20511664 
20511665 
20511666 
20511670 
20511680 
20511685 
20511690 
20511700 
20511702 
20511704 
20511710 
20511720 
20511800 
20511810 
20512000 
20512400 
20512800 
20513200 
20513600 
20514000 
20514400 
20514800 
20515200 
20515600 
20516000 
20516400 
20516800 
20517200 
20517600 
20518000 
20518400 
20518800 
20519200 
20519600 
20520000 
20520400 
20520800 
20521200 
20521600 
20522000 
20522400 
20522800 
20523200 
20523600 
20524000 
20524400 
20524800 
20525200 
20525600 
20526000 
20526400 
20526800 
20527200 
20527600 


SERNA eae Cen aee eT ence? Cr se 


Stat 


J 


$(22] 


$(€231],(2:6) 
$£23),09%9] 
§$(23),(24:24) 


§(24) 
§(25] 
$(26) 
$27] 
$€29) 


STACK SIZE 

SAVE FACTOR FOR OBJECT FILE CCOMPILATIONS) 
UNI TNO OF CARD/PSEUDO READER IN CONTROLCARD, 
REMOTE STATION ADDRESS» ELSE 0 

TIME JOB PUT IN SHEETCFOR TS MSG) 

USER CODE 

DISK ADDRESS OF FILE HEADER FOR THE JOB 
LOGLINE (TSS) 

FID FOR COMPILES» TAPE NAME FOR LIBMAINe 

= DISK ADDRESS OF NEXT SHEET ENTRY €#0 IF LAST) 


Hane wn Hn R 


wee ENTRIES FOR LABEL EQAT. ARE AS FOLLOWS! 


FCO) 

FC1) 
FC2),00318) 
FC2),£182:30) 
F£33.(016) 
FO37e015%8) 
FO3),02331) 
F£3),04231) 
FE3].0€4335) 


MULTITFILE ID (7 CHRS) 
FILE ID (7 CHRS) 
REEL NO (3 CHRS) 
CREATION DATE (5 CHRS) 
CYCLE (1 CHR) 


NUM COPIES OF PBD OR PUD FILE 
te IF "FREEF" PBD PACKET FILE 


FOR FORMS REQUIRED 


FOR CP CFILE TYPES ) 


FC41,.0036] 
FL4),06342) 


Fei2).01531) 

Fei12].€1682) 

FE12).C1885) 

FE14]" Fl25] 

F(29) 
weee ALSO SEE PROCEDURE "SELECTRUNI”™ (SEQ,N0,20055600) FOR 
*eee FURTHER INFORMATION ON LABEL EQUATION AND THE FILE 
*eee PARAMETER BLOCK, 


FOR LP 

FOR MT 

FOR SPECIFIC UNIT 

FOR LP CMAY BACKUP) 

FOR SPECIFIC CUNLABLED) 
FOR LP CMUST BACKUP) 
FOR PT 
FOR PT CUNLABLED) 
FOR MT CUNLABLED) 
10 FOR OISK 

NO OF CHARS IN INTERNAL NAME 
INTERNAL NAME (MAY CONTINUE TO FE11]) 
"SENSITIVE" BIT 

DISK SPEED 
= EU NUMBER + 1 


COON VES WHY Of 


20528000 
20328400 
20528800 
20929200 
20529600 
20530000 
20530400 
20530800 
20531200 
20531600 
20532000 
20532400 
20532800 
20533200 
20533600 
20534000 
20534400 
20534800 
20535200 
20535600 
20536000 
20536400 
20536800 
20537200 
20537600 
20538000 
20538400 
20538800 
20539200 
20539600 
20540000 
20540400 
20540800 
20541200 
20541600 


SAME AS ABOVE FOR NEAT FILE CFE14)=14 [F NO NEXTI20542000 


= DISK ADRS,OF NXT,LBL,»EQUAT.ENTRY(=0 JF NONE) 


week CONTENTS OF THE JAR? 


YVARLOJ,0£ 
ol 
al 

WARCII,0 


if 


rl 
JARL2),0 


ell 


isi] 


Ww 
ee 
[at 
es hd ed es es es a 


844 
8115] 


2f33815] 


JARE3) 
JARCA) 


COMPILE JOB 
"CANDE” JOB (TSS ONLY) 

MFID OF THE J06 

JOB 1S BEING DS*ED 

JOB IS BEING ES™ED 

FID OF THE JOB 

COBOL JOB 

DECLARED SOFTWARD INTERRUPTS 
JOB HAS MAINTENANCE LOG ENTRY 
INTER®PROGRAM COMMUNICATION 
DECLARED SOFTWARE INTERRUPTS 
INVOKED OR INVOKING IPC PROGyFILE 
INVOKED IPC PROGRAM FILE 
INTER®PROGRAM COMMUNICATION 


20542400 
20542600 
20543200 
20543600 
20544000 


205444600 


20544800 
20545200 
20545600 
20546000 
20546400 
20546800 
20547200 
20547600 
20548000 
20548400 
205468800 
20549200 
20549600 
20550000 


DISK ADDRESS FOR THE SKELETON SHEET (CCOMPILATIONS20550400 


PRIORITY 
PROCESS TIME LIMIT 
10 TIME LIMIT 


20550800 
20551200 
20551600 


JAR(5),€ 1923) = STARTING DATE COCTAL) 20552000 

2248246) & STARTING TIME COCTAL) 20552400 

JAR(C6],0 141 7 = JOB IS SD*ED 20552800 

eC 246 ) © PSEUDO"READER NUMBER 20553200 

2€16915) = SIZE OF LOG INFORMATION (BATCH) 20553600 

0€33#15) = OISK ADDRESS OF FIRST RECORD FOR THE LOG 20554000 

JARCT] = IDLETIME ENTRY CBATCH) 20554400 

JARL7) = MFID OF JOB CTSS ONLY), THIS MAY BE DIFFERENT 20554800 

FROM JARCO)] FOR SOME JOBS STARTED BY CANDEs 20555200 

JARC8) ad LENGTH OF CODE FILE ROW 20555600 
JAREO],C 131 3 & "SYSTEM™ JOB CLIBMAIN® LDCNTRL»PRNPBT) 20556000 a 

of 281 )] = SUPPRESS PRINTING OF BOU/EOJU MESSAGES 20556400 

2€18t15) = MISK ADDRESS FOR “CHAIN” IF NON®ZERO 20556800 

2£33815) © NUMBER FOR DISK ROWS IN CODE FILE 20557200 

JARC10} THROUGH JARL29) ® DISK ADDRESS OF CODE FILE ROWS 20557600 

WARE 30) = FID OF OBJECT FILE (BATCH COMPILES ONLY) 20556000 

END OF COMMENTS 20558400 

REAL PROCEDURE LIBCCS 20566000 

BEGIN LABEL NEXT+LOOP3 20566011 

REAL CNTSENS s RETURNVAL+1> BEGIN LOCALS TO LIBcc 20566245 

HOLD 1 = CNTSENS+1es 20566247 

HOLDe = HOLDIi+ts 20566250 

HOLD3 = HOLD2+1s 20566255 

REPEAT = HOLD3+1>s 20566260 

TYM = REPEAT#+13 20566265 

BOOLEAN FIRSTIME = TYM+13 20566270 

LABEL CCAsQUITsPOWIE »CHAN®REMOe INCSC PGETEM*ENTE* LCOPYsSEEKe INITS 20566600 

LABEL DOWNR»OUTRS «20566610 

SWITCH SWeLCOPYsLCOPYeENTE® ENTE + REMO®CHANS 20566700 

DEFINE ZIPMIXSCARD«(181:6]#3 20566740 

SUBROUTINE BOTH: 20566750 

BEGIN CMMCOJS#"LIBMAIN"'S CMME1)3="DI5SK "3 20566755 

CMME238*082068:3821033 CMMC13148%03 20566760 

$ SET OMIT # PACKETS 20566765 

CMME23) 8 @O08CARDL98939)3 20566770 

$ POP OMIT 20566775 

$ SET OMIT = NOTCPACKETS) 20566780 

CMME23]SS0RCARDI9OS9S9J&CIF ZIPMIX NE@ O THEN PSEUDOMIXEZIPMIX]20566785 

ELSE UNITNO)C2%4216)3 20566790 

$ POP OMIT 20566795 

END OF BOTHS 20566797 

SUBROUTINE GETEMFORREMS %STORE NAMES OF SENSITIVE FILES IN ESPDISK 20566800 

BEGIN CNTSENSSSCNTSENS#423 20566805 

IF CNTSENS GTR 26 20566810 

THEN BEGIN PROGL29) t#GETESPDISK3 20566815 

DISKWAJTCPROG INX 0030*LIBNO)3 20566820 

LIBNOs#PROG(29)3 20566625 

CNTSENS1 #23 20566830 

ENDS 20566835 

PROGLECNTSENSJ32#CMME2)5 20566840 

PROGICNTSENS4+1)18CMM(3)5 20566845 

END OF GETEMFORREMS 20566850 

REAL SUBROUTINE SCAN3 20566875 7 

SCAN*SCNCUNITNO®CARDLOC *SOURCE sACCUMPKOUNT »LASTSCANe 20566900 

DIRECT)3 20566902 

REAL SUBROUTINE SKAN3 20566905 

BEGIN 20566910 

STREAMCXS#0SCNIFOCACCUM)S 20566915 

BEGIN | 20566920 oe re ce eh Ae 
STPBACCUMSSITEFST +13 20566925 


BCIF SC GE@ "0" THEN BEGIN SIteST+13TALLYtaTALLYei3 END ELSE 
IF SCs" “ THEN JUMP OUT ELSE BEGIN TALLYteO# JUMP QUT END)3 
CNESTALLYSSTESeSTecNsDyteLOC XsSDSIaCN OCTS 

END) 

SKANE#P3 

END OF SKAN$ 

PCRCWeMYMSCWo STF )3 

RCWHBRCW & PCXCHICCTCI3 

PC0200020002000)3 & ZERO LOCALS OF LIBCC 

LIBCC8a03 

FIRSTIMESSTRUE3 

UNI TNO#C(CARD,£385)74+28),(4325)+43 

CARDLOC#CARD INX O3 

GO TO SWET*COPY]); 


LCOPY! 
ENTE? 


IF CCN&SSCAN)SIDENT THEN 
BEGINS 


IFCPROG(O)]:#SKAN) BO THEN PROG(O1]##=511 ELSE CN&sSCAN3 


IF PROG{O)]>511 THEN PROGCOIJ8#5113 
END ELSE PROG(CO]s#5113 
CMML19]8503 


$ SET OMIT = NOTCB6500L0AD) 


IF CN®B6500 THEN BEGIN CMMCI9I,CIStIVESLECNSSSCAN ENDS 


$ POP OMIT 


IF CN®TOV AND T GTR UNLOAD THEN 
BEGIN 
IF CCNtSSCANISEU THEN 
BEGIN 
IFCCNE®SCANIFIDENT THEN GO TO INCSC3 
IF PCSKANsDUP)>19 THEN BEGIN PCDEL)#GO INCSC ENDS 
CNeP+LSCMMC19] ,L9S6J+CNE 
IF CN>NEUP,NEUF THEN GO TO JNCSC3 
END 
FLSE JF CN®SLOW THEN CMM(19J©PCDUP2eLOD) OK M ELSE 
IF CN®FAST THEN CMMC19),0381)]¢1 ELSE GO TO INCSC3 
CNSBSCAN} 
END3 
IF CNRSLATESTV AND T GTR UNLOAD THEN 
BEGIN 
CNE*SCANS 
CMMCI9DI Casi) 8=13 
END} 
IF CNREXPIRED THEN 
BEGIN 
PROGLO), C981 8e13 
CNESSCANS 
END3 
IF CN®ACCESSD THEN 
BEGIN 
PROG(O],(C8s1I]8413 
CNESSCANS 
ENOS 
IF UNITNO#23 OR UNITNOS24 OR UNITNO232 THEN 
PROG(CO] «fC 2:6)]e«UNITNOS 
IF SCAN#IDENT THEN GO TO INCSC3 
PROG(LI¢FCMM(27) sBACCUM(O)3 
PROG( 28) «03 
BOTH? | 
LIBNO*GETESPOISKSCMML19} eC CFISLIBNO; 


20566930 
20566935 
20566940 
20566945 
20566950 
20566955 
20567000 
20567010 
20567015 
20567020 
20567025 
20567100 
20567200 
20567300 
20567400 
20567500 
20567600 
20567700 
20567800 
20567900 
20568000 
20568050 
20568059 
20568060 
20568061 
20568100 
20568200 
20568300 
20568400 
20568500 
20568600 


%022"20566610 


20568611 
20568620 
20568630 
20568640 
20568650 
20568700 
20568710 
20568712 
20568714 
20568716 
20568718 
20568728 
20568729 
20568730 
20568740 
20568750 
20568760 
20568770 
20568760 
20568790 
20568795 
20568900 
20569000 
20569100 
20569200 
20569250 
20569300 
20569600 


CMMC19], CFF J«T3 
GETEMt &% SCAN FILE NAMES AND STORE THEM IN ESPDISK 
FOR CN*2 STEP 2 UNTIL 26 NO 
BEGIN 
IF COPTN©SCAN)FEQUAL THEN PROG[CNJ+"1 


ELSE IF OPTN2IDENT THEN PROGCCNIJ*ACCUM([0O)] ELSE GO POWIES 


1& SCAN#SLASH THEN GO POWIE3 
IF COPTN*SCAN)®EQUAL THEN PROG(CN+1)e"1 


ELSE IF OPTN2IDENT THEN PROGECN+1J*ACCUM(LO) ELSE GO POWIES 
IF COPTN®SCAN)SPERIO OR OPTN#POUND THEN GO TO QUIT&SLP 1 


ELSE IF OPTN#COMMA THEN GO POWIES 
END$3 
PROGL29]*+GETESPOISK? 
DISKWAITCPROG INX Or 300¢LIBNO)3 
LIBNO*PROG[29]3 
GO GETEMS 
QUITS 
PROGL29]¢0;3 
PROG(ICN4+2]+@143 
DISKWAITCPROG INX 0° 30eLI BNO)! 
LIBNO*ABS(CMM[19])3 
GO INIT3 
POWIE# 


IF CMMC19),CCFJ#¥LIBNO THEN % MORE THAN ONE SEGMENT USED 


BEGIN 
DISKWAITC*PROG,CCFJ]e300eCMML19),(CFI)3 
FORGETESPDISKCCMME19).CCFIJ)3 
CMME1I9J*PROGL29)3 
GO POWIE3 

END} 

FORGETESPDISKC(LIBNO)3 

GO INCSC3 


IF CCN*SCAN)=EQUAL THEN CMM[OJe"1 ELSE 
IF CN2ZIDENT THEN CMMLO)*#ACCUMEO) ELSE GO INCSC3 
IF SCAN#SLASH THEN GO INCSC3 
IF CCN*SCAN) SEQUAL THEN CMM(1Je"1 ELSE 
IF CN2ZIDENT THEN CMMC1iJ*ACCUM(O] ELSE GO INCSC: 
CNtrT3s03 
IF CCMMCO) OR cCMME1]) LSS O THEN 
SEEKS 

SFEKNAMCCMMCLOJe¢CMME LJ e¢CNeCMMEC2)*CMMC3)20PTN) ELSE 
BEGIN 

CMML2])8SCMM(O]3 

CMMC3)9=CMME1)3 

CNsBY3 
END3 
IF CN NEQ@ O 

THEN TeeIF SYSTEMFILECCMMC2JeCMM(3)) 
THEN 2 
ELSE DIRECTORYSEARCHCCMMC2)+CMM( 3] 65) 
ELSE IF OPTN NE@ O THEN GO OUTR3 

IF T GEQ@ 64 THEN 


BEGIN IF HOLD3t#NOTCMCT+#4),04481)) THEN BEGIN FORGETSPACECT)3 


205698610 
20569900 
20570000 
20570100 
20570200 
20570300 
20570400 
20570500 
20570600 
20570700 
20570800 
20570900 
20571000 
20571100 
20571300 
20571400 
20571500 
20571600 
20571700 
20571800 
20572000 
20572100 
20572200 
20572300 
20572400 
20572500 
20572700 
20572800 
20572900 
20573000 
20573100 
20573200 
20573300 
20573400 
20573500 
20573600 
20573700 
20573800 
20573850 
20573900 
20574000 
20574100 
20574200 
20574300 
20574400 
20574500 
20574600 
20574700 
20574750 
20574800 
20574850 
20574875 
20574900 
20574905 


TteDIRECTORYSEARCHCCMME 2) °CMME3IJRCUNITNOF25 OR UN] TNO&30) 20574910 


C2:147:1324)3 END3 


IF MUCT#4),04382)%3 THEN BEGIN FORGETSPACECT)S TtF1s ENDS 


END} 
JF CARD,C8!1) THEN GO DOWNRS 
IF T LSS 2 


20574915 
20574920 
20574922 
20574925 
20574950 


eo! 


THEN IF T24 
THEN LBMESSCABSC(CCMML2)2 0CMMLC3) 977 245eQ05eSPOUTUNIT #1) 
ELSE LBMESSCCMM[COJ*eCMME1J9"7215e0sSPOUTUNIT #1) 
ELSE IF Tee 
THEN LBMESSCCMM( 2) 9CMMEL 3) 6 @7e25e02SPOUTUNIT #1) 
ELSE IF T GEQ 64 
THEN BEGIN 
IF ME1#2) NEQ O AND CUSERID EQ@V MCP) NEQ 
NOT 0 AND CUSERID EFQV ABSCMET+#2])) NEQ@ 
NOT O 
THEN BEGIN 
LBMESSCCMM( 2] eCMMEL 3] >"™7 ol» 
OsSPOUTUNIT#1)3 


20575000 
20575050 
20575100 
20575150 
20575200 
20575250 
20575300 
20575350 
20575400 
20575450 
20575500 
20575550 
20575600 


FORGETSPACECDIRECTORYSEARCHCCMM[ 2) 020575650 


CMMC330#14))3 
END 
ELSE IF MET+#4)eL4382] NE@ O 
THEN BEGIN 
DOWNRS IF FIRSTIME 
THEN BEGIN 
FIRSTIME&=03 
CMMLI9JFRCLIBNOSS 
GETESPOISK)&36°CIFI3 
END; 
MCT4#4),( 43:2) 3413 
DISKWAITCT»LCCFJe30eT, LFF IJ)3 
IF HOLD3 THEN FORGETSPACEC 
DIRECTORYSEARCHCCMM(2]¢ 
CMMEC3)]014))3 
GETEMFORREM$ 
ENO 


20575700 
20575750 
205756800 
20575650 
20575900 
20575950 
20576000 
20576050 
20576100 
20576150 
20576200 
20576210 
20576215 
20576216 
20576217 
20576220 
20576250 


ELSE FORGETSPACE(DIRECTORYSEARCH( 20576300 


CMMCL 2] °CMM[L3]96 
$ SET OMIT = NOT CPACKETS) 


&SPOUTUNIT( 91939) 
RSPOUTUNIT(C24242:6) 
$ POP OMIT 
3 
FORGE TSPACE(T)3 
END$ 
JF CN NE@ O AND CCMMCO] OR CMM(1J)) LSS O THEN GO SEEKS 
OUTR! IF CCNSSSCAN)®COMMA THEN GO REMOS3 


IF CN®PERIO THEN 
IF NOT FIRSTIME THEN 
BEGIN OPTNISCNS PROGL29) 320) 
PROGCCNTSENS+2] 380143 
DISKWAITCPROG INX Oe 300eLIBNO)3 
LIBNOtFABSCCMML19))3 
BOTHS 
GO INIT3 
END 
ELSE GO CCA 
ELSE GO IN€SC3 
CHANS$ 
Tta0s & T USED AS BIT MASK FOR SYNTAX CHECK 
FOR CNt#O0 STEP 1 UNTIL 3 00 & SCAN INPUT REQUEST 
BEGIN 
OPTN t# SCANS 
T te COPTN@EQUAL) & T£4394484)3 & SHIFT PREVIOUS VALUE LEFT 
IF T THEN CMMCCN) 38 (#1) ELSE 


20576350 
20576395 
20576400 
20576405 
20576410 
20576415 
20576450 
20576475 
20576500 
20576600 
20576700 
20576710 
20576720 
20576730 
20576740 
20576750 
20576752 
20576770 
20576780 
20576790 
20576800 
20576850 
20576900 
20576925 
20576950 
20576975 
20577000 
20577025 


IF OPTN GEQ@ IDENT THEN CMMCCN] §® ACCUM[O] ELSE 
GO TO INCSC3 & INCORRECT REQUEST 
OPTN $# SCANS & SKIP "7o%e" OR 3H 
ENDS ® SCANNING INPUT REQUEST 
IF ¢T NE@ 0) AND CT NE@ 5) AND CT NE@ 10) THEN GO INCSC3 
2 Ts5 FOR @/<NAMEL> TO =/<NAMES> 
& T3510 FOR <NAMEL>/® TO <NAME2>/6 
% TsO FOR <NAME%>/<NAME2> TO <NAME3>/<NAME4G> 
IF CREPEAT#=(T GTR 0)) THEN 


BEGIN 
HOLD1 #* CMM[OJ3 HOLD2 s= CMM[1J3 TYM3313 CNE803 
LOOP? SEEKNAMCHOLD1» HOLO2» CNe CMM[LO]> CMMCij)* HOLD3)3 
IF CN ® O THEN % NOT FOUND IN DIRECTORY 
BEGIN 
IF TYM ® 1 THEN & FIRST PASS» NULL SEARCH 
BEGIN 


20577050 
20577075 
20577100 
20577125 
20577150 
20577175 
20577200 
20577225 
20577250 
20577275 
20577300 
20577325 
20577350 
20577375 
20577400 
20577425 


LBMESSCHOLD1» HOLD22 °5e 15% BNOT CHANGED? NOT ON DISK20577450 


Op, SPOUTUNIT#s1)3 
ENDS 
GO TO NEXT$ 
ENDS 
TYM 88 23 
IF HOLD1 LSS 0 THEN CMM£2) ¢* CMMCO)] ELSE 
IF HOLD2 LSS 0 THEN CMME3) #® CMMC1]3 % USE NAME "FOUND® 
END3 
IF CTASDIRECTORYSEARCHCCMM{2]eCMML3)05)) NEQ O THEN 
BEGIN 
FORGETSPACECT)3 
LBMESSCCMM[O)» CMM(C1J¢ 52 299 & NOT CHANGED? DUP FILE 
O» SPOUTUNITs 1)3 
END ELSE 
BEGIN 
Tes]F SYSTEMFILECCMMLOJ+CMME1)) THEN 2 ELSE 
DIRECTORYSEARCHCCMMELOJeCMME1)25)3 
IF 7 GE@ 64 THEN 
BEGIN IF NOTCMCT#4],04411]) THEN BEGIN FORGETSPACECT)3 
TISDIRECTORYSEARCHCCMMLOJ] sCMMCIIJRCUNTTNOS25) 0134781 )0 
4)3 ENDS 
TF MET+47,04382)#3 THEN BEGIN FORGETSPACEC(T)¢ Tt=l3 
END 
END3 
IF T LSS 2 THEN 
LBMESSCCMMCOJeCMME1)9°55154¢0(T=1)x30)» & NOT CHANGED 
% 45 2 IN USEe 15 = NOT ON DISK 
‘Oe SPOUTUNIT® 1) 
ELSE IF T#2 THEN 
WEMESSCCMM(LO]> CMME1)*5 *5e 255 & NOT CHANGEDs SYSTEM FILE 
Os SPOUTUNITe 1) 


ELSE IF MCT+#2] NEQ@ O AND % NOT FREE FILE 


CUSERID E@V MCP) NE@ NOT O AND % NOT MCP 
CUSERID EQ@V ABSCMET#2])) NEQ NOT 0 THEN % NOT CREATOR 
BEGIN 


LBMESSCCMM[LO)s CMMEL)s "Se 41” ® NOT CHANGED» INVALID USER 
Os SPOUTUNITs 1)3 
IF MET#4),04382] NEQ 1 THEN 
FORGETSPACEC DIRECTORYSEARCHCCMM[LOJe CMMC1}5 14 ) 23 
FORGETSPACEC(T)3 
END 
ELSE 
BEGIN % CHANGE OK 


20577475 
20577500 
20577525 
20577550 
20577575 
20577600 
20577625 
20577650 
20577675 
20577700 
20577725 
20577750 
20577775 
20577800 
20577805 
20577810 
20577815 
20577820 
20577823 
20577826 
20577827 
205776829 
20577832 
20577833 
20577835 
20577875 
20577900 
20577925 
20577950 
20577975 
20578000 
20578025 
20578050 
20578075 
20576100 
20578125 
20578150 
20578175 
20578200 
20578210 
20578225 
20578250 
20578275 


NEXT 


QNITS 
INCSC! 
CCAS 


BEGIN 
REAL 


MET+4)¢3(#PCDUP)I&2L 1846825 
DISKLOGCCMMCOJsCMM(C 1) e10QUERTECTCI)3 


TIsTREUFCPCMME 2) eCMME3JeT INX O71)018833815)3 
FORGETSPACECDIRECTORYSEARCHCCMM(OJeCMML1)28))5 


HEADERUNLOCKCCMME 2] eCMM[3)6T)3 
LBMESSCCMM( OJ» CMM{ LJ» 520 % CHANGED TO 


PBCOUNT#SPBCOUNT@CCCCCMMLO] E@V "PBD 
CCCMMLO] EQV “PUD 
+CCCCCMME2] FOV “PBD 
CCCMME2) EQV “PUD 


END3 
END3 


JF REPEAT THEN GO TO LOOPS 


CMM(2]5 CMME 3) SPOUTUNIT.» 


")=ENOT 0) 


IF OPTNSCOMMA THEN GO CHANS 
IF OPTN#PERTO THEN GO TO CCA ELSE GO INCSC3 
LIBCC*LIBNOs GO TO CCA3 


LIBCCeL3 


CADDRSSCDEX#SOS 


JF CLIBNOsSPROCVAL) GTR 1 THEN PROCVALI#2 ELSE 
IF LIBNO THEN PROCVAL##6 ELSE PROCVALS#03 


RETURNVAL##PROCVALS 
PCLRETURNRCWI)®STSeOrRDS Oe XCH*P&PCCTFIeSTF)3 
OND: % LIBCC PROCEDURE 

REAL PROCEDURE CCSET$ FORWARDS 
PROCEDURE CCFINISH3 


TEMP 


= RETURNRCW413 


PCRCWeMYMSCWeSTF) 

RCOWRBRCW & PCXCHICCTCI3 

P(CO>s & ZERO LOCAL OF CCFINISH 
PPCPROCESS!=03 


CNisT}3 


IF OPTN = PERIG OR OPTN ® LIBRA THEN 


BEGIN 


CMMC22)]3= PROG(22)3 


PROGC2),°CCFI:= IF PROGL18) > 32767 THEN 32767 


ELSE PROG(18)3 


LIBMSG)3 


OR 


"JENOT 02) AND CCMMC3),0CFJ1))3 


’ FIND REMAINING FILES 


% BEGIN LOCALS OF CCFINISH 


IF PROG(20) > 512 THEN PROG(20) t= 5123 
IF PADOR NE@ O THEN 


BEGIN 
PEQN(29]3= 03 
IF PDEX#0 THEN PEQN(O)]#=143 


IF PDEX#1 THEN PEQN( 14) #= 143 
DISKWAITCPEQN, ECF] s30»PADDR)3 


ENDS 


PROGLC29) 82% 03 
CMM(C2),018t15]+* CLOSET3® GETESPDISK}3 
DISKWAITCPROG,(CF]¢30*sCLOSET);3 


ENDS 


IF CADDR NEG O THEN 


SLEEPCCTOGLEJ*@SHEETMASK)# LOCKTOGCSHEETMASK)$ 


BEGIN 
CEQNL 29) 8% OF 


IF CDFX#O THEN CEQN[OJS™ 145 
IF CDEX®1 THEN CEQNCI4)¢= 143 
DISKWAITCCEQN LCF Je 30eCADDR)3 


ENDS 


CDEXt® GETESPDISK? 


")=NOT 0) OR 
")=NOT 02) AND CCMME1).0CFJ#1)) 


Bile 


20578300 
205786325 
20578375 
20578400 
20578425 
20578525 
20578550 
20578575 
20578600 
20578625 
20578658 
20578675 
20578685 
20578700 
20578725 
20579900 
20580000 
20580100 
20580200 
20580300 
20580305 
20560310 
20580330 
20580340 
205860350 
20580400 
20580808 
20580852 
20581080 
205861125 
20581130 
20581140 
20581150 
20581200 
20581250 
20581300 
20581350 
20581400 
20561450 
20581500 
20581550 
20581600 
20581650 
20581700 
20581750 
20581800 
20581850 
20561900 
20581950 
20582000 
20582050 
20582100 
20562150 
205862200 
20582250 
20582300 
20582350 
20582400 
20582450 
20582500 


CMM(C2),0CFJ2= IF CMM{E18] > 32767 THEN 32767 ELSE CMM[18)3 20582550 
PDEX*IF CMML18]>SHEETMAX THEN SHEETMAX ELSE CMM(18)3 20582600 

IF LIBNO NEQ@ O THEN CMML19J38 LIBNOS 20582650 

1F CMME20) > 5142 THEN CMM[20] 38 5123 20562700 
STREAMCAtROES$=P(,SCHEDULEIDS))3 20582750 

BEGIN SI8sS3 20582800 

47(SKIP SB} SKIP DBS TALLYSSTALLY+13 20582650 

IF SB THEN BEGIN END ELSE JUMP OUT) 20582900 

DSt# SET} Ate TALLYS 20582950 

END STREAM3 20583000 

TEMPt= P$} CMME3)3=5 O&TEMP(88381910)3 20583050 

CMM( 23] ef 24324) #(CLOCK#PCRTR)IDIV 603 20583100 

IF SHEETCPDEX),CCF) NE@ O THEN 20583150 

BEGIN ; 20583200 
DISKWAITC@PROGe (CFI) e30*PADDRI@SHEETCPDEXI CFF I)3 20583250 

PROG(L29J3= CDEX3 20583300 
DISKWAILTCPROG, (CCF) *30*sPADDRI3 20583350 

END 20583400 

FLSE SHEETLPDEX]:= CDEX3 20583450 
SHEETECPDEXI].(18615)3= CDEX3 20583500 

CMM( 29] 4% 03 20583550 
DISKWAITCCMM,(CCFJs30*¢DEX)3 20563600 
UNLOCKTOGCSHEETMASK)3 20583650 

Tre CN} 20583700 
PCCRETURNRCWJ] ¢STSeOeRDSeOeXCHeP&PLCTF I eSTF)3 20583710 

END CCFINISH3 20583750 
REAL PROCEDURE CCCOMPILES 20583800 
BEGIN COMMENT SETUP OF COMPILER LABEL EQUATION CODE? PNi/PN23 20583860 
REAL SUBROUTINE SCANS 205864150 
SCAN*SCNCUNTTNOsCARDLOCs SOURCE sACCUMs KOUNT sLASTSCANSDIRECTIS 20584200 
LABEL SKNeEXITS 20584250 
DEFINE ZIPMIX®CARD, (18:6) #3 20584275 
DEFINE DISKTYPE = 10832 20584300 
PCRCWeMYMSCWe STFD3 20584325 

ROWEBRCW & PCXCHIECTCI3 20584330 
TiBSCANSS 20584350 
CEQNCOJS=ACCUMILOI3% 20584400 
TESSCANSS 20584459 
TeRSCAN)S 20584500 
CEQNEC1)92ACCUM(0I32% 20584550 

CEQN( 2) 405% 20584600 

CEQNC 3S) SEDISKTYPES 20584650 
CEQNL4)$2@4234624256060605% 20584700 
CEQNE12)]¢803 & EU/SPEED CELL % (€SHM)20584710 

CDEX 1m15% 20584750 

IF CCUNITNO+1)AND 24)824 OR UNITNO GEQ 32 THEN’ 20584800 

BEGIN CEQNCI4JISCEQNCI6ISECEQNC L732 803% 20584850 
CEQNEI5)]1= "CARD OO" OR CCIF UNITNO GEQ 32 THEN? 20584900 

"c/" ELSE @5772) + UN] TNO)3% 20584950 
CEQNL18)$#@4232151240000003 CDEXt=23% 20585000 

IF UNITNO GEQ@ 32 THEN CIDROWCUNITNO™32),0385)371 ELSES 20585050 

IF UNITNO®23 THEN READERA,LFF] © 1 ELSE 20585100 

IF UNITNO#24 THEN READERB,CFFI © 13 20585125 

END3 20585150 

WHILE CCNI#SCAN) LSS ALGOL OR CN GIR COBOL DO 20585200 

IF CNSPERIO THEN BEGIN CCCOMPILE%#13 GO EXIT ENDS 20585250 

IF CNSEWITH THEN 205865300 

IF CCNeSCAN)SPERIO THEN BEGIN CCCOMPILE®*1$ GO EXIT ENDS 20585350 

IF CN<ALGOL OR CN>COBOL THEN 20585355 
IFCTSSDTRECTORYSEARCHCACCUM(OJs"DISK ",5))#0 THEN 20585360 


BEGIN IF NOT MET#4],£8%14] THEN 
BEGIN LBMESSCACCUMLOJs "DISK ,"22r090- 
SPOUTUNIT#1)3 
FORGETSPACECT)$ CCCOMPILE*1% GO EXITS 
END3 FORGETSPACE(T)3 
END} 
COMMENT SET UP NOMINAL VALUES FOR PROGRAM PARAMETERSS% 
CMMCO)$#"(CMPLRES=ACCUM[OJ])3 CMMCI1J3sCEQN(O);3 
CMME 21303 
CMMEL13)8= CADDRi= GETESPDISK3 
$ SET OMIT & PACKETS 
CMMC 23) ¢O08UNITNOL 28423613 
$ POP OMIT 
$ SET OMIT & NOTCPACKETS) 
CMMC23)8808CIF ZIPMIX#0 THEN PSEUDOMIXECZIPMIX] 
ELSE UNITNO)C2:42:6)3 
$ POP OMIT 
CMMC27)8CEQNC1)]3 SFID FOR SCHED MESS, 
% GET OPTION CGOeSYNTAX CHECKe OR LIBRARY) 
SKNE DO OPTNS=SCAN UNTIL OPTNSPERIO OR OPTN&SSYNTA OR OPTNSLIBRA 
OR OPTNSQUESTS % IN CASE OF HYPHEN IN COMMENT PORTION 
IF OPTN#®QUEST THEN 
IF SOURCE=C(CARDLOC&1630845132) THEN 
BEGIN 
OPTN3=PERIO# SOURCES=CARDLOC;} 
END ELSE GO TO SKN3 
CMMC2),(08t10] te IF OPTNSPERIG THEN 1 ELSE 
IF OPTN®SYNTA THEN 3 ELSE 432COPTN®LIBRA) 
IF OPTN NE@ SYNTA THEN 
2 SET UP PROG ARRAY FOR COMPILE AND GO OR COMPILE TO LIBRARY JOBS 
BEGIN 
PROGLOJ#t= CEQNLO)3 
PROGELIJ:= CEQNC1I3 
PROG(C2]42 O83 
MOVEC27eCPROGL2) I] ¢CPROGI 3] 193 
PROG(16]:SPROGLI7I9% O3777777777773 
PROG(L1B8J:= SHEETMAX DIV 23 
SVOID 
PROG(L20]4= 13 
PROGL21]%= 5123 
PROG(L22)] t= 103 
PROG(23)8= CMM(23)3 
PROG(24]te& USERID3 
PROG(26)]42IF LOGLINE GTR O THEN "31 ELSE LOGLINES 
END3 
EXITS RETURNVALS®PROCVALS & ADJUST RESULT OF TYPED PROC 
PCCRETURNRCWI)eSTSeOeRDSeOeXCHeP&P(CTFIoSTF)3 
END CCCOMPYLE} 
REAL PROCENURE INITIALIZEITS 
BEGIN LABEL TRYAGAINeLS»SPLAT+SPOTSEXITS 
REAL CMM4 = RETURNVAL413 % BEGIN LOCAL TO INITIALIZEIT 
REAL SUBROUTINE SCAN3 
SCAN®SCNCUNI TNO #@CARDLOC » SOURCE sACCUMs KOUNT®LASTSCANS DIRECT) 3 
POCRCWeMYMSCWeSTF)3 
RCWESRCW & PCXCHICCTCI3 
PCQO)3 % ZERO LOCAL TO INITIALIZEIT 
PROGLI3ZIIBPADDRIZPDEX##03 & IN CASE PROGRAM NOT IN DIRECTORY 
TRYAGAINI 
IF CTIsDIRECTORYSEARCHCABS(CMMLO])*¢CMMIsS@IF CMM[OJ LSS 0 THEN 
"N1SK " ELSE CMMCL13)*3))#0 THEN 


20585365 
20585370 
20585375 
20585380 
20585385 
20585390 
20585400 
20585450 
20585500 
205865550 
20585599 
20585608 
20585601 
20585609 
20585618 
20585620 
20585621 
205865630 
20585650 
20585700 
20585705 
20585710 
20585715 
20585720 
205865725 
20565730 
20585750 
20585600 
20585650 
20585900 
20585950 
20586000 
20586050 
20586100 
20586110 
20586150 
20586200 
20586250 
20586300 
20586350 
20586400 
20586450 
20586500 
20586510 
20586550 
20586600 
20586625 
20586658 
20586700 
20586715 
20586950 
20587050 
20587100 
20587110 
20587120 
20587130 
20587150 
20587170 
20587200 
20587250 


BEGIN 
IF CCMMCOJ EQV “"LIBMAIN")sNOT O THEN 
IF CCMMCi) EQV "DISK ")eNOT O THEN 
BEGIN 
ENTERSYSFILEC1)3 
GO TRYAGAINS 
ENDS 
BEGIN 
LS3 LBMESSCABS(CMM[L0]) eCMM1e"15°020eSPOUTUNIT#1)3 
REPORTBACKCNOTINe#020);3 
SPLATS 
IF UNITNO GEQ@ 32 THEN BEGIN INITIALIZEITS#53G0 EXIT END3 
END} 
DO TI=SCAN UNTIL T GE@ UNLOCKV AND T LEQ RESETVS 
IF UNITNO#®31 AND NT GEQ O THEN BEGIN INITIALIZEIT&¢=73 
GO EXIT ENDS 
NT1#70O3 INITIALIZEITtais GO EXIT 3 
END ELSE IF MET INX 4),0982)=2 THEN 
BEGIN FORGETSPACEC(T)3 
GO TO SPOT; 
END3 
TF SECURITYCHECKCABSCCMM[0])» 
CMM1e 
USERID®T) 20 
THEN BEGIN OPTNSSO3 CMMC2)3eT3 
REPORTBACK( SECURED? 0°0)3 
FORGETSPACECDIRECTORYSEARCHCABSC(CMM[0] D>» 
CMM(1)8=CMM1e 
13))3 INITIALIZE T&¢#43 GO EXIT ENDS 
DISKIOCNie*(PEQN INX O71) 230eM(T4+10))3 
PCMET INX 4],(9821%3)3 
FORGETSPACEC(T)3 
CMME24)38 USERIDS 
CMMC25)]3= TeCFF IS 
CMMC26)t8]F LOGLINE GTR O THEN *31 ELSE LOGLINE?3 
CMMC14]3= ABSCCMM[0O])3 
SLEEPCENLI + 1LOMASK)S 
FOR Tesi STEP 1 UNTIL 4 DO 
IF CNOT ABSCPEQNETIRO(CTCJ)) NEQ@ NOT O THEN Tt® 73 
IF NOT T THEN 
BEGIN 
IF P AND PEQN(2),(€3%1) THEN 
LBMESSCABSCCMM(0))*#CMM19"46°0"0*SPOUTUNIT#1) ELSE 
SPOTS LBMESSCABSCCMM(0])9CMM1¢"199° Oe Oe SPOUTUNITo1)3 
FORGETSPACECDIRECTORYSEARCHCABS(CMM(0J De 
CMM1013))3 
REPORTBACKCNOTX#000)3 
GO TO SPLAT3 
ENDS 
IF PEQN(6) LSS O THEN FOR Tte15 STEP 1 UNTIL 22 DO 
CMMCTJ&@PEQN(T] ELSE 
BEGIN 
CMMCI5]3= O08 
CMM(C16)]3= CMMEI7)3=% @3777777777773 
CMMC18IJS=SHEETMAX DIV 23 
CMMC19I t= 08 
CMMC20)8* PEQNE7I,CFFI3 
CMMC21)]38 5123 
END} 
O@NITIALIZEITS #33 


20587300 
20587310 
20587320 
20587330 
20567340 
20587350 
20587360 
20567500 
20587550 
20587610 
20587650 
20587700 
20587750 
20587800 
20587858 
20587900 
20587950 
20588000 
20588010 
20588020 
20588030 
20588050 
20588100 
20588150 
20588200 
20588210 
20588250 
20586300 
20588350 
20568400 
20586410 
20588450 
205868500 
20588550 
20586560 
20588570 
20588600 
20588650 
20588700 
20588750 
20588600 
20586610 
20586650 
20588900 
20569008 
20589050 
20589110 
20589150 
20589200 
20589250 
20589300 
20589350 
20569400 
20589450 
20589460 
20589478 
20589480 
20589490 
20589500 
20589550 


EX1T8 RETURNVAL?SSPROCVALS & ANJUST RESULT OF TYPED PROC 
PCELRETURNRCW)eSTSe#O2RDSeOeXCHePRPECTFIeSTF 3 
END INITIALIZEIT: 
REAL PROCEDURE CCUNIT; 
BEGIN bABEL ULe ERROR EXITS 
REAL SUBROUTINE SCAN3 
SCAN*SCNCUNITTNO®CARDLOC » SOURCE »ACCUM®KOUNT ®LASTSCAN®S DIRECT) 
PORCWaMYMSCWeSTF DE 
RcWesRcW & PCXCHIECTCI3 
Tie SCANS CNE® ACCUMLO)3 
T*SCAN} IF T#EQUAL THEN GO ERROR? 
FOR Tss 0 STEP 1 UNTIL 31 DO 
IF CN, COSLBJeTINUCTI.C30818) THEN GO TO Ul3 
GO ERROR} 
Uist IF LABELTABLECT) NEQ @314 THEN BEGIN CCUNI T#263 GO EXIT END3 
CNs® SCAN3 
MULTITABLECTI2Z®RDCTABLECTI##03 
LABELTABLECLT]:*® ACCUM(O]3 
IF CCN8# SCAN) = SLASH THEN 
BEGIN MULTI TABLELTJ]#= LABELTABLECT]3 
CNeSCANS LABFLTABLELTJ*ACCUMLO]3 CNeSCANS 
END} 
IF CN®COMMA THEN 
BEGIN JFCCN®SCAN)#IDENT OR KOUNT>3 THEN GO ERRORS 
STREAM(CReOSKOUNTs ACCUM) 3 
BEGIN SI#ACCUMSS]+SI4#13D1+LOC RSDS*KOUNT OCT ENDS 
ROCTABLEL TI] *PCXCHe RDCTABLELTII&PCACHIEI148 3821073 
IF CCN©SCAN) #COMMA THEN 
BEGIN IFCCN*SCAN)#IDENT OR KOUNT>5 THEN GO ERROR) 
STREAMCReOSKOUNT® ACCUM) 3 
BEGIN SI*ACCUMSSIeSI14¢i1sDI LOC RSDS*KOUNT OCT ENDS 
RDCTABLELCTJ*PCXCHPRDOCTABLELCTI)&PCXCH)C24¢31317)3 
IF CCN®SCAN)®COMMA THEN 
BEGIN IFCCN*SCAN)#IDENT OR KOUNT>2 THEN GO ERROR} 
STREAMCReOTKOUNT*® ACCUM) 3 
BEGIN SI*ACCUMSSIeSI¥1sD1eLOC RsDS*KOUNT OCT ENDS 
ROCTABLECTI#PCXCHsRDOCTABLELTII&PCXCHIC4YLEA137)3 
END aCYCLE 
END ®CREATION DATE 
ENDS @REEL NUMBER 


IF CN# PERIO THEN DO CNeSCAN UNTIL CNEPERIOSCCUNI T*+O3G0 EXIT? 


ERROR’ CCUNIT©63 
OXITs RETURNVALSEPROCVAL? % ADJUST RESULT OF TYPED PROC 
PCCRETURNRCW) ©STSsOrRDSeOrXCHeP&PLCTF I eSTF)3 
QND CCUNIT? 
REAL PROCEDURE CCSECMAINT! 
BEGIN LABEL EXIT»CCC3 
REAL SUBROUTINE SCAN} 
SCAN*SCNCUNT TNO#CARDLOC 2 SOURCE #ACCUM®KOUNT®LASTSCAN*@DIRECT)3 


LABEL OPTNOsSOPTNisOPTN2eSECL#®SEC2sSECBe STi» 
ST2eLS3 
SWITCH SWEFOPTNO*OPTNIsSOPTN2! 
PCRCWeMYMSCWeSTF)$ 
RCWEERCW & PCXCH)ICTCI3 
60 TO SWLOPTNN)? 
OPTNOS USERIDs# ABSCUSERID)3 
IF SCAN LSS IDENT THEN BEGIN CCSECMAINTI®6#G0 EXIT END3 
SMIDim CMMCOJ$e ACCUMCOJ]} CNERSCANE 
IF SCAN LSS IDENT THEN BEGIN CCSECMAINT##63 GO EXIT ENDS 


20589600 
20589610 
20589650 
20589700 
20589720 
20589959 
20590000 
20590010 
20590028 
20590050 
20590100 
20590150 
20590200 
20590259 
20590300 
20590350 
20590400 
20590450 
20590500 
20590550 
20590600 
20590610 
20590650 
20590655 
20590668 
20590665 
20590668 
20590670 
20590675 
20590680 
20590685 
20590688 
20590690 
20590695 
20590700 
20590705 
20590710 
20590715 
20590720 
20590725 
20590730 
20590740 
20590750 
20590751 
20590600 
20590850 
20590910 
20591350 
20591400 
20591450 
20591500 
20591550 
20591600 
205916190 
20591620 
20591650 
20591700 
20591750 
20594800 
20591850 


® INHIBIT 


OPTNISt 


OPTN2s 


SECL! 


ST2! 


SEC24 


SEC53 


SFIDts CMME1L)s= ACCUMCO)s CDEXt= 03 
IF (SFHESOIRECTORYSEARCHCSMIDsSFID2#4))50 THEN GO TO LS} 
IF NOTCCSMID €QV “"PBD "SNOT 0) AND CMESFH*5SJ #0 
AND MESFH#2] NEQ O) THEN 
USE ON PUBLICe SECURE FILES 
BEGIN CNISSCAN$ GO TO OPTN2 ENDS 
OPTNE#03 CMMEL2) 32 SFH3 
FORGETSPACEC(DIRECTORYSEARCH(CMMLO)*CMML1J)214))3 


STREAMCUSERID e QtRUSERID>O2Bt*(CMM) eDSECNIBSPACE(10) 93 

BEGIN OCSI#SLOC USERID$ SItsSl+1sDSseLIT " 3] OSts 7CHRI)3 
DSt= 17LIT “ INVALID USER OF "3 SIt=B3 
SlseSl+1s DSt= 7CHRS DSHBLIT "/"3 StaeSl413 DSt* 7CHRS 
DSSELIT "3 

END STREAMS 

SPOUTERCCNeSPOUTUNIT#1)3 

FORGETSPACECCMM[2J)3 

IF OPTN NEQ@ O THEN GO TO SECS} 

IF UNITNO GE@ 32 THEN BEGIN CCSECMAINT!=53G0 EXIT ENDS 

GO TO CCCs 

CMM( 5]: 2USERIDS 

ST#® COEXI= 03 

FOR OPTN##0 STEP 4 UNTIL 1 DO 

BEGIN CNIt= SCANs IF T#0PEN AND CNSUNLOCKV AND OPTN=O THEN 
BEGIN Tt UNLOCKV3 GO TO SEC1s END 
ELSE IF CN LSS IDENT AND CN NE@ EQUAL THEN GO TO STIs 
CMMCLOPTN]3= IF CNSEQUAL THEN *1 ELSE ACCUM[O]3 
CNE®SCANS 

END} 


IF CN®WITH THEN BEGIN CNeSCANSCMM{6)¢1F CNZIDENT THEN ACCUM[O) 


ELSE USERID# CNeSCAN END ELSE CMM[6]«USERID3 
IF CMMCLO) GE@ O AND CMME£1) GEG O THEN GO TO SEC2; 
Nite CMMCO]$ N2@te CMMC1J$ N3Se OF ST#e 13 
SEFEKNAM (Ni eN2eN3eCMMCOJsCMM(1)0T1)3 
IF N3 NEQ@ O THEN GO TO SEC2; 
STis 03 GO TO SECS 
IF CABSCUSERIDIE@V MCP) NEQ NOT O THEN 
IF CCMMCO) EQV "PBD ") = NOT O THEN GO TO SECS53 
SECURITYMAINT CTs SMIDeSFIDeCMMe SFHeSPOUTUNIT D3 
IF ST THEN GO TO ST23 
IF CN@COMMA THEN GO SEC13 
IF TeUSEV THEN 
BEGIN DISKWAITCSEHe(CFIJe30eSFH LFF I)3 
PCOJRECTORYSEARCHC*SMIDeSFID014)eDEL)DS 
END3 
GO TO CCC 


LSt LBMESSCCMMCOJ*¢CMME1)2"1520e0sSPOUTUNIT#1)3 
REPORTBACKCNOTIN®O00)3 
IF UNITNO GEQ@ 32 THEN BEGIN CCSECMAINT##53 GO EXIT ENDS 
CCCt DO TeSCAN UNTIL T>IDENT AND TSRESETV; 
IF UNITNO®31 AND NT1 GEQ@ O THEN BEGIN CCSECMAINTI®75 GO EXIT ENDS 
NT1a6 09 CCSECMAINT# 4413 GO EXITS 


STit 


EXITS 


IF TeUSEV THEN 
FORGETSPACECDIRECTORYSEARCH(SMIDeSFIDeSFHRIC2ZI4741)))3 
CCSECMAINT&2 «63 

RETURNVALISPROCVALS % ADJUST RESULT OF TYPED PROC 
PCCRETURNRCW) »STS#OeRDSeOeXCHePRPCCTFJeSTF): 


END CCSECMAINTS 
REAL PROCEDURE CCLABELS 


20591900 
20591950 
20592050 
20592100 
20592150 
20592200 
20592250 
20592300 
20592350 
20592400 
20592450 
20592500 
20592550 
20592600 
20592650 
20592700 
20592725 
20592750 
205926800 
20592850 
20592900 
20592950 
20593000 
20593050 
20593100 
20593150 
20593200 
20593250 
20593300 
20593310 
20593329 
20593350 
20593400 
20593450 
20593500 
20593550 
20593600 
20593650 
205937590 
20593800 
20593850 
20593900 
20593950 
20593960 
20593970 
20594000 
20594050 
20594350 
20594360 
20594400 
20594450 
20594500 
20594550 
20594600 
20594650 
20594700 
20594750 
20594751 
20594800 
205948650 


BEGIN LABEL EXITS 20594870 
PCRCWeMYMSCWeSTE)3 20595080 
RCWEPRCW & PCXCHIICTCI3 20595090 
CNt#03 20595150 
UNJTCODECUNITNO®23)4% USERID; 20595200 ee 7 
MULTITABLECUNITNOJ]$® O3 20595258 
RDCTABLECUNITNOJt® 181(14%36210]3 20595300 
IF UNITNO#23 THEN BEGIN CNSSREADERAsIFFISREADERAt@CARDLOC END 20595358 
ELSE IF UNITNO#24 THEN BEGIN CNSeREADERB, CFF ISREADERB?tSCARDLOC END 20595400 
ELSE IF UNITNO GEQ@ 32 THEN BEGIN CN8= CIDROWCUNITNO"™32),(335)3 20595450 

CIDROWLUNITNO@32]8%C*PCDUP))&800394325)& 20595500 
CARDLOCLCTFI3 20595550 
END3 20595600 
IF CN THEN BEGIN LABELTABLECUNI TNOJ]$= "CARD O00” OR 20595659 
CCIF UNITNO GEQ 32 THEN "C/" ELSE @5772) + UNITNOD3 20595700 
CCLABEL!#83 GO EXIT? 20595750 

END3 20595800 - 
IF T * LABEV THEN BEGIN 20595650 
MULTITABLELCUNITNOJSSME(CARDLOC41),(6242])3 20595900 
STREAMCASROeBteOeCesOtDtRCARDLOC+3)3 20595950 
REGIN DItsLOC As SItsDs0S8=30CT3 20596000 
DSteSOcTs 0S'#20CTs ENDS 20596050 
PCPCXCHISPLO43 32017) 8PCXCHIC14236810), 20596100 
CRDCTABLELUNITNOJJ0¢)3% 20596150 
LABELTABLELUNITNOJ8=MLCARDLOC+2) 91 6842])3 20596200 
END 20596250 
ELSE IF SCNCUNITNOseCARDLOC® SOURCE *ACCUM®KOUNToLASTSCAN® DIRECT) 20596300 
GEQ IDENT THEN LABELTABLELUNITNOJS#ACCUM[O) 20596350 
FLSE BEGIN IF UNITNO GE@ 32 THEN 20596400 
CIDROWCUNITNO"32).018215)8203 20596450 
CCLABELt=63 GO EXITS 20596500 
ENDS 20596550 
CCLABEL: #83 20596600 
OXITs RETURNVALSSPROCVALS % ADJUST RESULT OF TYPED PROC 20596658 
PCLCRETURNRCWI]6STSeOeRDSeOeXCHePRPLCTFIsSTF)S 20596651 

END CCLABEL} 20596700 

PROCEDURE CONTROLCARDCCARD)$ VALUE CARDS REAL CARD3 20597550 

BEGIN . 20597600 2 

LABEL COPCCTYPEsCUMPILE® INI FIALIZATIOW*® BEFORE TRYNEXT oo TRYNEXT® © 20597650 
CONTROLER + CONTROLAs COMPILE JOB eCOMJOBSEXEC PEXRUNSRUNG 20597700 
USERSs USES» SECBOMBeUNLOXsLOXeFREES* OPENS» ENTE? 20597750 
LCOPY s+ CHANGE s REMOVE sUNITI] » INCSC ®ENDF eENDECK »SAVEND® 20597800 
LABEoFINISsZIPEXITeEXITeSETe RSET ® DOWNS 20597850 

LABEL CCCePACKsPACK2»WAITeZIPLISTS 20597880 ; 

SWITCH TYPE* UNLOX, USES» LOXsFREESs OPENS» PACK s USERS,» 20597900 

RUN» COMPILE SEXEC es LCOPYeLCOPYs ENTE SENTE PREMOVE® 20597950 

CHANGE pUNT TI» ENDF eWALTeLABEs LABEsSETeRSETS 20598000 

SWITCH SWe CCeoCCTYPE»INITIALIZATION+s BEFORE TRYNEXT»SECBOMBeENDECKs 20599000 
INCSCeZIPEXIT*EX]T»PACK23 20599400 

DEFINE ZIPMIXmCARD,£18!6)#» PSOURCESCARD,[( 2416] #3 20600000 
REAL SUBROUTINE SCANI 20600020 
SCANtMSCNCUNTTNOsCARDLOCe SOURCE »ACCUM»KOUNTs»LASTSCANSDIRECTI$ 20600040 

$ SET OM|T = NOTCPACKETS) 20600099 

SUBROUTINE LISTHECARDS 20600100 

IF LASTSCAN,C261) THEN 206001440 

IF SPOUTUN]JT GE® 32 THEN 20600120 

IF T#PACKET THEN 20600430 

BEGIN 20600140 

LASTSCAN,C2ti}#e0s ABORT# HO? 20600150 os ete eee 
IF UNJTNO#31 THEN 20600160 


STREAMCESS"END eo eae" # CARDLOC)3 

BEGIN SIT##CARDLOC! DIselLOc Es OlseDI +13 

List IF Sce" " THEN BEGIN SI*sSI+13 GO L13 ENDS 
IF SCca*e" THEN GO FINIS 
IF SC#ALPHA THEN 
IF SCE"E" THEN 


BEGIN 
IF 3 SC#DC THEN IF SCSALPHA THEN ELSE 
BEGIN 
CARDLOCSBST$ DISFCARDLOCS DStELIT"«"3 
GO FINI3 
ENDS 


S1teS7"33 OLt#OI"33 GO Las 
END ELSE % ALPHANUMERIC 
BEGIN 
2s S]esSt41s TF SCEALPHA THEN GO L23 
END ELSE & SPECIAL CHR 
STtasles3 
GO Li} 
FINIS$ 
END3 
ZIPLISTs 
STREAM(ZLE#EO!8 CARDLOC® ABORTe PPC8#PPCPROCESS? 
ZZPSSUNITNOF31® DS ENTISSSPACEC10) D3 
BEGIN SI8®CARDLOCS ABORT(S]1#5S1+36)3 
DSteLIT">"3; PPCCOStR4LIT*>")3 ZZPCDSts2LIT">")5 
2C36CIF Scete* THEN JUMP OUT 2 TO ZER} DSteCHR) 23 
TALLY#t#13 ZLIsTALLY3 
ZERt OSseurTte"s 
END3 
SPOUTERCNT1sSPOUTUNIT+64)3 
IF P AND CUNI TNO#®31) THEN 
IF CABORT##ABORT+2) < 30 THEN GO ZIPLIST! 
ABORT##0} 
END LISTHECARD3 
$ POP OMIT 
PCO2Oe Or Oe 00202 0e000)3% 
PCO*020e OP Or 080209080) 34 
P(090200090r Oe Oe 0e020)34 
PCO000900 000002 02000)3 
% DO NOT ZERO THE LAST THREE LOCALS CRETURN@MSCWe RCWe & VAL) 
RCWEBRCOW & PC,.CONTROLCARDeLOD)ICTC)3 
UNITNOS® CCARD,(335]+28),(4335]+43 
IF CARD,£33815) = O THEN 
BEGIN CARD,(€33%815) ¢* SPACE(13)+423 
IF WAITIOCCARD INX @40000000¢@15e+UNITNO),(45413] NEQ 0% 
THEN 
BEGIN LABELTABLECUNITNO) t& #11453 
RRRMECH t® NOT TWO CUNITNO) AND RRRMECH}2 
FORGETSPACECCARD JNX NOT 1)3% 
KILLC ECARD] INX NOT 193% 
END3 
END3 
IF SWAPEND®0 THEN SLEEPCESWAPEND)*63)3 
COMMENT SET UP ACCUM ARRAY FOR SCANS% 
ACCUMS#(MCSPACEC10911&810(8138910)5% 
ACCUMLO] 3 03% 
IF CCCTBLWORDISPCCCTBLWORDe@DUP)ACP,CFF ISL CCTF I), CFF I>1 THEN 
BEGIN 
IF CCTBLADOR®O THEN SLEEPCECCTBLWORDJ+@77777)3 


20600170 
20600180 
20600190 
20600200 
20600210 
20600220 
20600230 
20600240 
20600250 
20600260 
20600270 
20600280 
20600290 
20600300 
20600310 
20600320 
20600330 
20600340 
20600350 
20600360 
20600370 
20600380 
20600390 
20600400 
20600410 
20600420 
20600430 
20600440 
20600450 
20600460 
20600470 
20600480 
20600490 
20600500 
20600510 
20600511 
20600600 
20600650 
20600700 
20600750 
20600755 
20600760 
20600850 
20600900 
20600950 
20601000 
20601050 
20601100 
20601150 
20601200 
20601250 
20601300 
20601350 
20601360 
20601450 
20601500 
20601550 
20601600 
20601620 
20601640 


DIRECTS=£MCCCTBLWORD] J&CCTABLSZ(6#38!10]3 

END ELSE 

BEGIN 
DIRECTRe(MCTIeSPACECCCTABLSZ)IJI&CCTABLSZ(8238810)3 
DISKWAITC*TeCCTABLSZ»MESSAGETABLEL3},£22326])3 
CCTBLADDRt#T3 

ENDS 

CMMt= [QQUERSPACECI30)(CTCI3 

PEQNS&C31 INX (CEQNSSC3L INXCPROG?#°31 INX CMM)))))5% 

2 PLACE %." IN COL 73 3% 
CARDLOC 8# CARD INX 03% 


IF UNITNO#®25 OR UNITNO#26 OR UNITNO#=30 OR UNITNO#31 THEN 


SQURCESRCARDLOC ELSE 


20601660 
20601680 
20601700 
20601720 
20601740 
20601760 
20601780 
20601850 
20601900 
20601950 
20602000 
20602050 
20602100 


MECSOURCEERCARDLOCI4+9) #53 @©32773200000000003 & »*, 2B XTRA SAFE20602150 


IF UNITNO GEQ@ 32 AND UNITCODECUNT(NOW23),0141) THEN 
UNITCODELUNITNO"™23]%=M(CARDLOC + 10)3 


IF UNITNO#25 OR UNITNO#30 OR UNITNOS31 THEN USERID#teMCP ELSE 


BEGIN IF UNITNO#®26 THEN UNJTNOS=313% 
USERIDSFUNITCODECUNITNO@23)3% 

END34 

SPOUTUNIT##¢ 


$ SET OMIT * NOTCPACKETS) 
IF ZIPMIX#0 AND PSEUDOMIXECZIPMIX) GEQ 32 THEN 


PSEUDOMIXCZIPMIX] ELSE 
IF UNITNO GEQ 32 THEN UNI TNO ELSE 


$ POP QMIT 


0)3 


$ SET OMIT = NOTCPACKETS) 


IF UNITNO GEQ 32 THEN 

IF PSEUDOLUNITNO"32)"0 THEN 
PRINTTHECOVERCCARDLOC*UNI TNO» PSOURCE )3 
LASTSCANS S081 (22472113 


$ POP OMIT 


COMMENT SCAN FOR CARD WITH QUESTION MARK IN COL, 132 


ccs 


CCTYPES 


% 


IF SCAN NE@ QUEST THEN GO TO INCSC3% 
TSBSCAN3 


IF (T LSS UNLOCKV) OR CT GTR RESETV) THENS 
GO TO INCSC32 


$ SET OMIT = NOTCPACKETS) 


LISTHECARD3 


£ POP OMIT 
BRANCH ON 1ST WORD ON CONTROL CARD 


CMPLRIS "13 

LIBNOss03 

TOGi* FALSES 

IF (T LE@ ENTER) AND CT GE@ RUNV) THEN 
BEGIN 
M{CARDLOC™2] t= 03 
DISKWAITCCARDLOCs10+CMM[6)$=GETESPDISK)3 
ENDS 

GO TO TYPEL T = UNLOCKV J33 


% COMPILER CALL OUT CARDSZ 


COMPILES 


IF CCCOMPILE THEN GO INCSC$ 


INITIALIZATIONS OPTNNS®INITIALIZEITS GO DOWNS 
BEFORETRYNEXTS IF OPTN®PERIO THEN GO TO CONTROLER? 


FRYNEXTS 


IF KOUNT#®@44 THEN 
IF SOURCE=(CARDLOC&81(030845t3)) THEN 


20602200 
20602250 
20602300 
20602350 
20602400 
20602450 
20602460 
20602469 
20602470 
20602480 
20602490 
20602491 
20602500 
20602509 
20602510 
20602520 
20602530 
20602540 
20602541 
20602550 
20602600 
20602650 
20602700 
20602750 
20602800 
20602850 
20603359 
20603360 
20603361 
20603450 
20603460 
20603500 
20603550 
20603555 
20603560 
20603565 
20603570 
20603575 
20603600 
20603650 
20603700 
20603750 
20603900 
20604050 
20604100 
20604105 


BEGIN 
PPCPROCESS##13 Tt=SCANs GO CONTROLA? 
END3 
IF SCAN NEQ PERIO THEN GO TRYNEXAT3 
CONTROLER’ PPCPROCESS1I&= 13 
IF SCAN NEQ QUEST THEN GO TO INCSC3 
Ts= SCANS 
CONTROLA? IF CT LSS SETV OR T>COBOL) AND ACCUMLO) NEQ CMPLR THEN 
IF 7 GEQ® UNLOCKV AND T LEQ LABEV THEN GO TO FINIS 
ELSE GO TO INCSC3 
$ SET OMIT =& NOTCPACKETS) 
LISTHECARD? 
$ POP OMIT 
IF T GEQ@ ALGOL OR ACCUMEOJ®CMPLR THEN 
IF OPTNSEXECU OR OPTNERUNV THEN 
GO TO TRYNEXT 
ELSE GO TO COMPILEJOB3 
IF OPTN&eSYNTA THEN GO TO TRYNEXT3 
IF OPTNSEXECU OR OPTN®RUNV THEN GO TO COMJOB3 
%’ CALL PPC FOR COMPILE AND GO JOBS 
IF PPCCPADDRePEQN»sPROGsPDEXs+ ToUNITNO®CARDLOC»SOURCEr® ACCUMe 
LASTSCAN®eDIRECT) THEN GO TO INCSC3 
GO TO CONTROLER} 
COMPILEJOB! T=SCAN} 
BOMJOBS IF PPCCCADDR»CEQNeCMMeCDEXeT»oUNITNOeCARDLOC » SOURCE »ACCUMs 
LASTSCANeDIRECT) THEN GO TO INCSC3 
GO TO CONTROLER} 


COMMENT EXECUTE CARD33 
EXEC! PCEXECU)S 
EXRUN! OPTNS=P3 
CMMELZIEFCADDRIECDEX2 #03 
TISSCAN3 CMMLOJ]:S2ACCUM(O]3 
TSBSCANS Ts#SCAN3 
IF CCCMMCLI¢S8ACCUM([OJ) EQV "DISK ") s NOT O THEN 


IF CCT&S5CMMEL0)) EQV “LOCNTRL™) = NOT O THEN OPTNt=RUNV ELSE 
IF CT EQV SPRNPBT ™) = NOT O OR (CT EQV "LIBMAIN") = NOT O THEN 


IF UNITNO#31 THEN GO TO INCSC3 
CMMC2]90&CIF OPTN®RUNV THEN 5 ELSE 2)(8138310]3 
CMME 2335 508( 
$ SET OMIT ® NOTCPACKETS) 
IF ZIPMIX#0 THEN PSEUDOMIXEZIPMIX] ELSE 
$ POP OMIT 
UNITNO)(284216]3 
GO TO INITIALIZATIONS 
RUNS PCRUNV)3 
GO TO EXRUN3 
USERS! TISSCANS Ts3SCAN3 
IF CUSERIDeC131) AND USERID#MCP) 
THEN BEGIN 
USERID#®ACCUM[OJ3 
$ SET OMIT = NOTC(PACKETS) 
IF UNITNO GEQ@ 32 THEN UNITCODELUNITNO™23)48USERIDS 
$ POP OMIT 
ENDS 
CCC! SCOME HERE TO FLUSH TO NEXT INITIAL WORD 
$ SET OMIT = NOTCPACKETS) 
DO TIRSCAN UNTIL TREQUESTSTS®SCAN} 
$ POP OMIT 
$ SET OMIT © PACKETS 


20604110 
20604115 
20604120 
20604125 
20604150 
20604200 
20604250 
20604300 
20604350 
20604360 
20604479 
20604480 
20604481 
20604500 
20604550 
20604600 
20604650 
20604700 
20604750 
20604800 
20604650 
20604900 
20604950 
20605000 
20605050 
20605100 
20605150 
20605200 
20605250 
20605300 
20605320 
20605340 
20605360 
20605380 
20605400 
20605420 
20605440 
20605460 
20605480 
20605500 
20605509 
20605510 
20605511 
20605520 
20605550 
20605600 
20605650 
20605700 
20605750 
20605800 
20605810 
20605819 
20605820 
20605621 
20605830 
20605870 
20605879 
20605880 
206056861 
20605899 


DO T*SCAN UNTIL T>IDENT AND TSRESETVS 

£ POP OMIT 

GO TO CCTYPES 

USES! OPTNNt#03 OPTNNS=CCSECMAINTS GO DOWN} 
SECBOMB! OPTNNt=13 OPTNNGZCCSECMAINTS GO DOWN? 
UNLOX3 
LOX3 
FREES! 
OPENS! 
OPTNN#823 OPTNNSsCCSECMAINT’ GO DOWN; 
ENTES! 
LCOPY! 
CHANGES 
REMOVES 
OPTNNGISLIBCC) 
DOWNS GO SWEOPTNN]3 
SET: TOG? TRUES 
RSETs IF CCSET THEN GO CC ELSE GO INCSC3 
UNITI& OPTNNSBCCUNIT3 GO DOWN; 
INCSC8 
IF PPCPROCESS THEN 
PCDIRECTORYSEARCHC*CMMCOJ+IF CMMCO] LSS 0 THEN “DISK " ELSE 
CMMEi Js 13)2DEL)3 
$ SET OMIT = NOTCPACKETS) 
LISTHECARD3 
£ POP OMIT 
LASTSCAN ti QO} 
STREAMCCARDLOCs USeTINULUNITNO)* ACCUMs MIXteZIPMIX» 
ZZPERUNITNOR31e CRDOISSPOUTUNTT #0.» 
DteTseeSPACE(15))3 
BEGIN 
DStaZ20LIT*#cONTROL CARD ERROR “3 
S]seLOc Us ST#FS14+53 DSt#3 CHR} 
ZZPCDISeD1*223 DStz24LIT*ZIP ERROR* IGNOREDs MI X#"3 
SItwLOC MIX3 DSt2 DEC$ DStaLIT ss 
DteDTs DIteD1733 OSsSeFILLs DitsD)3 
OSte4LIT" AT "3 
SItsaCCUMS SypsaS]ei3 
7CIF SCs” “ THEN ST teSi[et ELSE DStsCHR)} 
CROCDOSESLIT™s"3 SISBSCARDLOC! 20052236 CHRD); 
PSteL] Te; 

ENDS 

IF UNITNO#25 THEN 


20605900 
206059901 
20606000 
20606050 
20606100 
20606150 
20606200 
20606250 
20606300 
20606350 
20606400 
20606450 
20606500 
20606550 
20606600 
20606610 
20606650 
20606700 
20606800 
20606650 
20606660 
20606865 
20606870 
20606874 
20606875 
20606876 
20607000 
20607020 
20607040 
20607060 
20607080 
20607100 
20607120 
20607140 
20607160 
206071860 
20607200 
20607220 
20607240 
20607260 
20607280 
20607300 
20607500 


BEGIN IF UNITNO®30 THEN TWXOUTCT»100*°1 OR MeABSCSPOWORD)) ELSE20607550 


SPOUTERCTeSPOUTUNITe1)3 
IF UNITNO#®31 THEN REPORTBACK(ZIPER*®090)3 
IF UNI TNO®30 OR UNI TNO#31 THEN GO ZIPEXITS 
IF UNITNO GEQ@ 32 THEN GO ENDECK3 
END ELSE 
BEGIN PCWAITIOCT»0925)eDEL)3 
FORGETSPACE(T)3 
$ SET OMIT = PACKETS 
GO TO ENDF3 
$ POP OMIT 
£ SET OMIT & NOTCPACKETS) 
FETCHCUNITNO*CARDLOC «SOURCE )3 
IF SCAN NEQ QUEST THEN GO TO INCSC3 
TEesSCANS 
IF PPCPROCESS THEN GO TO CONTROLAS 


IFCT GEQ@ PACKETIAND(CT LE@ LABEV)ANDCT NEQ@ RUNV) THEN 


20607600 
20607650 
20607700 
20607750 
20607800 
20608000 
20608050 
20608059 
20606060 
20608061 
20608069 
20608070 
20608072 
20608074 
20608076 
20608078 


GO TO CCTYPES GO TO INCSC3 
$ POP OMIT 
ENDS 
$ SET OMIT & NOTCPACKETS) 
ENDECK 
IF UNITNO GEQ 32 THEN 
BEGIN ABORT#=TRUE? 
PACKETERRLUNITNO™32)t=TRUES 
GO TO PACK23 
ENDS 
$ POP OMIT 
DO no 
FETCHC*UNITNO + CARDLOCs SOURCE) 
UNTIL SCANSQUEST 
UNTIL SCAN@ENDFI3 
ENDFI3 
$ SET OMIT ® NOTCPACKETS) 
IF UNITNO LSS 32 THEN 
$ POP OMIT 
IF UNITNO NEQ 30 THEN UNITCODELUNITNO™23) 55903 
IF UNITNO#23 THEN READERAt#0 ELSE 
IF UNITNO®24 THEN READERBt#®0 ELSE 
IF UNITNO GE@ 25 THEN 
IF UNITNO GE@ 32 THEN 
PACK2#3 ZPACKET CARDS END HERE FROM PSEUDO*READERS 
IF CIDTABLELUNTTNO™32e3] LSS CIDTABLELUNITNO™3207) THEN 
BEGIN FETCHC*UNTTNOsCARDLOC® SOURCE) 
$ SET OMIT = NOTCPACKETS) 
IF ABORT THEN 
BEGIN 
IF CTI®SCAN)SQUEST THEN 
IF CTIt®SCAN)SENDFI OR TSWAITV THEN 
ABORTS*FALSE3 
IF T#WAITV THEN GO PACK23 
END ELSE T3=03 
LASTSCANS=OR1[ 254731] 
PACKETERRCUNITNO"32]¢3FALSES 
IF TEWAITV THEN GO WAITS 
$ POP OMIT 
GO CCS 
END ELSE 
BEGIN 
$ SET OMIT = NOTCPACKETS) 
LABELTABLELUNITNOJ3"@1143 
IF PACKETACTLUNITNO™32]0 THEN 
$ POP OMIT 
$ SET OMIT & PACKETS 
ENDECKS 
$ POP OMIT 
ENDOFDECKCCUNITNO™32)8CARD(14181))3 
GO ZIPEXIT3 
END ELSE 
GO ZIPEXIT} 
IFCTWOCUNITNO) AND SAVEWORD) NEQ@ O THEN GO TO SAVENDS 


20606080 
20608081 
20608100 
20608109 
20608110 
20608120 
20608130 
20608140 
20608142 
20608144 
20608146 
20608150 
20606200 
20608250 
20608300 
20608450 
20608459 
20608460 
20608461 
20608500 
20608510 
20608520 
20608550 
20608600 
20608610 
20606650 
20608700 
20608709 
20608710 
20608720 
20608730 
20608740 
20608750 
20608760 
20608770 
20608780 
20608790 
20608800 
206088603 
20608810 
20608820 
20608830 
20608839 
20608840 
20608850 
20608851 
20608859 
20608860 
20608861 
20608870 
20608880 
20608890 
20608900 
20608950 


IF WAITIOCCARDLOC&400(16833'815)-015-+UNITNO), £4583] NEQ@ 0 THEN20609000 


BEGIN 
SAVENDS LABELTABLECUNTTNOJ3= 01143 
RRRMECHS® NOT CNT18™ TWOCUNTTNO)) AND RRRMECH OR 
NTL AND SAVEWORDS 
GO TO ZIPEXIT3 


20609050 
20609100 
20609150 
20609200 
20609250 


END3 
MCCSOURCEN= CARDLOC) +9] s= O08", "C1843985)3 
USERID#® UNITCODECUNITNO"23)35 


GO TO CC3 

PACK? IF UNITNO<32 THEN GO INCSC3 
GO PACK2$3 

LABEt OPTNNS=CCLABEL$ GO DOWN} 


WAITS 
$ SET OMIT # NOTCPACKETS) 
IF UNITNO<32 THEN GO TO CCC3 
IF PACKETACTELEUNITNO*32)80 THEN GO TO CCC3 
LABELTABLECUNITNOJ)##@2143 GO TO ZIPEXITS 
$ POP OMIT 
FIN]S#E CCF INISH3 
$ SET OMIT & NOTCPACKETS) 
IF CNTLe@IF ZEPMIX#0 THEN PSEUDOMIXCZIPMIX] ELSE UNITNO) 
GEQ 32 THEN PACKETACTENTI@32) S@PACKETACTCONTI*32)+13 
$ POP OMIT 
SELECTIONS 
IF UNITNO NEQ 34 THEN 
BEGIN 
$ SET OMIT = PACKETS 


20609300 
20609350 
20609400 
20609410 
20609420 
20609450 
20609500 
20609555 
20609559 


20609560 | 


20609570 
20609580 
20609581 
20609600 
20609659 
20609660 
20609670 
20609671 
20609700 
20609750 
20609760 
20609799 


IF GIBNO NEQ@ O AND CUNT TNO#23 OR UNITNQ#24 OR UNITNO GEQ 32920609800 


AND T NEQ ENDFI THEN 
BEGIN 
LABELTABLECUNITNOJ 250214; 
SLEEPCCLABELTABLELUNITNOJ)2@100)3 
LABELTABLECUNITNOJs#"614; 


END3 
$ POP OMIT 
GO CCTYPE3 
. END} 
ZIPEXITS FORGETSPACECCARDLOC™2)3 
EX{Ts3 


$ SET OMIT ® NOTCPACKETS) 
IF ZIPMIX NEQ@ 0 THEN 
BEGIN NYLONZIPPERCZIPMIXJ,C2siJ eats 
IF PSEUDOMIXCEZIPMIX] NE@ O THEN 
IF MEMROWCZIPMIX),CCF] GE@ FENCE THEN 
BRINGBACK(Z{PMIX)3 
a END} 
$ POP OMIT 
FORGETSPACECACCUM INX 0)3% 
FORGETSPACECCMM INX 0)3% 
IF CCCTBLWORDIBPCCCTBLWORDsDUPIRCP,CFFITIIECTF ID CFF IJ20 THEN 
BEGIN 
FORGETSPACECCCTBLADOR)3 
CCTBLADDR: #03 
ENDS 
KILLOCLCARDJ INX NOT 1)3% 
END CONTROLCARD3 
REAL PROCEDURE CCSET} 
BEGIN LABEL MORE *SEEKeSKIPsCCERRoL1 Les 


REAL FXTOG = RETURNVALS1¢ % BEGIN LOCALS OF CCSET 
LOK = FXTOG+1.s 
N = LOK+1» 
SENSETOG = Nei} 


REAL SUBROUTINE SCANS 
SCAN*SCNCUNITTNO*CARDLOC e SOURCE pACCUM®KOUNT®LASTSCAN@DIRECT)3 
PCRCWeMYMSCWeSTFE )3 


20609850 
20609900 
20609950 
20610000 
20610050 
20610060 
20610061 
20610100 
20610150 
20610200 
20610250 
20610259 
20610260 
20610265 
20610270 
20610275 
20610280 
20610285 
20610266 
20610300 
20610350 
20610400 
20610410 
20610420 
20610430 
20610440 
20610600 
20610650 
20700000 
20701000 
20702000 
20702100 
20703000 
20704000 
20705000 
20706000 
20707000 


RCWESROW & PCXCH)IECTCI3 

PC02#02000)3 & ZERO LOCALS OF CCSET 

UNI TNOSECARDe[2:26]3 

CARDLOCERSCARD INX O83 

IF NOT CFXTOGS¥(CNS®SCAN)SFIXED) THEN 

IF NOT CSENSETOGS*®(CN#SENSE)) THEN 

IF CN # ACCESSD THEN GO TO CCERR} 

MORE $s 

IF CCNSSSCAN)®EQUAL THEN CMMCOJ383™1 ELSE 

IF CN GEQ IDENT THEN CMMLOJt#ACCUM(O] ELSE GO CCERR3 

IF SCAN NEQ@ SLASH THEN GO TO CCERR3 

IF CCNS@SCAN)SEQUAL THEN CMM(EJ]2271 ELSE 

IF CN GE® IDENT THEN CMME1J¢=acCUMEO) ELSE 

GO TO CCERR} 

CNeweTes03 

SEEK: 

IF CCMMEOJ OR CMME1)) LSS O THEN 

SEEKNAMCCMM(COJ ®CMM[ 1) eCNeCMML2)eCMME3]9N) ELSE 

BEGIN CNS*13 CMMCL2)8eCMML0]3 CMMC3)8=CMM(1) ENDS 

IF CN NEQ 0 THEN 

BEGIN 
IF NOT FXTOG THEN IF SYSTEMFILECCMME2)9CMML3]) THEN 
BEGIN T%=23 GO SKIP? END3 
TISDIRECTORYSEARCHCCMM[2) #CMME3)019)3 


END ELSE JF N®0 THEN BEGIN CMM(C2)35CMM[O0]3 CMMC3)8=CMMC1)35 GO Li3 


END 
ELSE GO L23 
SKIP 
IF T GE® 64 THEN 
BEGIN 
IF MCT44),04382)"3 THEN 
BEGIN DISKWAITCT,CEFJ] o"30eTs(FFIDS Th#13 GO Lis END} 
IF CUSERID EQV MCP)= NOT O OR 
CUSERID E@V ABSCMECT+#2)))= NOT O OR 
(NOT SENSETOG AND (MET#2)490)) THEN 
BEGIN 
LOKEs0}3 
IF FXTOG 
THEN MC T4#4),0C42t1] 32706 
ELSE IF SENSETOG 
THEN IF LOKtaCCM(T44),04392)]%1) AND NOT TOG) 
THEN MET44),043%2)230 
ELSE IF MCT+47,04322) 41 
THEN ELSE M(T4#4],(43t2]8sTOGx2 
ELSE BEGIN 
MET#A4),Ci1tidssTOGs 
STREAMCDATEs# J8#5)3 
BEGIN S]t#LOC DATES DSt=80CT# END? 
MCT4#3),C12¢16) 8SJUNK3 
. END} 
DISKWAITCT,»CCFIJe*300T, CFF IDE 
$ SET OMIT # SHAREDISK 
a UNLOCKDIRECTORY3 
$ POP OMIT 
$ SET OMIT ® PACKETS 
IF RSTOG THEN 
$ POP OMIT 
IF LOK THEN PCDIRECTORYSEARCHC*CMM02]0CMMEL3]96)eDEL) 


ELSE LBMESSCCMML2)eCMM(3)¢I1F TOG THEN 12 ELSE 31- 
13+(SENSETOGX47 "CF XTOGX3) » Os SPOUTUNIT® RSTOG) 


20708000 
20709000 
20710000 
20711000 
20712000 
20713000 
20714000 
20715000 
20716000 
20717000 
20718000 
20719000 
20720000 
20721000 
20722000 
20723000 
20724000 
20725000 
20726000 
20727000 
20728000 
20729000 
20730000 
20731000 
20732000 
20733000 
20734000 
20735000 
20736000 
20737000 
20738000 
20739000 
20740000 
20741000 
20742000 
20743000 
20744000 
20745000 
20746000 
20747000 
20748000 
20749000 
20750000 
20751000 
20752000 
20753000 
20754000 
20755000 
20756000 
20757000 
20758000 
20759000 
20760000 
20761000 
20762000 
20763000 
20764000 
20765000 
20766000 
20767000 


END 20768000 


ELSE LBMESSCCMME2)*CMME3)¢"™C114+70G)*e41°0*eSPOUTUNIT#1) 20769000 

END 20770000 

ELSE 20771000 

Lit LBMESSCCMM( 2) CMML 3) o™C114T0G) s154CC TAL )x302400 T2210) 220771100 
GsSPOUTUNIT#1)93 20772000 

$ SET OMIT = SHAREDISK 20772100 
UNLOCKDIRECTORY3 20772200 

$ POP OMIT 20772300 
IF CN NE@ 0 AND CCMMLO] OR CMM£1]) LSS O THEN GO SEEK} 20779000 

L2t JF CCONt=SCAN) COMMA THEN GO MORES 20780000 
IF CNSPERIO THEN CCSET#®13 20781000 
Q@CERR$ RETURNVALSEFPROCVALS % ADJUST RESULT OF TYPED PROC 20782000 
PCCRETURNRCW) >STSPOeRDS#OeXCHePRPICTFIeSTF)3 20783000 

OND CCSETS 20784000 
SAVE PROCEDURE SWAPCSTATE®B)3 VALUE STATE*®BS REAL STATE*B3 21000100 
BEGIN IF B®1 THEN 21001000 

IF TERMSETCPIMIX) THEN PCXIT)3 21001100 

$ SET OMIT = NOTCSTATISTICS) 21001109 
IF CSTATESTIMEND) OR CSTATE®WAITSWAP) OR 21001110 
CSTATE=FORCESWAP) THEN 21001120 
CORETIMELPIMIX] $3C*PC DUP) +CLOCK4PCRTIRI@TIMINGCPIMIX]3 21001130 

$ POP OMIT 21001131 
STASUSEPIMIXJ*STATES 21001200 

IF STASUSCOJ*READYSTATE THEN 21001300 

BEGIN STASUSCLOJ+RUNNINGS 21001400 
FORK(PC,SWAPPER) »00*20128e1)3 21001500 

ENDS 21001600 
LINKESWAPENDJ*PIMIX; 21002000 
LINKESWAPEND@#PIMIXJ #03 21002100 

IF B THEN SLEEPCESQCPIMIX]]»O&RUNNING(L18842:6]))3 21003000 

| ENDS 21004000 
PROCEDURE REENTERCSTUFFI$ VALUE STUFF? REAL STUFFS 21005000 
BEGIN REAL LOG#S45;3 21005100 
PAMIX*STUFFeC385)3 21005500 
STARTLOGCPIMIXs0)3 21006000 
PRIORTY#PRYOREPIMIX]3 21006100 
MCSTUFF,CFFJJ¢13 21007000 
PCSTUFF®STS)3 21008000 
PCORSTUFFCCTFIJeSTF)3 21009000 

LOGLINE * LOG} 21009100 
STACKUSE © TRUF$ 21010000 

GO TO PC,SLEEPeLOD)3 21011000 

END? 21012000 
PROCEDURE BRINGBACK(MIX)$ VALUE MIX$ REAL MIX3 21012100 
$ SET OMIT = NOTCSTATISTICS) 21012109 
BEGIN REAL T3 21012110 
TEECLOCK#PCRTR)3 21012120 

$ POP OMIT 21012121 
BEGIN IF CSTASUSEMIX] AND STABLE)#0O THEN 21012200 
SLEEPCESQUMIX) 1 +0&8STABLEL18242%6])3 21012300 

If STASUSEMIXJBEWAITSTATE THEN 21012400 

BEGIN STASUSCEMIXJeSATISFYS 21012500 

$ SET OMIT = NOTCSTATISTICS) 21012504 
SWAPDELAYCLMIX]8eT3 21012505 

$ POP OMIT 21012506 
IF STASUSLOJSREADYSTATE THEN 21012510 

BEGIN STASUSLOJ*RUNNINGS 21012520 

FORK( PC ySWAPPER) 2Or"2012601)3 21012530 

END3 21012540 


LINKESWAPEND )#MIX3 


LINKESWAPEND#MIXI¢03 
END 
$ SET OMIT * NOTCSTATISTICS) 
END 
$ POP OMIT 


END BRINGBACK$ 
SAVE PROCEDURE MCPINCS)3 VALUE Ss REAL S3 
BEGIN REAL TeXsY¥e2Z3 
IF NOT MES],£7:1) THEN 
SLEEPCOMES)3+0810784781])3 
IF CY*NFLAGCM(S))), CCF J]aCaPC ,ESPBIT)).LCF] THEN 
BEGIN ZeY,CA#iO]) MESJ,C781I¢03 
TeGETSPACE(2Z06500)+423 
$ SET OMIT w= NOTCAUXMEM) 
It ¥,£681)] THEN % STORED ON AUXMEM 
DISKWAITC@TeZe™(ORYE32421412))) 
ELSE 
$ POP OMIT 
DISKWAITC™TeZeoY, CFF I+MCPBASE)D3 
MCT*2],C2t1)+03 
MC Tri deSaZ(CTF Js 
MES] te C#PCDUP)) & TECTC) & LL7847%8143 
$ SET OMIT = MONITOR OR NOTCAUXMEM) 
AUXTRACE(0*5S)3 
£ POP OMIT 
END3 
END} 
PROCEDURE EXPANDERCMIXeR)3 
VALUE MI[Xsk3 
REAL MI XeR3 
FORWARD} 


BOOLEAN PROCEDURE UNHOOKANDWAITCMIXeMCP)3 VALUE MIXeMCPS REAL MI XeMCP3 


BEGIN REAL [eJeKeolLeNeMSTART®MENDS 
ARRAY A*MENDE#]}3 


LABEL FOUND; 
IF LOCOUNTC MIX] GEQ@ O THEN 
BEGIN 
$ SET OMIT = SHAREDISK 
CLICKeCLOCK+PCRTRI+9003 


$ POP OMIT | 
SLEEP CLIOCOUNTEMIX]] 203 
IF ITOCOUNTEMIX) GEO O THEN 
BEGIN STASUS[MIX] 1 SRUNNINGE 
1F NOTERMSETCMIX) THEN PRTROW(MIX],CFF) te 193 
PRTROWEMIX),CPSF) ba 13 
PCLoRTN)3 
END ENDS 
WAITSTORECO)3 
STOREDY(O)+03 
LINKR*BED13 


WHILE TRUE DO 
IF LINKRE2]#M1X THEN GO TO FOUND 
ELSE LINKReLINKROD)3 
FOUND! J¢TOPSKEMIX]J*LINKRUFREGIyLFFI3 
LINKOR(CO#1) © LINKROII3 
LINKOREL°0)eCCF) © LINKROOIS 
LImLINKRCG)3 
MSTARTERCTS#MEMCO*MLINKL J), CCF IS 


2 INTABLE ROW 
ARRAY LINKR=MENDEC¥]> LINKOR=MENDE *e*)3 & BED DESCRIPTOR 


% GIVE HIM 15 SECS, 


21012600 
21012610 
21012700 
21012709 
21012710 
21012711 
21012800 
21013000 
21015000 
21016000 
21017000 
21018000 
21019000 
21020000 
21020010 
21020020 
21020030 
21020040 
21020041 
21021000 
21022000 
21023000 
21024000 
21024100 
21024200 
21024201 
21025000 
21026000 
21026500 
21026600 
21026700 
21026800 
21027000 
21028000 
21028500 
21028600 
21029000 
21029100 
21029200 
21029249 
21029250 
21029251 
21029300 
21029400 
21029500 
21029700 
21029750 
21029800 
21029900 
21031000 
21032000 
21034000 
21034500 
21035000 
21035500 
21036000 
21037000 
21038000 
21039000 
21039500 


MENDS=MCIT CFP II,CFFI3 

DO IF (N*MCLJJ),0CFI>MSTART THEN 
IF N,eCCFJ LSS MEND THEN 
BEGIN K«MSTART3 


DO BEGIN J¢eK3 
KeMEC TJ CCR I3 

EXD UNTIL NefCF)<K3 

MUNOCFFII,CCFISMEI +193 

ME JJe© NFLAGCONOTCT +19) INX ND3 


% HERE BEE DRAGONS 


N «© MEK © PRKTEMIXe8).CEFIJI,CCrIE 
IF N<FENCE THEN BEGIN 
DO J * MEL « J1,fCF] UNTIL J>N3 


END UNTIL (J«N,CFFI)<643 


J eMCOU.ECFRI3 


IF PCMELI,038912)20UP)2@700 OR PCXCH)#@1500 THEN 


BEGIN MCK] © NFLAGC*PCDUP))&CN@1*2)0CTC)3 
NtEeREENTRANTINTABLEMAP(ME I +1].085101)3 
Te (NTABLECMIXeN, 036810) 193 


DI*LOC N3 


N # POLISH? 


END ELSE N « O$ 
END ELSE N « O$ 


MEKW1) © C#PCDUP))&N(18836810)3 


N « INTRNSCLOIJ=13 
IF A#0 THEN 


BEGIN 


STREAMCN®N AND 338 
BEGIN SI*LOc T3 


I 


SleS]+N3 
OL+D1+63 


«J ¢« 03 


SI+SI4N3 
DS¢2 CHR 


END STREAM3 


A ¢ INTABLEROWE(MIX)3 


18323 DO BEGINS &% STEP THRU REENTRANT INTRINSICS 


JSBREENTRANTINTABLEMAP(C I )3 

STREAMCL$#J AND 38T8sCACJ,036810))))3 

BEGIN SIeLOC I 

IF 2 SC#DC THEN TALLY#13 

END STREAM; 

IF POLISH THEN 
IFCCUttINTRNSCOIJ), CCF] GTR 1023) AND J LSS 0 THEN 


DieDI+13 


DI*DI+l3 


Jo¢ OLAYCJUACCFIM2eMIXI3 


END UNTIL I GTR 203 


END3 


DATEMIX]e=#P(DUP)3 


% THERE BEE A SLAIER OF DRAGONS 


STOREDY(OJ«13 
IF befl3387)#0 THEN 
BEGIN CLEARTANK(LeMCP)3 


ENDs 


END UNHOOKANDWAITS3 
PROCEDURE HOOKUPMCPCMIX)$ VALUE MIX$ REAL MIX3 
BEGIN REAL JeJdoNeSeToU3 


FORKCPC,REENTER) aC JeTOPSKCMIXISLTILCCTEIOMIXEC 384385) 2 20000)3 


IF CNeMEJ45))9,03307)40 THEN 


IF CSTATABLECIN, C4088) U8 eCePC DUP) 820254682) ) ,STATIONTYPESTWX 


THEN 


IF TANKS(N,C4088)),( SOUSE j=©0 


THEN IF SLNECMIX)#0 THEN 


IF 12 THEN 1t*16 ELSE Jtal+i3 


9 ® * 


I*TALLY; 


STATABLECL C4008) J 28 CePCDUP)A3L284632)5 


BEGIN S#TWOCCLOCK L404 23x6)x%e00"3 
TWXOUTCESI,£CF I] eBolk3L1 84682) 9N); 


END? 


SLEEPCETIJe1)93 


21039750 
21040000 
21040100 
21041000 
21042000 
21043000 
21044000 
21045000 
21046000 
21047000 
21048000 
21049000 
21050000 
21050100 
21051000 
21052000 
21053000 
21054000 
21054100 
21054200 
21054300 
21054400 
21055000 
21055100 
21056090 
21057090 
21057100 
21057200 
21058000 
21058500 
21059000 
21060000 
21061000 
21062000 
21063000 
21064000 
21065000 
21065500 
21066000 
21066500 
21067000 
21068000 
21093000 
21094000 
21095000 
21096000 
21097000 
21099000 
21100000 
21101000 
21102000 
21103000 
21103050 
21103100 
21103150 
21103200 
21103300 
21103500 
21103600 
21104000 


DO IF PCNeMES)]+TOPeXCH*sDEL) THEN 
BEGIN SeMUN,CFFIIJ.(CF]3 
MONGCFFII,{CFJ«03 
MCPINCS)3 
MCJJeFLAGCMES] INX N)B 
END UNTIL (JN, CFFI2<643 
IF (J * MECS © PRICMIX*6) CCF I971I.0188105)40 THEN 
BEGIN N © J INX PRIEMIXe4])3 
MAKEPRESENTCPCMIX»sPRIROWECMIX] INX NelBt101))3 
MES] © FLAGC#PCDUP)I&CPCDUP) INX CNeCFFIDICCTCI3 
MES"1),018810] «03 
END3 
DATUMIXJew*PC(DUP)3 
FOR J#Q STEP 1 UNTIL 29 DO 
IF J<16 OR J>19 THEN 
IF RDCTABLECJ],CO%*6]=MIX THEN 
IF UNITCJ7.01335)231 THEN 
IF ¢€C€T#TWOCJ)) AND PCRRR))#0 THEN 
BEGIN UNITEJ) .C13%5]«163 
READY*READY AND NOT TB 
RRRMECH*RRRMECH AND NOT T3 
END3 
IF CNTL*PROCLIMITEMIX]) LE@ O OR 
CNT2*ELAPSEDLIMITEMIX2) LE@ O OR 
OLAYCTREMIX] LEQ@ O THEN 
BEGIN IF (NTS*PRYOREMIX])>10 THEN NT1¢103 
NTL] CSLNEMIXIX4+COUNTEMIXI@NT1)x8+2083 
NT2e2xuNT13 
OLAYCTROIMIXJ*UPOLAYCNT1)+ 
DONTEXPANDBITS(MIX]x@100000000003 
END} 
PROCLIMITCMIXJ*PROCTIMECMIXJ]4NT13 
ELAPSEDLIMITIMIXJ*I1OTIMELMIXJ+NT23 
STASUSCMIXJ*RUNNINGS 


$ SET OMIT & NOTCSTATISTICS) 


TIMINGE MIX] *CLOCK+PCRTR)S 


$ POP OMIT 
$ SET OMIT = NOTCSHAREDISK) 


FOR [#0 STEP 1 UNTIL L@AVAIL®1 DO 
IF GLQUECT),CI2%1) THEN 


TF LOCATQUELS*+LQUELCTIJ,£187)),C3#5]MIX THEN & 10 TO DO 


IN 


BEG 
$ SET OMIT = DFX OR OMIT 


Us CLOCATQUELSJ+(C#PC(DUP)I&CNOT ODCCTFII,(12%:6]3 

LOCOUNTIMIXJe«P (DUP) +13 

IF UNITCU],CFFI>1023 THEN 

BEGIN 
UNITCUJ+Ce#PCDUP) QSCCTFISSECTCI3 
STARTIOCU)3 

END ELSE 

BEGIN 
LOCATQUECUNITCUJCCFII LFF IJ¢S3 
UNITCUJ,CCFIJ¢S3 

END} 


$ POP OMIT 
$ SET OMIT = NOTCDFX) OR OMIT 


Tw [OQUE(S)&86(0384315)3 
RETURNIOSPACE(CS)3 
PIMIXeM]X} 


TOREQUESTCFINALQUELS] »TeLOCATQUECS]&16(12842%6))3 


21105000 
21106000 
21107000 
21108000 
21109000 
21110000 
21110100 
21110200 
21110300 
21110400 
21110500 
21110600 
21110700 
21111000 
21111100 
21111200 
21111300 
21111400 
21111410 
21111420 
21111430 
21111440 
21111500 
21111510 
21111520 
21111530 
21111540 
21111550 
21111560 
21111570 
21111580 
21111590 
21111600 
21111610 
21111619 
21111620 
21111621 
21411629 
21111630 
21111640 
21111650 
21111660 
21111669 
21111670 
21111680 
21111690 
21111700 
241111710 
21111720 
21111730 
21111740 
24111750 
21111760 
21111770 
21111771 
21411779 
21111760 
21111800 
21111840 
21111620 


PIMIXeQ3 
$ POP OMIT 
IF 1 USS (LQAVAILeL@AVAIL*1) THEN 
BEGIN 
STREAMCASLOQAVA[L@ 1 eBeCLQUELIIJI)3 
BEGIN SI*Bs SleSI+83 DSeA WDOSS ENDS 
Tel"43 
ENDS 
ENDS 
$ POP OMIT 


END HOOKUPMCP3 
PROCEDURE SWAPINGIOCMIXe¢R)S VALUE MIX*R3 REAL MIXeR} 
BEGIN INTEGER SI 
REAL LedeKoFoTOoTieTeeT3#BeDeMSTARTE 
ARRAY AwBE*]3 
NAME N3 
STREAM PROCEDURE MOVEC(NeHe TS VALUE NeHoT$ 
BEGIN LOCAL IeJ3 
ST*LOC NZ ST*S14+53 DI*LOC Ts DieDI+73s DS*+CHRE 
DIeLOC Js DIeDI+738 DS*CHR: 
SleH3 DleT3 
1032CDS*32 WOSS DS«32 WDOS3 DS*32 WDS3 DS*32 WOS))!3 
JCpS*32 WOS! DS¢32 WOS)3 
OSe*N WDS3 
END SUPERMOVES 
SUBROUTINE DODISK3 
BEGINS STREAM(CBeJ)§ BEGIN ST*LOC Bs DS+B8DEC ENDS 
BeBtS+23 
DeJRSCCTFIA3C5Ss46r2aR(24s4731)3 
Ns#K [NX [TOJ3 
IF CNC£O) AND [TOMASK)®Q THEN SLEEPCONDTC OJ] + 10OMASK)3 
NLOJ«03 


TOREQUESTCNABS(D)8@377( 2524088) e Deo (NEOII8168(1234286))3 


$ SET OMIT = NOTCSTATISTICS) 
COUNTUP(159S)3 
$ POP OMIT 
Je30xSeJ413 
Kee(K+l1),£4612)3 
END) 
SUBROUTINE SWAPS 
BEGIN TOSeTIseT2rsT3tayOMASK} 
BeDISKSTORELMIXIS 
Ke03$*633 
WHILE J+#1890<] DO DODISK: 
IF CS t*J"t)21023 THEN 
BEGIN Se«S DIV 30% DODISK Se]=Je1 ENDS 
IF S>*0O THEN 
BEGIN 
$ SET OMIT # NOT STATISTICS 
COUNTUP(152¢€S429) DIV 30)3 


$ POP OMIT 
DISKWAITCCJ4t) @ROLI4761)9S5B)3 
ENOS 
NeeCTOds 
FOR K#®O STEP 1 UNTIL 3 DO 
IF CNCK] AND I[OMASK)#0 THEN SLEEPCEINE KI) Je LOMASK)3 
END3 


JoMSTARTeCMEMC(MIXeMLINKIJ), CCR I3 
FP SQEMIX}20 THEN SLEEPCCSO(MIX])»"0)3 
SQCMIXJew*PCDUP)3 


21111830 
21111631 
21111840 
21111650 
21111660 
21111670 
21111680 
21111890 
21111900 
21111901 
24111950 
21112000 
21113000 


%RO0221114000 


21115000 
21116000 
21116100 
21116200 
21116300 
21116400 
21116500 
21116600 
21116700 
21116800 
21116900 
21117000 
21118000 
21119000 
21120000 


®RO0221121000 


21122000 
21122500 
21123000 
21123099 
21123100 
21123101 
21124000 


%RO221125000 


21126000 
21127000 


%RO0221126000 


21129000 
21130000 
21131000 
21132000 
21133000 
21134000 
21134500 
21134900 
21135000 
21135100 
21135500 
21136000 
21136500 
21137000 
21137500 
21138000 
21139000 
21139100 
21139200 


IF R THEN 
BEGIN FeJeCleCLCOMIXJ+CEXPANDEMIXJ#4))xCHUNKZIZE+FENCE © 


ACTLEN(MIX]3 

SWAP3 

A©F*MSTART INX MEF *ADDRESSESJ3 Ke} 

FOR Jer STEP 1891 UNTIL I"1 DO 

BEGIN MEJJ¢aCK]3 KeK+1 ENDS 

IF [#J THEN 

IF (CSe17J41890)21023 AND (S*S MOD 30)#0 THEN 
MEI@SITeACKI3 

JeSeoF3 

TreMSTARTS 

WHILE J#J 00 

BEGIN WHILE (KeM(LJJ2>0 DO JeK, [CF ]+5"13 
doeJe33 
MOVE CU*SsSeIt)3 
SeJ3 
[¢K,(CFI]3 

END3 


END INPUT ELSE 


BEGIN 


BEGIN DO IF CKeMC£J))<0 OR (KeK,CCFJ)<J THEN 


END3 


BEGIN JeJ+¢33 
IF IT#F THEN MOVEC UF oF eo] )3 
Lel+UrF3 
FeK} 
END UNTIL (CJeK)eMSTARTS 
AeMEMEMIX*ADDRESSESI]3 KeO3 
FOR J « MSTART STEP 1894 UNTIL I*1 DO 
BEGIN ACKJeM(JJ]3 KeKeid ENDS 
IF I#J THEN 
IF CSe]"J+1890)21023 AND (S*S MOD 30)#0 THEN 
ACK]«+MCI°S]3 
JeMSTART} 
SWAP} 
ACTLENEIMIX J] eI] *MSTART3 


END OUTPUT? 
IF EXPANDEMIX)#0 THEN EXPANDERCMIXeR)3 
SQCMIXJe=*PCDUP)3 
END SWAPINGIO3 
PROCEDURE SWAPPER: 


BEGIN LABEL START TIMENDL&® RDYeLielL2eWALTSWAPLeEOULsBOULsSATISF YL» 


COMMON*s BUMP eFORCEL#RRI 


SWITCH STATE*TIMENDLeWAITSWAPLeBOULsSATISFYLeEQUL es FORCELS 


REAL TedeKa TAs TT eM[ Xe RCWS403 
REAL Sal 
REAL BJOB} 


STARTS 


1F (CMIX*LINK(34))80 THEN 

BEGIN STASUSLOJ*READYSTATES KILLCLRCW)] INX NOT 2) ENDS 
LINKC3LJeLINKEMIX)3 

IF MIX®SWAPEND THEN SWAPEND©313 

S#SCCMIXJ3 LeLCCMIX]s 

BJOBS=BATCHJOBLMIX]} 

GO TO STATELSTASUSEMIX])3 


TIMENDL? 


$ SET OMIT = NOTCSTATISTICS) 
SWAPSEMIX] teePC DUP D443 


$ POP OMIT 


21140000 
21141000 
21141100 
21142000 
21143000 
21144000 
21145000 
21146000 
21147000 
21148000 
21149000 
21150000 
21151000 
21152000 
21153000 
21154000 
21155000 
21156000 
21157000 
21158000 
21158100 
21159000 
21160000 
21161000 
21162000 
21163000 
21164000 
21165000 
21166000 
21167000 
21168000 
21169000 
21170000 
21171000 
21172000 
21173000 
21173100 
21174000 
21174400 
21174500 
21175000 
21200000 
21201000 
21202000 
21203000 
21204000 
21205000 
21205100 
21206000 
21207000 
21208000 
21209000 
21210000 
21210100 
21210200 
21211000 
21212000 
21212099 
21212100 
21212101 


ee re et 


K*RDYRPTENDS 
RDYRPTENDeMIX3 
SLNEMIXJ @SLNIMIXJ¢(CSLNEMIX]#7)3 
RRs IF UNHOOKANDWAITCMIXe1) THEN GO TO START3 
ELAPSEDLIMITELMIXI]$eePCDUP)*IOTIMELMIX 33 
PROCLIMITOMIXJe*PCDUP)*PROCTIMEE MIX): 
IF DONTEXPANDBITSEMIX] = 0 THEN 
IF QLAYCTREMIX) LSS O THEN EXPANDEMIX]3=33 
TAeTT¢Q3 
[*RDYRPT? 
RDY§ LINKEMIXJ«LINK(KI]3 
LINKC KJ eMIX3 
NUSCMIXJ©SLNEIMIXI +23 
IF TA#0 THEN 
L1% BEGIN STASUSEMIXJ«TRANSIT? 
SWAPINGIOCMIX#0)3 
END} 
GO TO COMMON} 
WAITSWAPLE 
ITF UNHOOKANDWAITCM] X00) THEN GO 10 START3 
ELAPSEDLIMITIMIX]«#*03 
TASPLSTT#O3 
LeWAITTSTATE} 
GO TO Lis 
FORCELS 
$ SET OMIT = NOTCSTATISTICS) 
SWAPOUTSEMIX]ise#P( OUP) +13 
& POP OMIT 
IF (KeFORCEND)®RDYRPTEND THEN ROYRPTENDeMIX3 
PRTROWEFORCEND@# MIX], CPSFJ+«03 
SUNCMIXJ©L*¢CSLNEIMIXI) £45:273 
IF 150 THEN ELAPSEDLIMITEIMIXJ]S#IOTIMELMIX)3 
GO TO RR3I 
EQJLETAsTTe"43 
I*STABLE3 
GO TO COMMON} 
BOJL: Theil; 
_ T*READYBOJ3 
L2t TAeL3 
JeMIX} 
IF (KeLINKCREADYEND])#0 THEN 
TF NLSCKI8O THEN JeK ELSE NLSCKIJ*NLSECKJ "13 
IF CK*READYEND)SFORCEND THEN FORCENDeu3 
IF RDYRPTENDEREADYEND THEN RDYRPTENDed3 
SLNEMIX]«03 
READYEND#*J3 
JoMIXs 
GO TO RDY3 
SATISFYLE 
TT+03 
I*READYSTATES 
GO TO L23 
COMMON? , 
COUNTIMIX] «633 
STASUS(MIXJeI13 
$ SET OMIT = NOTCSTATISTICS) 
IF CY®READYSTATE) OR CI®RDYRPT) OR (CTSREADYBOJ) THEN 
QUETIMINGC MIX] $eCLOCK+PCRTR)} 
&$ POP OMIT 
l#S"13 


21213000 
21214000 
21215000 
21215100 


#R5921215200 


21215300 
21215358 


%R3821215400 


21216000 
21216100 
21216200 
21216300 
21216400 
21217000 
21218000 
21216100 
21218300 
21219000 
21220000 
21221000 
21221100 
21222000 
21223000 
21224000 
21224100 
21224109 


®R6321224110 


21224114 
21224200 
21224300 
21224400 


®R5921224500 


21224900 
21225000 
21225100 
21225300 
21226000 
21227000 
21228000 
21229000 
21229100 
21229110 
21229120 
21229130 
21229200 
21230000 
21230100 
21231000 
21232000 
21233000 
21234000 
21235000 
21236000 
21237000 
21237100 
21237199 
21237200 
21237300 
21237301 
21238000 


BUMP $ 


IF Clel4+¢1)>L THEN 
IF (TA®EXPANDEMIX]) #0 THEN GO TO START 
ELSE IF S<O THEN GO TO START 
ELSE BEGIN LeleIF TA THEN Lei ELSE S#13 
Se"(TAeTT#1)3 
JeMEX3 
END} 
ACTIVECITIJ*ACTIVECTI+TA3 
TOTALCIJ*TOTALCIJ4TT3 
IF BJOB THEN BATCHED{1I]1"TT GEO 03 
IF TA#1 THEN 
BEGIN POSSESS(C I J+ U+03 
DO JF (CJeLINK(KeJ])=0 THEN GO TO BUMP 
UNTIL SCCUISIT AND LCC(VI273 
END ELSE IF CNTi*POSSESS(1))40 THEN 
IF STASUSENTIJSRUNNING THEN 
BEGIN IF SLNENT1]#0 OR NLSCNT1I]*0 THEN GO TO BUMP$ 
IF PRTROWENTL J ¢CPSFIJ#O THEN 
PRTROWENTIJ «(PSF J) «33 


GO TO BUMP; 
END ELSE 
IF STASUSCNT4)#RDYRPT THEN GO TO BUMP 


ELSE 
BEGIN NT2«03 
WHILE CNT2*«LINKENT2))#u DO 
IF NTI=NT2 THEN GO TO BUMP; 
COUNTENTIJ¢COUNTENT1)+633 
ENDS 
POSSESS[([ I JeJ3 
COUNTLJJeNTI¢COUNT(JJ4+1 AND 633 
IF SCOJJ#NTIA#LCCJ) THEN GO BUMPS 
IF STASUSCJI#READYBOU THEN 
BEGIN STASUS[JJ+TRANSIT3 


$ SET OMIT = NOTCSTATISTICS) 


READYQUETIMEL JISC #PCDUP)DF#CLOCKS+PCRIRI*QUETIMINGE J)3 


$ POP OMIT 


SWAPINGIOCJe1)3 
HOOKUPMCP(J)3 
END ELSE STASUSEJIJ*SELECTINGS 


$ SET OMIT & NOTCSTATISTICS) 


IF STASUS£J) = SELECTING THEN 

BEGIN 
INI TLALRQTIMELJJSEREADYQUETIMELUJ+CLOCK+PCRTR)= 
QUETIMING(J]3 
READYQUETIME( JJ S=QUETIMINGE J) F038 

END} 

IF SWAPDELAY(C J] NE@ O THEN 

BEGIN COUNTUPBY(C33eCLOCK+PCRTR)"SWAPDELAY( J) )3 
SWAPDELAY(J)2=08 COUNTUPBY(3401)3 

END} 


£ POP OMIT 


LINKCKJ©LINKEJ)3 

IF J&FORCEND THEN FORCEND+K3 

IF J®RDYRPTEND THEN RDYRPTEND*KS$ 
IF J#®READYEND THEN GO TO BUMPS 
READYEND#K3 

GO TO BUMP3 


END. SWAPPERS. 


PROCEDURE INITIALSWAPCN)S VALUE NS REAL N3 


21239000 
21240000 
21240100 
21240200 
21240300 
21240400 
21240500 
21240600 
21241000 
21242000 
21242100 
21243000 
21244000 
21245000 
21246000 
21246100 
21246200 
21246300 
21246400 
21246500 
21246600 
21247000 
21247100 
21247110 
21247120 
21247200 
21247300 
21247400 
21247500 
21248000 
21249000 
21250000 
21252000 
21253000 
21253009 
21253010 
21253011 
21253100 
21254000 
21259000 
21259099 
21259100 
21259200 
21259300 
21259400 
21259500 
21259600 
21259650 
21259700 
21259800 
21259900 
21259901 
21260000 
21260600 
21260900 
21261000 
21262000 
21263000 
21264000 
21265000 


BEGIN REAL [odeKeSeTos 


Lt 


LABEL Lis 
IF N USS O THEN 
BEGIN Kt#Nef27:6)]3 N&2N,(2186) END 
ELSE BEGIN 
IF (N#C64xXN"(N#0)) DIV CHUNKZIZE)>CHUNKMAX THEN N*CHUNKMAX$ 
N © (N=O)4N3 
UtsN4+4N LSS CHUNKMAX3 
51240963 
FOR | * CHUNKMAX STEP #1 UNTIL N DO 
BEGIN T#05 
FOR J * 0 STEP 1 UNTIL N DO 


21266000 
21266100 
21266200 
21266300 
21266400 
21267000 
21267100 


%R1121267200 
®R1121268000 


21269000 
21270000 
21271000 


IF CNTISSACTIVELIT MJ) xX64¢+TOTALC ITI) GIR T THEN T&SnT1s21272000 


IF T*U LSS S$ THEN BEGIN S#®Ts Kee] ENDS 
ENDS 
IF S GEQ@ 4095 THEN BEGIN Ni#N713 GO TO L END; 
END} 
SCCPIMIX]eK#NG 
LOCPIMIXJ«K3 
CANTEXPANDCPIMIX] 3 &CNSCHUNKMAX 3 


$ SET OMIT = NOTCSTATISTICS) 


SWAPDELAYCPIMIXI&SCLOCK+PCRTRDQ3 


$ POP OMIT 


SWAPCBOJSTATE*0)3 

SLEEPCCSQCPIMIXIJ]-O&SELECTING(16%4236))3 

MEMROWLPIMIX I t=MEMROWLOI& CC TS FC KN XCHUNKZIZEFF ENCE) CCTCI3 

UsaTeas 

MESeCLeCN+1)XCHUNKZIZE)+T 3) eKe TRULCTEJ&1f2t47s198 
PIMIXE9S4206]8 

MCTI*KQAUCCTCIR&SCCTFIRICI734721)3 

MCUJ*K&SCCTCI&TICTF)3 

MEMEMEPUMIX®AVATLI©S#S41)¢SaeO77777(CTFI3 

MES41) «S83 

MEMCPIMIXsLEFTLITJieT3 

FORGETSPACE(U+2)3 

FRONTENDCPIMIX)3 

IF LOGLINE,€33:7)#40 THEN 

BEGIN 

TANKS(CLOGLINE s C4086 I eC CFI*I+GETSPACEC 30°01 +23 

MEI] «03 

END} 


END INTTIALSWAP3 


PROCEDURE FRONTEND(MIX)3 


VALUE MIX} 
REAL MIX$ 


BEGIN REAL JoJi 


JeCIeNOT FENCE INX 1) DIV 1890423 
IF MEMROWEMIX], CCF) NEQ@ O THEN 


#R1121273000 


21274000 
21274100 
21274200 
21275000 
21276000 
21276050 
21276099 
21276100 
21276103 
21277000 
21278000 
21279000 
21279500 
21260000 
21281000 
21281500 
21281600 
21282000 
21283000 
21283500 
21284000 
21285000 
21291100 
21291200 
21291300 
21291400 
21291500 
21292000 
21293000 
21294000 
21295000 
21296000 
21297000 


%R7921299900 


MEMEMIX®ADDRESSESJ*£MCGETSPACE (Js O8MIXECTFJ0194111864(8%38810)3 21302000 


L*GETSPACEC 300 ORMIXECTE IJ91)+423 
MOVEC30eJARROWCMIXJ eI )3 
FORGETSPACECJARROWC MIX) )3 
JARROWEMIXI, CCR IJer3 
LeGETSPACECUVSIZE »sO&MIX(CTE Jel) +25 
MOVECUVSIZE*UVROWEMIXIJ + 1)3 
FORGETSPACE CUVROWE[MIX])3 
UVROWEMIX),CCFJe13 


END FRONTEND3 


PROCEDURE EXPANDER(MI]XsR)3 


VALUE MIXeR3 


21304000 
21305000 
21306000 
21307000 
21308000 
21309000 
21310000 
21311000 
21312000 
21313000 
21314000 


REAL MI XR} 


BEGIN REAL Jad; 


Lt 


SOLs 


LABEL LeLisSOLs 
IF R THEN 
BEGIN 
IF EXPANDCMIX] THEN 
BEGIN MEM(CMIXeO], CFF IJ«1+C UeMEMUEMIXeAVATL IMI) +CHUNKZIZES 
MCTJeMEJIGJCCTFI3 
MCJJ@C#PCDUP)I&IECTCI3 
MOCMCT* +1 )eMC del) 41 de 73 
MOMCI+L ME U+20),0CF JeMEMEMIX®AVAIL ICIS 
ENO ELSE 
BEGIN [eC JeEMEMEMIXe#O]],0 CFI Y*CHUNKZIZES 
MUECMECTJeMCUIECI +4 CCTCISLFFII,CCFIeI3 
MU JJ@C*#PCDUP) IACI +4) CCTFI3 
MCT+4} eMC PIRICCTCIRICCTF I: 
METeL]eMC Jet )% MET+2)eM(J+2]3 
MEMROWEMIXJeMEMROW(LOJRICCTCIS 
FORGETSPACEC 1 +6)3 
FORGETSPACE(CJ+6)3 
FRONTENDC(MIX)3 
ENDS 
FORGETSPACECJ+2)3 
EXPANDEIMIXJ«03 
END ELSE 
BEGIN JteLCLMIXx]s 
IF CITaeSCECMIXI)&0 THEN 
IF TOTALEJ+1) LSS 63 THEN 
BEGIN LCEMIXJeLCEMIXJ413 T*1 END 
ELSE GO TO SOL 
ELSE BEGIN 
JF J#CHUNKMAX THEN 
IF TOTALECI"1] GTR TOTALCJ41) THEN GO TO L3 
IF TOTALCI“1) = 63 THEN 
BEGIN CANTEXPAND(MIAJ&%13 [#803 GO TU LI ENDS 
SCOMIXJeI"1s [23 
END3 


IF COUNTEMIX]) GE@ CHUNKMAX"™1 THEN CANTEXPANDEIMIX) 3213 


EXPAND(MIXI] 3413 

IF MAXCOREC MIX] THEN 

BEGIN STREAMCJSSJARROWEMIXJs MIXs Diels eSPACE(10))3 
BEGIN DSSSLIT" "5 SLseds. SPseSleds OSte7 CHR} 


STteSt4+1) DSteLIT*/"%3 OS9s7 CHR OStzLITts"3 


StTreLOC MIX# DSt22 DEC# JtsDdI3 
DIteDI723 NSseF ELLs DI seJs 
DS3819 LIT*® EXPANDED (NO MEM) «3 
END$ 
SPOUTERCI *PSEUDOMIXEMIX]e1)3 
ENDS 
END} 


END EXPANDER? 
REAL SECONDCTRe LASTSCHEDSFLECTS 
$ SET OMIT = NOTCSHAREDISK) 
PROCEDURE FINDFREEADDRESS(N)SVALUE N3REAL N3FORWARDS 
REAL FINDFREECTRs &% USED TO DETERMINE HOW FREQUENTLY 


% FINDFREEADDRESS IS BEING CALLED 


$ POP OMIT 
PROCEDURE NSECONDSS 
BEGIN REAL RCW#40s TedoddoS3 % J MUST BE AT F#2 (SEE 22049400)22002000 


ARRAY AL#J3 


21315000 
21316000 
21317000 
21318000 
21319000 
21320000 
21321000 
21322000 
21323000 
21324000 
21325000 
21327000 
21328000 
21329000 
21330000 
21331000 
21332000 
21333000 
21334000 
21335000 
21337000 
21338000 
21336100 
21339000 
21340000 
21340500 
21341000 
21341500 
21342000 
21342500 
21343000 
21343500 
21344000 
21344500 
21345000 


21346000 


21347000 
21347500 
21348000 
21349000 
21350000 
21351000 
21352000 
21353000 
21354000 
21355000 
21356000 
21357000 
21359000 
21360000 
21361000 
22000000 
22000499 
22000500 
22000600 
22000700 
22000701 
22001000 


22003000 


SET 
POP 


SET 


POP 


SET 


POP 


SET 


POP 


SET 


POP 


OMIT - 


OMIT 


OMIT 


OMIT 


OMIT 


OMIT 


OMIT 


OMIT 


OMIT 


OMIT 


t 


NOT SHARENISK 
REAL KLUDGEsHOLDERsNEXTSLOT*BYPASS3 


BOOLEAN W3 

LABEL TRYWYeDOITS 
TWXONLY 

LABEL LOOPS 


IF CJisTOGLEsNOMEM)#0 THEN 
TOGLE«NOMEM#tsi{F J THEN 6 ELSE J"23 
VESNEUP,NEUF 3 
NOTCSHAREDISK ) 
DISKWAITC#CEUIO INX Ode @CUFEUIOFF SET) eEUILOHOLDER)3 


FOR ]8*J"1 STEP *1 UNTIL O DO 

BEGIN 
EUJOCI+EULOFFSETI]&=*PCDUP)XEUTAPER+PEYIULI 3 
PEUTOCII:=03 

END3 

NOTCSHAREDISK ) 

DISKWATTCEUTO INX Oo@CJUFEULOFF SET) ®EUIOHOLDER) 3 


WHILE XCLOCK+PCRTR) GEQ@ WITCHINGHOUR DO MIDNIGHT; 
CHANGEDATE(O)3 
FOR 1 ¢ 20 STEP 1 UNTIL 21 00% 
BEGIN IF NOT UNITCIJ,01691) THEN? 
UNITCIJ,C1781] © 03% 
STARTIOCI) 5% 
ENDS2 
NOTCDFX) 
DISKOUNTeCPCRRR)sC2984) AND CUNIT(18],£FFI>1023))+ 
CPCRRR)e£2831] AND CUNITECI9] CFF I>1023))3 


IF SYSDISKADR NE@ 0 THEN 
BEGIN 
ASEIOQUERSPACECIOI(CTCI3 
SYSDISKIOC1#Or ADS 
FOR [881 STEP 1 UNTIL STATIONMAX DO 
BEGIN SYSDISKIOC1 +10 Ads 

IF SCHCA) THEN 

BEGIN IF STATABLELII],D1ALEDUP THEN 


BEGIN IF CWSBSEQARRAYCIJ.CCFI) GTR 511 THEN 
IF CWSeMEWO37 IME W477 I0CTF I) NE@® AL3) THEN 


BEGIN AL3]##Ws SYSDISKIOCOsT*#A) ENDS 
END ELSE 
IF NOT SCHEDBUSYEIJ THEN St8S413 
END ELSE 
IF REMOTE THEN 
BEGIN 
WSBFALSES 
IF AC1IJ#0 OR ACLOJsDIALEDUP THEN 


22003990 
22004000 
22004010 
22005000 
22005100 
22005199 
22005200 
22005201 
22010000 
22011000 
22011100 
22011190 
22011200 
22011201 
22011300 
22011400 
22011500 
22011600 
22011700 
22011790 
22011800 
22011601 
22012000 
22013000 
22032000 
22033000 
22034000 
22035000 
22036000 
22036099 


%DFX22036100 
RDF X22036200 


22036201 
22036300 
22036400 
22037000 
22037500 
22038000 
22039000 
22039100 
22039150 
22039200 
22039250 
22039300 
22039350 
22039400 
22039450 
22039470 
22039500 
22039550 
22040000 


BEGIN IF CJJEBSTATABLELIJ 2 ,ACTIVITY OR I#ABSCSPOWORD) 22040500 


THEN WS@TRUE ELSE 
IF ACiIJ#0 THEN 
BEGIN 
IF AC2J+AC3I<CLOCK THEN 


BEGIN IF CJteddeMIXNR) # CANDEMIXEI) THEN 


TERMINATECJ&15(CTF)) 
ELSE BEGIN M(CJ*GETAREACO)] «© 


OMICCTFI&1001884197)3 


22041000 
22042500 
229042600 
22043000 
22044000 
22045000 
22045400 
22045200 


MEJ+1]) « 54; 22045300 
QUEVENTCJUeCANDEMIX(1)93 22045400 
ENDS 22045500 
MCJSBGETAREACO) Js eO0RT L252 408BkSAL18sai37)23s 22047000 

IF JJ,STATIONTYPESTWX THEN 22047050 z 
SEQARRAY(L1]%=03 BR2722047100 
QUEVENTCJ*CANDEMIXCII)5 22048000 
WeTRUES 22048100 
ENO ELSE 22048200 
IF PAPERTAPECIJ THEN Z END THE TAPE IF STA 22048300 
IF ACL2]4AL3]/4 LSS CLOCK THEN 2 1S IDLE, 22048350 
BEGIN MEJ&8sGETAREACO)) ¢=(C*P( DUP) 8101084038] 22048400 
B1C53:4781)3 22048450 
STREAMC 22048500 
$ SET OMIT = TWXONLY 22048545 
ASSLINEDISCCIF I LEQ LUMAX THEN | ELSE 22048550 
STATABLELIL J ,LEENKER] # TWX,» 22048560 
$ POP OMIT 22048565 
Jtede1)3 22048600 
BEGIN 22048650 
$ SET OMIT = TWXONLY 22048695 
ACDStehLIT™""s OSseLI Tre) 3 22046700 
$ POP OMIT 22048705 
DS:eLIT MARK3 22048750 
$ SET OMIT = TWXONLY 22048795 
ACDSiz2 LIT*##E")3 22048800 
$ POP OMIT 22048805 
DStsLILTho"3 22048850 
END} 22048900 
GIVEAWAY(J)3 22048950 
END} 22049000 
END ELSE 22049400 
IF AL214+3600<CLOCK THEN 22049200 
BEGIN 2204925) 
JF BLASTREADC 127) THEN 22049300 
BEGIN STREAMCJUIsJJssCCRCW)] INX 2))3 22049350 
DStse8 LIT*#EBYE#=*S"5 22049400 
TWXOUTC IIe beheld )3 22049450 
END ELSE ALOJ],DIALEDUPS #0; 22049500 
WIFTRUES 22049550 
END} 22049600 
JF W THEN 22049700 
BEGIN AL2):=CLOCK} 22049800 
SYSDISKIOCO#ls® AD 22049900 
END$ 22049950 
PCCSTATABLECITJJ*ePRL)3 22050000 
END3 22050100 

END3 22050150 ° ead 
ENDS 22050200 
SYSDISKIOCL+STAMAX410A)3 22050250 
FORGETSPACECA)! 22050300 
END} 22050302 
$$ SET OMIT # TWXONLY 22050304 
IF REMOTE THEN 22050305 
IF C1ls*CLOCK+PCRTR)) GTR LINETABLELO) THEN 22050310 
BEGIN S2UPDATE TIMER TO CHECK AGAIN IN A MINUTE 22050315 
LINETABLECOJ3#14+1800; 22050320 
FOR Tiwi STEP 1 UNTIL LMAX DO 22050325 
IF LINEDISCEIL) "MULTI THEN 22050330 atlas 


BEGIN JJdeLINETABLECIJ,O0IRECTLINES 22050335 


LOOPS 


$ POP OMIT 


$ SET OMIT = 


f POP OMIT 
$ SET OMIT & 


$ SET OMIT = 


$ POP OMIT 


$ POP OMIT 


Jimt3s WIsFALSEs 

DO IF PCSEQARRAYE UJ] OUP), C381) 20) THEN 

BEGIN IF JJ THEN 
PEPROL38A78L Jeo (SEQARRAYE JJ] eSND)3 
WSeTRUE?S 

END UNTIL (JUSeP,LINELINK) #153 


IF (JJssJJeW) THEN IF W THEN ENTEREADYQCI) ELSE 


GO TO LOOP; & IF DIAL™UP AND NO ONE ON LINE 
ENDS END3 


IF (CXCLOCK*@LASTSCHEDSELECTIGE® 54000 THEN 
BEGIN LASTSCHEDSELECT##(xXcLOCK DIV 54000)*540003 
IF S GTR O THEN 
IF SCHEDNUM NE@ FRSTSCHED THEN 
FORKCPC ,SCHEDIDLE) #020016090)3 
END3 
NOTCSTATISTICS) 
COUNTARRAYC1)8FCLOCK3 
IF SYSTATBASE GTR O THEN BEGIN 
DISKTOCCYUNK] eCOUNTARRAY SL CF I"1»60°SYSTATBASE)3 
IF XCLOCK GE@ COUNTARRAY(L29) THEN 
BEGIN 
COUNTARRAYL 29] 3 #XCLOCKS+ INTERVALS 
FORKCPC.FILLSYSTAT) #00091 2801)3 
END END 


NOTCSHAREDISK) 
DISKWAITC@CCHOLDERIJ e(CFJ Je" 3+DIRECTORYSEG)3 
NOT STATISTICS OR OMIT 
BYPASSBOTTOMt@®BYPASS, (CF i3 


IF CU8SHOLDERe CFF I)#0 THEN 
BEGIN 
AtTSCMECSPACECJ)II&IL8838210)3 
DISKWAITC*CA INX OJ*J*HOLDER,CCF))3 
FOR JteJJ#s0 STEP 1 UNTIL Jm1 DO 
IF ATL] LSS O THEN 
IF ALI1,£232)=SYSNO THEN 
BEGIN IF CJJteACT IoC FF) GEG FENCE THEN 
BRINGBACK(JJ,01098]) ELSE MOJJeC FFI] saas 
ACTIJ§sPCDUPsLODsSSP)3 
END3 
IF JJ#0 THEN DISKWAITCA INX OsJe HOLDER, ECF I93 
FORGETSPACECA)3 


® HOLD LIST IS NOT EMPTY 


ENDS 
UNLOCK(DIRECTORYSEG)3 
IF NOT FINDINGADDRESS THEN 
IF LQ@AVAIL#O THEN 
BEGIN 
FINDINGADDRESS##13 
FINDFREFADDRESSCO)) 
ENDS 


22050340 
22050345 
22050350 
22050355 
22050360 
22050365 
22050370 
22050375 
22050380 
22050381 
22050400 
22050500 
22050600 
22050700 
22050800 
22050900 
22050909 
22050910 
22050915 
22050920 
22050930 
22050940 
22050960 
22050970 
22050980 
22050981 
22050929 
22051100 
22051140 
22051150 
22051160 
22051200 
22051250 
22051300 
22051400 
22051500 
22051600 
22051700 
22051800 
22051900 
22052000 
22052100 
22052200 
22052300 
22052350 
22052400 
22052700 
22052600 
22052900 
22053000 
22053100 
22053200 


IF FINDFREECTR LSS 32 THENS IT 18 NOT GETTING CALLED OF TEN22053300 


IFC JtaCe#P(C,,FINDFREEADDRESS)IINX O)>ML0),CCF) THEN 


MEJ"2),(2rijesds 
FINDFREECTRI #03 
IF RUNUMBER GTR O THEN STARTADECK(O)3 


IF ChOCK,£3587)=0 THEN 
FOR SteMIXMAX@$ STEP =1 UNTIL 1 DO 


22053400 
22053500 
22053600 
22053650 
22053651 
22053660 
22053670 


TRYWYS 


DOIT: 


END}% 
PROCEDURE STATUSS% 


IF JARROW(CS)#0 THEN 
BEGIN TABCNT(S] #sTABCNT(S) 413 
IF Cr#e*wREPLYLS)) LSS O THEN 
BEGIN 
IF PUTORTAKECS*#CPRYOR[SJ]94120) LSS 1023 THEN 
BEGIN 
JUESVEMS 
STREAMC TP JdteLJd))3 
BEGIN Sis*LOC 13 STseSIo13 DI ted +73 
(CIF SC®DC THEN 
BEGIN JTtsTALLYs JUMP OUT ENDS 
O1ssDI"1)3 
END} 
IF JJeVFM THEN & FIRST TIME THRU 
IF P®0 THEN & FM 
BEGIN JJtavwy3 
GO DOIT 
END ELSE % NO FM 
BEGIN JJteVOKS 
GO TRYWY 
END ELSE % NOT FIBST TIME THRU 
IF P NEQ 0 THEN % IMPROPER MSG 
IF JJeVOK THEN & TRY WY IF OK JS NOT 
BEGIN JJtaVwys 
GO TRYWY3 
END 
ELSE ELSE % MSG IS OK 
BEGIN REPLY(CS)i:aJJ3 
BRINGBACK(S)3 
END END END} 
TABCNTESJS#TABCNT(SI913 
ENDS 
NSECONDREADYtRTRUES 
SECONDCTR#=03 
KILLCCRCW)] INX NOT 2)3 


BEGIN REAL Useso% 


TxUeie% 
TLRT4+13% 
INTEGERS 

TETlei3% 

ARRAY AREA®{[4+10*I)3% 

REAL HDR = AREAt1 >» 
SEGO=s HDR + te 
F = SEGO+LS 

ARRAY SHEAT # Fei(*)3 

LABEL TRYAGAIN»sLOCNTRLe DISKS 

LABEL LeELeNOTREADYe@DIEs ACCEPT #eSCRATCHe INPUTe TESTBACKUP. 
COMMONS 

LABEL CARD»ePRINTER* TAPE *DRUMeDISCeSPGePUNCHO UNLD? 
PAPERPUNCH*PAPERsDATACOM; 

SWITCH S 2 CARD»PRINTER* TAPE *DRUMsDISC*eSPOrPUNCH® UNLD» 
PAPERPUNCHePAPER*+ DATACOM3S 

REAL RCWH407% 


SUBROUTINE SPACEASS 
BEGIN AREA t& (MESPACE(12))]81008138210]3 ENDS 
SUBROUTINE AUTOLOADER?} 


BEGIN 


22053672 
22053674 
22053680 
22053690 
22053715 
22053720 
22053725 
22053730 
22053735 
22053740 
22053745 
22053750 
22053753 
22053754 
22053755 
22053756 
22053757 
220537568 
22053759 
22053760 
22053761 
22053762 
22053765 
22053770 
22053775 
22053780 
22053785 
22053786 
22053790 
22053795 
22053800 
22053820 
22053830 
22053850 
22053900 
22053950 
22054000 
22055000 
22056000 
22057000 
22058000 
22059000 
22060000 
22061000 
22061100 
22061110 
22061120 
22061130 
22061200 
22062000 
22063000 
22064000 
22064500 
22065000 
22066000 
22067000 
22068000 
22069000 
22069010 
22069020 


TRYAGAINS 
IF 


LOCNTRL&$ 
DISKs3 


CHORESDIRECTORYSEARCHCPCLOCNTRLD# PC DISK) *®3)) # O THEN 
BEGIN 
SHEAT t= (MEFS SGETSPACE(31264°0)42)] & 30[8338310)3 
STREAM(S#=F ele D:=F)3 & ZERO OUT THE SHEAT ENTRY 

BEGIN 

Stt#Ss 0S3=30 WDS;3 

ENDS 
SEGO 3% GETSPACE(3026420)+423 
DISKWAITC"™SEGO» 305 MCHDR JINX 10193 
FeCFFJ t® HORE ¥ CORE ADDRESS OF HEADER IN CFFJI OF PARAM, 
SHEATEC7) 3% SEGOS %&% CORE ADRS,OF SEGMENT ZERO IN SHEATE7] 
SHEAT(O) t® SHEAT(14]) t# PCLOCNTRL)3 
SHEAT(C1) t® PCDISK)3 
SHEATEC2) 38 0 & 5£8238:10) & 1(6424781]3 
% (4481) IN SHEET£C2) MEANS SUPRESS BOJ/EOJ MESSAGES 
SHEAT(C16) &© SHEATCI7] 3% @3777777777773 & TIME LIMITS 
SHEAT(L19] s© U3 % COMMON VALUE 
SHEAT(20)] te 43 % CORE ESTIMATE 
SHEAT(C21) t= 1503 % STACK SIZE 


STREAMCALSO $ S te PC,SCHEDULEIDS))3 
BEGIN 
S1te8S3 
A7CSKIP SBs SKIP DBS TALLYteTALLY+13 
IF $B THEN ELSE JUMP OUT)3 
DStsSET$ AteTALLYS 
END STREAM STATEMENTS} 


I 16 P} 
SHEATC3),08210) se 13 % SCHEDULE NUMBER 
SHEAT([23] !@ (CLOCK + PC(RTR)) DIV 603 
SHEAT(24] t= MCP3 
SHEAT(C25) #© HOR,CFFIsS % DISK ADDRESS OF FILE HEADER 
SHEAT( 26) t= "313 % LOGLINE 
STREAMC(Us [8s] 8=GETSPACE(102000)42)3 
BEGIN 
DSte27LIT"CC RUN LDCNTRL/DISKE COMMONS"; 
SIssLOC US OSi#8DEC3 
DSIR6LIT"SEND,©™3 
END STREAM STATEMENT) 
SHEAT(C6] &*® GETESPDISK3 
DISKWAITCI»® 10% SHEATE£6])3 
FORGETSPACECI)$ 
MULTITABLECU] s= “CONTROL"™) 
LABELTABLECU] te C*#="DECK ")} 
ROCTABLELUV) te 1 8 1£14%38810)3 
JF U THEN READERA?#0 ELSE READERB? #03 
FORKCPC,SELECTRUN)» Fe O» 160% 0)3 
END ELSE ¥ IF IN DIRECTORY 
BEGIN 
ENTERSYSFILEC2)3 
GO TRYAGAIN3 
1 *LOCNTRL"S3 
t "DISK | 
END} 


END SUBROUTINE AUTOLOADERS 


—  P602020000020202000938 


22069025 
22069030 
22069040 
22069050 
22069060 
22069070 
22069080 
22069090 
22069100 
22069110 
22069120 
22069130 
22069140 
22069150 
22069160 
22069170 
22069180 
22069190 
22069200 
22069210 
22069220 
22069230 
22069240 
22069250 
22069260 
22069270 
22069260 
22069290 


22069300 


22069310 
22069320 
22069330 
22069335 
22069340 
22069350 
22069360 
22069370 
22069380 
22069390 
22069400 
22069410 
22069420 
22069430 
22069440 
22069450 
22069460 
22069470 
22069480 
22069490 
22069510 
22069520 
22069530 
22069540 
22069550 
22069560 
22069570 
22069600 
22070000 
22071000 
22072000 


SPACEAS% 
WHILE €T © PCRRR) OR RRRMECH) # READY DO% 

BEGIN | * O&8TINULU © CPCT £QV NOT READY*DUPsDUP exex)% 
x@1000000000000),% 
C386JIC581187)/@10000000000003% 

IF T © READY THEN? 
BEGIN COMMENT SOMETHING WENT NOT READY32 
READY « READY AND NOT J3% 
IF LABELTABLECU) 2 0 THEN’ 
BEGINS 

Lf LABELTABLE[V] © @1143% 

IF (U AND @774) NE@ 16 THEN 
MULTITABLECUJ) #503 


END#% 
Els RRRMECH * RRRMECH AND NOT 13% 
END OF NOT READYS 
ELSE BEGIN COMMENT SOMETHING WENT READY3% 


READY * READY OR 13% 
UNITCUJ],£13%1) # 03% 


IF GABELTABLECUJ#@144 OR UNIT(CUJe(1385J3=15 THEN 


BEGIN RRRMECH * RRRMECH OR 13% 
IF LABELTABLELUJ] = @214 THEN’ 


BEGIN I « [ AND NOT SAVEWORD32 


GO TO L3s 
END3 


IF STASUS(CT*RDCTABLE(UI,£836))5 


RUNNING OR T80O THEN 
BEGIN TL*UNITCUIJ CFF I3 
WHILE T1<1023 


DO BEGIN TIi*LOCATQUECTII (FF J3 
LOCOUNTEC TJ «*P( DUP) +13 


END3 
UNITCUJ,C1355)«03 
STARTIOCU)3 
END ELSE : 
BEGIN IF REPLYLTIJ=(*VOK) THEN 
BEGIN REPLYCT)¢«03 


BRINGBACK(T)$ 
ENO} 
UNITCU]eCL3tSJe313 
: END3 
GO TO COMMON?$ 
END3S 


IF CU AND @774) NEQ@ 16 THEN 
MULTITABLELUJ] s#ROCTABLELUIJ!=03 
IF €1 AND SAVEWORD) ¥ O THENS 


BEGIN RRRMECH « JT AND SAVEWORD OR RRRMECHS 


GO TO COMMONS3 
ENDs% 
GO SCUNITCUJ,C184)1)54% 
TAPE? PCWAITIOC@420000000025sU)*DEL)3®& 


IF CT © WAITIOCAREA INX ©12054000000028@7500045e0U)),% 


C4583] # 0 THEN? 
NOTREADY! BEGIN READY © READY AND NOT J3% 
GO TO Liss 
END3% 
IF MOD3TOS AND NOT T,(€4231) THEN BEGIN 


22073000 
22074000 
22075000 
22076000 
22077000 
22078000 
22079000 
22080000 
22081000 
22082000 
22083000 
22084000 
22084500 
22085000 
22086000 
22087000 
22088000 
22089000 
22090000 
22091000 
22092000 
22093000 
22094000 
22095000 
22096000 
22096100 
22096200 
22096300 
22096310 
22096400 
22096500 
22096600 
22096610 
22096700 
22096600 
22096900 
22097000 
22097100 
22097200 
22097300 
22097400 
220968000 
22099000 
22100000 
22100500 
22101000 
22102000 
22103000 
22104000 
22105000 
22106000 
22107000 
22108000 
22109000 
22110000 
22111000 


%A322111500 


DO UNTIL CTI*WAITIOCAREA INX @34000001220055,U))#032A7 22112000 


END ELSE TLeWAITIOC@420000000025+U)3 
IF T4.04523]#0 THEN GO TO NOTREADY3 


®A122112500 
%A122113000 


DO UNTIL NOT CT1*WAITION(C@50000000024165eU)) OR 
CTRANSACTIONEUJ*0)34 
IF T1.04221) THEN 
BEGINS STREAMCT+TINULU] Pe A*+AREA)3 ‘ 
BEGIN SJ*LOC T$ SJe#S[+5% DSeLIT"#"; 
DSe3 CHRi DS«10 LIT "*BAD LOADe"3 
END3 
SPOUTCAREA JINX 0)3 SPACEAS GO TO L3 
END3 
IF Ti,C45:i)] THEN GO TO NOTREADY32% 
PRNTABLELUJ*ORCNOT TIDCLIG381)5% 
IF 7404381] THENS 
BEGINSSTREAMCT*TINULUJ® AREA) 5% 
BEGIN S$] «© LOC T3 SI © S]+53% 
DS « LIT "as OS «¢ 3 CHR32 
OS «© 14 LIT “ PARITYs RW/Le"% 
END} 
DIE SPOUTITCAREA JINX OsHRDWREK)$ SPACEA3 ZSPAR#RW/L, 
LABELTABLECU] © @3143% 
GO TO EL} 
END?% 
IF Tel 4281] THENS 
BEGINSSTREAMCTeTINULUJ ®AREADS& 
BEGIN SJ] « LOC Ts SJ] © SJ]#533 
DS e¢ LIT "#93 DOS ¢« 3 CHRIS 
DS « 15 LIT ™ TAPE MKe RW/LO"3S 
ENDIS 
GO TO DIEss 
ENDS 
STREAMCY*OT AREA Xe (TI )3% 
BEGIN DS « 8 LIT “* LABEL "3% 
S1 © AREAS DI + DI*83% 
le 8 SC = pc THEN TALLY © 13% 
AREA © TALLY3& 
SI] * S14453 DI] « LOC Y3 DS «+ 5 OCT3% 
S] « LOC AREAS DI + X3 OS «+ WOSH% 
ENDS 
NTi « P3S 
IF T THEN PRNTABLECU], (C3018) ¢=NT1 ELSE 
BEGIN STREAMCYIBOtAREAeXIS(TI))3 
BEGIN DSt84 LIT "VOLI"3 
SITt®eAREAS DI ted" 43 
IF 4 SC®DC THEN TALLY!I#13 
AREASSTALLYS SIseSiei3 
DIt#LOc Ys DSs#5 OCT3 
STt#LOc AREA! DItexs DSteWDS3 
END3 
NT13=P$3 
IF T THEN BEGIN PRNTABLECUI],C30118] 3 eNT13 
USASITAPECECAREA]. (CCF Je TetoUol)3 
END3 
END? 
IF NOT T1,04381] THENS 
BEGIN IF T THEN? 
BEGIN 
IF PCAREAC1LJ]+DUP)="PBIMCP * OR 
PCXCH)S"PUTMCP ® THEN GO INPUT} 
IF AREAL4],€12230) > DATE THEN? 
BEGIN IF RETMSG THEN 


STREAMCT*TINUCUJ*A*CAREAL6]1)3 


22114000 
22115000 
22115020 
22115030 
22115040 
22115050 
22115060 
22115070 
22115075 
22116000 
22117000 
22118000 
22119000 
22120000 
22121000 
22122000 
22123000 
22124000 
22125000 
22126000 
22127000 
22128000 
22129000 
22130000 
22131000 
22132000 
22133000 
22134000 
22135000 
22136000 
22137000 
22138000 
22139000 
22140000 
22141000 
22142000 
22143000 
22144000 
22145000 
22145050 
22145100 
22145150 
22145200 
22145250 
22145300 
22145350 
22145400 
22145450 
22145500 
22145550 
22145600 
22145650 
22146000 
22147000 
22148000 
22156000 
22156100 
22157000 
22158000 
22159000 


ACCEPT! 


SCRATCH 


ELSE 


INPUTS 


PAPER?3% 
UNLD?$ 


BEGIN SJTe#LOC T3ST*ST+530S"3 CHRI22160000 


DS*5 LIT ™ RET "3 
END ELSE GO TO INPUT; 
Ti s@ SPACE(C4)3 
STREAMCACAREALIJI9T1)5% 
BEGIN SI] © AS’ SI # SI1+403% 
DS + LIT "#32 
DS « 8 CHRS SJ © ASE 
2008 « LIT * "3% 


22161000 
22162000 
22163000 
22164000 
22165000 
22166000 
22167000 
22168000 


SI «© SIl4¢13 DS © 7 CHR)$22169000 


DS « LIT tess 
END3% 
SPOUTCT1)3% 
GO TO JNPUT3S 
END ELSE% 
LABELTABLECU)] + O32 
END ELSE GO 10 UNLDS 
ENDS 
IF T THEN BEGINS 
LABELTABLELU] © AREAL2]2% 
MULTITABLELUJ] «© AREA(1]3% 
STREAMCA*(LAREAL3) J BelTJ)3% 
BEGIN ST «© AX DS © 3 OCTES 
pS « 5 OCT’ DS * 2 OCT2Z 
ENDS 
RDCTABLECUJ © [RTILCA248 31st 7D aTl14s38s10I13% 
IF CMULTITABLELUJS"PBTMCP ® OR 
MULTITABLECUJ®"PUTMCP *) AND 
LABELTABLE(U) = "BACK*UP"® THENS 
BEGIN LABELTABLELCU] © @3222123425464473% 
STREAMCA*TINULUJ] *>PNeMULTITABLECUJ="PUTMCP "> 
AREA)3 
BEGIN SI] + LOC A# S] © SI453% 


22170000 
22171000 
22172000 
22173000 
22174000 
22175000 
22176000 
22177000 
22178000 
22179000 
22180000 
22181000 
22182000 
22183000 
22184000 
22185000 
22188000 
22188100 
22189000 
22190000 
22191000 
22191100 
22192000 


PNCDOS¢3 LIT"#&CP%™3 JUMP OUT TO L)822192100 


DSe3 LIT"#LP™s Lt 
DS*12 LIT" BACK*UP ON "3 
DS * 3 CHR? OS © LIT "e352 


END % 
SPOUTCAREA INX 0)5 SPACEA$ 
ENDSZ 
END ELSE% 


LABELTABLELU] ©* @3143% 


GO TO COMMONSS 


PRINTERS 


T © WAITIOC@6000000000849U) L45a1)3% 

UNITCUJ,C1682] © 08% 

IF T THEN GO TO NOTREADY3% 
TESTBACKUP? 

IF AUTOPRINT THEN 


IF PRINTORPUNCHWA[TC*Us20) THEN GO TO COMMON3 


GO TO SCRATCH! 


CARDE® 


RRRMECHIFRRRMECH OR [3 
IF CDONLY THEN 


BEGIN 
AUTOLOADER? 
GO TO COMMONS 
END} 


LABLLTABLECU]sm7@143 


22192200 
22193000 
22194000 
22195000 
22196000 
22197000 
22198000 
22199000 
22200000 
22201000 
22202000 
22203000 
22204000 
22205000 
22205500 
22206000 
22207000 
22208000 
22209000 
22209200 
22209400 
22209500 
22209600 
22209700 
22209800 
22212200 


CCARDCORUL 384395193 22212400 

GO TO COMMON:S 222130600 

PUNCH! 22213500 
STARTIOCU)3 22213600 

IF UNITCU),£1593320 THEN GO TESTBACKUP ELSE GO TO SCRATCH# 22213700 

DRUM3% 22214000 

DISC3 22215000 

SPQ3% 22216000 
PAPERPUNCHES 22218000 
DATACOM!S& 22219000 
STARTIOCUDs% 22220000 

GO TO SCRATCHS% 22221000 

COMMON? END OF RKEADY3% 22222000 

-ENDSS 22223000 
STATUSBIT © TRUETS 22224000 
FORGETSPACECAREAs([ 33215] )5% 22225000 
KILLCCRCW) JINX NOT 2)3 22226000 

. END STATUS34 22227000 
BOOLEAN PROCEDURE OLAYC(CLOC »MIXA)3 22228000 
VALUE LOC#MIXX$ REAL LOCeMIXxX3 22229000 
BEGIN REAL LINK» MOMs FRONTs BACKe CHARs BSe STACKs S» SBed% 22230000 
Te Xe DESCe DISKe [0D MIXe JOBKILLEDs MIXUP»s SEGNO3S 22231000 

ARRAY NAME SEGDICT3% 22232000 

REAL RESULTS4+13% 22233000 

ARRAY SPRT(*#]3 22234000 

REAL CORE» CUEDS REAL INI TCW=MIXUP3 22235000 

REAL TYPE1L3» RSLT» NOAUX) 22235500 

$ SET OMIT = NOTCNEWLOGGING) 22235599 
REAL MCPROCTEMP3 22235600 

$ POP OMIT 22235601 
LABEL EXITs % ALL AVENUES MUST LEAD TO HERE 22235700 

LABEL AROUNDs® CODE*® BACKAGAIN® MCPe INTRINSIC34 22236000 

LABEL ZAP3% %R4222236100 

LABEL RETRY» AGAIN} 22236110 

LABEL SKIPIT3 22236120 
BOOLEAN SUBROUTINE AWAKENS% 22237000 

BEGIN COMMENT AWAKEN CHECKS TO SEE IF WE HAVE HALTED 22238000 

THE JOB ON PROCESSOR 2, IF SO» IT RESTARTS THE | 22239000 

TIMING FOR HIMs AND CALLS “HALT® TO CHECK INTERRUPTS#& 22240000 

IF JOBKILLED THEN’ 22241000 

BEGIN 22242000 
$ SET OMIT = NEWLOGGING 22242099 
STARTLOGCP2MI]X00)3 22242100 

$ POP OMIT 22242101 
JOBKILLED * FALSES OLAY © RESULT OR 25% 22243000 

HALT} NOPROCESSTOG + NOPROCESSTOG*?135% 22244000 

ENDs® 22245000 

AWAKEN « RESULT END32 22246000 
SUBROUTINE STOP3% 22247000 

IF NOT JOBKILLED THEN 22247100 
BEGIN COMMENT STOP HALTS THE JOB ON PROCESSOR @e AND 22248000 

CLOCKS HIM OFF, IT SETS JOBKILLED SO THAT AWAKEN 22249000 

CAN DO ITS DIRTY WORK BEFORE RETURNING#2 22250000 

JOBKILLED * TRUES PCHP2)3% 22251000 
STOPLOGCP2MIX+0)3 22252000 

END STOPPER#% 22253000 
SUBROUTINE CODEOVERLAY3% 22254000 

BEGIN COMMENT CODEOVERLAY HANDLES ALL CASES OF MARKING 22255000 

A NORMAL*"STATE SEGMENT AS NOT*PRESENT, IT DOES THIS 22256000 

A SINGLE PRT AND STACK AT A TIMEs AND IS ONLY CALLED 22257000 


REPEATEDLY FOR RE*ENTRANT CODE OR [NTRINSICS3% 


IF CHAR THEN S * MCSB © MCS) CEFIJ,CFF] ELSE S © Swlte 


SPRT © PRICMIXe10]3% 
IF SPRTCX),C2t1] THEN BEGIN 


2 NEED TO DO PRT AND STACK SEARCH ONLY IF PRESENT IN THIS PRT 


AROUNDt12 


DO UNTIL CX © CSPRTICXI © CwPCDUP))8002:231)% 


22258000 
22259000 
22260000 
22261000 
22262000 
22263000 


RCSPRICXJ) CCR IMFRONTICCTCI)6£6812))2204832% 22264000 


WHILE (STACK += HUNT(BS),CCFI) LSS S DO 
BEGIN CORE «© (DESC © NEFLAGCMESTACK)) )efCFI3% 
IF CORE2FRONT AND CORESBACK THENS 
IF DESC LSS O THENSPROG, DESC OR RCW, 
IF DESC,(3#1) THENZDESC 
IF DESC,.L2%1] THENSPRESENT 
IF DESC,(682)"1 THEN &TYPE 1413 INTRINSIC DESC 
MESTACKI3#FLAGCDESC & OC2:2!1) 
& CMOM,CS8si0JCCTCI) ELSE 


% DESCRIPTOR *™ INSERT OFFSET AND RESET P*BIT 


MCSTAEK] © FLAGCDESC&OL23221)% 
RCCORESFRONT)ECTC))& 
ELSE 
ELSE BEGINS 


® CONTROL WORD CROW) =" UNFLAG IN STACKs PUT OFFSET INTO 
% CORRESPONDING MSCWe AND MOM INTO RCW,ICFI 


MCX « DESC,CFF)] «3% 
C*PCDUP)&CCORE@FRONTICCTCI3% 
MESTACK] ©* DESC&SEGNO[CTC]#2% 
ENDS 
BS © STACK413% 
ENDS 
IF CHAR AND CSTACK<SB) THEN? 


®R4222265000 


22266000 
22267000 
22268000 
22269000 
22270000 
2227005) 
22270100 
22270200 
22270300 
22271000 
22272000 
22273000 
22273100 
22274000 
22275000 
22276000 
22277000 
22278000 
22279000 
22280000 
22281000 
22282000 
22283000 


BEGIN BS * SBS S§ * HUNTCBS4+1)—eCCF 3 GO AROUND ENDS 22284000 


IF PCSPRTC19]*TOP) THEN PCDEL) ELSE 
BEGIN COREtSPOLISH,(CFI3 
IF CORE LSS FRONT OR CORE GTR BACK THEN 
ELSE SPRTICI9)&eC#P( DUP) )&OC 23231) 
RCCORE*FRONTICCTC)3 
END 3 


$ SET OMIT & NOTCSTATISTICS) 


$ POP OMIT 


CODEGLAYS( MIX) te*PCOUP) 413 


END OF PRESENT IN PRT CASE? 


END OF CODEOVERLAY3% 
SUBROUTINE INT133 ZSTACK SEARCH FOR TYPE 13 INTRINSIC CALLS 
BEGIN CHAR#@PCPRIEMIXeB) DUP) .(3281)3 


StweP JINX OF BSIBPRICMIXS10], CFF I3 


IF CHAR THEN SteMPSBteM(S) CFFIICF FI ELSE StaSeys 


AGAINS 


WHILE CSTACK t= HUNTCBS),(CFJ) LSS S pO 
BEGIN CORES s(DESCIFNFLAGCMESTACKI)) {CF IES 
IF CORE GEQ@ FRONT AND CORE LSS BACK THEN2 
IF DESC,C182) NE@ O THEN 
IF DESC,L183)87 THEN? 


%0$22284100 
%9822284200 
%DS22284300 
BNS22284400 
0822284500 
BDS22284600 


22284699 


%R6322284700 


22284701 
22285000 
22286000 
22286010 
22286020 
22286030 
22286040 
22286050 
22286060 
22286070 
22286075 
22286080 


MESTACKJIBFLAGCDESCROL28281 GC MOM, (8N10) (CTC) 122266090 


ELSE 


22286100 


BEGIN MEDESCeLFFJIt8C HPC DUP) AC CORE*FRONT)(CTCJ122266110 


MESTACKI]SSDESC&CMOM,LB210I)CCTCI8& 
103394731]3 
END! 
BSteSTACK+13 
END? 


22286120 
22286130 
22286140 
22286450 
22286160 


IF CHAR AND CSTACK LSS SB) THENS’ 
BEGIN BSt#sSBs SteHUNT(BS41),CCFJ3 GO AGAIN’ ENDS 


END OF TYPE 13 INTRINSIC STACK SEARCH} 


COMMENT OLAY HANDLES OVERLAYS, THERE ARE 3 CLASSES 
OF THINGS WHICH MAY BE OVERLAID! 
1) OBJECT PROGRAM DATA SEGMENTS 
2) OBJECT PROGRAM CODE SEGMENTS 

AND 3) McP CNON*SAVE) PROCEDURES, 
FACH OF THESE CLASSES GETS SPECIAL HANDLING, 
WHICH WILL BE DESCRIBED AS WE COME TO [T3 


% THIS CODE 1S COMMON TO ALL CLASSES AND ALL CASES 
$ SET OMIT = NOTCNEWLOGGING) 


IF PIiM1xX?0 THEN 

IF NOT LOGSTOPPEDCP1MIX] THEN 

IF NOT MCPROCTIMECPIMIX),£1%81) THEN 

BEGIN 
MCPROCTEMP*PROCTIMELPIMIXI#CLOCK4PCRTR)3 
MCPROCTIMECPIMIXJ*NABSC#PCDUP))3 

END3 


$ POP OMIT 


LINK * MELOC]$ MOM + MELOC+1I)5% 
FRONT + LOC4#23 BACK © LINK, CCF 17132 
IF (MIX « LINK,£9#6)])20 THEN GO 10 MCP3% 
<MJX>=0 AND NON“SAVE MEANS MCP PROCEDURE OR INTRINSIC 
IF MIX#P2MIX THEN STOPS% 
CHAR © CINITCW © PRTEM1X063),03231)5% 
S ¢ INITCWH,CCF]3 BS «© PRICMIX®10),0FF 13% 
CHAR IS CWMFe» S 3S TOP*OF*STACK» BS IS BASE OF STACK 
IF PCUINK,(3%6)e+DUP)=81 OR PCXCHI#13 THEN GO TO CODE3 


22286170 
22286180 
22286190 
222687000 
22288000 
22289000 
22290000 
22291000 
22292000 
22293000 
22294000 
22294099 
22294100 
22294200 
22294300 
22294400 
22294500 
22294600 
22294700 
22294701 
22295000 
22296000 
22297000 
22298000 
22299000 
22300000 
22301000 
22302000 
22303000 


TYPEs1 MEANS PROGRAMs 13 MEANS TYPE 13 INTRNSCe OTHERWISE DATA, 22304000 


IF TERMSETCMIX) THEN GO TO ZAP3% 
IF MCMOMJ,CCF) NE@ FRONT THEN 3BAD MOM DESC, 
BEGINS TERMINATE THIS GUY. 
PRTROWEMIX],C€FF 1218323 ZMEMORY ERROR, 
PRTROWEMIX),CPSFI]t813 
GO TO ZAP} 
END BAD MOM$ 
IF CHAR THENS . 
SPECIAL CHECKS FOR ADDRESS SAVED IN CHARACTER MODE 
BEGIN CHAR # (CCT © MES*1],CCFJIZFRONT AND TSBACK) ORS 
MPREGISTER FROM ICW CSOURCE ADDRESS) 
CCT © MES*2),0FFI]22FRONT AND TSBACK))3% 
SPREGISTER FROM ILCW CDESTINATION ADDRESS) 
IF NOT CHAR THENS 
BEGIN X © MES © MESI,CFFIIJ CFF I4133 
MES),CFF] IS ADDRESS OF RCWe MERCWI,CFF] IS ADDRESS OF MScW 
DO CHAR * CCT «© MES © S#4),0CF))2FRONT 
AND TSBACK) UNTIL (SEX) OR CHARIS 
SEARCH THROUGH STREAM LOCALS AND PARAMETERS FOR ADDRESSES 
S ¢ X38 
END3% 
END3% 
IF CHAR THEN 
BEGIN PCAWAKEN)DS GO EXIT3 
END3 
CANNOT OVERLAY IF MAY BE ADDRESSES IN CHAR MODE STACK 
1OD*MCMOM),(68310)3 
IF (DISK#sSMOM,CFFJ) NE@ O THEN & OLAY ADDRESS PRESENT 
BEGIN 


$ SET OMIT = NOTCAUXMEM) 


®R4222304100 
%10722304200 
210722304300 
%10722304400 
210722304500 
210722304600 
%10722304700 
22305000 
22306000 
22307000 
22308000 
22309000 
22310000 
22311000 
22312000 
22313000 
22314000 
22315000 
22316000 
22317000 
22318000 
22319000 
22320000 
22320100 
22320200 
22321000 
22322000 
22323000 
22323200 
22323400 


‘IF OISK,£3323] = 7 THEN & AUXMEM ADDRESS 
IF UNITCL64¢DISKef362111.02481] THEN & PREVIOUS ERROR 
BEGIN 
DISK##03 NOAUXt#("0)s &% DONT USE AUXMEM 
END} 
$ POP OMIT 
MOM,CFFJ&#03 
ENDS 
IF DISK#®O THEN DISK!3DISKSPACECITOD»eMIX*NOAUX) 3 
IF DISK LSS O THEN & NO OLAY DISK 
BEGIN PCAWAKEN)S GO EXIT3 
END: 
$ SET OMIT = NOTCSTATISTICS) 
DATAOLAYS(MIXJ]&a*P( DUP) + 13 
COUNTUPC2L4CFRONT GTR FENCE) CI0D+29) DIV 30)3 
$ POP OMIT 
IF (S!#S71) GTR MOM THEN IF MOM GTR BS THEN BS3=MOM+4]13 
% IF MOTHER IS IN STACKe ONLY SEARCH ABOVE IT 
WHILE CSTACK&SHUNTC(BS),£€CFIJ) LSS S&S DO 
BEGIN 
IF CDESCS8BNFLAGCMCSTACKI)),C182)51 THEN 
% ONLY WORRY ABOUT DATA DESCRIPTORS WHICH ARE PRESENT 
IF DESC,CFFIJ®MOM THEN 
% THIS ONE DEMANDS ACTION ** IT POINTS INTO OUR ARRAY 
IF DESC,£8310]%0 THEN 
% NAME DESCRIPTOR *= PUT IN OFFSET AND RESET PBIT 
MESTACKI&@FLAGCCDESCALCFI*FRONT&MOM(CTF J) 
ELSE 
% NORMAL ROW DESCRIPTOR ** ZERO CORE FIELD AND RESET P"B8IT 
MESTACKIS=FLAGCORDESC(L 838325] )3 
BSteSTACK4el 3 
END) 
IF MEMOM).0£333) NE@ 7 THEN ®% NOT READ ONLYe ALREADY WRITTEN 
BEGIN 
$ SET OMIT = NOTCAUXMEM) 
MCFRONT*1) ¢= MIX & ITODCCTFIsS & AUXMEM LINK 
$ POP OMIT 
RETRY! DISKIOCRSLTeFRONT@1e LODSIL 3847 tL »DATADDRESSCMIX*e DISK) )3 
% €3t1)] IN SIZE MARKS [70 AS ORIGINATING FROM OLAY 
MLCMOMJ] $e CuePCDUP)IBOL28a73 1, I8S5CCTCIS 
PCAWAKEN®DEL D3 
% CF#5 IN MOTHER I[S INTERLOCK FOR MAKEPRESENT 
SLEEPCERSLT Je JOMASK)3 
IF RSLT,€2687]) NEQ O THEN & 1/0 ERROR 
BEGIN 
$ SET OMIT = NOTCAUXMEM) 
IF DISK,£334#3]=87 THEN % AUXMEM ADDRESS 


AUXDATALMIX]t#¢(#P(DUP)) © 10D,(3686) =13 
$ POP OMIT 
IF CDISK&#DISKSPACECIODeMIX2"0)) LSS 0 THEN 
BEGIN ® NO OLAY DISK 
MEMOMJEmCwPCDUP)&6LCTCI3 % TERMINATE MARKER 
GO TO ZAP3 
END} 
GO TO RETRY ® TRY AGAIN WITH ANOTHER ADDRESS 
ENDS % IF 170 ERROR 
MEMOM)$eCe¥PCDUP))&DISKCCTCIJs &® PUT DISK ADDRESS IN MOTHER 
END % IF READ ONLYe NOT YET WRITTEN 
ELSE 


BEGIN 


22323600 
22323600 
22324000 
22324200 
22324400 
22324600 
22324800 
22325000 
22325200 
22325400 
22325410 
22325430 
22325600 
22325800 
22326000 
22326200 
22326400 
22326600 
22326800 
22327000 
22327200 
22327400 
22327600 
22327800 
22328000 
22328200 
22328400 
22328600 
22328800 
22329000 
22329200 
22329400 
22329600 
22330600 
22330800 
22331000 
22331200 
22331400 
22331600 
22331800 
22332000 
22332200 
22332400 
22332600 
22332800 
22333000 
22333200 
22333400 
22333600 
22333800 
22334000 
22334200 
22334400 
22334600 
22334800 
22335000 
22335200 
22335400 
22335600 
22335800 


MEMOMJ#=C#PCDUP)IROL2I47#1I8DISKICTCIS 22336000 
PCANAKEN®DEL) 3 22336200 

END} 22336400 

IF MEMOM],(383]"6 THEN MEMOM),0581) 3% 13 22349100 

ZAP3$ FORGETSPACECFRONT)#% %R4222350000 
PCTRUE)) GO EXITS 22351000 
CODESSS %R4222352000 
% OBJECT PROGRAM CODE TO BE OVERLAID 22353000 
IF ¢T «© MCSJ,CCFJ)2FRONT AND TSBACK THENS 22354000 

% CANNOT OVERLAY NORMAL STATE SEGMENT HE WILL RETURN TO 22355000 
BEGIN PCAWAKEN)Z GO EXITS 22356000 

END} 22356020 

IF LINK, (3862213 THEN STYPE 13 INTRNSC 22356100 

BEGIN 22356200 
INT133 22356300 
TYPEL3SSINTABLEROW(MIX],(8t10J°15 SimMOM,LOs10)3 22356400 

FOR XteINTI3START STEP 4 UNTIL TYPE13 DO 22356500 

IF INTABLECMIXeX],CFF IES THEN & ZERO OUT TYPE 13 ENTRY 22356600 

BEGIN INTABLECMIXeXJte03 TYPE138203 ENDS %JUMP OUT 22356700 
FORGETSPACECFRONT) 5 22356800 
PCAWAKENsDELeTRUE)S GO EXITS 22356810 

END} 22356900 

IF (MIXUP © (CSEGDICT © PRICMIXe4])eCFFI2#O THENS 22357000 

% RE*ENTRANT CODE TO BE OVERLAID ™™ CHECK OTHER USERS» 100 22358000 
BEGIN MIXUP * MIXUP,(3916)}3 22359000 

DO BEGINS 22360000 

[F MIXUP®P2MIX THEN STOPS3 22361000 

% STOP OTHER USER OF THIS CODE IF RUNNING ON PROCESSOR 2 22362000 
IF CT * MEPRTCMIXUP®8JJ,LCFI)2FRONT AND TSBACKS 22363000 

THEN BFGIN PCAWAKEN)3 GO EXITS 22364000 

END} 22364100 

% SAME CRITERIA APPLY TO ALL USERS OF THIS CODE 22365000 
END UNTIL (MEXUP «© PRICMIXUP)4],(2416])8@/75% 22366000 

% CHECK ALL USERS ON MIX®*INDEX LINKED LIST 22367000 
END} ® 22368000 

® IF WE REACH THIS POINTe WE CAN AND WILL OVERLAY THE AREA 22369000 
8 SET OMIT = NOTCAUXMEM) 22369999 
IF CCSEGDICTESEGNOt=MOM,{CFJJ)e£284))82 THEN 22370000 

% TO GO TO AUXILIARY MEMORY» HAS NOT YET BEEN WRITTEN THERE 22370100 
IF (DISK $® AUXILIARYSPACE(MOM,CFFJ))>0 THEN 22370200 

BEGIN % TRY TO WRITE TO AUXMEM 22370300 

T be SEGDICTCSEGNOJ8OL3S4533]8MOMCFTFI$ % SAVE FOR AUX,ERR, 22370400 
MCFRONT@1J#2NABSCMIX&MOMCF TF IGT(3£333153)3 & AUXMEM LINK 22370500 
SEGDICTESEGNOJ8&(*PCDUP) 81L584791 I@DISKECTC)S 22370600 

DISK §# CODEADDRESSCMIX»SEGDICTESEGNOJ)3 22370700 

IF (CUED##10QUESLOTS¥0) THEN 22370800 
DISKIOCRSLTsFRONT@45CMOM,CPFIGIL 3847491} ¢DISK)$ BOLAY 1/022370900 

ENDS 22371000 
SEGDICTLESEGNOJ,(3t1)}8=13 22371100 

POP OMIT 22371101 
BACKAGAINGS 22371200 
SET OMIT = AUXMEM 22371210 
X@SEGDICTESEGNO*MOM),L8!10J5CODEOVERLAYS 22371220 
POP OMIT 22371221 
SET OMIT = NOTCAUXMEM) 22371299 
XP@SEGDICTLSEGNO],(£8#10]3 CODEOVERLAYS 22371300 

POP OMIT 22371301 
IF MIXUP THENS 22372000 

—& RE*ENTRANT CODE BEING OVERLAID =* MUST FIX ALL STACKS AND PRTS 22373000 
IF (MIX © PRTCMIX04)90C2496))#077 THENS 22374000 


% SET UP CHAR» S» AND BS FOR NEXT USERS STACK 
BEGIN CHAR © (S © PRIEMIXe6])eL32811)3% 
S «¢ S INX 08 BS © PRICMIX*®10],CF FIs 
% GO DO STACK SEARCH AND PRT FIX*UP FOR ANOTHER USER 
GO TO BACKAGAIN:S 
END3& 
$ SET OMIT = NOTCAUXMEM) 
PCAWAKEN*DEL)3 
IF DISK,£1812 THEN ® AUXMEM WRITE 
BEGIN 
IF NOT CUED THEN 
DISKIOCRSLT®FRONT*LeCMOMeCFFIRIL38S4731I)*DISK)s & OLAY 1/0 
IF CRSLT AND ITOMASK)#®0 THEN SLEEPCCERSLT J» ]OMASK)3 


22375000 
22376000 
22377000 
22378000 
22379000 
22380000 
22380049 
22380050 
22380100 
22380200 
22380300 
22380400 
22380500 


IF RSULT,0C2687] NEQ@ O THEN SEGDICTESEGNO]3*T ELSE % OLD VALUE22380600 


BEGIN 22380700 
SEGDICTESEGNO) $=C#PC( DUP) &MOMC(CFTFI&OL 334/84 )3 22380800 
AUXCODEELINK.£986)] t= (*PCDUP)) + MOM.(2326) + 13 22380900 

END3 223861000 

END 2 JF AUXMEM WRITE 22361400 

ELSE SEGDICTCSEGNOJS=C#PC DUP) &OC 384784 JEMOMECFTFJ3 223681500 
FORGETSPACECFRONT)3 PCTRUEDS GO EXIT? 22383000 

$ POP OMIT 223683001 
$ SET OMIT & AUXMEM 22383049 
SEGDICTIMOMIJ«C#PC( DUP) QMOMLFTF J 22383050 
FORGETSPACECFRONT)$ PCAWAKEN*DEL»TRUE)$ GO EXIT; 22383100 

$ POP OMIT 22383101 
% NOW WAS THAT NOT TRIVIALITY PERSONIFIEDse. 22384000 
MCP33% ¥R4222385000 
IF PCLINK,(L3#6)2DUP)#7 OR PCXCH)#13 THEN GO TO INTRINSIC3 22386000 

SPRT * P(,BED): BS « CPCOeRDF I), CFF] 22387000 

% SET BS TO POINT AT RCW FOR CALL ON OLAY 22388000 
DO BEGIN? 22389000 

OLAY © NOTCS © CCCORE © CT © MEBS)) eT CFI)SBACK 22390000 

AND CORE2FRONT))32 22391000 

%S 1S TRUE IF THE RCW POINTS TO THE ROUTINE TO BE OVERLAID 22392000 
BS + T,CFFI3% 22393000 

% POINT T TO CORRESPONDING MSCW 22394000 
WHILE (CT «© MCBSJ),016%1] DO BS ¢ TALFFIJ34 22395000 

% RUN NOWN STACK OF MSCWS UNTIL NOT MSFF 22396000 
IF (BS © TyCFFI)S$64 THEN 22397000 

% END OF STACK "" THIS IS RATIONALE FOR OBSCURE USE OF "PCOsSTF)* 22398000 
BEGIN S »& S OR CSPRT #» FLAGCMESPRTI)2),CCFIFPC.BED)3 22399000 

BS « SPRTICFREG).CFFJ3 22399100 

END END UNTIL S3 22400000 

IF RESULT THEN® 22401000 
BEGIN MCMOM) © (C#PCDUP))&CHPCeESPBITIICCTCI3% 22402000 
FORGE TSPACECFRONT)3% 22403000 

END3% 22404000 
PCRESULT AND 1)3 GO EXITS 22405000 
INTRINSIC3 2% %R4222406000 
IF MYIXX#0O THEN BEGIN 22406100 
FOR MIXe1 STEP 1 UNTIL MIXMAX DOZ% 22407000 

IF DATEMIX]«<0O THEN 22407500 

JF INTABLEROW( MIX) #0 THENS 22408000 
BEGIN IF MIX#P2MIX THEN STOPS 22409000 

IF CT © MCPRTCMIX*e8I1)],(CFJI2FRONT AND TSBACKS 22410000 

THEN BEGIN PCAWAKEN)$ GO EXIT} 22411000 

END} 22411020 

END3% 22412000 

FOR MIXe«1 STEP 1 UNTIL MIXMAX 00% 22413000 


IF DA 
IF IN 
BEGIN 


® TYPE 13 REFERENCE ALSO EXISTS AND TYPE 7 REFERENCE 1S NOT PRESENT 


SKIPIT$ ENDS 
INTRN 
FORGE 
PCAWA 
END NORM 
SEGNO 
SEGNO 
STREA 
BEGIN 


END § 
SEGNO 
CHAR 

S +P0 
X « § 
SEGDI 
Pc0)3 

@xiTt 
$ SET OMIT & 

IF we 
BEGIN 


ENDS 
$ POP OMIT 
PCRTN 
END OF OVE 
REAL SPACESTA 
SAVE PROCEDUR 


BEGIN’ 
REAL 
REAL 


TIMIX]<0 THEN 

TABLEROWEZMIX]#0 THEN’ 

SEGNO «© MOM,(CEt10] 943% 

IF MEMROW(CMIX) INX O GEQ FENCE THEN 

IF NOT INTRNSCCSEGNO4+3)2£4%1] THEN GO TO SKIPIT ELSE 

SEGNO 3 BREENTRANTINTABLEMAPC SEGNO41 23 

STREAMCA « SEGNO AND 3! T © CINTABLECMIXeSEGNO DIV 4]))3 

BEGIN SI « TS SI ¢ SJ+AE SJ] « SPAS DY © LOC AS 
DI «© DI+6s DS « 2 CHRS END STREAMING? 

IF CSEGNO « POLISH)#0 THENS 

IF SEGNO = @2000 THEN JNT13 ELSE 

BEGIN CHAR «© PCPRTIUM[XeB)do DUP),(C32%1)3% 
TYPEI138SSEGNO, (3781433 
SEGNOS*SEGNO AND @17773 ZIGNORE TYPE 13 BIT 
S$ « POLISH INX 03 BS © PRTEMIXs10).,C0FFI3% 
SEGDICT « PRTICM[Xe4])34 
XtsSEGDICTLSEGNO],(8:10); 
IF TYPE13 AND NOT PRTICMIXeX)],€281] THEN 


INTI3 ELSE 
BEGIN 
CODEOVERLAY3 
SEGDICTCESEGNO) ¢ (#PCDUP))&MOMLFTF)3% 
ENDS 
ENDS% 


SCCMOM,(8:10])] «© (C*PCDUP))&MOMEFTCI]3& 
TSPACECFRONT)32% 
KEN*DELe TRUE) GO EXIT3 
AL CASE: 
tRMOM,CB8101]3 MIXESMIXX3 
f=REENTRANTINTABLEMAP( SEGNO)3 
MCA®*SEGNO AND 38 TeCINTABLECMIX*SEGNO,(36810))1])3 
SleTs STe*SI¥As STeST+A3  DieLoc As 
DieDI4$63 TeSI3 DS*2 CHR$ OleTs ODSe2 LIT "003 
TREAM} 
* POLISHS SEGDICT «© PRICMIX»4])3 
+PCPRIEMIX*e8]» DUP) [321] 
LISH INX OF BS #PRTICMIX010),CFF)3 


EGDICTCSEGNOJ,£8810)3 CODEOVERLAYS 
CTECSEGNO) « (*PCDUP) )&MOM(FTF )3 
NOTCNEWLOGGING) 

PROCTEMP#0 THEN 


MCPROCTEMP*PROCTIMELPIMIXJ*CLOCK+PCRTR)*MCPROCTEMPS 
IF MCPROCTEMP<O THEN MCPROCTEMP03 
MCPROCTIMELPIMIXJ#ABS(*PCOUP) )+MCPROCTEMPS 


3 
RLAY 34% REVISION OF 5 JANUARY 1968 «4 5 9 
CK3 
E FORGETSPACEC(LOC)3% 
VALUE LOC3& 
REAL LOCS2 


BeBACKeF eFRONT#@LINKe Xe Te SIZES 
MIX3 


22413500 
22414000 
22415000 
22415100 
22415150 
22415200 
22416000 
22417000 
22418000 
22419000 
22419500 
22420000 
22420200 
22420500 
22421000 
22422000 
22423000 
22423100 
22423200 
22423300 
22423400 
22423500 
22424000 
22424500 
22425000 
22426000 
22427000 
22428000 
22429000 
22430000 
22431000 
22431100 
22432000 
22433000 
22434000 
22435000 
22436000 
22437000 
22438000 
22439000 
22440000 
22441000 
22441100 
22441199 
22441200 
22441300 
22441400 
22441500 
22441600 
22441700 
22441701 
22441600 
22442000 
23399000 
24000000 
24001000 
24002000 
24003000 
24004000 
24004100 


DEFINE LEFTOFFSMEM(MIXsLEFILITI #4; 
MIX@eCLINK@MCLOC#C#PC LOCI) CCF IM2I2.(986)3 
$ SET OMIT = NOTCCHECKLINK OR DEBUGGING) 
IF CHECK THEN CHECKLINKS(MIXeLOC)3 
£ POP OMIT 
IF PCMEMCMIXeMLINK1 J) eDUP),C 
OR (Bt=M(BACKSSLINK, CFF II) )¢ 
OR CFISMCFRONTI=LINK,CCFII) 
OR LINK LSS 0 THEN PUNT(4)3 
IF F LSS Q THEN 
BEGIN? 
MCLOCJ©LINK &FCCTC)3% 
MCF JeMCF) & LOC(ICTFIJs% 
MET#eMCFRONT#2) JeMET) &CXeMEFRONT+LIIECTC I 3% 
MCXe i ]eTZ 
ENDIS 
IF B LSS 0 THEN 
BEGIN? 
MCBACKI]«B&CTeM(ELOCI,CCFIICCTCIS% 
MCTJ@MECTI& BACKECTFJ32 
MUEBACK4¢LI#MEBACK41 IRCSIZEeT@BACK@2(CTFI32 
ENDS 
ELSES 
BEGINS 
MCLOCHéL J eC TeMEM(CLOC+2 2 *©MEM(MIXPAVAILIIDE 
CSIZE*M(LOC), (CF I] *LOC@2) (CTF I: 
MCMEMEMIX*AVAILIJ J © T&CMCT +i) +LOC+H1ICCTCI3 
MCLOCJ+NABSC*PCDUP) D5 


CFJ GIR LOC OR PCXCH),CFFJ LSS LOC 
C(CFJ NE® LOC 
efFFJ NEQ@ LOC 

® INVALID LINK 


END3% 


24004200 
24005000 
24005099 
24005100 
24005102 
24005200 
24005300 
24005400 
24005500 
24007000 
24008000 
24009000 
24010000 
24011000 
24012000 
24013000 
24015000 
24016000 
24017000 
24018000 
24019000 
24020000 
24021000 
24022000 
24023000 
24024000 
24025000 


24026000 


24027000 
24028000 
24029000 


JF LOCSLEFTOFF THEN IF MELOCI] g(CCFJ>LEFTOFF THEN LEFTOFFeMCLOC),£FF Is 24030000 


$ SET OMIT = NOTCCHECKLINK OR DEBUGGING) 
IF CHECK THEN CHECKLINKSC(MIX»LEFTOFF )3 
$ POP OMIT 
END FORGETSPACE34 
SAVE REAL PROCEDURE ACTSPACECSIZEsSAVEF eMIX)3 
VALUE SIZE*SAVEF aM] X3 
REAL SIZEeSAVEF eMIX5 
BEGIN REAL LINKe LOC sXe VeTsSIZEF 
REAL LOSSSIZEF 41 eMSTARTELOS+413 
DEFINE LEFTOFFSMEMEMIXsLEFTLITI&S 
LABEL GOTITS 
LABEL NEWSTART»s SVSEARCHs ROCKABYE® START+# OVERLAY3S 
LABEL OVSEARCHsXX3 
PCOsMEMROWLMIXI,CCFIJePRIORTYIS % SET UP LOSe MSTARTs AND TEMP 
PRIORTY*"5}3 
IF SAVEF THENS ATTEMPT TO ALLOCATE AT START OF MEMORY 
IF SAVEF<4 OR TOGLE»NOMEM#40 THEN 
BEGIN LINK&SeMCMSTART]3 
SVSEARCH?:3 
IF CLOC*LINK,{CCFI)"MSTART THEN 
GO TO ROCKABYE3 
IF CUINK « MELOC])20 THENS 
BEGIN IF NOT LINKe(281) THEN’ 
BEGIN % OVERLAY ONLY IF POTENTIAL SPACE ADEQUATE 
SIZEF «© "23 X © JT + LOCS 
IF CY*#LINK, CFF IJ)#AMSTART THEN 
IF MCY) < O THEN SIZEFeMCCT*+YI41),0FFJ3 
WHILE SIZE>STZEF AND CYeMEXJ),Cis2]4#1 00 


24030099 
24030100 
24030101 
24031000 
24032000 
24033000 
24034000 
24034050 
24034100 
24034200 
24034900 
24035000 
24035050 
24035100 
24035200 
24040000 
24040500 
24041000 
24042000 
24043000 
24044000 
24055000 
24056000 
24056100 
24056200 
24056250 
24056300 
24056400 


er 


END) 
START $3 


OVSEARCHS 


OVERLAY !% 


XX3 


SIZEF «© SIZEF = X # €(X # Y,[CF])3 
IF SIZE > SIZEF THEN 
BEGIN LINK «© Y3 GO TO SVSEARCH END? 
IF OLAYC(LOCs0) THEN & RE*SET *®LINK® 
IF CY¥*#MELINK*T])>0 OR Y,CCFIELOC 
OR MCYJ.CFRFI#LINK THEN 
% MEM LINK AT “T" NO LONGER VALID 
LINK * MUMSTARTI3 
END S32 
GO TO SVSEARCHSS 
END#& 
IF CSIZEF «© ME T*LOC+1), CFF II<SIZE THEN GO SVSEARCHS2 
MOYSSMECXSEMC TI +13 SMC T+1 J] t=CeP (DUP) AXE CTCIs 
Xre"L INKS 
IF SIZEF>SIZE+DELTA THENS 
BEGIN MELOCI]SFXRCYSSLOCH+SIZE+2I(CTCI3 
MUX] # CH#PCDUPIDRYCCTFI33 
MOEYJ]3= XeCCFIRLOCICTFIGMIXC934226)3 
FORGETSPACECY+2)33 
X,CCRIIRY3 
END34 
GO TO GOTIT3 


IF CLINK «¢ PCMEMEM(MIX*AVAILIJ J °OoSEZEsCFXeLLLe 
Q> INXe 4Te STD) )e(FFIJ=@77777 THENS 
BEGIN 


IF CLINKeMCLEFTOFFJ).C1#2] *® O THEN 
BEGIN % OVERLAY ONLY IF POTENTIAL SPACE ADEQUATE 
SIZEF « "23 X «© LEFTOFFS 
IF CYeLINK,£CFJ) # MSTART THEN 
IF MEY] < O THEN SIZEF © MCY41),0CFFI3 
WHILE SIZE > SIZEF AND CY*MEXJ)),£182]41 DO 
BEGIN SIZEF*SIZEF+Y, CCF I*XS X*Y,CFF) END} 
IF SIZE > SIZEF THEN 
BEGIN LEFTOFF ©« Y,CFFI]3 
IF PCMSTART»DUP)*LEFTOFF OR PCXCH)®X THEN 
GO TO XX ELSE GO TO OVSEARCH END3 
OVERLAY ATTEMPTED CYCLICALLY» USING LEFTOFF 


IF OLAYCLEFTOFFe0) THEN GO TO START 
ENDs% 
IF CLEFTOFFeLINK, CFE JISMSTART THEN 
IF LOS THEN GO TO ROCKABYE ELSE LOS © 13 
GO TO OVSEARCH3 
END3® 


IF CSIZEF # LINK, CFF) )>SIZE+DELTA THEN’ 
BEGIN M(T) « LINK&CX « SIZEF*SIZE#2)C CTF] 
LOC « TaXe13% 
Xie CY © METRLIIRCTPLICCTF ISS 
MOY) «© C#PC(DUP)8LOCCCTFIS2 
MET*4] «© Y&LOCLCTC)3% 
END ELSE BEGINS 
MCLINK41) © Y © MCT4#1)3% 
MOY] © C#PCDUP)ELINKCCTCJ33 
X © M(LOC « TrLjes 
END}4 


24056500 
24056600 
24056700 
24057000 
24057100 
24057150 
24057200 
24057300 
24057500 
24058000 
24059000 
24060000 
24063000 
24064000 
24065000 
24066000 
24067000 
24068000 
24069000 
24069100 
24070000 
24070500 
24071000 
24072000 
24073000 
24074000 
24075000 
24075050 
24075100 
24075200 
24075300 
24075400 
24075500 
24075600 
24075700 
24075800 
24075900 
24075950 
24075960 
24076000 
24076500 
24077000 
24078000 
24078500 
24079000 
24080000 
24081000 
24082000 
24083000 
24084000 
24085008 
24086000 
24087000 
24088000 
24089000 
24090000 
24091000 
24092000 
24093000 
24094000 


GOTIT!: 
MEACTSPACE*LOCIJ©ABSCXR1C 214731128 
MELOC4+1)¢03 
ROCKABYES 
PRIORTYeP3 
END ACTSPACE} 
SAVE INTEGER PROCEDURE DISKSPACEC WORDS» MI Xs AUX)3 
VALUE WORDS@MI Xe AUX3 
INTEGER WORDSo MIX} REAL AUX3 
BEGIN ARRAY LOC#42[¥#]3 
INTEGER INDEX®NT1 es 
SEG FNT2e 
CNTRS@&NT3e 
SIZE &NT4e 
LIMITENTS3 
REAL T BNT63 
LABEL Lie 
FINAL? 
BADEXITe 
EXIT; 
DEFINE HEURISTIC = 2#3 
REAL SUBROUTINE FINDSEG} 
BEGINS STREAM(A+03T)3 
BEGIN SI*LOC Ts SJ#SI]433 
ScCrF Scs*"0* THEN JUMP OUT TO L3 
SleSl4#ii TALLY*TALLY4#1)3 
3 AeTALLY3 
END STREAM3 
FINDSEG « POLISH 
END FINDSEGS 
SUBROUTINE FINO} 
BEGIN POLISH(0)3 
T «© LOCCINDEX)3 
SEG + 7,£9:23])3 
CNTRS « T,£2:%7]3 
IF SEG?4 THEN 
Li3 IF (SEG «© FINDSEG)#5 THEN GO TO FINAL 
ELSE CNTRS «03 
IF SIZE+CNTRS>100 THEN GO 10 L13 
PCDELe CINDEXx256)4+SEGx1LOO4CCNTRS)3 
STREAMCACOLSEGe TeLTI 93 
BEGIN SleTs SieSi+33 SI«SI+SEG3 
DI*LOC A’ DI*DI473 SEGeDI3 
TeSI3 DS*CHRS TALLY*A? 
TALLY*TALLY#13 A@#TALLY3 
SleSeGi DIeT} DSeCHR3 
END STREAMS 
IF CPOLISH#®63) OR CCNTRS © CNTRS#SI2ZE)8100 THEN 
BEGIN CNTRS «+ O$ SEG « FINDSEG END} 
LOCCINDEX) «© T&SEGL9S453 378 CNTRS(284137)3 
FINAL? IF CDISKSPACE © POLISH)#0 THEN 
BEGIN IF SEGS5 THEN INDEX ¢ 03 
LOCEO] + LIMITRINDEX(CTFIJ3 
GO TO EXIT} 
END END FINDS 
$ SET OMIT = NOTCAUXMEM) 
IF CCAUX OR DATAOLAY) AND NOT AUX,£181]) THEN 
IF PCAUXILIARYSPACECWORDS) eDUP) NEG O THEN 
BEGIN 
AUXDATACMIXJ]&a*P(DUP)+WORDS,(3826)+413 


24095000 
24096000 
24096500 
24096600 
24096700 
24097000 
24101000 
24102000 
24103000 
24104000 
24105000 
24106000 
24107000 
241068000 
24109000 
24110000 
24111000 
24112000 
24112500 
24113000 
24114000 
24115000 
24116000 
24117000 
24118000 
24119000 
24120000 
24121000 
24122000 
24123000 
24124000 
24125000 
24126000 
24127000 
24128000 
24129000 
24130000 
24131000 
24132000 
24433000 
24134000 
24435000 
24136000 
24137000 
24138000 
24139000 
24440000 
24141000 
24142000 
24143000 
24144000 
24145000 
24146000 
24147000 
24148000 
24148999 
24149000 
24149100 
24149200 
24149300 


P¢ 
EN 
$ POP OMIT 
PCDAL 
SIZE 
IF ¢h 
IF ¢} 
INDEX 
BADEXIT! 
DISKS 
EXIT? 
$ SET OMIT # 


$ POP OMIT 
STREA 
BEGIN 


END S$ 
IF ¢P 


END DISKSP 
SAVE REAL PRO 
VALUE 

REAL 

BOOLE 
BEGIN 


$ SET OMIT & 


$ POP OMIT 
AGAIN 


RTND)3 
D ELSE PCDEL)3 


OCEMIXe«))3 
* (WORDS+29) DIV 303 
IMIT #® LOCLO],CCF])&0 THEN GO TO BADEXIT3 
NDEX # LOCCO],CFFJ)#0 THEN FINDS 
t= 23 DO FIND UNTIL CINDEX %& INDEX+2)>LIMITS 


PACE + #13 


NOTCSTATISTICS) 
IF INDEX GEQ OLAYUSEDEMIX].03%15) THEN 
OLAYUSEDEMIXJSSLOCLINDEXIJGINDEXE3833815)3 


MCACOSLeLIMITs C4136) eT+(CLOClijd)3 
SleT} DI«A3 
LCSTeS]+113 
SCIF SCS"O" THEN DI*DI+8% SleS1+1))3 
Ae*DI} 
TREAMS 
OLISH<HEURISTIC) THEN 
IF CCSEG # TWOCMIX)) AND OLAYMASK)#0 THEN 
BEGIN OLAYMASK «© NOT SEG AND OQLAYMASK3 
FORKCPC,GETMOREOLAYDISK) eM] Xo"3012801)3 
IOCOUNTEMIX] ©« «PC DUP) +4; 
END3 
ACE} 
CEDURE GETSPACECSIZEs TYPE eSAVEF )3 
SIZE»TYPEsSAVEFS 
SIZEsTYPE3 
AN SAVEFS 
REAL MIX»TsMESS3 
BOOLEAN BELOW) 
LABEL AGAINeSLEAP»MUSTNOTSWAPS 
SUBROUTINE TELLSPO; 
BEGIN PCPIMIX)3 PIMIXs303 


24149400 
24149500 
24149501 
24150000 
24151000 
24152000 
24153000 
24155000 
24155500 
24156000 
24157000 
24157099 
24157100 
24157200 
24157201 
24158000 
24159000 
24160000 
24161000 
24162009 
24163000 
24164000 
24165000 
24166000 
24167000 
24168000 
24169000 
24170000 
24300000 
24301000 
24302000 
24303000 
24304000 
24304500 
24305000 
24305500 
24305600 


STREAMCXS®MESS#0*e MIX® SIZE® MESStSMESSt®GETAREACO) 2324305700 


BEGIN % NOTE THAT 18ST 4 BITS OF MSG ARE ZEROES, 
S1seLOC MIX$ DSt#2 DEC 
oS#e8 LIT* NO MEM 3 
05:85 DECs DSt85 LIT” WOS#"3 
XCDITteO17173 OSsF2 LIT"OK")3 

ENOD3 

JOREQUESTCMESS&@274(124018)]2 PCDUP)D.s 

017]8@23101084038))3 
PIMIXs sP3 
END OF TELLING SPO ABOUT NO MEMS3 


BELOW*CMEMCMIXe IF TYPE264 THEN TYPEeC( FF) ELSE PIMIXe0)]), 
CCF] = O08 

NOTCCHECKLINK OR DEBUGGING) 

IF CHECK THEN CHECKLINKSCMIXsMEMEMIX»sLEFTLITI23 


WALTSTORECMIX)$ STOREDYC MIX] «03 
IF BELOW THEN PCSPACESTACK?STS)3 
TeACTSPACECSIZE®SAVEF eo MIX) 5 

IF BELOW THEN PCCBELOWI].STS)3 
STOREDYC MIX] #13 

IF T#O THEN 


24305800 
24305900 
24306000 
24306100 
24306200 
24306300 
24306400 
24306500 
24306600 
24306700 
24306900 
24307000 
24307500 
24307999 
24308000 
24308008 
24309000 
24310000 
24311000 
24312000 
24313000 
24314000 


BEGIN NOMEMTOG:*13 
IF SAVEF+C4621] THEN PCOrRTND3 
IF PiMIX®0 OR BELOW THEN 
BEGIN 
IF MESS#O THEN TELLSPOS 
SLEAP# SLEEPCECLOCKJ»sNOT CLOCK)3 
GO TO AGAINS 
END3 
IF PCPRTROWLPIMIX]s¢DUP)80 THEN P(DEL) ELSE 
IF PCDUP),CPSFJ#1 OR PCXCHe9eCOC)S5 THEN 
MUSTNOTSWAPS BEGIN MIXt*O03 BELOWSSTRUES GO TO AGAINS 
ENDS SPACE IS GOT BELOW FENCE IF EO 
IF CANTEXPAND(MIX] THEN 
IF (CBELOWS=BELOW42) GTR 5 THEN 
BEGIN 
TERMINATECMIX&BL0CTFI)3 
GO TO INITIATE? 
END ELSE GO TO SLEAP3 
IF TAREPIMIXJ NE@ O THEN GO MUSTNOTSWAPS 
EXPANOEMIX] 33 
SWAPCFORCESWAP#3)3 
GO TO AGAIN 
ENDS 
MUGETSPACE*TJ]eC#PCDUP)I&TYPEL3S428O)&MIX(984216)3 
IF MESS#0 THEN TELLSPO3 
$ SET OMIT = NOTCCHECKLINK OR DEBUGGING) 
IF CHECK THEN CHECKLINKSCMIX»MEMCMIXs LEFTLIT I) 23 
$ POP OMIT 
IF CMEMEMIXe¢O))efCFI>T OR MEMEMIX00),CFFI<1 THEN 
PUNTC4)3 % INVALID LINK 
END GETSPACE3 
$ SET OMJT = NOTCSHAREDISK) 
PROCEDURE FINDFREEADDRESS(N)S VALUE NS REAL NE 
BEGIN 
REAL RCWS4+OeTERCWN41 SASTHL SBA4] eUES+l seeds 
LABEL LOOK3 
P(@2000202020e0)3 
IF CFINDFREECTRISFINDFREECTR4+1) GEQ 32 THENS THIS PROCEDURE IS 
® CALLED FREQUENTLY SO MAKE IT A SAVE PROCEDURE 
MEC#PCeeFINDFREEADORESS)IINX OF2),(281) 9813 
LOOK? Te#®@20003 aeO3 


PCWAITIOCET) INX @400000000000+18)*DEL)s & REPORT FREE ADDRESS. 


IF A#O THEN ®% THERE WAS A FREE ADDRESS 
BEGIN 
FOR [tO STEP 1 UNTIL LQAVAIL™1 DO 
IF CLQUECTI.£8840] EQV Ad*NOT O THEN 
IF STASUSCLOCATQUELS*LQUEL IT] eCit7I),0385I)*RUNNING THEN 
BEGIN 
$ SET OMIT ® DFX OR OMIT 
UeCLOCATQUELS]«C#P(DUP))&CNOT ODECTFII,€1236)5 
LOCOUNTLLOCATQUELS],£3:15J]) **P (DUP) +13 
IF UNITCUS,CFFI>1023 THEN 
BEGIN 
UNITCUJ fe C#PCDUP)&S(CTFI&S(CTCI3 
STARTIOCU)3 
END ELSE 
BEGIN 
LOCATQUECUNITCU) ECFIIACFFI8eS3 
UNITCU),CCFI88S3 
ENDS 


24314500 
24315000 
24315100 
24315200 
24316000 
24324000 
24325000 
24326000 
24327000 
24327500 
24328000 
24329000 
24330000 
24331000 
24332000 
24333000 
24334000 
24350000 
24350500 
24351000 
24352000 
24353000 
24354000 
24400000 
24401000 
24404999 
24405000 
24405001 
24406000 
24407000 
24406000 
24599999 
24600000 
24601000 
24602000 
24603000 
24609000 
24610000 
24611000 
24612000 
24613000 
24614000 
24615000 
24616000 
24617000 
24618000 
24618100 
24619000 
24619999 
24620000 
24620500 
24621000 
24622000 
24623000 
24624000 
24625000 
24626000 
24627000 
24628000 
24629000 


$ POP OMIT 24629001 
$ SET OMIT = NOTCDFX) OR OMIT 24629099 
Te LQQUELCSJ&6C0384385)3 246291409 
RETURNIOSPACE(S)3 24629200 
PIMIXe*LOCATQUE(S],(335]3 24629350 
LOREQUESTCFINALQUELS ee Te LOCATQUE(SJ&818(1244216))3 24629400 

PIMEXtsO3 24629500 

$ POP OMIT. 24629501 
IF 1 LSS CLOAVAILEFLGAVAIL"1) THEN 24630000 

BEGIN 24631000 
STREAMCASFLQAVAIL*I e+ BS F(LQUELIII 23 24632000 

BEGIN SIeteBsSJtueSl+8sOStea WOS ENDI 24633000 

ptarnts 24634000 

ENOS 24635000 

ENO ELSE LQUECII,£CI2t1I} +13 24636000 

IF LQ@AVAIL#O THEN GO LOOK; 24637000 

END3 24638000 
FINDINGADDRESS3#03 24639000 

IF N THEN KILLCCRCW) INX NOT 2)}3 24640000 
ENDS & OF FINDFREEADDRESS 24641000 
$ POP OMIT 24641001 
$ SET OMIT = NOT SEPTICTANK 25999990 
SAVE PROCEDURE DISPOSAL (CLeI*6R)3 26000000 
VALUE LefeRt REAL LeloR} 26001000 
BEGIN REAL Je» YECHS 26002000 
DEFINE 26003000 
SEEPAGE = ARGH(60)#, 2 DISK ADDRESS FOR NEXT 1/0, 26004000 

XXX = ARGH(62]#, % INDEX OF BASE OF CURRENT BUFFER (0 OR 64)26005000 
STINK = ARGHL124] #e % BASE ADDRESS OF SEPTIC TANK, 26006000 
YECHH = ARGH(L1251]#, % INDEX JNTO CURRENT BUFFER (0°63), 26007000 
TUBUFF = ARGH[126]#, Z IF ZERO» PUT EVERYTHING INTO TANK, 26006000 

fe % IF NOT ZERO» TU/BUFF OF ADAPTER TO STORE,26009000 
NTLOC @ ARGHL128) #3 % STORAGE FOR NT VARIABLES DURING DISKIO, 26010000 
COMMENT 26011000 

THE REST OF ARGH IS USED AS FOLLOWS! 26012000 
ARGH(*1) % DISK ADDRESS FOR FIRST BUFFER, 26013000 

ARGH[0"59) % FIRST BUFFER, 26014000 

ARGH( 61] % CELL FOR 1/0 COMPLETES, 26015000 

ARGH( 63] % DISK ADDRESS FOR SECOND BUFFER, 26016000 

ARGHL 647123] % SECOND BUFFER, 26047000 

ARGH(1273 % FILE ID OF CURRENT SEPTIC TANK, 26018000 

NOTE THAT SEEPAGE AND STINK ARE WRITTEN OUT AT THE END OF THE 26019000 
BUFFERS, THE FACT THAT 3815 IS ZERO MARKS THE END OF THE TANKS 26020000 

% | 26021000 
REAL SUBROUTINE WRITEDISK) 26022000 
BEGIN 26023000 
MOVEC4ePC NTL ®CNTLOCIJ)3 & SAVE THE NT*S STOMPED BY JOREQUEST, 26024000 
DISKIOCARGHE 61] 2 CARGH INX XXX)*1°619SEEPAGE)3 26025000 

MOVEC 4s (NTLOC Je PC,NTII)D3 26026000 
XXXgeC (PC DUP))+64) AND 643 26027000 

IF PCCCSEEPAGES #(*#P(DUP))4¢2)*°STINK) GEQ SEPTICSIZE»sDUP) THEN 26028000 

BEGIN SEEPAGES#STINK3 26029000 

ARGHI XXX) ¢ #33 % TSSMCP AND WRAPAROUND BITS, 26030000 

ENDS 26031000 
WRITEDISK&=P; 26032000 

ENO) 26033000 

z 26034000 
IF SEPTICTANKING THEN 26035000 

IF TUBUFF®O OR CRAL9t4]=TUBUFF,(3984] AND 26036000 
CTUBUFF,C18id OR CReLL4¢4] 3 TUBUFF.C4494]))) THEN 26036500 


BEGIN 


ENDS 


IF ReQ THEN Jt24 ELSE 
BEGIN JiFlF ReliSel) THEN 1.0989) NEQ O ELSE Iel24t1)+4+23 
KaaR, (CF) = T,€CFI3 
IF Re€2581) AND J®2 THEN KteK"]13 
END3 
IF PCCYECHS®YECHH) #K+2eDUP) GTR 60 THEN & LEAVES INDEX OF END 
PCP®YECH4+( YECHI@WRITEDISK))3 2 OF DATA ON STACK, 
ARGHLYECHISXXX+VECHIESEREKCCTCI&V(334216)3 
ARGHLYECHS1) 8 BC XCLOCKSPCRTR) &L01284286)3 
STREAMCQtEPCDUP) NEG 60% Ke [tele CCK)» REFLARGHLYECH+2I)))3 
BEGIN SIlte1s DSsekK WOSs QCOStaLIT * *)3 END? 
IF NOT P THEN PCOELeWRITEDISK)3 % 60 WORDS» 
PCLYECHHIJ»STD)3 


WRITE IT, 


@ND DISPOSAL} 
PROCEDURE RUNSEPTICCBUFF)) 
VALUE BUFFS REAL BUFF3 
BEGIN LABEL SPIT»SEPS 
REAL TUsLeTeBoF IDS 
INTEGER RCFFIDS 
DEFINE SEEPAGE = ARGH[60] 4» 


XXX = ARGH( 62] #» 
STINK ® ARGH 124) be 
YECHH = ARGH( 125) 8» 
TUBUFF = ARGH[126]#3 


Bi@IF BUFF®O THEN SPACE(10) ELSE BUFF,CI5StiSJ71) 


IF BUFF GEQ@ 0 THEN 


® OPEN SEPTIC FILE 


BEGIN IF SEPTICTANKING THEN GO SPIT3 


ONE? 


IF BUFF NE@ O THEN &% CHECK FOR SPECIFIC TU BUFF 
BEGIN STREAM( AS82100, Bte1{O0t Xt=0, BUFF) 
BEGIN SI&sBUFF? DISSLOC AS 
2¢ 
IF SCSALPHA THEN 
BEGIN IF Sc LSS “"O" THEN JUMP OUT 
TALLYS=13 X8STALLYS 
SleeSi+h3 
IF SC LEQ "Z" THEN GO TO ONE; 
IF SC LEQ "9" THEN 
BEGIN SieeSI™14 OSte2 OCT END ELSE 
BEGIN SIseSIl"13 OSsxOCT ENDS 
END ELSE 
IF Sca%e" THEN JUMP OUT ELSE 
IF SC ® "mR" THEN 
BEGIN XCOSts8LIT*OO00001N")3 


JUMP OQUT3 
END ELSE 
BEGIN SIt#Sl+13 GO TO S121 END) 
)3 
END} 
TiaP) 


IF CCL¢sP) OR T) GTR 15 THEN 
IF €C1*100) AND €T#100) THEN TUS#0 ELSE 
IF Te{00 THEN IF I GTR STAMAX THEN GO SPIT ELSE 
IF (TUSSLINETABLEL 


$ SET OMIT # TWXONLY OR OMIT 


IF 1 GTR LMAX THEN 
STATABLELI J +LEENKER ELSE 


$ POP OMIT 


13,0989))30 THEN 


26037000 
26036000 
26039000 
26040000 
26041000 


- 26042000 


26043000 
26044000 
26045000 
26046000 
26047000 
26048000 
26049000 
26050000 
26051000 
26060000 
26061000 
26062000 
26063000 
26064000 
26065000 
26066000 
26067000 
26068000 
26069000 
26070000 
26071000 
26072000 
26073000 
26074000 
26075000 
26076000 
26077000 
26078000 
26079000 
26079500 
26080000 
26081000 
26082000 
26083000 
26084000 
26085000 
26086000 
26086100 
26086200 
26086300 
26086400 
26087000 
26088000 
26089000 
26090000 
26091000 
26092000 
26092100 
26092200 
26092299 
26092300 
26092400 
26092403 
26092500 


LUM SER TIC 


GO SPIT ELSE ELSE 


26092600 


IF (1 LSS 16) AND CI GTR 0) AND (T#101) THEN 26092700 
TUSeC"O)RI1L393G494) ELSE GO SPIT ELSE 26092800 

IF CTUS#T81039844t4)) LSS 32 THEN GO SPITS 26093000 

END} 26094000 
T#3SPACE(30)3 26095000 
MOVEC300T@10T)3 26096000 

METI £=@00074000740001023 26097000 
MET+4)$%@40000000010403 26098000 
MCT+SJGSM(T4611250143 26099000 
STREAMCDATE#Xt=T#3)$ 26100000 
BEGIN SIt#LOC DATES DSt#8 OCTS 26101000 
DleeXs DSte2 LIT “Hes 26102000 

S1s=X$ StteS1+5s DSt=3 CHRI 26103000 

ENDS 26104000 
1taMCT#+10) $SGETUSERDISK(MET+8) t8SEPTICSIZE41)3 26105000 
MeTe7J$sSEPTICEOFS 26106000 
MCT#+9]IBLRTWOC 3°SYSNODE5S#4424)3 % OPEN FOR OUTPUT 26107000 
RCLECNTISSXCLOCK/3600) MOD 603 26108000 
NT123NTL DIV 603 26109000 
STREAMCNTI PROOF SSCFIDI)S 26110000 
BEGIN SI#sLOC NT13 DStsLITrons 26111000 
DSte2 DECs DSt=2 DECS DSte3 LIT" "3 26112000 

END} 26113000 
ARGHIRCCGETSPACE(1329501)42) INX M)&132C8838t10)3 26114000 
SEEPAGES=STINKt=1} 26115000 
XXXPBARGHELI]9203 % WORD 1 MARKS END OF TANK AND 0 26116000 
YECHHISARGHLO] 1813 % MARKS TSSMCP WITHOUT WRAPAKOUND26117000 
TUBUFFE@TUS 26118000 
ARGHC 12730 F IDS 26119000 
DISKWAITCARGH,LCF1+201)3 26120000 
ENTERUSERFILECPCSEP) +FIDsT@1)2 26121000 
FORGETSPACE(T)3 26122000 
SEPTICTANKING#®TRUES 26123000 

END ELSE % CLOSE SEPTIC FILE 26124000 
BEGIN IF NOT SEPTICTANKING THEN GO SPIT 26125000 
SEPTICTANKINGS=FALSES 26126000 

IF YECHH NE@ O THEN 26127000 
DISKWAITCARGH [NX XXXe61eSEEPAGE)S 26128000 
PCDIRECTORYSEARCH(®PCSEP) eARGHE 127912) sDEL)5 26129000 
FORGETSPACECARGH)S 26130000 

END} 26131000 
STREAMCAISPC(SEP)» BIEARGH(127]9 CHSTUBUFF «C39t4)» DiSTUBUFF»L44th]* 26132000 
XPSTUBUFF eCittd> 26132500 
EN@BUFF GEQ O» FReB)S 26133000 
BEGIN SItsLOC AS SIseS1441s DStsLIT" "3 26134000 
DSte7 CHRIS SlteSte1s DStSLIT"/"3 DSte? CHR} 26135000 
CCOSH=S5 LIT" FOR "3S DSte2 DECS DStaLIT */*3 26136000 
DSt*2 DEC’ JUMP OUT) 26137000 
XCDIGEDIe2s OSIS2LIT"= "D3 26137500 
DSse2 LIT" C™F CIIECI+ES GO TO Li3 26138000 
DStea LIT"REAT™S GO TO L23 26139000 

Lit DSss3 LIT"LOS"; 26140000 
L2t DSte3 LIT"EDE"S 26141000 
ENDS 26142000 
SPITS 26143000 
SPOUT(B)3 26144000 
POXIT)3 26145000 
SEPt38 @622547633123603 26146000 
END SEPTIC RUNNERS 26147000 


$ POP OMIT 
S$ SET OMIT # NOTCB6SOOLOAD) 


BOOLEAN PROCEDURE B6500FORMATTERCCTel oXeXXeBCLeHe OPTION)$ 


VALUE OPTIONS REAL CTolTsOPTIONS ARRAY X(*J)eXX(CH)*+BCLOE*] oHL¥)3 


BEGIN 

REAL NTLeT*HDRTYPEsROWSZ3 
INTEGER NT23 

LABEL OKs BADFIXsGOODFIXs3 


BOOLEAN SUBROUTINE UNSCREW? 
BEGIN 


NT1Ls=CTx8} 

STREAMCADS&(XX INXONTL DIV 48))8CNTI DIV 6903024583) 
BITSItaCCNTI*CTX6)M0D 6IDTV LeNLteOeN2t20eN3350eBCL)3 

BEGIN 

SItweADISKIP BITS SB3 


SCDIEFDI+63SKIP 4 OBSSCIF SB THEN DS#SET ELSE DStsRESETSSKIP $B))3 


SIMBBCLISL FSS 1 +243 D19=L0C N2IDS33WDS3 

STSEADESKIP BITS SBSSKIP 32 SBSN2CSKIP 8 SB)3 
DIF*®BCLIDIFFDI+383SKIP 4 DBI 

B8CIF SB THEN DSt2SET ELSE DSISRESETSSKIP SB)IN3teDISS18N33 
SLteST*O8sO Ts eLOc N3ISOStRWOSIDITIESBCLIDIL Fed] +403 S]teAD3 

SKIP BITS SBsSKIP 32 SB! 


26150010 
27990099 
27990100 
27990200 
27990300 
27990400 
27990425 
27990450 
27990490 
27990500 
27990600 
27990700 
27990800 
27990900 
27991000 
27991100 
27991200 
27991300 
27991400 
27991500 
27991600 
27991700 
27991800 


N2COISaDT+7sSKIP 2 SBI6CIF SB THEN DSteSET ELSE DSt#RESETSSKIP SB))327991900 


SKIP 8 SBS 


27992000 


N3COIE@DI+73SKIP 2 SBS6CIF SB THEN DSS*SET ELSE DSHFRESETSSKIP S$B))327992100 


END OF EBCDIC FORMATTINGS 

NT2¢eBCLO3I4+BCLO4]°13 

FOR NTit#O STEP 1 UNTIL NT2 DO BCLEINT14+5)] ¢=P (DUP sLOD)+@203 

CTs#¥CT+BCL(0]3 

STREAMCNISSIF BCLE3)] >7 THEN 7 ELSE BCLEI3]> 
N2t&]F BCLE4) >7 THEN 7 ELSE BCLE4]» 
NOt@IF BCLO3) >7 THEN BCLEI3I"°7 ELSE Or 
N39=BCL INX 5e N50eCxXCl)I)93 

BEGIN 

DS+16 LIT "0 "3 

DIt=DI"153 SLssNn33 

NICSTOaST+7sD0SSECHR)S DIGENS) DI tsD14+93 

NOCSIE#S148)} 

N2CSIteS14+73DSteCHR)3 

ENDS 

IF BCLO2]*1 THEN BEGIN XCI41) 8eXC1LISXC1]85%0 ENDS 

UNSCREWSSBCL[0J#0 OR (11#142)>10243 


@ND OF TAPE DIRECTORY CONVERSION} 
% 


REAL SUBROUTINE FIXHDRS 
BEGIN 


BCLESCMCCT&sSPACEC36)IIJ836(8838810])5 
MOVE C30sCT™19CT)3 
STREAM(St20$ TtsH{5))3_ 
BEGIN S{#eLOC TIDIseLOC SIDI tsD]+73SKIP 2 OBS 4SCIF SB THEN 


OStsSET ELSE DSteRESETS SKIP SB) ENDSSHDR FMT 10 IN C04), 


HORTYPEtePs 

NT2*¢CIF HDORTYPE®O THEN HO(5)ef18810) ELSE HE 5) ef10814)) +143 
IF NT2 GTR 34 THEN 

BEGIN IF NT2 GTR 900 THEN GO TO BADFIXS 


FOR NT1tw36 STEP 1 UNTIL NT24#4 DO 


IF XXENTL] NE@ O THEN NT18810233 
IF NT2#1023 THEN GO TO BADFIX ELSE 
BEGIN NT2#343 


27992200 
27992300 
27992400 
27992500 
27992600 
27992659 
27992700 
27992750 
27992800 
27992900 
27993000 
27993100 
27993150 
27993200 
27993300 
27993400 
27993500 
27993600 
27993690 
27993700 
27993800 
27993900 
27994000 
27994010 
27994020 
27994030 
27994040 
27994050 
27994100 
27994110 
27994120 
27994430 
27994140 
27994150 


ENDS 


IF HDRTYPE=0 THEN H(5J,02385]«20 ELSE 
HO5).0i9%5)¢203 
END 


27994160 
27994170 
27994180 
27994190 


FOR NTi2815 STEP 1 UNTIL NT2 DO BCLENTI*S]SSHENTIIS & PASS ROWS27994200 


STREAMCReO*eBeOsWeH[ 3))3 

BEGIN *’ 8 ® BLOCK UNITS 
STs=LOc Ws ® R = MAX RECORD UNITS 
DIe®LOC BS DIFSDI+5$ SKIP 2 DBI 
16CIF SB THEN DS#sSET ELSE DStSRESETS SKIP 1 SB)3 
SKIP 16 SB3 
DI*sLOC R$ OLteDl4+5s SKIP 2 DBI 
16CIF SB THEN DSt#SET ELSE USSsRESETS SKIP 1 SB)3 


ENDS 
NT225P3 % UNITS PER RLOCK 
NTIS#P3 % UNITS PER RECORD 


NT33"]F NTL = O THEN 1 ELSE NT2 DIV NT13 &2 RECORDS PER BLOCK 

IF HO2),€881] THEN % UNITS = CHARACTERS 

IF (NT4¢eH02),(1383] = 2) THEN B DECIMAL C4"BIT) 

BEGIN NTLSSNTL DIV 128 NT2tenT2 OV 423 END ELSE 

IF NT4 & 4&4 THEN % EBCDIC 

BEGIN NTLteNT1 DIV 63 NT2@seNnT2 DIV 63 END ELSE 

BEGIN NTLS#NT1 DIV 8% NT2teNT2 DIV 83 ENDS & BCL 

IF NT1 GTR 1023 THEN GO TO BADFIX3 % WORDS PER RECORD 

IF NT2 GTR 1023 THEN GO TO BADFIXS % WORDS PER BLOCK 

BCLLOJ1e2(NT2 DIV 30 + CNT2 MOD 30 NEQ 0)28 % SEGMENTS/BLOCK 
NT3(C30836912]8 % RECORDS/BLOCK 
NT2C15833315]8 % WORDS/BLOCK 
NT101834814)3 2 WORDS/RECORD 


STREAMCAS#HL6),010918)3: HtaHl6)s X1e0% DATE) 


BEGI 


ENDS 


N DL2"bLOc Xs StewLOcC DATES DS#t#B OCTI 
Drs#LOc AS STteLOC H3 SKIP 2 DBI 
LOCIF SB THEN DStaeSET ELSE DSteRESETS SKIP SB)3 
SttsSte113 O058%23 CHR: 


PCCBCLE3]]eSTD)3 


BCLE 
BCLE 


TISeHl 4); 
SlistF HORTYPE#O THEN HE5),028920] ELSE ROWSZ:sH(5).f24t24]3 


BCLI9I]8aI1F HDORTYPE®O THEN HE5),023%05) ELSE HI5).019805)3 


IF HDRTYPE®O THEN 


BEGIN NTLEFHEL14),020826)4+(PCHL14]»TOPI20 OR PCXCH) «LIt19I#0)3 


OKs 
ENDS 


IF CNT2¢8NT1 MOD ROWSZ)=0 THEN NT2$#ROWSZ3 
THRCNTL#ROWSZ91) DIV ROWSZ3 
IF T GTR BCLE9] THEN 
BEGIN TewBCL(9]3 

NT2s#ROWSZ3 
ENDS 
IF BCLET+9]#0 THEN 
BEGIN NT2t*BCL[BI]} 

WHILE T GTR 1 00 

IF BCLECT&aT"1)49)#0 THEN GO TO OK3 
END} 
TeC9824) tENT23 
2 Te0 FOR OLD HEADERS 


MOVEC3O0sBCLeH)3 
GO TO GOODFIXs 


BADFIX! 


Tamed 


GOODF Xs 


FORGETSPACEC(CT)3 


27994300 
27994400 
27994500 
27994600 
27994700 
27994800 
27994900 
27995000 
27995100 
27995200 
27995300 
27995400 
27995500 
27995600 
27995700 
27995800 
27995900 
27996000 
27996100 
27996200 
27996300 
27996400 
27996500 
27996600 
27996625 
27996650 
27996675 
27996700 
27996725 
27996750 
27996775 
27996800 
27996625 
27996850 


% CALCULATE END FOR NEWLIB OPTION279966860 


27996900 
27996920 
27996940 
27996960 


27996980 


27997000 
27997020 
27997040 
27997060 
279970680 
27997100 
27997120 
27997140 
27997160 
27997180 
27997200 
279972280 
27997240 
27997260 
27997280 


FIXHDRt=T3 
END OF FIXHDR} 


B6OSOOFORMATTERS#IF OPTION # 0 THEN UNSCREW ELSE FIXHDR3 


END OF B6500FORMATTERS 


$ POP OMIT 


PROCEDURE LIBRARYLOADSPECITALCASE(Z)3 VALUE Zs REAL Z3 

BEGIN COMMENT LIBRARYLOAD HAS BEEN BROKEN@UP TO PREVENT SIZE OVERFLOW 
AND THE TIE UP OF CORE BY CODE NOT OFTEN USED. 
PROCEDURE DOES INITIAL SET*UP AND OTHER SPECIAL FUNCTIONS 
IT REFERENCES THE LIBRARYLOAD LOCALS 

BY F*®RELATIVE DECLARATIONS AND CHANGES TO LOCAL 


FOR LIBRARYLOAD, 


THIS 


DECLARATIONS IN LIBRARYLOAD SHOULD BE MADE WITH THE 


CORRESPONDING CHANGES HERE TO LINE UP THE STACK 
CORRECTLY, ADDITIONS SHOULD BE MADE BEFORE DECLARATIONS 
OF LOCAL VARIABLES FOR B6500L0AD3 


REAL COMMONS"4eMSCWH"2eRCWF40) 

REAL ALPHAS+1> 
FIDFEADD41» 
T=FN+Le 


Jal 


C+1le 


LAST&K4].e 
MIDBLOADING4+1¢ 
NiFNeLe 
QaN2+1e 
SEG@REEL+1 
SNSSIZE+1 6 
TYPEsTe1> 


UNI 


TNORUG1 es 


Yewel 3 
BOOLEAN BBFYel1> 
LATEST=B650041+ 
ARRAY AROWRTOGS+1(*]> 
1ODeH+I1 C4). 
LBLFLABe1(*] >» 
XeS+iCe)s 


$ SET OMIT 5 


NOTCB6500L0AD) 


REAL CCTSX+1> 


NT1 


ZLASTROW+4 » 


BOOLEAN REELSWENT241) 
ARRAY BCL®REELSW+1(*)e 


$ POP OMIT 


LABEL TRYNEXTsBACeF INDI Ts TRYAGNe BACK se LOADEMeF INDFILENAMES® EXITS 


LABEL XXIT3 
LABEL CASEQ*®CASE1sCASE23 
SWITCH SWIT#= CASEQ¢CASE1L*CASEQ3 


DEFINE SKIPDIRSTOGS, C4781 I#sREELISTART#TOGS,» (4641) #4, 
SPACITSWeTOGS, C4581] #+CHKLBLETOGS (4481 Jee 
DSEDSCTERMSETCPIMIX) #+SPACERS5S&RO1L400( CTF IF, 


SPOUTUNIT=08>» 
MM#@37700040#sSM=@3770000083 


Be RRO ORO ROR Oi ORO gk AGO Ek 


SUBROUTINE GETASEGMENTS 


BEGIN 


SEGI=S[29]) 
DISKWAITC"S,CCFI230+SEG)3 
FORGETESPDISKCSEG)} 


[2323 


ENDS &% OF 


TIO OR IOI IOI IORI RIOR RIOR IOI OR RIGS IOI IHRE 


GETASEGMENT 


SUBROUTINE AaBORT3 


EADDRALPHA+1 + 
FN@FID+1e 
[C=] +1. 
KaJe 1s 
LOADINGSLAST41 > 
NeMID+1> 
N2™Ni¢ls 

REEL SQ+1s 
SIZESSEGH1» 
ToSN41¢ 
UFTYPE4+1s 
WSUN] TNOS1L 


B6500eBB+1> 
TOGSSLATEST4¥13 
HZAROWFI(*)> 
LABeJOD+i0*). 
S#LBLeilCle 


LASTROW=CCT+1 0 
NT22NTi+]3 


XX@BCLOIL#]3 


27997300 
27997350 
27997400 
27997500 
27997501 
27997600 
27997605 
27997610 
27997615 
27997620 
27997625 
27997630 
27997635 
27997640 
27997645 
27997650 
27997656 
27997658 
27997660 
27997662 
27997664 
27997666 
27997668 
27997670 
27997672 
27997674 
27997676 
27997678 
27997680 
2799768B 
27997684 
27997686 
27997688 
27997690 
27997692 
27997694 
27997696 
27997698 
27997700 
27997702 
27997704 
27997710 
27997712 
27997715 
27997720 
27997725 
27997730 
27997735 
27997737 
27997740 
27997745 
27997750 
27997755 
27997760 
27997765 
27997770 
27997775 
27997780 
27997785 
27997790 


BEGIN 


IF LOADING THEN PCDIRECTORYSEARCHCXC J) e XC U1] 2 >4¢LOADING) @DELDS 


IF U20 THEN 
BEGIN 
STOPTIMING(5#1023)3 
STOPTIMING(CO#1023)3 
BLASTQCU)3 
SETNOTINUSE(Ur0)3 
ENDS 
WHILE S£29]#0 DO GETASEGMENT3 
$ SET OMIT = PACKETS 
IF UNI TNO#0 AND LABELTABLECUNITNOJ=@214 THEN 
LABELTABLE CUNITNO)+@1143 
$ POP OMIT 
STREAMCTIsTse#SPACE(5) 23 
BEGIN DpS#2i1LIT"LIBRARY LOAD ABORTED}"3 ENDS 
SPOUT (T)3 
GO INITIATES 
END$ % ABORT 
BORER ROI GIR OR IORI IIOIOR ROO OK ROO IOI I i MOK 
BOOLEAN SUBROUTINE LABELCHECK3 
BEGIN 
TRYNEXTS 
PCWAITIOCLAB INX @120540000000%00U)*DEL)3 
$ SET OMIT = NOTCB6500L04D) 
IF B6500 THEN 


BEGIN IF REELSW ANDCNFLAGCLAB(1I).01217] EQV *O000")sNOT 0 
THEN BEGIN DO PCWAITIOCLAB INX @1205400000002@40°U)*DEL) 
UNTIL CNFLAGCLABLCLI) C1817) EQV "OO1")=NOT O38 


REELSWeFALSE3 
ENDS PCWAITIOCSPACER*@MMeU) » DEL) 
END3 
$ POP OMIT 
IF @40#WAITIOCSPACER*®@400U) THEN 
PCWAITIOC@4740000005+0rU) se DEL) 
IF DSED THEN ABORT 


IF (NOT B6500 AND CCNFLAGCLABLOJ),£6842] EQV "LABEL “)#NOT O 


OR CNFLAGCLABL(2]),06824) EQV “FILE")#NOT 0)) 
$ SET OMIT = NOTCB6500L0AD) 
AND CCONTISBNFLAGCLABLCOJ)) 61923] EQV "HDRI")#NOT O OR 
CNTL,C24824) EQV "FILE" I#NOT 0) 
$ POP OMIT 

THEN BEGIN 
STREAMCABRECTINULU)]o TeeTteSPACE(410))3 
BEGIN SL*#AsSTeSl+5sD0SeLIT%."3s0Se3 CHR 

DS«241 LIT® NOT A LIBRARY TAPE«#"™3 

END; . 
SPOUTCT)3 Tels 

END ELSE TeO3 

IF TRO AND NOT B6500 THEN 

IF NFLAGCLABL2])).£30818)#0 AND SKIPDIR THEN 

BEGIN 

SPACITSWed? CHKLBLeFALSES 

GO TO BACKS SBRANCH INTO SPACITs 

BAC? 

SPACITSW*O} CHKLBL«©TRUE} 

GO TO TRYNEXT3 

END} 

LABELCHECK«eT3 

ENDS 


27997795 
27997800 
27997805 
27997810 
27997815 
27997820 
27997825 
27997830 
27997835 
27997840 
27997845 
27997850 
27997855 
27997856 
27997860 
27997865 
27997875 
27997890 
27997895 
27998050 
27998055 
27998060 
27998065 
27998070 
27998075 
27998080 
27998085 
27998090 
27998095 
27998100 
27998105 
27998110 
27998111 
27998115 
27998120 
27998125 
27998130 
27998135 
27998140 
27998145 
27998150 
27998151 
27998155 
27998160 
27998165 
27998170 
27998175 
27998185 
27998200 
27998205 
27998210 
27998215 
27998220 
27998225 
27998230 
27998235 
27998240 
27998245 
27996250 
27998255 


Be NOOR RRR ORR OROROIOR RRR GRGIGIOK RRR OIRO ORR RIG IOHO 


SUBROUTINE FINDTHETAPES 
BEGIN 


FINDITS 


IF CUSFINDINPUTCMIDeF ID REEL 2 20000020000125)) < O THEN ABORT? 
REEL*ROCTABLECU),C14810)3 ZFORCE REEL CONTINUITY IF IL"EDe 
RRRMECHESTWOCU) OR RRRMECHS 


$ SET OMIT = NOTCB6500LOAD) 


IF B6500 THEN PCWAITIOCSPACER#MMeU)eDEL)3 


$ POP OMIT 


IF CHKLBL THEN IF LABELCHECK THEN 
BEGIN 
SETNOTINUSECUS1)3 
GO FINDITS 
ENDS 
STARTIMING(SeU)3 
MCPRTCLPYMIX*3) INX (CSXREEL+3)),02381) 83 13 
ROCTABLECU) ,(B16)8=P1MIX3 
STREAM (S*PRNTABLECUJ.(16330)*T#(T))3 
BEGIN SI*LOC Ss DS*BDECs DI*DI*7s DSe*6FILLS ENDS 
FILEMESSAGEC™ IN "RTINULCUJ[6S30816) Ts 
MIDeFIDsREEL2Os0e0PNMESS OR OPENK)? 
ENDS &® OF FINDTHETAPE 
rT SSC ESET eC eS TEC SSCL VCC LESSORS ESC CCS PCE TSP CLS SEC LLCS eee eS 
BOOLEAN SUBROUTINE ENDOFREEL? 
BEGIN 
BLASTQCU)3 
IF PCWAITIOCLAB INX @120540000000202000040+)sDUP)*@20 THEN 
BEGIN % PAR ON ENDING LABELtTEST FOR LAST FILE ON TAPECEOF) 
LABL4I8*C#P( DUP) &CWAITIOCSPACERP @400eU)8O@40)(4/794781)3 
PCWAITIOCS&S@3400(CTFJ®@3772#U) #DEL)S 
END} 
SET OMIT © NOTCB6500LO0AD) 
IF B6500 THEN 
BEGIN IF CNFLAGCLABL0]).01823) EQV "EOVI")#NOT O THEN 
BEGIN PCWAITIOCSPACERs MMU) @DEL)3 
NTLeWAITIOCLAB JINX @12054000000020400U)3 
ENDS PCDELDS 
END ELSE 
POP OMIT 
NTLU=P3 
IF DOSED THEN ABORTS 
IF CCNOT B6500) AND NFLAGCLABL4)) AND NT1#@40) 
SET OMIT = NOTCB6500L0AD) 
ORCC NFLAGCLABLO)),£1923) EQV "EQVI") SNOT 0) 


POP OMIT 

THEN BEGIN 
STOPTIMING(501023)32% 
SETNOTINUSE(CUS0)3 
REEL*REELoLS 


SET OMIT = NOTCBE500L0AD) 
IF B6500 THEN BEGIN REELSW*TRUE3 
STREAM(S*LAB INX O*DelFID))3 
BEGIN SI#S3 SieS]+4sDleDI 41s DS*7 CHRSEND3 


END ELSE 
POP OMIT 
FIDt*LABl2]3 
FINDTHETAPE) 
ENDOFREEL*+TRUE?S 


END ELSE ENDOFREEL*FALSES 


27998260 
27998265 
27998270 
27998275 
27998280 
27998285 
27998290 
27998295 
27998300 
27998301 
27998305 
27998310 
27998315 
27998320 
27998325 
27998330 
27998335 
27998340 
27998345 
27998350 
27998365 
27998370 
27998390 
27998395 
27998400 
27998405 
27998410 
27998415 
27998420 
27998425 
27998430 
27998435 
27998440 
27998445 
27998450 
27998455 
27998468 
27998465 
27998467 
27998468 
27998470 
27998475 
27998480 
27998485 
27998490 
27998491 
27998495 
27998500 
27998505 
27998510 
27998515 
27998520 
27998525 
27998530 
27998535 
27998536 
27998540 
27998545 
27998550 
27998555 


ENDS 
Beene 
SUBRO 
BEGIN 
BACK! 


ENDS 
Bk tke 
BOOLE 


% OF SUBROUTINE ENDOFREEL 
FOR ROI OOK IOI IORI RR RI ROR IOI OK KOR 
UTINE SPACIT33 


WHILE WAITIOCSPACER® MMe #040 D0 
BEGIN 
IF DSED THEN ABORT} 
IFCTS*PRTROWLPIMIXI]eCPSFJ) NE@ 0 THENSCHKFORSWAP 
BEGIN IF T#2 THEN BEGIN IOCOUNTCPIMIX] 88°13 STOPM END 
ELSE IF T NEQ 1 THEN SWAPCFORCESWAP?1)3 
END3 
IF ELAPSEDLIMITEPIM]X) GTR [OTIMECLPIMIX)] THEN 
IF PROCLIMITEPIMIX) GTR PROCTIMELPIMIX]+CLOCK+PCRTR) THEN 
GO XXIT3 
FOR Te*SCLEPIMIX] STEP 1 UNTIL LCOCPIMIX) OO 
IF ACTIVELT] GTR 1 THEN 
BEGIN TOCOUNTLPIMIX] se"13 SWAPCTIMENDe1)3 


ELAPSEDLIMIT(CPIMIXIs**P (DUP) +1283 
PROCLIMITECPIMIXje*P (DUP) +643 
GO XXIT3 
ENDS 
XXIT?! 


END} 
IF ENDOFREEL AND NOT SPACITSW THEN GO BACK$ 
IF SPACITSW THEN GO TO BAC# ®BRANCH TO LABELCHECK ELSE EXIT 


IO IOIO IGNORE IOIOIIIIGIOIOIOISIO IOI I IOI III RACE I IOI KOK 
AN SUBROUTINE NOTLOADINGFROMREELL3 


BEGIN ZSKIP LAST PORTION OF FILE FROM PREVIOUS REEL 


NOTLO 
END3 
Saegu 
P(Z»R 
GO TO 
CASEOS 
Stee 
TYPES 
$29) 


SPACIT3 
IF LABELCHECK THEN PCQ) ELSE 
IF CNFLAGCLAB(21) EQV “FILE000"%) = NOT O THEN 
BEGIN REELISTART*FALSES PC1) END ELSE PCO)3 
ADINGFROMREELLU=P3 


PSS ES ESSE LSE LSS SEES SESE SESS STS ES TSS SCS SETS e TS PS ee eS ee 
CWeMSCWeSTFEIS ROWPFERCWRPCXCH)ICTCI} 
SWITCP]3 


CSPACEC30))383068838510)3 
SCOMMON,CFFI;3 
PRCOMMON,CCFI3 


$ SET OMIT ® NOT(B6500L0AD) 
B65001™COMMONyL1I581]3 

$ POP OMIT 
LATESTt@COMMON,C4t1]3 
COMMON © IF COMMON,(986J#0 THEN “COMMON.£916] OR M ELSE 


REELS 


IF COMMONe (381) THEN 1 OR M ELSE 
IF COMMONe [£28141] THEN 2 OR M ELSE O03 
13 


GETASEGMENTS 


STREA 
BEGIN 


END3 


MEMID@QeMI D8 eSlC4)eBIePRICPYM{Xe3))3 
0Ste716 LIT"ODIRCTRYOD]I SK "3DS3e25 LIT"OMSSTARLOC MID: 
STteS[+1sDSte7 CHRIDSISSB LITPOFILEQOO"s0Staad LITTON 


UNJTNO#¥S(0),[(236]3 
LABtFCMECSPACEC15)))415£8338:10); 
MIDs#SC1)3 

FIOsS#"FILEOOO"S 


REEL 


START*TRUES CHKLBL*TRUE} 


27998560 
27998570 
27998575 
27998580 
27998585 
27998590 
27998595 
27998601 
27998602 
27998603 
27998608 
27998605 
27998606 
27998607 
27998608 
27998609 
27998610 
27998611 
27998612 
27998613 
27998614 
27998615 
27998617 
27998618 
27998619 
27998620 
27998625 
27998630 
27998635 
27998640 
27998645 
27998650 
27998655 
27998660 
27998665 
27998730 
27998740 
27998750 
27998760 
27998770 
27998780 
27998790 
27998809 
27998810 
27998811 
27998815 
27998820 
27998830 
27998840 
27998850 
27998860 
27998870 
27998880 
27998890 
27998900 
27998910 
27998920 
27998930 
27998940 
27998950 


TRYAGN! FINOTHETAPES 
$ SET OMIT = NOTCBE&500L0AD) 
IF NOT B6500 THEN 
$ POP OMIT 
IF FID#LABC2) OR REEL#1 THEN 
IF NOT NOTLOADINGFROMREEL1 THEN 
BEGIN STREAMCAS(CTINULUJ Je T+TeSPACE(10))3 
BEGIN STeAsST*Sl#5s0SehI Te "s0S*3CHR} 
DS*20 LIT" NOT A LIBRARY TAPE"3 


DSeLIT%«"3 
END3 
SPOUTCT)$ SETNOTINUSECUS1)3 
REEL#13 
GO TO TRYAGN: 
END3 
MID*LABL1]3 
SKIPOIR@sTRUES 


X@SCMCOTISSPACEC1024)19&8102308238:10)3 
IF NOT 86500 THEN MID*LABL[1]3 
STARTIMING(O018)3 
PCWAITIOCC 
$ SET OMIT = NOTCB6S500LO0AD) 
IF B6500 THEN CXXPeXaCGETSPACE(10240001)42)(CTC]) ELSE 
$ POP OMIT 
X)R@SAOOCCTFIeOsU) DELDS 
$ SET OMJT = NOTCB6500L0AD) 
IF 86500 THEN 
BEGIN 
BCLIBXXSCGETSPACE (327902142) 0CTC)3 
COTISL2S 1] 9 FOS MOVEC3S27¢BCLALCFI*1eBCL)3 
DO UNTIL BE500FORMATTER( CCTs I eX*XXeBCLeHe0) 3 
FORGETSPACEC XX) FFORGETSPACECBCL)3 
METPL JES LSXCT 923580143 
ENDS 
$ POP OMIT 
JF DSED THEN ABORTS 
IF CN@aMET*"#1)) LSS 900 THEN 
BEGIN & GET RID OF EXTRA MEMORY SPACE IF NOT NEEDED 
XesCMCSPACECN)II&NE8338110)3 
MOVECNe TeX) 
- FORGETSPACECT)3 
END} 
FINDFILENAMES? 
FOR [#2 STEP 2 UNTIL 26 DO 
BEGIN 
JEPIF X£0)8@114 AND NOT REELISTART THEN XCiJ)*2 ELSE =23 
IF (FN©SC1))#@14 THEN GO LOADEMS 
SNeSC]+1)iWel3 
WHILE XC JeJ+2)#@14 DO & MARK FILES TO BE LOADED 
IF FN<O OR ¢CFN EQV XCV1)5NOT O THEN 
IF SN«<O OR CSN EQV XeJe1J "NOT O THEN WeX( J] e"XCU)3 
IF W GTR O THEN LBMESSCFNeSNo*] ol 7eTINULU] eSPOUTUNIT 0493 
END3 
IF $(28)%@14 THEN GO LOADEMS 
GETASEGMENTS 
GO FINOFILENAMES3 
LOADEM? 
WeJer2s 
WHILE XeJeJ#2)#@14 DO IF XCJJ_,f1!81) THEN Weds 
IF W<O THEN ABORTS 


27998960 
27998969 
27998980 
27996981 
27998990 
27999000 
27999010 
27999020 
27999030 
27999040 
27999050 
27999060 
27999070 
27999080 
27999090 
27999100 
27999110 
27999120 
27999130 
27999140 
27999150 
27999169 
27999170 
27999171 
27999180 
27999199 
27999200 
27999210 
27999220 
27999230 
27999240 
27999250 
27999260 
27999270 
27999271 
27999280 
27999290 
27999300 
27999310 
27999320 
27999330 
27999340 
27999350 
27999360 
27999370 
27999380 
27999390 
27999400 
27999410 
27999420 
27999430 
27999440 
27999470 
27999480 
27999490 
27999500 
27999510 
27999520 
27999530 
27999540 


X(W42)e@143 27999550 
IF TYPE #ADDV THEN 27999560 ed ee aetae sete. olsnes aantaies nara 
FOR WeW STEP #2 UNTIL O DO 27999570 
IF X€W),0461) THEN 27999580 
IF DIRECTORYSEARCHCXEW) XC W4i)e5)40 THEN X(WJSFO14 ELSE 27999590 
Wiz0 ELSE XCW1]t=03 27999600 
CHKLBLeFALSE3 27999610 
Je0}3 27999620 
IF @408WAITIOCLAB INX @1205400000000@400U) THEN 27999630 
IF B6500 THEN PCWAITIOCLAB INX @120540000000200eU) s+DEL) ELSE 27999640 
WeENDOFREELS 27999650 eR ee AAD aT ee cee A tere, 
IF NOT J THENS CHECK ENDING LABEL IF NOT LAST FILE OR B6O500L0AD 27999660 
IF CCNOT B6500) AND CNFLAGCLABLIJ)EQV MID)#NOT O OR 27999670 
CNFLAGC(CLABL2)) EQV “"FILEOOO"*)#NOT 0) 27999680 
$ SET OMIT = NOTCB6500LO0AD) 27999699 
AND COCNFLAGCLABLO]),(€(24824] EQV "FILE")#NOT O AND 27999700 
CNFLAGCLABL1)),01217) EQV FIDse{30818)]2#NOT 0) 27999710 ote Brie hottie Rank & ott fae seh! He Boe Aono 5 te 
$ POP OMIT 27999711 
THEN BEGIN STREAMCALeCTINUCUJ) sUtaeJssSPACEC10))3 27999720 
BEGIN SJ] + At SI + $1453 DS « LIT","3 DS © 3 CHR} 27999730 
DS « 29 LIT " BAD FILEQ0O ON LIBRARY TAPE«*™3 27999740 
END?! SPOUT (J)4 ABORTS 27999760 
END3 27999790 soeth methane ee ee rere ee teeee 
CHKLBL«TRUES 27999800 
JeIF X£0)5@114 AND NOT REELISTART THEN X(€1) ELSE O03 27999810 
HIt®CMESPACEC3146x86500)))&836(8238310)3 27999820 
AROWSSCMESPACEC2)114208:338110)3 27999830 
AROWLO] f#(MESPACE(902)118901(8:38:10)3 27999840 
AROWL LI BAROWLOIRSPACEC9O2IICTCI3 27999850 7 
LOD: 8CMCSPACEC2)1)8206138310)3 27999860 
$ SET OMIT = NOTCB6500L04D) 27999879 
IF B6500 THEN BEGIN PCWAITIOCSPACER®MMeU) 2 DELDS 27999880 28 
PCWAITIOCSPACER»MMeU) e DEL) ENDS 27999890 
$ POP OMIT 27999891 
GO TO EXIT3 27999900 
CASE1S FINOTHETAPES GO TO EXIT} 27999910 
CASE2$ ABORT; 27999920 
EXIT# PCOsRDSeOeXCHePRPEICTFIeSTF)$ 27999930 
RND OF LIBARYLOADSPECIALCASE3 27999940 
PROCEDURE LIBRARYLOADs 28000000 
BEGIN REAL COMMONS*4;3 28001100 7 _ : 
REAL ALPHA EADD» FID» FN» 28001200 
le ICe Je Ke 26001300 
LASTe LOADING+ MIDs Ne 28001400 7 eAe ee al 
Nie N2p Qe REEL e 28001500 
SEG» SIZE.» SNe Te 28001600 
TYPEr Us UNITNOs We 28001700 ee eee 
v3 28001800 
BOOLEAN BB» B6500» LATEST» 28001900 
TOGS! 28002000 see DISne, tessa igh Ga Retort 
ARRAY AROWL¥]s HE*)e 1ODC#)>» 28002100 “| 
LABC#]» LBLE*)s Slade 28002200 
X(*«)3 28002300 oo ee _ 
$ SET OMIT * NOTCB6500L0AD) 28002400 
REAL CCTe LASTROWs ANTI, NT23 28002500 
BOOLEAN. REELSW3 28002600 eee 
ARRAY BCLL*} 2 XXC*)) 28002700 
$ POP OMIT 28002800 
DEFINE DSEDSCTERMSETCPIMIX) Die 28006000 teh eos certs 


SPOUTUNIT#0#» 28006100 


SPACER#5&8@1400(CTFI#» 28007000 
MMR@377000408» 28008000 
SM#@3770000083 26009000 
LABEL EXITe TRYNEXT#BACePARERROEXTe LOOP eWATE e+ BACKs 28010000 
BADHEADERs OK ae WY eBADLOAD # LAY e SKIPPER se FALLOUT SENDLOOP: 28010100 a 
DEFINE SKIPDIR&TOGS, C4781 J #eREELISTARTRIOGS, (4601) #e 28011050 
SPACITTSWETOGS, C4521 3#eCHKLBLETOGS,(44asiJé#3 28011060 
DEFINE INITLALSETUP & LIBRARYLOADSPECIALCASE(O)&s 28011070 
FINDTHETAPE # LIBRARYLOADSPECIALCASEC(1)4#,» 28011080 
ABORT = LIBRARYLOADSPECIJALCASE(2)#3 26011090 
Pee CSET TTI CET TC ETT eT eT TEST CL e Te Pe Te eT eT eT eT Tere Sitar ire? 2) 28012000 
DEFINE NOTLOADEDCNOTLOADED!) = 28013000 
BEGIN NT3teNOTLOADEDI! NOLOADMESS3 END#3 28014000 
SUBROUTINE NOLOADMESS?} 28015000 5 et ike Cidae ea, Kitt esc tcan ade 
LBMESSCABSCXC J) eXC elle tLe NT3eTINULU] +SPOUTUNIT»1)3 28016000 | 
Fh IRONIC ROIORGIOI OIG OI OR NOIRE IGE IOI RIOR ORION Rk nk 26020000 
SUBROUTINE CHECKFORSWAPS 28021000 hae zat adall dines eG oh cued 
BEGIN 28022000 
IF CT&e=PRTROWCPIMyX),£PSFI])#0 THEN 28023000 
BEGIN 28024000 | 
IF Te2 THEN 28025000 | 
BEGIN 28026000 | 
LOCOUNTECPIMI XJ 35713 28027000 _ od 
STOPM3 26028000 
END ELSE 28029000 
IF T#1 THEN SWAPCFORCESWAP?1)3 28030000 
ENO3 28031000 
IF ELAPSEDLIMITLPIMIX) GTR ILOTIMELPIMIX] THEN 28032000 
IF PROCLIMITCPIMIXJ>PROCTIMELPIMIXJ+CLOCK+PCRTR) THEN GO EXITS 28033000 . sa pubes gee sere ah ws pet 
FOR TieSCCPIMIX] STEP 1 UNTIL LCCPIMIX) DO 28034000 
IF ACTIVECTI>1 THEN 28035000 
BEGIN 28036000 7 
LOCOUNT(LPIMIX] te" 43 28037000 
SWAPCTIMENDs#1)3 28038000 
ELAPSEDLIMITECPIMIX] $seP( DUP) 41283 28039000 rr 
PROCLIMITCPIMIXJ] &te*P( DUP) +643 28040000 
GO TO EXIT3 28041000 
EXIT3 28043000 
ENDS ® OF CHECKFORSWAP 28044000 
TRIO IOI IRR IOI IORI III ROI ICO IK i OK 28061000 oe cee fe, ate _ 7 
BOOLEAN SUBROUTINE LABELCHECK3 28062000 
BEGIN 26063000 
TRYNEXTS 28063100 ee eae ee 
IF WAITIOCLAB INX 6120540000000 2@40R@20(CTFJ]sU)s@40 AND 28063300 
NOT B6500 THEN & MISSING LABEL * FAKE IT, 28063400 
BEGIN STREAMCAt#1+e BeF(LABl2)1)3 28063500 ee Sen ee ee 
BEGIN SIs=LOcC As SI4#S]453 28063600 
DIsSO1+453 DSt:=3 ADDI 28063700 
END} 28063800 o Eten Ee : 
PCWAITIO€C@3400000050@377>U) eDEL)3? 28063900 
END3 28064000 
$ SET OMIT & NOTC(B6500L0AD) 28064099 7 _ 
IF B6500 THEN 28064100 
BEGIN IF REELSW ANDCNFLAGCLABL13).01917] EQV "O00"%) NOT O 28064200 


THEN BEGIN DO PCWAITIOCLAB INX @1205400000000@400U)*DEL) 28064300 

UNTIL CNFLAGCLABC1))ef1817) EQV "001" BNOT 03 26064400 

REELSWeFALSES 28064500 

ENDS PCWAITIOCSPACER® MMe) eDEL D3 28064600 

END3 28064700 


$ POP OMIT 


IF @4O0#WAITIOCSPACERe# @400eU) THEN 
PCWAITIOC@4740000005-00U) » DEL) 
IF DSED THEN ABORTS 
IF CNOT B6500 AND CCNFLAGCLABLO]).(6%42] EQV “LABEL ")#NOT O 
OR CNFLAGC(CLABL2]),(06824)] EQV "FILE" )#NOT 0)) 


$ SET OMIT & NOTCB6500L0AD) 


AND CCONTIEPNFLAGCLABLOJ)),£1123) EQV "HDR1I")#NOT O OR 
CNT1.024924) EQV “"FILE")#NOT 0) 


$ POP OMIT 


THEN BEGIN 
STREAMCASECTINULUJ]]» Ts*Ts®SPACE(10))3 
BEGIN ST#AsSteSl+SsD0SeLITe"3DSe3 CHR 
DS#21 LIT" NOT A LIBRARY TAPEe™S 
ENOS 
SPOUTCT)3 Tel3 
END ELSE T+03 
IF T®0 AND NOT B6500 THEN 
If NFLAGCLABLC2]),030!18]%0 AND SKIPDIR THEN 
BEGIN 
SPACITSWe13 CHKLBL©FALSE3 
GO TO BACK3 &BRANCH INTO SPACITs 
BAC! 
SPACITSW*03 CHKLBL«TRUE} 
GO TO TRYNEXT} 
END3 
LABELCHECK+#T} 
ENDS 
SE ae Hee he Re ae Re ee i a a BO OR OK 
BOOLEAN SUBROUTINE ENDOFREEL: 
BEGIN 
BLAST@CU)! 
IF PCWAITIOCLAB INX @1205400000002@20000409U)eDUP) O20 THEN 
BEGIN % PAR ON ENDING LABELIETEST FOR LAST FILE ON TAPECEOF) 
LABLCAI] SSC HPCOUP)IRCWAITIOCSPACERs @40eU)*@40)(4724711)3 
PCWAITIOC5&@3400CCTFI*@377°U)*DEL)3 
ENDS 
SET OMIT & NOTCB6500L0AD) 
If B6500 THEN 
IF CNFLAGCLABLO]).01823] EQV “EOVI")#NOT O THEN 
BEGIN PCWAITIOCSPACER*MMeU)sDEL)3 
NTLeWAITIOCLAB INX @120540000000+@409U)3 
END3 
POP OMIT 
IF B6500 THEN PCDEL) ELSE NTL taP3 
IF DSED THEN ABORTS 
IF CCNOT B6500) AND NFLAGC(LABE4)) AND NT1#@40) 
SET OMIT = NOTCB6500L0AD) 
ORCC NFLAGCLABLOJ),£1#23] EQV "EOVI")BNOT 0) 
POP OMIT 
THEN BEGIN 
STOPTIMING(5e#1023)3% 
SETNOTINUSE(US0)3 
REEL#REELS13 
SET OMIT * NOTCB6500L0AD) 
IF B6500 THEN BEGIN REELSW*TRUE3 
STREAMC(S*LAB INX O#De(FIDI)3 
BEGIN SI#S$ Sl#Sl+4sDleD14+13 DS*7 CHRSEND? 
END ELSE 
POP OMIT 


26064701 
26065000 
28065610 
28066000 
28067000 
28067100 
28068999 
28069000 
28069100 
26069101 
28070000 
28071000 
286072000 
28073000 
28074000 
28075000 
28076000 
26076100 
28076110 
28076200 
28076300 
28076400 
28076500 
28076600 
28076750 
26076800 
28077000 
28078000 
28079000 
26095000 
28096000 
28097000 
28098000 
28098010 
28098020 
28098030 
28098040 
28098099 
28098100 
28098200 
28098300 
28098400 
28098500 
28098501 
28098600 
28099000 
28101000 
28101099 
28101100 
28101101 
28102000 
28103000 
28104000 
28105000 
28105949 
28105950 
26105960 
28105970 
28105980 
28105981 


FIDt®LABL2]3 
FINDTHETAPE?3 


ENDOFREEL¢TRUES 
END ELSE ENDOFREEL*FALSES 
END} & OF SUBROUTINE ENDOFREEL 


FE We he Oa OK OK RO a 
BOOLEAN SUBROUTINE cHECK3 
BEGIN 
IF CY¥s=700CWI),0C2712)40 THEN % PARITY ERROR OR EOF 
BEGIN 
IF Yel7s1] AND Y.€27:81) THEN & END OF REEL 
BEGIN 
IF NOT ENDOFREEL THEN 
BEGIN 
PCWAITI0C@4740000020203770U) s DEL) 
NOTLOADED(33)3 
Y« 13 
GO TO EXTS 
END} 
IF WAITIOCIONDLW] INX ©16040540000000+5MeU)#0 THEN 
GO PARERR3 


IF TODCiI*WI,0781) THEN % ANOTHER TAPE 10 IN PROGRESS 


BEGIN 
IF WAITIOCLODLL“WJ»SMe,U)#0 THEN GO PARERR}? 
1LODCi*WI8SC*PCDUP)) OR JOMASK;3 
END3 
¥*Qi 
END ELSE % PARITY ERROR 
PARERR? BEGIN 
NOTLOADEDCIF Yal721) THEN 27 ELSE 35)3 
Yuu} 
END3 
END ELSE % CHECK RECORD SIZE 
IF Yel781] THEN 
BEGIN 
IF CYSSCCMEAROWELW) INX NOT 0)#9004+86500) AND N«N1)) THEN 
NOTLOADED(C39)3 
END ELSE Yt=03 
EXT: CHECK « Y¥3 
ENDS & OF CHECK 
Sh ORR RKO ORR ROR ROROIOIOR RR RIO ORR RO  O& 
SUBROUTINE [03 
BEGIN 
IF IC THEN 
BEGIN 
IOREQUESTC#CIODEWISSCAROWLW) INX #@540000000) 
RCSIZEFBS6SOOIC BS 38s LOJVRTINUCUIC 38385] 0R @2017700000, 
LODCWIeCIODCWII8UL12142836))5 
Ni3N4303 
END ELSE 
BEGIN 
DISKIOCIODC WJ] eAROWCLW) INX B6500"1 0 CTISIF CTS eLAST=Q44 ) 
LSS 30 THEN 30xT ELSE 900)290)3 
Qt:=Q+303 
& SET OMIT = NOTCSTATISTICS) 
COUNTUPC18eT DIV 30)3 
$ POP QMIT 
END} 


ENDS % OF 10 
Fhe RRR ROR RIOR RIOR OR Ri aR HO RO SOI ONC IC 


28106000 
28107000 
28108000 
28109000 
28110000 
26111000 
28112000 
28113000 
28114000 
28115000 
28116000 
28117000 
28118000 
28119000 
28120000 
26121000 
28121500 
28121600 
28122000 
28123000 
28124000 
28125000 
28126000 
28127000 
26128000 
28129000 
28129100 
28130000 
26131000 
28132000 
28135000 
28436000 
28137000 
28138000 
28139000 
28140000 
28141000 
28143000 
286144000 
28145000 
28146000 
28147000 
26148000 
28149000 
28150000 
28151000 
28152000 
28153000 
28154000 
28155000 
28156000 
28157000 
28158000 
28159000 
28159099 
28159100 
28159101 
28160000 
28161000 
286162000 


BOOLEAN SUBROUTINE LOADAROWS 
BEGIN 
$1ZE1=9003 
Nis 
$ SET OMIT = NOT B6SOOLOAD 
IF Ke®LASTROW,CCF) THEN LASTROW,(9324] ELSE 
$ POP OMIT 
H(8)3 
LAST#E(QtFHIK+9] )4N1°13 
LOOCLISBNZSEWEeNI 803 
1cts13 
103 % FIRE UP FIRST TAPE READ 
W 13% SWAP BUFFERS 
IF N<N1 THENS CANNOT DO ROW WITH ONE READ 
LOOPS 103 
WATE? MEPCesLIBRARYLOAD) Jef CFI*ALPHAS 
COMPLEXSLEEPCCCCIODLO] OR JODLIJ) AND I0MASK)#0) OR DSED): 
IF DOSED THEN ABORT} 
N2@N24+153% COUNT NUMBER OF OPERATIONS COMPLETED 
WetF CI1OOLO] AND !0DL1] AND JOMASK)#0 THEN 1°W ELSE 
CCIODCL] AND ITOMASK)#0)3 
IF NOTCY*CHECK) THEN% NO ERRORS WERE DETECTED 
BEGIN® KEEP GOING 
Cet" 1TOOCwW),C78193%8 SWAP UNITS 
IF N<N1 THEN GO TO LOOP3% ROW IS NOT FINISHED 
IF N2+302N THEN SIZEeT3 & CHANGE SIZE FOR LAST RECORD 
IF 1ODCW),£24%1) THEN GO TO LOOP3% MORE WRITING TO DO 
IF N2<N THEN BEGIN [ODCWIJ+03 GO TO WATE ENDSS 
END3% 
LOADAROWS #Y} 
ENDS ® OF LOADAROW 
Ee 2 te me i ne eae a i a OK kk ke 
SUBROUTINE SPACIT3% 


BEGIN % 
BACKS WHILE WAITIOCSPACER»MMsU)#@40 00 
BEGIN 
IF DSED THEN ABORT 
CHECKFORSWAPS 
END3 


IF ENDOFREEL AND NOT SPACITSW THEN GO BACKS 


IF SPACITSW THEN GO TO BAC$ %BRANCH TO LABELCHECK ELSE EXIT, 


ENDS B® SPACIT 
ok kk ORB kook ROKK ik kok SOKO Ok a OKOKER KO RK 
ALPHASC HPC, sLIBRARYLOAD) ef CFI3 
INITIAUSETUP3 
DO 
BEGIN 
IF LABELCHECK THEN ABORT; 
IF WAITIOCC#¥LAROWLO] J 8 @54000( CTF J2@20000000U)@20 THEN 
GO TO BADHEADER; % RD HDR CKING FOR PARITY 
MOVE (3045xB65002eAROW(LO) LCF 1+B865000H)3 
$ SET OMIT & NOTCB6500L0AD) 

IF B6500 THEN 

BEGIN XXs#AROW(O]3 


IF CLASTROWS @B6SOOFORMATTERCCCT +I oXe#XXeBCleHe1))<0 THEN 


GO TO BADHEADERS 
END} 
$ POP OMIT 
IF DSED THEN ABORT3 
Teuwt3 


28163000 
28164000 
28164500 
28165000 
28165490 
28165500 
28165510 
28166000 
28166500 
28167000 
28168000 
28169000 
28170000 
28171000 
28172000 
28173000 
28173500 
28174000 
28175000 
28176000 
28177000 
28178000 
28179000 
28180000 
28181000 
28182000 
26183000 
28184000 
28185000 
28186000 
28187000 
28188000 
28189000 
28190000 
28191000 
268192000 
28193000 
28194000 
28195000 
28196000 
28196100 
28197000 
28198000 
28198500 
28200000 
28255000 
28256000 
28257000 
28258000 
28258050 
28258100 
28256149 
262568150 
28258160 
28258170 
28258160 
286256190 
26258191 
28259000 
28259900 


IF CNOT B6500) AND (MCAROWLO] JINX NOT 0) NEQ 30) THEN 
GO TO BADHEADER ELSE 
BEGIN 
STREAMCAS BOSD SSH) 
BEGIN Slt#xps 30CIF SB THEN BEGIN TALLY$#13 JUMP OUT END 
ELSE SJ]tseS]+8)s ASSTALLY? 
ENDS 
IF P THEN PC1) ELSE 
IFONTi8#H09].04325))>20 OR NT1*®0 THEN PCL) ELSE 
BEGIN 1:03 
FOR WH®10 STEP 1 UNTIL 29 DO 
BEGIN 
LteTeCNT23"CHCOW) NEQ 0))3 
IF W GEQ NT1 410 THEN JF NT2 THEN WH*313 
END3 
IF CCWR31) OR CI] GTR NT4) ORCCT NEQ 0) AND (CHE8)20))) 
THEN PC(1) ELSE P(0)3 
END ENDS 
IF P THEN 
BEGIN 


BADHEADER?t 


NOTLOADED(43)3 
HC2) «+ LABL2]3 
SPACIT? 
IF HC27#LABL2) THEN ABORT’ % FOR WE ARE LOST 
GO TO ENDLOOPS 
END ELSE 
IF XCUJ,eC131) THEN 
IF (X€J),0284) NEO O OR XEUt1).0255) NEG O OR ABSCXLJ])=8114) 
THEN NOTLOADED(37) ELSE 
IF CTeDIRECTORYSEARCHC XC URC 3+4X(TYPESADDVD ILLS 4S8 37 XCI41 de 
4#(TYPEBSADDV))) GEQ 2 THEN 
IF Ts2 THEN 
NOTLOADED(25) ELSE 
BEGIN 
LOADING? #93 
IF DSED THEN ARORT3 
IF CI&STYPE NEQ@ ADOV AND MET+#2) NE@ O AND 
' CCUSERCONECPIMIX] £QV ABSCMCP)) NEQ@ NOT 0) AND 
CCUSERCODELPIMIX] EQV ABSCMET4#2))) NEG NOT OF) OR 
CLATEST AND MCT43),030816) GTR HO3),£30318)) THEN 
BEGIN 
HEADERUNLOCKCABSC XC IU] eo XC J+t]eT)3 
Timed) 
NOTLOADED( 64"! x23)3 
END? 
END ELSE 
IF T¥1 THEN & IT WAS "QT*ED" 
BEGIN 
Tim*13 
NOTLOADED(45)3 7 
END ELSE IF DSED THEN ABORTS 
IF TeO OR CT GEQ 64 AND TYPE NE@ ADDV) THEN 
BEGIN 
IF T GE@ 64 THEN 
IF MCT+834HOC8) THEN 
BEGIN 
FORGETSPACECT)3 
PCDIRECTORYSEARCHCX£L JJ eo X( S41 )06) DELI} 
Te) 


28260000 
28260010 
28260020 
28260030 
28260040 
28260050 
28260060 
28260070 
28260080 
28260090 
28260100 
286260110 
28260120 
28260130 
26260140 
28260150 
28260160 
28260180 
28260190 
28260200 
28260250 
28260300 
28260500 
28260600 
28260700 
28260800 
28260900 
28261000 
28261100 
28261110 
28262000 
28263000 
28264000 
28265000 
28267000 
28268000 
28269000 
28269500 
26270000 
28271000 
28272000 
28273000 
28274000 
28275000 
28276000 
262768000 
28279000 
28280000 
28281000 
28282000 
28283000 
28285000 
28286000 
28287000 
28288000 
28289000 
28290000 
26291000 
28292000 
28293000 


OK: 


WY 


ENDS 

IF T#0 THEN 

BEGIN 
TE@PGETSPACE(C 300001) +233F IXES POSSIBLE PROBLEM 
MOVEC300eT*19T)3 
MET+OJ] @PORSYSNO[4 4632) 810 2:4751)3 

END ELSE 

EADD*T,C18t15]3 


LBL * (METI) & 30£6838210)3 


FOR WSFH[9),£4325)410 STEP 1 UNTIL 29 DO HEW)3s03 
IF CLBELCQJs=C#PCDUP)) AND 31) * O THEN LBLE7J)3a"43 
a aaa STEP 1 UNTIL 29 DO LBLUIWIJ3=03 
WeaO3 
WHILE CWeW+1) LE@ HE9),£43%5) DO 
IF HE 94+W]#0 THEN 
IF CHO9+WI] SRL BLOI9+W)) LEQ 0 THEN 


IFCHEO+WIPEPETUSERDISKCH(6] OR MeCOMMON)) LSS 1 THEN 


BEGIN 
T*SPACE(10)3 


STREAMC J*JARROWLPIMIX] ePLMIXeHeH[ 8) sMeXC I) oF eXC ded de 


1)3 


BEGIN DSe#14 LIT *"#NO USER DISKI"™S SleUsSleSI+13 


DS*7CHRIDSeLIT*/"3SLeST +1 sDSe7CHRE 


DSeLIT@EMsSTeLOC PIMIXSDS*2DEC3 JVeDI FD Di 2sDSeF ILL 
DIeJIDSeLITMC™ESTOLOC MIST#ST +13 DS¢7CHRISIoSI+13 
DS*LIT™/™SDS*¢7CHRSDS*A2LIT™ OMEST*LOC HsDS<«8 DECE 


DS*7LIT™ SEGSee*sDEeDI F153 0Se¢7F ILLS 
END3 
SPOUTCID3 
REPLYLCPIMIX] 3s "CI esVIFaVWY[ 363422618 
VOFEL3I0B42S6)8VOK( 2424236) )3 
SWAPCWAITSWAPe1)? 
IF NOT WHYSLEEPC I) THEN GO TO WY} 
IF REPLYCPAIMIXISVOK THEN GO TO OK3 
IF REPLYLPLMIXJSVOF THEN 


BEGIN COMMON ¢ COMMON AND NOT M3 GO TO OKS END3 


FOR Wi2W STEP "1 UNTIL 1 DO 
IF HC 94W)#0 THEN 
IF LBLC9+W)80 THEN 
FORGETUSERDISKCHE94+¢W)] "HL B])3 
FORGETSPACECT)3 
IF DSED THEN ABORT3 
IF LBLOI9I#0 THEN 
PCDIRECTORYSEARCHCXL J) XC U41)°14)°DEL)D3 
NOTLOADEDC31)3 
IF X€J42)]4014 THEN SPACIT? 
GO TO ENDLOOP3 
END! 
STREAMCA*( HELI] »D*DATE); 
BEGIN SIeLOC D&DIeLOC DIDS*& OCT 
SITeST*4;DTeAtDSe4 CHR 
END} 
HOO] ¢PMCT44) 8H 410898839 8001194781)8HL 4) (3693636) 
BHL4104384331)5 
HEL1,0C25¢23] ¢XCLOCK+PCRTR)S 
IF LBLE9JSO THEN 
: ENTERUSERFILECABSC(CXC Ue XC Uet eH CCF Ii) 
ELSE 
BEGIN WeelF HO9) LSS LBLE9J THEN LBLOC9) ELSE HI9]? 
FOR WiaW+9 STEP ©] UNTIL 10 DO 


28294000 
28295000 
28296000 
28297000 
26298000 
28299000 
28302000 
28303000 
28304000 
28305000 
28305500 
28306000 
28306500 
28307000 
28308000 
28309000 
28310000 
26311000 
26311200 
28311210 
28311220 
28311230 
26311240 
28311250 
28311260 
28311270 
28311280 
28311290 
28311300 
28311400 
28311410 
28311500 
28311700 
28311800 
28311910 
28311920 
28314000 
28315000 
286316000 
26317000 
28318000 
28318200 
26316600 
26318800 
28319000 
28321000 
28322000 
28323000 
28328000 
28329000 
28330000 
28331000 
28332000 
26332100 
28333000 
28333100 
28333200 
28333300 
28333400 
26333500 


IF HOW]#0 THEN 28333600 
IF LBLEW)I#0 THEN % EXTRA ROW IN DISK FILE 28333700 
; FORGETUSERDISK(LBLOEWJ]eLBL(8)) ELSE ELSE 28333800 
$§ SET OMIT & NOT SHAREDISK 28333890 
IF LBLOWJs0 THEN % NEW ROW 28333900 
SCRATCHDIRECTORYDELETECH{ WN] eH( 8123 28334000 
$ POP OMIT 28334010 
SDISKWAITCH INX Op 30°E ADD) 28334100 
ENDS 28334200 
FORGETSPACECT)3 28334500 
LOADINGS*TRUES 28335000 
FOR Ksel STEP 41 UNTIL HL9) 24385] DO 28336000 
IF HEK+9I]#40 THEN % ROW IS ASSIGNED 28337000 
IF LOADAROW THEN % THERE WAS AN ERROR 28338000 
BEGIN MEPC,,LIBRARYLOAD) ],( CFI] S@ALPHA 28339000 
COMPLEXSLEEPCCIODLOIJS0 OR CIODLO) AND [OMASK)#40)28339100 
ANDCIODC1]*#0 OR CIODL1) AND TOMASK)#40 28339110 
) OR DSED)3 28339200 
BADLOAD$ 28339500 
BLASTQCU) 28340000 
PCWAITIOC@00474000002000377-U) eDEL)3 26340100 
LOADINGS#FALSE3 28341000 
PCDIRECTORYSEARCHC XC J) okCJ+1] 26) eDEL)3 28342000 
IF X€J+2)#014 THEN SPACIT? 28343000 
GO ENDLOOP3 28344000 
END ELSE CHECKFORSWAPS 28345000 
$ SET OMIT = NOT B6500L0AD 28345040 
IF NOT B6500 THEN 28345050 
$ POP OMIT 28345060 
IF WAITIOCSPACERsMMeV) # @40 THEN 28345100 
BEGIN NOTLOADED(56)3 28345200 
GO TO BADLOAD; 28345400 
END} . 28345500 
PCDIRECTORYSEARCHCXEL UJ eXCJ+1)914)°DEL)3 28346000 
BB « TRUE? % MARK THAT A FILE HAS BEEN LOADED 28346100 
LBMESSCABSCX(JU)) oXCJei J) ele Oo TINULUJ] *®SPOUTUNI TeLIBMSG); 28348000 
LOADINGI®FALSES 28349000 
$ SET OMIT = NOT B6500L0AD 28349890 
IF B6500 THEN GO TO SKIPPER ELSE 28349900 
$ POP OMIT 28349910 
GO FALLOUTS 28350000 
END3 28351000 
IF X(CJ+2]8@14 THEN GO ENDLOOP ELSE 28352000 
FOR Ket STEP 1 UNTIL HE9J,(43151] 00 28353000 
IF HCK+9940 THEN 28354000 
BEGIN 28355000 
CHECKFORSWAPS 28356000 
NteswWwteSIZEteLOADING$ #03 28357000 — - 7 7 
1c3s313 26358000 
103 % READ HEADER 28359000 
Whads 28360000 ™ a 
FOR NieH(8) DIV 30 + CCHE8)] MOD 30)#0) STEP "1 UNTIL 2 DO 28361000 
BEGIN 38% SPACE OVER FILE 28362000 a ee ae 
103 26363000 
LAY3 MEPCeeLIBRARYLOAD) J ,£CFIJ*ALPHA; 28364000 
COMPLEXSLEEPCCCIODLOJ OR IODL1)) AND ITOMASK)#0 28364500 
OR DSED)3 28365000 
IF DSED THEN ABORT: 28366000 
WeCCTODOC1] AND JOMASK)#0)3 28367000 


LF ITODEW),£2782)40 THEN 28368000 


IF JODEW),027:11) THEN & END OF REEL 


BEGIN 


IF NOT ENDOFREEL THEN 


BEG] 


$ SET OMIT = NOT B6500L0AD 


$ POP OMIT 


SKIPPER? 
FALLOUTs 
ENDLOOP®s 


IF NOT BB THEN 
BEGIN 


END} 


ENDS 


END} 
10} 


N 


IF LASTROW,LCFJ=K THEN 


IF LASTROWs69824) LEQ N THEN GO ENDLOOPS 


PCWAITIOC@4740000020903775U) »DELe 
WAITIOC@47400000200@3770U) e+ DELDS 


SPACITS 


GO TO ENDLOOPS 


Waelews 


TF CIODEW) AND TOMASK)#O0 OR [ODEW).£2791) THEN 


END ELSE 
BEGIN 


NISSNieis 
a 


SPACITS 
GO ENDLOOP$ 


END3 


IF N120 THEN 


BEGIN 


END$ 
END3 


Nitece*t)3 


% 


LODE WJ #=03 


GO LAY: 


PARITY ERROR 


WAIT FOR LAST READ TO FINISH 


DO UNTIL WAITIOCSPACER*®MMsU) 50403 

WHILE ENDOFREEL DO PCWAITIOCSPACER® @402U)*DEL)S 
LOADINGS®FALSE} 

IF DSED THEN ABORT} 
END UNTIL XC JseJ+2) 56143 


STREAMCBBS#BBtsSPACE(5) )3 
BEGIN DS*16LIT*NULL LIBRARY LOADe"3 ENDS 
SPOUT (BB)3 


STOPTIMINGCO#1023)3 
STOPTIMING(5#1023)3 
SETNOTINUSECU®0)3 
$ SET OMIT & PACKETS 
IF UNITNO#0 AND LABELTABLELUNITNOJ*@214 THEN 


‘$ POP OM]IT 


REAL COMMONS=Q3 


GO INITIATES 
ENDS % OF LIBRARY LOAD PROCEDURE 
PROCEDURE LIBRARYDUMP3 
BEGIN REAL ALPHA) 


LABELTABLE CUNITNOJ]*@1143 


REAL Lede TosUrUNTTNO*DUMPING@ Wa Yo TMPREEL® ICoNeNisLASTaNe2s 
REAL Q»MIDOFIDeMAXe EXP eGTRMAXeK eKi eSEGeMIDCTReSIZE eo TYPE} 
REAL RCeAsS & ONE 10 
ARRAY XC#)eSC*ISAROWC # I OHO] 10D * Ie LBLE*I5 
REAL TOGS3 
DEFINE DISKPARITY 
DUMPDIR 


® TOGS, [4781 te 
© TOGS ef 4681 be 


28369000 
28370000 
28371000 
28371100 
286371120 
28371140 
28371160 
28371180 
28371200 
28371250 
28371300 
28371350 
28371400 
28372000 
28373000 
28374000 
28375000 
28376000 
28377000 
28378000 
28379000 
28380000 
28381000 
28382000 
26383000 
28384000 
28385008 
28386000 
28387000 
28388000 
28388500 
28389000 
28390000 
28391000 
28392000 
28392200 
28392300 
28392400 
28392500 
28392600 
28392700 
28393000 
28394000 
28395000 
28395999 
28396000 
28397000 
28397008 
28398000 
28399000 
28400000 
28401000 
28402000 
28403000 
28404000 
28404001 
28405000 
26405100 
28405200 
28405300 


NOLBL = TOGS,C45s1)#s 
TAPEPARITY = TOGS,[44t1]é#* 
SPOUTUNIT  & Of» 

OSED = (TERMSETCPIMIX) #2 
SPACER = 58@3400LCTF IE» 

MM = @37700040#3 


LABEL TAPEPAR®PARERR*® LOOP WATE »DISPAR® GE TONE sNEXTNAME #GETMORE » 


WRIT] Te BACK» BADHDRe NEXT? 


LABEL EXITS 


Be ee ORR OR ROR OR ORR OK Ok 
DEFINE NOTDUMPEDCNOTDUMPED1) & 
BEGIN NTLI=NOTDUMPED13 NODUMPMESS3 END#;3 
SUBROUTINE NODUMPMESS3 
MBMESSCXC J) eXC Vet Jeo™3eNTLeI1F DUMPING THEN TINUCU) ELSE Or 
SPOUTUNI Tel 33 
SSO ORR ROKK ORR ROK OIRO OR ROR OKOKER KOR ROR IGOR RR HOk 
SUBROUTINE GETASEGMENT} 
BEGIN 
SEG3*S(29); 
DISKWAITC*S.LCFEJ*30°SEG)3 
FORGETESPDISKCSEG)3 
Lis23 
ENDS & OF GETASEGMENT 
Foe OROIGIOR SR IGIORIOR ROR RIOR ROR RIOR OOK OR ORIG ROOK ROR i dak ki iok g KGkokaiok 
SUBROUTINE CHECKFORSWAP} 
BEGIN 
IF CTSePRTROWCPIMIX).CPSFI)#0 THEN 
BEGIN 
IF TS2 THEN 
BEGIN 
TOCOUNTEPIMI XI] te 13 
STOPM3 
END ELSE 
IF T#i1 THEN SWAPCFORCESWAP?1)3 
END3 
IF ELAPSEDLIMITLPIMIX] GTR LOTIMELPIMIX) THEN 


IF PROCLIMITCPIMIXIJ>PROCTIMELPIMIXJ+CLOCK+#PCRTR) THEN GO EXITS 


FOR TimSCEPIMIX) STEP 1 UNTIL LOCPIMIX) DO 
IF ACTIVECTI>1 THEN 
BEGIN 
TOCOUNTECPIMIXJ 15°13 
SWAPCTIMEND®1)3 
ELAPSEDLIMITCPIMIX] teeP (DUP) +1283 
PROCLIM[T(PIMIX}] $e*P (DUP) +643 
GO TO EXIT3 
END3 


@xiT? 


END? % OF CHECKFORSWAP 
OER EPEC ESE SELES Cee ee eee eT eT eT TT eT TT eT TT eT TTT eT TTT Se eT 
SUBROUTINE ABORT} 
BEGIN 
IF DUMPING THEN Jt#J"2 ELSE 
BEGIN XCJJ]3Fe@143 
J1e"2}3 
END3 
WHILE X{Ut#J+2)#@14 AND J LSS 1022 DO 
PCDIRECTORYSEARCHC®X( JU] eX 0443013) eDEL)3 
IF U GEQ@ 0 THEN 
BEGIN . 
STOPTIMING(0+1023)3 


28405400 
28405500 
28406000 
28406100 
28406200 
28406300 
28407000 
28407100 
28407500 
28408000 
26408100 
28406200 
28406300 
28408400 
28408500 
28408600 
28409000 
28410000 
28411000 
26412000 
28413000 
28414000 
28415000 
28416000 
28417000 
28418000 
28419000 
26420000 
28421000 
28422000 
26423000 
26424000 
28425000 
268426000 
28427000 
28428000 
28429000 
28430000 
28431000 
28432000 
28433000 
28434000 
28435000 
28436000 
28437000 
28438000 
28439000 
28440000 
28441000 
26442000 
26442500 
26443000 
28443500 
28444000 
28444500 
28445000 
28446000 
28447000 
28448000 
28449000 


STOPTIMING(52#1023)3 
BLASTOCU)3 
SETNOTINUSEC(CU?0)3 
END) 
WHILE S£291]#0 DO GETASEGMENTS 


$ SET OMIT = PACKETS 


IF UNITNO#0 AND LABELTABLELTUNITNO)&@214 THEN 
LABELTABLELUNITNOJ]$=@1143 


£ POP OMIT 


ENO} 


GO TO INITIATES 
% OF ABORT 


28450000 
28451000 
28452000 
28453000 
28454000 
28454999 
26455000 
28456000 
28456001 
28457000 
26458000 


TIO RSI RIG OO ICIS IOI IOI OIG IOI IOI OI GR IOI I ioc 28458500 
SUBROUTINE SPACIT3 


BEGIN 


END$ 


WHILE WAITIOCSPACER* MMe) # @40 00 
BEGIN 
IF DSED THEN ABORT} 
CHECKFORSWAPS 
END} 
PCWAITIOCLTM) 2 @402U)eDEL)S 
% OF SPACIT 


% WRITE THE TM BACK 


28458600 
28458700 
28458800 
28458900 
28459000 
28459100 
26459200 
28459300 
28459400 


ROI III OOO III IOOIO gone RRR Rd oe 28459500 
SUBROUTINE WRITENDINGLABELS 


BEGIN 


END) 


eT ETE ET EST eee et eT TTT TTT TTT TT TTT T TTT TTT TTT TTT TT: 


PCWAITIOCL TM) 2@400eU) sDEL)3 

IF DSED THEN ABORT? 
PCWAITIOCLBL&@5SO000LCTFJ+@40,U) DEL): 
IF DSED THEN ABORT? 

® OF WRITE ENDING LABEL 


SUBROUTINE CHECK3 


BEGIN 


TAPEPAR? 


IF CY¥e@[OOCWI).£2782)40 THEN & PARITY ERROR OR EOT 


BEGIN 
IF Yel781) AND Y,€2781) THEN % END OF TAPE 
BEGIN 
IF TODC1"W).07813) THEN 
BEGIN 


SLEEPCCIOOCI*WIJ*1OMASK)} 


IF 1ODC1°W),.02881) THEN GO PARERR3 


TODCI"WI1,02781149%03 
ENDS 
LBLE4)teC*PCDUP)) OR 13 


IF URLE2I,£30318)=0 THEN SFILEOOO LAST FILE 


STREAMCA#(J+4) DIV 2eBeCLBLE2)I1)3 


BEGIN SI*LOC A’ DI*DI+5s DS*3 DEC END? 


PCWAITIOCL TM] »@400U) DELS 


PCWAITIOCLBLR@5SO00LCTE Je@402U) eDEL)3 


PCWAITIOCE TM) s@40°U)»DEL)3 
SETNOTINUSE CUe1)3 
STOPTIMING(521023)3 
LBLOC4IJseCePCDUP)) AND NOTC1)3 
STREAMCREELS*REELIPREEL+1 eLBL)s 
BEGIN SI#*®LOG REELS 

DIs#D1+24s DSI=3 DECI 
ENDS 


IF CUf@LABELASCRATCH(LBL)) LSS O THEN ABORTS 


DUMPDIReTRUES ZDUMP DIRECTORY 
STARTIMING(52U)3 
END ELSE % PARITY ERROR 


28460000 
28461000 
28462000 
28463000 
28464000 
28465000 
28466000 
28467000 
28468000 
28469000 
28470000 
28471000 
28472000 
26473000 
28474000 
28475000 
28476000 
28477000 
28478000 
28479000 
28480000 
28480100 
28480200 
28480300 
28481000 
28482000 
28483000 
28484000 
28485000 
28486000 
28487000 
28488000 
28489000 
28490000 
28491000 
28491100 
28492000 
28493000 


PARERRS$ BEGIN 
IF Y,C7812 THEN & TAPE 
BEGIN 
SPACITS 
PCWAITIOCHR@SOOOLCTFIe@40eU)sDEL)3 
TAPEPARITY&*®TRUES 
GO TO TAPEPAR3 
END} 
DISKPARITY?tsTRUE}3 
END3 
END3 
ENDS ® OF SUBROUTINE CHECK 
Ba EOI IO III ROI RRO IO RRR AOR HOR & 
SUBROUTINE 103 
BEGIN 
IF IC THEN 
IOREQUESTC*CIODEWI]sSCAROWLW) INX #500000000)8 
SIZECBHs38sLOIRTINUCUIC323351) OR @2017700000» 
LODCWJeLTODCWIIEUL12:42:16)) 
EUSE 
BEGIN 


DISKIOCIODEW] e@CAROW(W) INX OmLye (THIF CT#LAST#Q"N41) LSS 


30 THEN 30xT ELSE 900) »Q4N)3 
NISN+303 
$ SET OMIT © NOTCSTATISTICS) 
COUNTUP(18*T DIV 30)3 
$ POP OMIT 
END} 
END) & OF 10 
Bok ek ek Ok ROR kK bok dO OK Oe 
SUBROUTINE DUMPAROWS 
BEGIN 
Ni + HEB): SIZE © 90052 
LASTS CQ¢HEK49] +H BI413% 
LODCLICSN2¢eWr ENE RIC EERO ERO; 
103 % FIRE UP FIRST DISK READ 
W #13%8 SWAP BUFFERS 
IF BeCN<N1) THENS CANNOT DO ROW WITH ONE READ 
LOOP? 103 
WATE} MEPCeeLIBRARYDUMP)1],°CFI*ALPHAS 
IF 8 THEN COMPLEXSLEEPCCCCITODLi*"W)]) AND [OMASK)#0) OR DSED) 
ELSE % 1 #10 
COMPLEXSLEEPCCOCIODERCJIAND ITOMASK)#0) OR DSED)3 
IF DSED THEN ABORTS3 
N2@N2¢153% COUNT NUMBER OF OPERATIONS COMPLETED 
WTF CLTOOLO] AND ITODELI] AND JFOMASK)#0 THEN 1°W ELSE 
CCTODEC1] AND LOMASK)#0)3 
CHECK3 
IF DISKPARITY OR TAPEPARITY THEN GO TO DISPARS 
1CeL"™1ODCW),0781)3% SWAP UNITS 
IF N<N1 THEN GO TO LOOP#% ROW IS NOT FINISHED 
IF N2#302N THEN SIZE*TS ®% CHANGE SIZE FOR LAST RECORD 
IF 100€WJ,C24t1) THEN GO TO LOOPES® MORE WRITING TO DO 
IF N2<N THEN BEGIN IODC W)S2O03REts{*WsIBsF05GO TO WATESENDSSBFIX ODD# 
DISPARS END3%OF DUMPAROW 
Lek kee ORE OK ERK RK ORK SOO RR Kk a OE 
ALPHASCe#P(C,,LIBRARYDUMP)),fCFI3 
Se@CMCSPAcE(30)331830(8:38:10)3 
TYPEVECOMMON CFF IJ). 
SC29]:scOMMON,CCFI3 


28494000 
28495000 
28495500 
28496000 
28496500 
28497000 
28497500 
28498000 
28499000 
28500000 
28501000 
28502000 
28503000 
26504000 
28505000 
28506000 
28507000 
28508000 
28509000 
286510000 
28511000 
28512000 
28513000 
28514000 
28514099 
28514100 
28514101 
28515000 
28516000 
28517000 
286518000 
28519000 
28520000 
28521000 
28522000 
28523000 
26524000 
28525000 
28526000 
28527000 
28527500 
28527510 
28527520 
28528000 
28529000 
28530000 
28531000 
286532000 
28532500 
28533000 
28534000 
286535000 
26536000 
28537000 
28538000 
28539000 
28539500 
28540000 
26541000 
28542000 


sepia sae Ait oe ae ah a a Ss 


GETASEGMENT}; 
STREAMCMIDS=MIDESS( 1] eBrePRICPIMIX*31)3 


BEGIN DSt#16 LIT"ODIRCTRYODISK 


"3058825 LIT"OPISTE#LOC MIDI 


SLTteST+,3D0S457 CHRIDS§ 2B LITMORPILEQOOO"SDSt224 LITO") 


END3 


UNITNO##S(0),(€236)3 
X#BCMCSPACEC1023))18102308138910)3 
MAXeS(O],0CF)3 
EXPs8S[0)-(81:2)3 
GTRMAX«S[0)<03 
XCO)380143 

MOVEC1022eXe(XC1)1)3 


Userd3 


GETONES 


IF DSED THEN ABORT} 
IF 1226 THEN GETASEGMENTS3 
IF CSCI) OR SLI4192<0 THEN SEEKNAMCSE IJ eSLiotdewWeXC Jd eXCd4e1] eV) ELSE28557000 


BEGIN 


XeJ}eeScl ys 
XCUeL]eeSC 14193 


Wiad 
END} 


IF W#Q THEN 


BEGIN 
Te} 
Kel3 


FOR NeJw2 STEPW?2 UNTIL O DO 

IF (XC€J) EQV XIN) =NOT O THEN 

IF (XCL£U+1) EQ@V XON41])2eNOT O THEN GO TO NEXTNAMES 
IF GTRMAX THEN 
BEGIN 


END} 


JtaJe 


2} 


GO TO NEXTNAMES 

END ELSE 

IF NOT SYSTEMFILECX( J) eX0U41]) THEN 

IF CT#BDIRECTORYSEARCHCACJIRIL 384731} 9XLde+1) OR Ms3)) 
USS 64 THEN 

BEGIN 


IF DSED THEN ABORT 
IF Tel THEN NOTDUMPEDC45) ELSE IF T NE@ 2 THEN Kt#0 


ELSE 


NOTDUMPEDC25)3 


GO TO NEXTNAMES 


IF T GEQ@ 64 THEN 
BEGIN 


IF MCET+27#40 THEN 
IF CUSERCODECPIMIX] EQV ABSCMCP))#NOT O THEN 
1F CUSERCODECPIMIX] EQV ABSCMET4#2))) NEQ NOT O THEN & 


BEGIN 


END} 


PCDIR 
NOTDU 
GO TO 


ECTORYSEARCHC*XEd)eXCJ41)013)sDELDS 
MPEDC41)3 
NEXTNAME3S 


IF EXP NEQ@ O THEN 


BEGIN 


IF EX 
BEGIN 


P THEN 


STREAMCTS®OSATBCALCULATEPURGE(C@MET#3),£2910]))3 
BEGIN ST#sLOc AsDLtwLOC TspStas OCT ENDS 
IF P GTR MET4+3),012818) THEN JteJe2 ELSE 


28543000 
28544000 
28545000 
28546000 
28547000 
28548000 
28549000 
28550000 
28551000 
28552000 
28553000 
28554000 
28554500 
28555000 
28555500 
28556000 


28558000 
28559000 
28560000 
28561000 
28562000 
28563000 
28564000 
28565000 
28566000 
28567000 
28568000 
28569000 
28569200 
28569300 
28569400 
28569500 
28569600 
28570000 
28571000 
28571002 
28572000 
28573000 
26574000 
28576000 
28577000 
28576000 
28579000 
28580000 
28581000 
28582000 
28583000 
28584000 
28585000 
28586000 
28568000 
28589000 
28590000 
28591000 
28592000 
28593000 
28594000 
28595000 
28596000 


PCDIRECTORYSEARCHCeXE J) eXCJ+1)013)°DEL)3 
END ELSE 
BEGIN 
IF MCEVT+4), C111) THEN Jeade2 ELSE 
PCDIRECTORYSEARCHC#X( J) eX J+) )e33)e DEL D3 
ENDS 
END ELSE JseJe23 


ENDS 
NEXTNAME$ 


END; 


IF CSCI] OR SE14+1])2<O0 THEN te#1"2 ELSE weds 
IF T GE@ 64 THEN FORGETSPACECT)3 


IF K LSS | THEN LBMESSCSEI J +SCI +t) e*3e15eO0*+SPOUTUNIT #1 )3 
IF Sle]+2]4@14 THEN 
IF J<C2xMAX) OR GTRMAX THEN GO GETONE ELSE 


BEGIN 


GETMORE!S 


WRITITS 


LBL tFCMCSPACE(30))1&83006:38210)3 

Jder2s 

LRBLCOJIReMAX; 

VELOC LI«MID: 

LALC 28) «03 

STREAMCA*MIDCTRIONE*lLeMIDe (MIDI 13 

BEGIN SIl*LOC ASSIeSI¢781F SCs"0" THEN 
BEGIN TALLYe23SIeMIDSS1eSI+2s5C0F SCa™ ™ THEN JUMP OUT? 

STeST+13 TALLY*TALLY+1) SAeTALLYSDIeDIFAIDSoL ITY 

END ELSE BEGIN DI«DI4AsSI] eS +163 DS*¢ADDIEND; 

ENDS 

MIDCTReP3 

COMMON©*SEG*GETESPDISKS 

COMMON, CFF JUS#TYPES 


FOR Ke2 STEP 2 UNTIL 26 00 


BEGIN 
LBLUKIJeXEJeds2]3 
IF LBLCK]s@14 THEN GO WRITIT: 
LBLEK+1JexXCJ+i1)3 


END3 


LBLC29)¢IF K# 28 THEN O ELSE GETESPDISK3 
DISKWAITCLBL INX 0930°SEG)3 
IF Ke28 THEN 
BEGIN 
SEG*LBL(29)3 
GO GETMORE3 
ENO} 
FORGETSPACECLBL)? 
LBMESSC™LIBMAIN's "DISK 
TIMGETSPACE(1226405)443 
IF CJeUSERCODECPIMIX])BABSCNOT 0) THEN 
BEGIN 
JO} 
Ke313 
END ELSE Ke263 7 
STREAMC Je COMMONST)3 
BEGIN 
OS*8 LIT"CC USER#"sSJeLOC JsSleSi+1I0Se7 CHR 
OSe29 LIT*SEXECUTE LIBMAIN/DISKS COMMONS} 
DS*8 DECS D0S+6 LIT"IEND,©"3 


"2500e0eOeSPOUTUNI T2193 


28597000 
28598000 
28599000 
28600000 
28601000 
28602000 
28603000 
28605000 
28607000 
28608000 
28609000 
26610000 
28612000 
28614000 
28615000 
28616000 
28617000 
28618000 
28619000 
26620000 
28621000 
28622000 
28623000 
28624000 
28625000 
28626000 
28627000 
28628000 
26629000 
28630000 
28631000 
28632000 
28633000 
28634000 
28635000 
28636000 
28637000 
28638000 
26639000 
28640000 
28641000 
28642000 
28643000 
28644000 
28645000 
28646000 
28647000 
26648000 
28649000 
28650000 
28651000 
28652000 
28653000 
28654000 
28655000 
28656000 
28657000 
28658000 
28659000 
28660000 


END? 
& SET OMIT & NOTCPACKETS) 
JF PSEUDOMIXCPIMIX) GE@ 32 THEN 
NYLONZIPPERCPIiMIX),€C2¢1)+03 
£2 POP OMIT 
TeTRPIMIXC1634286)8K6324395)3 
CCARDCT)3 
$8 SET OMIT = NOTCPACKETS) 
IF PSEUDOMIXEP1MIX) GE@ 32 THEN 
IF MEMROWEPIMIX),CCF] GE@ FENCE THEN 
DO SWAPCWAITSWAPe1) UNTIL NYLONZIPPERCPIMIX},€2814) ELSE 
SLEEPCENYLONZIPPEREPIMIX] ]2@1000000000000000); 
$ POP OMIT 
JoToQ} 
GO GETONES 
ENDS 
X(J}#@143 3 MARK END OF DIRECTORY 
TF J*0 THEN 
BEGIN 
STREAMCMIDeDte132SPACE(10))3 
BEGIN DSt#14 LIT""NULL LIBRARY "3S132L0C MID3 
SPeeSr412OSis7 CHR DSteL ro") 
END! 
SPOUTC1)3 
GO TO INITIATES 
END} 
TMOOR*>eML193791113% 
IF J LSS 900 THEN 
BEGIN 
TIPSPACE(C J41)3 
MOVEC JO] 9XeT 23 
FORGETSPACE(X)3 
XeaCMeCT J J acde1)68938810)3 
END} 
REEL tei; 
LBL&*®EMCTAPELABELCMIDeFIDSS"FILEOOO"s+ 1512100)3)81068338310]3 
IF CUS*LABELASCRATCHCLBL)) LSS 0 THEN ABORT3 
STARTIMING(0918)3 
STARTIMING(C5eU)3 
PCWAITIOCXRCJH1 Ls: 3b LO I&@S000L CTE) e@d0eU) Pe DEL)! 
WRITENDINGLABEL? 
AROWEEEMESPACE(2)1182(8138110]3 
AROWLOTSSCMESPACE(C900)])&8900(8!:38810]3 
AROWLLISSCMCSPACE(C900)118900(8:38310);3 
1ODteCMCSPACEC2)1182(8:36310)3 
JER" 23 
DUMP INGtsTRUE?S 
WHILE XeJeJ¢2)#@14 pO & 
BEGIN} 
STREAMC ASC J42) DIV 2eBefLBL[23))3 
BEGIN S]tsLOC asOrteDl+5308'%3 DEC END? 
LABELTABLECUJ*=LBL(2]3 & ENTER FILE ID FOR OL MESSAGE 
HI@CMEDIRECTORYSEFARCHCX( J) eo X(J41125)31830(83389110)3 
HC9J#*C#PCDUP)) AND 313 
IF NOLBL THEN NOLBLeFALSE ELSE 
BEGIN 
PCWAITIOCLBLE@5000( CTF J 2@400U) »DELD3 
IF DSED THEN ABORTS 
PCWAITIOCL TM] 2@400U)eDEL)3 
IF DSED THEN ABORT? 


28661000 
28661099 
28661100 
28661200 
28661201 
26661300 
28662000 
28662099 
28662100 
28662200 
28662300 
28662400 
26662401 
28663000 
28664000 
28665000 
28666000 
28667000 
28668000 
28669000 
28670000 
28671000 
28672000 
28673000 
28674000 
28675000 
28676000 
28677000 
28678000 
28679000 
26680000 
28681000 
28682000 
28683000 
28684000 
286865000 
28686000 
28687000 
28688000 
28689000 
26690000 
28691000 
28692000 
28693000 
28694000 
28695000 
28696000 
28697000 
28698000 
28699000 
28700000 
28701000 
28702000 
28702100 
28702200 
28702300 
28703000 
28704000 
28705000 
28706000 


END$ 
IF PCCHEC9J J *>LOD»DUP)=*0O OR PCXCH)>220 THEN 
GO TO BADHDR} 
PCWAITIOCHRO@SOOOLCTF I] + @405U) es DEL) 
BACK? IF DSED THEN ABORTS 
FOR Kel STEP 1 UNTIL HE9) DOS WRITE OUT FILE» ROW BY ROW 
IF HL K+9]#0 THEN 
BEGIN 
DUMPAROWS 
IF TAPEPARITY THEN 
BEGIN 
TAPEPARITY3*FALSES 
GO BACK3 
END} 
IF DISKPARITY THEN 
BEGIN 
SPACIT3 
IF DSED THEN ABORTS$ 
BADHDR? 
H#®H&20(8138910)3 
PCWAITIOCHR@5SO000(CTF)+@400U) DEL) 
WRITENDINGLABELS 
PCDIRECTORYSEARCHC@X( J) oe XC Utd) 013) *DELD3 
NOTDUMPEDCIF DISKPARITY THEN 35 ELSE 43)3 
FORGETSPACECH)3 
DISKPARITY3#FALSE3 
GO TO NEXT3 
END} 
CHECKFORSWAP3 
END} 
FORGETSPACECH)$ 
WRITENDINGLABELS 
LEMESSCXC J] XC Jed) e3eOe TI NULUJ»SPOUTUNITeLIBMSG)3 
PCDIRECTORYSEARCHC#XC J] ¢X(J+i)013)°DEL) 33 
IF DUMPDIR THEN 
BEGIN XCOJ©@1143 XCLJeU+e2) BFLAG X[OJ] AND OFFSET INTO XC1) 
LBLE2),.030818)]8803 SFILEO00 
PCWAITIOCLBL&@SOOOLCTE ]e@40eU) DEL) 3 
IF DSED THEN ABORT3 
PCWAITIOCL TM) 2 @400U) eDELDS 
IF DSED THEN ABORT$ 
1ODCOJ¢O3 Wels SIZE*X,£8810)3 
IOREQUESTC™CLODEWJ#C(X INX @500000000)8 
SIZECAS36r1OJRTINUCUIC3£325)) OR @2017700000% 
TODC WI] +e CIODECW)I8UC1214246))3 
MEP Ce gLIBRARYDUMP)],LCFJSSALPHAS 
COMPLEXSLEEPCCCCIODEW]) AND JOMASK)#0) OR DSED)3 
IF DSED THEN ABORT3 
CHECK? 
IF NOT ITODCW)].C2781) THEN 
BEGIN WRITENDINGLABELS DUMPDIReFALSE END ELSE NOLBL+TRUES 
END} 
NEXTS ENDSRALL FILES NOW WRITTEN 
PCWAITIOCL TM) 2 @40eU eDEL D3 
STOPTIMING(021023)3 
STOPTIMING(521023)3% 
SETNOTINUSECUl1)$ 
IF TYPESUNLOAD THEN 
FOR Je#O STEP 2 WHILE XCUJ]#e14 DO 
IF DIRECTORYSEARCHC*X(JJ] #X0U+1)07983 THEN X[J+2]) 220143 


28706100 
28706500 
28706600 
28707000 
28708000 
28709000 
28710000 
28711000 
28711200 
28711300 
28711400 
28711500 
28711600 
28711700 
28711800 
28711900 
28712000 
28712190 
28712195 
28712200 
28712210 
28712220 
28712225 
28712228 
28712230 
28712233 
28712235 
28712500 
28713000 
28714000 
28715000 
28716000 
28717100 
28718000 
28718100 
28718110 
28718120 
28718140 
28718150 
28718160 
28718170 
28718160 
28718182 
28716184 
287181866 
28718187 
28716188 
28718190 
28718192 
28718194 
28718200 
28718210 
28719000 
28720000 
28721000 
28722000 
28723000 
28724000 
28725000 
28726000 


IF UNITNO#0 AND LABELTABLECUNITNOJ*@214 THEN 
LABELTABLE CUNITNOJ]+@1143 
GO INITIATES 
® LIBRARY MAINT, PROCEDURE 


PROCEDURE LIBRARYZERO3 
BEGIN 


REAL COMMONS"43 
REAL TYPE ®SEGreleUsKoNYrQeNeWoTe THING ZEROING 
ARRAY SC¥#¥]oXC*)+RSULTC*#] eBUFFADR(*)+TO0C*] eH ¥*)5 
LABEL GETONEsLOOPeWATESEXIT» ARDS 
DEFINE DSEDSCTERMSETCPIMIX) 43 
FoR OR Ni kik ak kn ei ak ako Rbk a KK ok 
SUBROUTINE CHECKFORSWAP3 
BEGIN 
IF CTSePRTROWCPLMIX)],CPSFJ)#40 THEN 
BEGIN 
IF T®2 THEN 
BEGIN 
LOCOUNTEPIMIXI sent} 
STOPM3 
END ELSE 
IF T#1 THEN SWAPCFORCESWAP?3)3 
END} 
IF ELAPSEDLIMITCPIMIX] GTR IOTIMECPIMIX) THEN 


IF PROCLIMITCPiMIXI>PROCTIMELCPIMIXJ+CLOCK+PCRTR) THEN GO EXIT? 


FOR TSeSCCPIMIX] STEP 1 UNTIL LCLPIMIX] DO 
IF ACTIVECTI>1 THEN 
BEGIN 
LOCOUNTCPIMIX]s=913 
SWAPCTIMENDe1)3 
ELAPSEDLIMITEPIMIXJ]ts*P(OUP)+1263 
PROCLIMITCPIMIXJ] ¢="P( DUP) +643 
* GO TO EXITS 
END3 


EXIT 


ENDS % OF CHECKFORSWAP 
Pee TTTTIT TIT T TTT ET TTT TTT LITT TTT LTT TTT TT LT: 
SUBROUTINE GETASEGMENTS 
BEGIN 
SEGtESC29)3 
DISKWAITC*Se{CF1e300eSEG)3 
FORGETESPDISKC(SEG)3 
14323 
ENDS & OF GETASEGMENT 
IOI ERGO RIOR ISO GOI ICR IO IOI RIOR I IORI IO ROTOR I IOI OIOI IHG Ik 
SUBROUTINE ABORTS 
BEGIN 
IF ZEROING THEN 
BEGIN 
HO4],C4382)3813 
H£4),C2s1)9403 
DISKWAITCTHING, (CCF J2302eTHING CFF J)3 
FORGETSPACE(H)3 
END3 
WHILE S€29] NEQ 0 DO GETASEGMENT3 
GO INITIATES 
END} % OF ABORT 
TeT TTT TTT TTT TTT TTT TTI TTT TT eT TTT TTT ete Tet Ti ttt itt tt! 
SUBROUTINE 103 
BEGIN 


28727000 
28728000 
28729000 
28730000 
28800000 
28801000 
28802000 
28803000 
28804000 
28806000 
28807000 
28807100 
28807120 
28807140 
28807160 
28807180 
28807200 
28807220 
28807240 
28807260 
28807280 
28807300 
28807320 
28807340 
28807360 
28807380 
28807400 
28807420 
28807440 
28807460 
28807480 
28807500 
28807520 
28807540 
28807560 
28807580 
28808000 
28809000 
28810000 
28811000 
28812000 
28813000 
28814000 
28815000 
28816000 
28817000 
28818000 
28821000 
28821500 
28822000 
28822500 
28823008 
28823500 
28824000 
28824250 
28624500 
28827000 
28828000 
28829000 
28830000 


STREAMCDSKADRIFQ+Ne DS S(BUFFADR INX (2xW)))3 
BEGIN SIt#LOcC DSKADRI NS!=8DECS END? 
RSULTCWJ 803 
JOREQUESTCYLOD(W]8@3770£25:40968)@ 
TODCWIRCIF CTteNI"°N) LSS 63 THEN 51247 ELSE 512463) 
CCTFJ]»cW ENX RSULT))3 
N§2N4633 
END? & OF JO 
BS tee ORR ORR OR ORR ORB Ok ORO SOR ROR EO de 
SUBROUTINE ZEROAROWS 


BEGIN ; 
NiteH(8)3 BNO, OF SEGMTS/ROW 
QttHIK+9)}3 BDISK ADDR OF ROW 
Wts0} BUFFER NO, 
Niz03 ZINDEX OF SEGMTS 
103 
Weds BSWAP BUFFERS 
IF N GEQ@ Ni THEN RSULTE1);*RSULTC1) OR LOMASK ELSE 
LOOP$ 103 
WATES COMPLEXSLEEPCCCCRSULTE1"W)) AND TOMASK)#0) OR DSED)3 


IF DSED THEN ABORT! 
WetF (RSULT([O] AND RSULTE1)] AND ITOMASK)#40 THEN 1°W ELSE 
CCRSULTE1) AND JOMASK)#0)3 
IF N<Ni THEN GO TO LOOP3% ROW IS NOT FINISHED 
COMPLEXSLEEPCCCCRSULTE1"W)) AND TOMASK) NEQ@ 0) OR DSED)3 
IF DOSED THEN ABORT? 
ENDS%0F ZEROAROW 
TET TT TTT TT CCST TTT TET ET TTT T CLIT TL TTL TTL TELL Litt: 
SHPCMECSPACE(30)J1830(8836410)3 
XtBCMCSPACEC10239112102308:38810]3 
TYPE S#COMMON,CFFI3 
S029): "COMMONS (CF J3 
GETASEGMENT? 
XCOJ];@143 
MOVECLO22eXe(X(1]))3 


GETONES 


IF DSED THEN ABORT? 

IF 1726 THEN GETASEGMENT? 

XCJ]seSc1)3 

XCJetJesSCi+1)3 

Jeeleas | 

IF SCle1+2)#@14 THEN GO GETONE3 

1ODs™CMCSPACEC8)IJI8208138310)3 

RSULT#aC2 INX 10D)818(8:38310)3 

BUFFADRI®C(4 INX 100)8408338110)3 

LOOCOJsSCBUFFADR INX 0)81(6¢38210383(514612)3 

LODE ISSCBUFFADR INX 2)81C8s38s10] 8305s 4612)3 

Jtee23 

ZEROING{5S13 

WHILE X(JeJe2J)#014 po &% 

BEGIN 
HtSCMCTHINGI#DIRECTORYSEARCHC(X( JJ] oX( 06) 3059118 3068936810)3 
IF DSED THEN ABORT3 
IF THING#O OR MC THING+43,(4312]33 THEN GO ARD3 
HOSS CHePCDUPIIRSILAZE46s21B1C2:47s1IaSYSNOC4246:2)3 
DISKWAITCTHING, CCF] e300 THINGS LFF J)3 
UBMESSCXE J] eXCU41)96200002001)3 


26831000 
28631500 
28831600 
28832000 
28832500 
28833000 
28833500 
26834000 
28834500 
28835000 
28835500 
28836000 
28836500 
28837000 
28837500 
28838000 
28838500 
28839000 
28847000 
26848000 
26849000 
28850000 
28651000 
28852000 
28852100 
28852200 
28853000 
28654000 
28855000 
28856000 
28857000 
28858000 
28659000 
28860000 
28861000 
28862000 
28863000 
28864000 
28665000 
28866000 
28667000 
28868000 
28869000 
28870000 
28871000 
28872000 
28873000 
28877000 
28878000 
28879000 
28880009 
28881000 
286882000 
288862100 
28882200 
28882400 
28883000 


FOR Ke} STEP 1 UNTIL HE9),£4315) DOB WRITE OUT FILEs ROW BY ROW26884000 


_TF HOK+99#0 THEN BEGIN ZEROAROWF CHECKFORSWAP? END3 
HO43,C4382]t203 % NO LONGER SENSITIVE OR BEING ZEROED 


28885000 
28886000 


DISKW 
FORGE 
PCDIR 
ARD! 
END} 
GO INITIAT 
Q@NDs % OF LIBR 
$ SET OMIT & 


AITCTHING, CCF J] +30 THING CFF IDS 


TSPACECH)3 | 
ECTORYSEARCHCX( J) sXCJ+1)06) eDELDS 


E% 
ARYZERO 
NOTCAUXMEM) 


PROCEDURE FILLORKILLC Ae START* SIZE» TYPE)3 


VALUE 
ARRAY 
INTEGER 
BOOLEAN 
BEGIN 


; 


INTEG 


REAL 


DEFIN 


DEFIN 
LABEL 


SUBRO 
BEGIN 


Ao STARTs SIZEs TYPES 

AL*)} 

START» SIZE3 

TYPE3 

COMMENT START IS A BIT INDEX JN ARRAY A 
(WHICH IS EITHER A FINE TABLE OR A 
COARSE TABLE), SIZE JS THE NUMBER 
OF BITS TO TURN ON OR OFF, TYPE JS 
USED TO TELL YOU WHICH TO DO, THIS 
ROUTINE ALSO COMPUTES THE NEW "LONGRUN® 
VALUE AFTER ALLOCATION OR RETURN, 


ER Je % CURRENT WORD INDEX IN ARRAY A 
Ne % LAST INDEX EXCEPT FOR OVERFLOW 
X3 % BIT INDEX OF LAST BIT IN LAST WORD 
Je %® TEMPORARY STORAGE FOR ACI] 
Ts % TEMPORARY USED FOR RUN SEARCH 
RUNe % SIZE OF LONG RUN ALREADY FOUND 
RMASK» % MASK FOR NEXT LARGER RUN 
MASK3 % CONTAINS “AND NOT” OR "OR" MASK 
E RETURNING © TYPE#3 % #0 IF TO ALLOCATE 
% #1 IF TO RETURN 
E STOP = SIZE#3 & LAST BIT TO ASSIGN OR RETURN 
TRYNEXT.e % SEARCH FOR LONGER RUN 
FOUNDRUN® % STUFF RUN LENGTH IN 
FINISHUP»s % INCREMENT JNDEX AND EXIT 
% 


WHOLEBUNCHOFBITS3 2*32")5 USED IN MASKING 
UTINE WHATEVERTURNSYOUONS 
Tote J te ACII,£9139)3 
If RETURNING THEN J s® J OR MASK 
ELSE J 3 J AND NOT MASK} 
COMMENT TURN BITS ON OR OFF"™"THIS IS THE 
GUTS OF THE ALLOCATION/RETURN MECHANISM3 
IF TJ THEN GO 10 FINISHUPS 
COMMENT IF TeJs NO BITS WERE CHANGED SO THE 
PREVIOUS RUN COUNT IS CORRECT, THIS 
MAY RESULT FROM "ALLOCATION" OF COARSE 
ENTRIES IN THE FINE ALLOCATION PROCESS} 
IF (TseJ)eCRUNS80) THEN GO TO FOUNDRUN?) 
COMMENT IF J IS ZERO» ITS RUN IS OBVIOUSLY ZEROe TOO} 
RMASK 8% 4} 
COMMENT NOW TO LOOP AROUND FINDING THE LONGEST 
XRUNX OF BITS IN THE WORD, NOTE THAT 
ALTHOUGH THERE ARE REALLY TWO LOOPSe 
THEY ARE MUTUALLY EXCLUSIVE, THE 
METHOD USED 1S TO TEST THE LOw ORDER 
BITS AGAINST A MASK FOR EQUALITY» 
INCREASING THE LENGTH OF THE MASK BY 


28887000 
28888000 
28689000 
28889550 
28890000 
28691000 
28692000 
28999999 
29000000 
29001000 
29002000 
29003000 
29004000 
29005000 
29006000 
29007000 
29008000 
29009000 
29010000 
29011000 
29012000 
29013000 
29014000 
29015000 
29016000 
29017000 
29018000 
29019000 
29020000 
29021000 
29022000 
29023000 
29024000 
29025000 
29026000 
29027000 
29028000 
29029000 
29030000 
29031000 
29032000 
29033000 
29034000 
29034100 
29034200 
29035000 
29035100 
29035200 
29035300 
29035400 
29036000 
29036100 
29037000 
29037100 
29037200 
29037300 
29037400 
29037500 
29037600 
29037700 


TRYNEXTS3 


FOUNDRUN?! 


FINISHUPS 


ONE BIT WHEN SUCCESSFUL AND SLIDING THE 
TEST WORD ONE BIT RIGHT OTHERWISE? 
IF CT AND RMASKISRMASK THEN 
® IF EQUALs THE RUN IS THERE 
TF CRUNS#®RUN+1)&& THEN GO TO FOUNDRUN 
% WE ONLY CARE ABOUT RUNS OF EIGHT OR LESS» 
% BECAUSE OF THE ALLOCATION STRATEGY AND 
% THE USE OF COARSE/FINE TABLES, 
ELSE RMASK t# RMASK4+PCDUP) 41 
% THIS INCREASES THE MASK LENGTH BY ONE BIT 
ELSE T #® 7,£9938)3 
% IF THE RUN WAS NOT THERE*s SLIDE TEST WORD RIGHT 
IF RMASK LE@ T THEN GO TO TRYNEXT3 
COMMENT IF RMASK IS GREATER THAN Te YOU OBVIOUSLY 
CANNOT FIND A LONGER RUNS 
ACI) &% J & RUNE3#42:6)3 
I ¢™ [els 
MASK 3% PCWHOLEBUNCHOFBITS) & MASKL9t4187)3 
COMMENT BECAUSE OF THE SEVEN"BIT OVERLAPe YOU 
MUST MOVE THE SEVEN LOWRORDER BITS 
OF THE MASK TO THE HIGH*ORDER BIT 
POSITJONS OF THE NEXT MASK, THIS CAUSES 
THE PROPER PROPAGATION OF "CARRIES,"3 


END DOING YOUR OWN THING WHAT EVER JT 1S3 


] t= START,C37:6)3 N s® ¢ STOP $&@ START+SIZE"1),(3736)3 
COMMENT I IS THE STARTING WORD INDEX IN Ae AND 


MASK 


N IS THE ENDING INDEX CEXCLUSIVE OF ANY 
POSSIBLE CARRYOVER) 
te THOC32"START,C4345))"13 


COMMENT TURN ON ALL BITS BELOW THE START POINT} 


WHILE 


I<N DO WHATEVERTURNSYOUONS 


COMMENT WHILE } IS LESS THAN Ne TURN OW COR OFF) 


MASK 


ALL BITS CLEAR TO THE END, THE SUBROUTINE 
WILL REBUILD THE MASK AND INCREMENT ]3 
te MASK@TWOC3L"(XteSTOP,(4325)))413 


COMMENT THIS CODE TURNS OFF THOSE BITS FOLLOWING 


THE LAST TO THE END OF THE WORDs LEAVING 
THE HIGH ORDER PART UNCHANGED, NOTE THAT 
THE ORDER OF ARITHMETIC OPERATIONS IS 
IMPORTANT (TO AVOID NORMALISATION)3 


WHATEVERTURNSYOUON3 
IF X>24 THEN ® IT OVERFLOWS INTO THE NEXT WORD 
BEGIN MASK t= MASK AND NOT PCWHOLEBUNCHOFBITS)3 


ENDS 


WHATEVERTURNSYOUON 


PCXIT)3 
WHOLEBUNCHOFBITS$33 @377777777773 
END FILL OR KILL A FEW BITS$ 


VALUE 
INTEGER 


INTEGER PROCEDURE AUXILIARYSPACECSIZE)3 


SIZE3 
SIZE} 


BEGIN COMMENT 
IF SUFFICIENT AUXILIARY MEMORY SPACE EXISTS 

CCONTIGUOUSLY»s OF COURSE)» AUXSPACE WILL 
ALLOCATE JT AND REMOVE [7 FROM THE BJT TABLES, 
THE SEARCH HAS BEEN OPTIMIZED TO DETERMINE 
AVAILABILITY» AND WILL RETURN A ZERO IF THERE 
1S NO SUCH SPACE AVAILABLE, THE VALUE 
RETURNED IF SPACE IS ALLOCATED 18 A PSEUDO#@ 


29037800 
29037900 
29038000 
29038100 
29039000 
29039100 
29039200 
29039300 
29040000 
29040100 
29041000 
29041100 
29042000 
29042100 
29042200 
29043000 
29044000 
29045000 
29045100 
29045200 
29045300 
29045400 
29045500 
29046000 
29047000 
29048000 
29048100 
29048200 
29048300 
29049000 
29049100 
29050000 
29050100 
29050200 
29050300 
29051000 
29051100 
29051200 
29051300 
29051400 
29051500 
29052000 
29053000 
29054000 
29055000 
29056000 
29057000 
29058000 
29059000 
29100000 
29101000 
29102000 
29103000 
29104000 
29105000 
29106000 
29107000 
29108000 
29109000 


29110000 


DALOC ENTRY» OF A FORM NICE FOR STUFFING INTO 
ABSENT DESCRIPTORS AND FOR CALLING UPON 
ACTUALOVERLAYADDRESS WITH, 


j 


INTEGER 
INTEGER 


REAL 


ARRAY 


DEFINE 


CFRONT % +13% PSEUDONYM FOR AUXILIARYSPACE 


CBITS, % NUMBER OF COARSE BITS NEEDED 
MASK, % MASKS OFF PROPER RUN LENGTH 
INDEX» % CTABLE OR FTABLE INDEX 

Ie NB 

v3 

COARSETABLEL#)» 


FINETABLE (C¥)3 


LONGRUN = [3t6)#» 
ALLOCATE CALLOCATEL®ALLOCATE2sALLOCATE3) & 
FILLORKILLCALLOCATEL¢ ALLOCATES ALLOCATE 320) #3 


SUBROUTINE FINESEARCHS 
BEGIN COMMENT ATTEMPT TO ALLOCATE FROM ONE 


TO SEVEN CONTIGUOUS BITS 
FROM THE BACK OF THE FINE TABLES 


FOR 13863 STEP "1 UNTIL O DO 
IF FINETARLECI),LONGRUN GE@ SIZE THEN 
BEGIN J t= FINETABLE(II,(9939)3 
COMMENT AT LAST WE GET TO USE THE “LONGRUN” INDICATORS 


WHICH WE HAVE SO PATIENTLY BUILT EVERY TIME 
THROUGH FILLORKILL, THE MECHANISM IS 

USED SO THAT THE WORST CASE CAUXILIAKY 

MEMORY NOT AVAILABLE) CAN BE HANDLED 

WITH THE UTMOST DISPATCH» AND WILL CAUSE ONLY 
MINOR DEGRADATION IN THE DISK ALLOCATION PROCESS: 
MASK t= TWOCKIZED™13 N $B 32*SI1ZE3 

WHILE CJ AND MASK)#MASK DO 

BEGIN MASK t= MASK+P(DUP)3 N 38 N@1 END} 


COMMENT STARTING AT THE LOW END OF THE WORD» 


SLIDE THE MASK LEFT UNTIL WE FIND 

THE FIRST ACCEPTABLE RUN, BECAUSE OF 

THE "LONGRUN® MECHANISMe WE KNOW 

WE WILL FIND SUCH A SET OF BITS? 
ALLOCATECFINETABLEs CFRONT#t@32xI14Ns SIZE)3 


COMMENT ALLOCATE "SIZE" BITS FROM THE FINE TABLES 


ALLOCATECCOARSETABLE» CFRONT, [3639 )¢ 
CCCFRONT,€C4513)+S12ZE)>8)41)3 


COMMENT ALLOCATE FROM THE COARSE TABLE EITHER 


END 
ENDS 


ONE OR TWO BITS» DEPENDING ON WHETHER 
WE OVERLAP THE END OF A SET OF EIGHT 
FINE BITS CORRESPONDING TO A GIVEN 
COARSE BIT, NOTE THAT ONE (OR BOTH) 
OF THESE BITS MAY ALREADY BE OFFe BUT 
IT 1S QUICKER TO "RE*ALLOCATE® THEM 
THAN TO TEST FOR IT SPECIALLY3 

1 8s= 0 


SUBROUTINE COARSESEARCHS 
BEGIN COMMENT SEARCHES FOR AND ALLOCATES 


SPACE FROM COARSE AND FINE 


29111000 
29112000 
29113000 
29114000 
29115000 
29116000 
29117000 
29117400 
29117200 
29118000 
29118100 
29119000 
29120000 
29121000 
29121100 
29122000 
29122100 
29122200 
29123000 
29124000 
29125000 
29126000 
29127000 
29128000 
29129000 
29129100 
29429150 
29129200 
29129300 
29129400 
29129500 
29129600 
29129700 
29130000 
29131000 
29132000 
29132100 
29132200 
29132300 
29132400 
291432500 
29133000 
29133100 
29134000 
29135000 
29135100 
29135200 
29135300 
29135400 
29135500 
29135600 
29135700 
29135800 
29136000 
29137000 
291368000 
29139000 
29140000 
29141000 
29142000 


TABLES» USING COARSE TABLE 


TO FIND THE AREA*® AND FINE 
TABLE TO SQUEEZE OUT GAPS3 


FOR 1380 STEP 1 UNTIL 7 DO 


IF CJ 


t= COARSETABLECI])«LONGRUN GEQ@ CBITS THEN 


BEGIN COMMENT THERE IS SUFFICIENT SPACE IN THIS WORDS 


END 
END} 


MASK t& (NOT 0),f9839]"TWOC39@CBITS) 413 N 8% @73 
WHILE CJ AND MASK)#MASK DO 
BEGIN MASK t= MASK,(9338J3 N %* N#i ENDS 
COMMENT SLIDE MASK RIGHT UNTIL YOU FIND THE FIRST 
SUFFICIENTLY LONG RUN,» NOTE THAT BIT 
SIXTEEN IS THE ZERO POINT» SINCE THE 
PRECEDING BITS ARE "CARRIES"3 
CFRONT t® 32x]4N3 
COMMENT NOW CHECK FINE TABLE TO SEE 
HOW FAR YOU CAN BACK UP 
THIS ENTRY» USING THE 
“NORMALISED” CFRONT TO 
GIVE THE FINE INDEX, 
NOTE THATe SINCE WE TOOK 
THE FIRST AVAILABLE SPACE 
OF SUFFICIENT SIZE FROM 
THE COARSE TABLE» WE CAN 
BACK UP SEVEN OR LESS BITS 
BY USING THE FINE TABLE» NOTE THAT 
THE SEVEN®BIT OVERLAP IN EACH 
WORD JS BOTH NECESSARY AND 
SUFFICIENT, 
; 
STREAMCONE®0 & CFRONT(431466:2]8 % 8xC(CFRONT MOD 4) 
TERFINETABLECCFRONTs(393711)3 
BEGIN SJ]s#LOe Ts SI]#sS1413 
SKIP 3 SBS SKIP N SB3 
7C1F SB THEN TALLYSsTALLY+! 
ELSE TALLY:20O$ SKIP SBD) 
NteTALLY 
END} 
IF PCDUP)>CS)3ZE"1),04533) 
THEN CBITS $® CBITS*43 
COMMENT IF TEST WAS PASSEDe WE SAVED A COARSE BIT} 
ALLOCATECCOARSETABLE» CFRONTs CBITS)3 
CFRONT $% PC(CHS)+8xCFRONTS 
ALLOCATECFINETABLE® CFRONTs SIZE)D3 
I 3% 7 


SUBROUTINE SEARCH3 


BEGIN 


IF CCCENDEX#1) AND PCRRR),£3081]) OR 
CCINDEX#®0) AND PCRRR),(31%13)) THEN 
IF NOTCUNITCIG+INDEX],C1481)) THEN & CHECK FOR AUXMEM ERRORS 
IF (COARSETABLE t# CTABLELINDEXIJ),£CFI#0 THEN 
BEGIN FINETABLE #& FTABLELINDEX)} 
IF SIZE<8 THEN FINESEARCH 


END} 
END} 


ELSE COARSESEARCH 


a a 2 2 ee ee 2 2 2 2 | 


29143000 
29144000 
29145000 
29146000 
29147000 
29148000 
29149000 
29150000 
29151000 
29152000 
29153000 
29154000 
29155000 
29156000 
29157000 
29158000 
29159000 
29160000 
29161000 
29162000 
29163000 
29164000 
29165000 
29166000 
29167000 
29168000 
29169000 
29170000 
29171000 
29172000 
29173000 
29174000 
29175000 
29176000 
29177000 
29178000 
29179000 
29180000 
29181000 
29182000 
29183000 
29184000 
29185000 
29186000 
29187000 
29188000 
29189000 
29190000 
29190100 
29190150 
29190160 
29190200 
29191000 
29192000 
29193000 
29194000 
29195000 
29195100 
29196000 
29197000 


IF SIZE 21022 THEN PCOreRTN)3 
IF (SIZE 3© SIZE.£3886)41)<8 THEN INDEX 8 | 
ELSE CBITS t= (SIZE47),.139%6)3 
CFRONT t# "15 SEARCH} 
IF CFRONT<O THEN 
BEGIN INDEX = 1"INDEX3 SEARCH END3 
IF CFRONT<Q THEN CFRONT 38 0 
ELSE CFRONT ts CFRONT & CL4#+{NDEXILS3¢4434)3 
END AUXILIARYSPACE3 
PROCEDURE FORGETAUXILIARYSPACECSIZE*LOC)E 
VALUE SIZE» LOC3 
INTEGER SIZE» LOC$ 
BEGIN COMMENT RETURNS AUXILIARY MEMORY SPACE 
TO THE FINE AND COARSE TABLES. 
EXAMINES BOUNDARY CONDITIONS TO 
DETERMINE WHETHER COARSE TABLE 
UPDATE IS REQUIRED» MARKS FINE 
TABLE ENTRIES IN ANY EVENT? 


INTEGER FIRST» 
LAST» 
TABLE» 
INDEX$ 
ARRAY FINE TABLEC*]3 


DEFINE RETURNCRETURNI*RETURN2»RETURN3) = 


FILLORKILLCRETURNI»RETURN2PRETURNI6 1 DES 


BOOLEAN SUBROUTINE NOTALLTHERES 
BEGINSSTREAMCNS®INDEX AND 243 
TH@NOT FINETABLECINDEX.(3786)1)3 


BEGIN SITt##LOc Ts SiteS14+23 SKIP 3 SBS SKIP N SBs 
BCSKIP SBs IF SB THEN TALLY8#1)3 NtwTALLY 


ENDS 
NOTALLTHERE ## POLISH 
ENDS 


RETURNCF INE TABLE &@FTABLELTABLES LOC ,(L 3682) ] 6 


LOCtRLOCel37tiLleCSIZESHSIZE, 03886) 24193 


FIRST 8% CINDEX #3 LOC) eL3728)5 
IF NOTALLTHERE THEN FIRST t&@ FIRST+13 


IF CLAST &* CINDEX t® LOCH+SIZE eL37IBIISFIRST THEN PCXIT)3 


IF NOTALLTHERE THEN 
IF CLASTUsLAST#1)<FIRST THEN PCXIT)3 
RETURNCCTABLELTABLE Je FIRSTs LAST*FIRST4+1)3 
END FORGETTING AUXILIARY MEMORY SPACE; 
PROCEDURE AUXILIARYTABLEINITIALIZE3 
BEGIN INTEGER AREAs 
INDEX} 


LABEL CONS» 
CON2}3 
BOOLEAN B3 
SUBROUTINE SETUPARRAYRONW: 
BEGIN COMMENT SETS UP COARSETABLE AND FINETABLE 


ENTRIES FOR AVAILABLE ROW "INDEX™ (CO OR 193 


IF AREA®O THEN AREA t# GETSPACE(742001)423 


MCAREA#2] te PCCON2)3 MOVECTI® AREAL ePCOUP)41)3 


29198000 
29199008 
29200000 
29201000 
29202000 
29203000 
29204000 
29205000 
29206000 
29207000 
29300000 
29301000 
29302000 
29303000 
29304000 
29305000 
29306000 
29307000 
29308000 
29308100 
29309000 
29310000 
29311000 
29312000 
29312100 
29313000 
29313100 
29314000 
29315000 
29316000 
29317000 
29318000 
29319000 
29320000 
29321000 
29322000 
29323000 
29324000 
29325000 
29326000 
29327000 
29328000 
29329000 
29330000 
29331000 
29332000 
29333000 
29334000 
29400000 
29401000 
29402000 
29403000 
29404000 
29405000 
29406000 
29410000 
29411000 
29412000 
29413000 
29414000 


CON43 
CON23 
END: 


MEAREA+9) s& MCAREAJ te PCCONI)3 MEAREA+8) ¢t2 03 
CTABLELINDEX) $* CMLAREA J) & 9188388101 & AREACCTFJs 
FTABLECINDEX) ¢# CMCAREAt9I) & 65(63838510)5 

END) 


SUBROUTINE WHOLETHINGS 
BEGIN AREA *%® CTABLELINDEX),CFFJ3 
IF NOT B THEN 
BEGIN IF ARFA#0 AND AREA<PRT,CCF] THEN 
BEGIN FORGETSPACECAREA)$ AREA t= O ENDS 
CTABLELINDEX] t# O & AREACCTF)3 
FTABLELINDEX) &s= 0 
END ELSE SETUPARRAYROW? 
ENDS 


Behe ee ORR ROK AOR IOR RRR RRR RO OO OR Oe 
INDEX $* OF B $8 USEDRA AND PCRRR)L3101)3 WHOLETHING: 
INDEX $2 13 RB ts USENRB AND PCRRR),C3081]3 WHOLE THINGS 
PCXIT)3 

ti COLOU03TS 777777773 

3 POLOT7T7T77777777773 


PROCEDURE AUXILIARYMEMORYCASUALTYRECOVERYS 
BEGIN COMMENT RECOVERS "LOST" AUXILIARY MEMORY 


LOOP} 


USED FOR DATA STORAGE FOR A JOB 
WHICH TERMINATED ABNORMALLYS$ 
REAL Je RSLT» I0D3 
INTEGER le 
Tr 
INDEX3 


ARRAY AT*]}3 


LABEL LOOP. 
EXIT. 
DONE3 


SUBROUTINE FIRSTAIDS 
BEGIN JF CAtSFTABLECINDEX)) = (1680) THEN GO TO EXIT3 

IF 3e€3683]) THEN GO TO EXIT3 
IF CJ t= (NOT ALI ,0£037%633)e0£16%832))50 THEN 
BEGIN I = CL OR 32)413 GO TO LOOP END3 
STREAMCJ8 Stel, C4385] e NSSPCDUPs 329 XCHs SUB))3 
BEGIN SIssLOc Js SIaaSle23 

SKIP 3 SB? SKIP S SB} 

NCSKIP SB? IF SB THEN JUMP OUT3 

TALLY S@TALLY41)3 

JIESTALLY 
END? 
IF ITel3627] ACT 8ePCXCH)4+1),03637] THEN GO TO LOOP} 
10D t# T & 12284781) & CL1FINDEX) (484632) & 

146836810) & 1018437811)3 
LOREQUESTCNABSCIOD «¢10De CRSLTJ&CI6+4+INDEX)012214236))3 
RSLT ¢t® Of} 
SLEEPCURSLTJ] + 1OMASK)$ 
IF RSLT,C2687] NEQ QO THEN ® AUXMEM ERROR 
BEGIN 
AUXDATACPIMIX] i# 03 GO TO DONE} 

END} 
IF CJteM(T])>0 AND J,CCFI*PIMIX THEN 


29415000 
29416000 
29417000 
29418000 
29419000 
29420000 
29421000 
29422000 
29423000 
29424000 
29425000 
29426000 
29427000 
29428000 
29429000 
29430000 
29431000 
29432000 
29433000 
29434000 
29435000 
29436000 
29500000 
29501000 
29502000 
29503000 
29504000 
29505000 
29507000 
29509000 
29510000 
29511000 
29512000 
29513000 
29514000 
29515000 
29516000 
29517000 
29518000 
29520000 
29521000 
29522000 
29523000 
29524000 
29525000 
29526000 
29527000 
29528000 
29529000 
29530000 
29531000 
29531100 
29531200 
29531300 
29531400 
29531500 
29531600 
29531700 
29531800 
29532000 


BEGIN FORGETAUXILIARYSPACECJCFFJ» J & INDEX£3684731])3 
IF CAUXDATALPIM]X] % 3 *P(DUP)"=J,(2336)91) = O 
THEN GO TO DONES 


ENDS 
1 8 [4Je(23r6)ei3 
GO TO LOOPS 


EXIT8s 
END FIRSTAIDS 


IF AUXDATACPIM]XJ#O THEN PCXIT)3 
T €@ GETSPACE(C107005)+33 
WAITSTORECPIMIX)3 STOREDYCPIMIX) $203 
FIRSTAID3 INDEX t% 13 FIRSTAID: 
DONES! FORGETSPACECT"1)3 
$ SET OMIT & NOTCDEBUGGING) OR OM]T 
TF AUXDATALPIMLXI]#0 THEN DDT) 
$ POP OMIT 
STOREDYCPIM]X)te13 
END CASUALTY RECOVERY OF STORAGE THROUGH LINKS IN AUX MEMS 
$ POP OMIT 
COMMENT ERRORMESSER IS CALLED BY ERRORFIXER CIF OPTION 33 IS ON) TO 
TYPE OUT A PSEUDO*®TERMINAL MESSAGE, IT DOES ABOUT THE SAME 
THING AS THE FIRST PART OF TERMINALMESSAGES 
PROCEDURE ERRORMESSERCTYPE)$ VALUE TYPE REAL TYPE3 
BEGIN INTEGER SeADRe BF eSAeN3 
NAME SD3 
LABEL L3 
BF t® SPACE(10)3 
SD*PRICPIMIXe4]3 
NT1*¢SO(L0]3 
ADReMECPRTIEPIMIXe8I]I,CCFI3 
FOR Se1 STEP 1 UNTIL NTL DO 
IF CSA*SD(6S),£18%15])71023 AND SASADR AND SOESJ>0 THEN 
IF MCSA*1),C16815]+SA2ADR THEN GO L3 
$«0} 
Lt SO#(MESPACECTERMSGSZ)]]3 
ADR*ADR"™SA3 
DISKWAITC™C(SD INX 0) +TERMSGSZsMESSAGETABLE(1]5(22326])3 
NeIF TYPEs1 THEN 11 ELSE IF TYPEs2 THEN 9 ELSE IF TYPE®4 THEN 
7 ELSE JF TYPEs& THEN 13 ELSE 53 
STREAMCM@ESDEN) Jo JeLJARLPIM[Xe0) J ePLM[XeSeADReX#S#0eBF)S 
BEGIN SJeMS Sy#S1423 OS*6 CHR} BFeDIS DIeLOC M3 SleSi413 
DI*DJ+73 DS*CHR? DI*BFs DSM CHR DSe8 LIT" BRANCH "3 
SleJs SyeSil413 DSe7 CHR’ DSeLIT#/"3 
SI*S]+#13 DS*7CHRS DSeLIT*e"s ST*LOC PIMIX3 
DS*2DEC3 BFeDIS OleDI"2s DSe*FILLS DIeBF3 
XCpS*5 LIT"s S #3 SpeLOC Ss DSe4 PECs DS*5 LIT» A =} 
DS¢4 DEC! BFeDI: DI*DI"43 OS*3 FILL} 
DI©BFS OLeDI%133 DS*3 FILL) 
DI*BFS DS* LIT"; 
END? 
FORGETSPACECSD)) 
— SPOUTERCBF eOeERRORMSG)3 
END ERRORMESSER} 
PROCEDURE ERRORFIXERCTYPE)3 VALUE TYPES INTEGER TYPES 
COMMENT LOOKS FOR RUN*@TIME"ERROR ACTION LABELS IN ALGOL PROGRAMS? 
AND HANDLES THEMs RETURNING ONLY IF NO LABEL GIVEN3 
BEGIN ARRAY AITU*J*PRID( #13 
NAME ADDR} 
REAL I» GOTs ADR#ADDRe LABLE} 


29533000 
29534000 
29535000 
29536000 
29537000 
29538000 
29539000 
29540000 
29541000 
29542000 
29543000 
29544000 
29546000 
29547000 
29547049 
29547050 
29547051 
29548000 
29549000 
29549001 
30900000 
30901000 
30902000 
30903000 
30904000 
30905000 
30906000 
30907000 
30908000 
30909000 
30910000 
30911000 
30912000 
30913000 
30914000 
30935000 
30916000 
30917000 
30918000 
30919000 
30920000 
30921000 
30922000 
30923000 
30924000 
30924500 
30925000 
30926000 
30927000 
30928000 
30929000 
30929500 
30930000 
30931000 
31000000 
31001000 
31002000 
31003000 
31004000 
31005000 


CHECKSTACKSPACES 


IF TYPE ®2 THENZSOVRELW 
IF JARCPIM]Xe2),0381) THEN 
IFCPRTCPIM]Xs@51JAND @20)#0 THEN 
BEGIN IeMLADRePRICPIMIXe8) INX O73 
STREAMCT#C] INX 098103011082) +GO0Te#(GOTI)3 
BEGIN SleJsS]leSl*2;D]*DI1+6sDS*2 CHR END} 
IF GOT,£4583)55 THEN MEADR™3)+@77777777777773 
MCADR®2ZI1e@7777777 7777777973 
PRTEPIMIXe@51) 6L45¢2)e23 
GO TO INITIATE3 
END} 
PRTD « PRTROWEPIMIX]3 
WHILE CATT*PRTD 
MAKEPRESENTCCPRTD 
LeAITCOJ413 
DO fey) UNTILCCGOT® CADDReAITELII)«OWNBIT AND (€ ADR,CCF) 
sTYPE)) ORC]<1))% & LOOK FOR ENTRY 
IF GOT THEN % WILL REINITIATE THE GUYe SO SET HIM UP 
BEGIN IF CLABLE*M£ ADR aMOMJ)#0 THEN 
IF LABLE#15 THEN 
IF GABLE sBLKCNTRSC(PRTIDL16)+CLABLE »MOM#0) )THEN 
BEGIN IF PRTp® CCURBLKCNTRIJ>LABLE»BLKCNTR THEN 
BEGIN PRTD C[CURBLKCNTRIJ*LABLE,BLKCNTR#+13 
ASR} 
ENDS IFCADDOR*LABLE »MOM)#0 THEN 
LABLE »sMOM*ADDRePRTIDE10) -MOMe23 
ADDR*ADDR&ADRL333833815]3 


LAITNDX)),PBIT=O DO 
CAITNDXJ] INX 0)3 


$ SET OMIT = PACKETS 


$ POP OMIT 


IF ERRORMSG THEN 


ERRORMESSERCTYPE)3 
IF PRTIDCLABLE,CCFI],PBIT#0 THEN 
MAKEPRESENTCEPRIDCLABLE,(CFJJI,CCFI)3 
DO UNTIL C*CADDReHUNTCADDRE1))).01333)843 
ADDR LileMEPRTD [8] INX NOT O73 
ADDR CL2JeMULPRTD (8}]&O0L1021022)& 
CLABLE)J £18#18815)&PRTD CCLABLE) CCF IIJ£33833915)3 
PRTD CBJePCDUP»LODISCADDR FNX 2)633833815)3 
GO INITIATE3 


ENDS END3 
END ERRORFIXER3 
PROCEDURE SKIPFILECUSD)S VALUE UeDs REAL UeD3 
BEGIN REAL TieT2efODeK$ 


Lt 


NAME N3 
LABEL LeEXIT3 
N ¢8 [T1]3 
T2+1QMASKS 
LODtBSPACE(C2I8@L4O00(CTFISTINULUIC38385178D0222473193 
LOREQUESTCNABSCIOD)8@377( 2584088) + JODe (NI&UL1224216)); 
K gm 1K} 
NCO] ¢ 03 
N ¢@ K INX [C€T2)3 
WAITORSWAPCUsENJACCFI)3 
IF NCOJ,C2711] THEN GO TO EXIT3 
IF PRTROWCLPiMIX],CPSFJ) #* QO THEN 
BEGIN IF CNT3S@PRTROWCPIMIXJ,CPSFJ)"% THEN 
TERMINALMESSAGECPRIROWCPIMIX), CFR I)3 
IF NT3"#2 THEN STOPM ELSE SWAPCFORCESWAP #1 )3 
GO TO Lis 


31005010 
31005050 
31005100 
31005200 
31005300 
31005310 
31005320 
31005330 
31005350 
31005400 
31005500 
31005600 
31006100 
31007000 
31008000 
31009000 
31010000 
31011000 
31012000 
31013000 
31013050 
31013100 
31014000 
31015000 
31016000 
31017000 
31017100 
31017200 
31017209 
31017210 
31017211 
31017220 
31017300 
31017400 
31018000 
31019000 
31020000 
31021000 
31022000 
31023000 
31024000 
31025000 
31100000 
31101000 
31102000 
31102100 
31102200 
31102300 
31103000 
31104000 
31105000 
31106000 
31107000 
31108000 
31109000 
31110000 
31111000 
31112000 
31113000 
31114000 


ENDS 
IF MEMROWECPIMIX),C 


CFIJ<FENCE THEN GO TO LS} 


IF ELAPSEDLIMITEPIMIX) GTR IOTIMELPIMIX) 


THEN GO TO L3 


FOR NT3 $@ SCEPIMIX) STEP 1 UNTIL LOEPIMIA) DO 


IF ACTIVECNT3) GTR 1 THEN 


BEGIN SWAPCTIMEND» 


123 GO TO Ls ENDS 


ELAPSEDLIMITECPIMNIX JS s*P(DUP) +643 


GO TO L3 
EXITIBLASTQCU)S 

FORGETSPACECIOD)3 
END3 


VALUE MID*F IDs TYPEsFORMS@REELACDATE sCYCLESS 


REAL MIDsFIDe TYPE sFORMSPREEL Se CDATE® CYCLE sKINDES 
BEGIN INTEGER GOTLsGOTTeGOTBeGOTPsGOTCcs 


REAL U3 


31115000 
31115100 


%R5931116000 
%R5931116100 


31117000 


%DS31118000 


REAL PROCEDURE FINDOUTPUTCMID*FID»e TYPE ® FORMS eREELSCDATEP CYCLES KIND) 33 


LABEL EXITeSWeUNsOWTsARQUND® OUKID eX eROUNDe CLAIMTe THERE» SOMEWHERES 


$ SET OMIT # NOTCPACKETS) 


REAL FREEFS LABEL FREELS &® FILE TO BE PRINTED ALONE 


$ POP OMIT 


LABEL WlsW2aWN3eW4eW5eWOeW7D 
DEFINE OSEDECTERMSETCPIMIX)) #3 


LABEL CPeMTeSUePPoCKFMs DOI 


TOVER? 


DEFINE PNTOGSC(TYPE®O OR TYPE GEQ 20)#3 


SWITCH TYPESWeCPeROUND oe MT» SUsROUND #SUsROUNDe PP ePPeMT3 


REAL SUBROUTINE PRINTERS® 

BEGIN IF LABELTABLEL20)#0 
IF LABELTABLEL21)#0 
PRINTER#GOTLeP 5% 

END PRINTER3S% 

REAL SUBROUTINE PTPUNCH3® 

BEGIN IF LABELTABLE[ 26120 


THEN BEGIN Ue203 PC1) END ELSES 


BP 
BP 


BP 


THEN BEGIN Ue2is P(1) END ELSE PCOD3% 


THEN BEGIN Ue263 PC1) END ELSES 


IF LABELTABLE(29]=0 THEN BEGIN Us29s PCL) END ELSE PCO)D32% 


PTPUNCH*GOTPeP 32% 
END PTPUNCH3S% 
REAL TleT2eT333 
REAL SUBROUTINE PUNCH32 
BEGIN IF LABELTABLEL 22350 
PUNCH*GOTC+P} 
END PUNCH? 
REAL SUBROUTINE MAGTAPE;% 
BEGIN IF NOTCGOTL OR GOTB 
BEGIN IF T1#0 THENS 


THEN BEGIN Ue22sPC1) END ELSE PCO)3 


OR GOTC) THEN 


BEGIN FOR UeO STEP 1 UNTIL 15 DO® 
IF (MULTITABLECU) EQV Ti)#NOT O THEN? 
IF LABELTABLELUI<0 THEN 
IF ROCTABLECU],CAI6)SP1MIX THENS 
IF (T3¢PRNTABLECUJ)<O THEN® 


JF MEMCT3,C153 


15)73) INX 5),04181] THENS 


BEGIN P(1)3 GO OWT END32 


ENDS% 


FOR UeO STEP 4 UNTIL 15 DO 
IF LABELTABLECUJ=O AND PRNTABLE(UJ).(C181] 


THEN BEGIN PC1)5 
END32% 
PCO)38 
OWTt MAGTAPE*GOTT+P3% 
END MAGTAPE}® 
SUBROUTINE BADFMS 


GO OWTs END; 


ZBUILD AND SPOUT BAD FM MESSAGE &% 


31119000 
31120000 
31121000 
31122000 
31123000 
31124000 
37000000 
37001000 
37002000 
37003000 


37003100 


37004000 


37004199. 


37004200 
37004201 
37005000 
37006000 
37007000 
37007100 
37008000 
37009000 
37010000 
37011000 
37012000 
37013000 
37014000 
37015000 
37016000 
37017000 
37018000 
37019000 
37019100 
37019200 
37019300 
37019400 
37020000 
37021000 
37022000 
37023000 
37024000 
37025000 
37026000 
37027000 
37028000 
37029000 
37030000 
37031000 


%R9137032000 
%R9137032100 


37033000 
37034000 
37035000 
37036000 
37036100 


BEGIN 


AROUNDS 


ROUNDS 


CLAIMTS 


THERE? 


ZRHR 

TLPFSPACE(10)3 
STREAMCA*TINULCUJ>MXeRIMIXeT1)3 ZRHR 
BEGIN DS#19 LIT "INVALID INPUT UNIT “3 ZRHR 
SI*LOC MXs DS*2 DECI DSe2 LIT"FM"3 ZRHR 
ST¢LOC AS ST*SI45s DS*3 CHR3 ZRHR 
DSeLIT "#"s DleDI"63 DSeFILL3 ZRHR 
END# SPOUTCTI)3 ZRHR 


LABELTABLELTU]+@1143 READY*READY AND CU*NOT TWOCU)D)3 
RRRMECH*RRRMECH AND Us SAVEWORD*SAVEWORD AND U3 ZRHR 
END BADFM SUBROUTIN? aRHR 
REAL SUBROUTINE BKUPTAPES% 

BEGIN IF NOTCGOTL OR GOTC) THEN 

FOR UeO STEP 1 UNTIL 15 DOB 

IF CLABELTABLE(U] EQV 1T3)8NOT 0 THEN 

TF CMULTITABLECU] EQV T2)"NOT 0 THEN? 

BEGIN P(1)3 GO AROUND ENDS 


P(CO)3% 


BKUPTAPE*GOTB+P3% 
END BKUPTAPE3% 
$ SET OMIT * NOTCPACKETS) 
FREEF*TYPEsCisilds TYPE*ABSC(TYPE)3 
$ POP OMIT 
IF TYPE>1 AND TYPE#4 AND TYPE#6 AND TYPE<15 THEN GO SOMEWHERE) 


If TYPERL 


OR TyPeEs4 OR CTYPE>16 AND TYPE<19) THEN 


IF PRINTER THEN BEGIN KIND*$# GO CKFM END} zP 
IF TYPE®O OR (TYPE>20 AND TYPE) THEN 

IF PUNCH THEN BEGIN KIND#*6$ GO CKFM ENDS 

IF TYPER4 OR TYPES6 OR TYPES16 OR TYPE#18 OR 

CTYPE GEQ@ 20 AND NOT TYPE,(4611)) THEN 


BEGIN T1l*03 T2eIF TYPE GEQ@ 20 THEN “PUTMCP * ELSE "PBIMCP "3 
T3€@1222123425464473 
IF BKUPTAPE THEN GO THERE? aP 
IF MAGTAPE THEN aP 
BEGIN MULTITABLECUJ*T2s LABELTABLECUJ«=133 BP 


END$ ENDS 


RDCTABLECU],CO%6)+PiMIX3 
RRRMECHeTWOCU) OR RRRMECH? %P 
IF REEL#®0O THEN REELeL3 
Tl tm SPACE(C10)421 
STREAMCUSSTINUCUJ eNS SPRNTABLELUJ).C 30816)» 
APREEL®OBeDATE eC eCYCLE+DeOePNe TYPE GEQ 20+ 
TeT1i"2)3 
BEGIN DS*12LIT" NEW PBT ONS SIle#LOC Us Sle#SI4+53 %P 
PNCD*DI} DI*DI"6s DS*2LIT*UT™"S Dl+D)3 
DS#3 CHRID0Se¢25LIT"+ LABEL OPBIMCP OBACK@UP"32P 
PNCDeDI) DIleD1"143 DSe2LIT"UT"s Ded zs 
ST t# LOC Ai DS 33 3 DEC! 
SleSl4¢33 DS*5 CHR$ SI*#S146s3DSe¢2 CHR} 


15CDSie2 LIT"O"IIDISSDIM11sSTreLoc NI 
DSts5 DECS 
ENO? zP 
PCWAITIO‘’T1&8£8$38810185£2184583)200U)eDEL)3 xP 


SPOUTCT1I"™2)3 


T1ie€1911):#@1737;3 

PCWAITIOCLT1)90°U) »DEL)3 aP 

LABELTABLECUJ,C185J*@203 KIND*73 GO EXIT aP 
xP 


IF CTYPE GEQ@ 15 AND TYPE LE@ 18) OR TYPE GEQ 22 THEN 


GIN 


Bb oe. nee Sa | : 
$ SET OMIT = NOTCPACKETS) 


37036200 
37036300 
37036400 
37036500 
37036600 
37036800 
37036900 
37037000 
37037100 
37037200 
37037300 
37038000 
37039000 
37040000 
37041000 
37042000 
37043000 
37044000 
37045000 
37046000 
37046004 
37046005 
37046006 
37046020 
37046040 
37046060 
37046070 
37046075 
37046080 
37046090 
37046100 
37046110 
37046120 
37046140 
37046160 
37046162 
37046170 
37046175 
37046180 
37046190 
37046192 
37046194 
37046200 
37046205 
37046210 
37046212 
37046215 
37046217 
37046220 
37046221 
37046240 
37046260 
37046270 
37046280 
37046300 
37046320 
37046340 
37046350 
37046360 
37046369 


IF CTLSSPSEUDOMIXCPIMIXJ)#0 AND TYPE<22 AND NOT FREEF THEN 


BEGIN 
TiseTi"323 
T2sSPACKETPBD(T1]3 
T3PFCIDTABLELT1¢6),£6824)5 
IF T2*0 OR T380 OR (T2410)>1000 THEN GO FREEL3 
PACKETPBD(T1]8 "724103 


END ELSE 
$ POP OMIT 
BEGIN 
$ SET OMIT * NOTCPACKETS) 
FREELS 
$ POP OMIT 
T3S®NEXTCDNUMC1)3 
T2:50013 
END}; 
KIND? #123 
STREAMCT3eT2eDt=T1t=USeSPACE(30))3 
BEGIN 


DS+8 LIT"O@+1,013"3DS"24 LITO": 
DSte7 LIT*B400000"sS0SIR10 LITVONS 
SIssLOC T3sS1saS1+4% DSte4 CHR} 
SIs#LOc T23 DSs83 DECI 
46(DS¢4 LIT*O")s 

ENDS METIi+iJeMCT1+8)« PBDROWSZ413 

$ SET OMIT = NOTCSHAREDISK) 
MCT1¢4),£0482)8=SYSNO; 


$ POP OMIT 
MCTL+SJeMIDACTYPE GEQ@ 22)038473113 % PNCH BK UP TOG 
GO EXIT 
END; 
W33 FILEMESSC™#eg ge g "QCIF TYPE=6 OR TYPE#20 THEN * " ELSE 


CIF PNTOG THEN "CP® ELSE "LP%))012836812) 


&CIF TYPE<2 THEN " " ELSE IF TYPE GE@ 20 THEN 


"FUT" ELSE "PBIM)(30830818)» 
CIF TYPE<2 THEN "RQD 
REEL*CDATE*CYCLE)$ 


REPLYCPIMIXJ&$= *VOK&VWYL 3684226) 8V0U[30842:6]3 
IF CMEMCPIMIXeMLINKIJ),CCFIZFENCE THEN SWAPCWAITSWAP01)3 
COMPLEXSLEEPCCCIF (TYPE#6 AND TYPE#20) THEN IF PNTOG THEN 


PUNCH ELSE PRINTER ELSE 0) OR REPLYLPIMIX) 


>0 ORCIF TYPE>1 THEN BKUPTAPE OR MAGTAPE ELSE 0) OR 


DSED))3 IF DSED THEN GO INITIATES 
JF NOTCGOTB OR GOTT OR GOTL OR GOTC) THEN 
BEGIN 


" ELSE " MT RQD")oMIDeFIDe 


3P 
%P 


&P 


IF NOT WHYSLEEPCVOK&VWYL3624216)8V0UL3014216)) THEN GO TO W33 


IF REPLYLFIMIXIEVOK THEN GO TO W33 


IF PNTOG THEN BEGIN UeREPLYCPIMIX],CFFI]3 GO CP ENDS 


OUKIDS TYPE*IF CU*REPLYCPIMIX] «CFF JI81 THEN 4 ELSE 
IF Us2 THEN 1 ELSE IF U=3 THEN © ELSE 153 
REPLYLPIMIX}*03 GO ROUNDS 
END) REPLYLPIMIXJ603 


IF GOTB THEN GO THERE ELSE IF GOTT THEN GO CLAJMT ELSE 


IF GOTC THEN KIND*6 ELSE KIND#13 
CKFM! IF FORMS THEN 
BEGIN LABELTABLECUJe*FIDS MULTITABLECUJ+MIDS 
RDCTABLELU,COI6)+PIMIX3 
W7t FILEMESSC*# ee, FMVRTINUCUILCI2: 30016) 5"ROD as 
MIDeFIDeREELSCDATE*CYCLE D3 


®P 
&P 
BP 
&P 
aP 


%P 


37046370 
37046380 
37046390 
37046400 
37046410 
37046420 
37046430 
37046440 
37046441 
37046450 
37046459 
37046460 
37046461 
37046470 
37046480 
37046490 
37046500 
37046520 
37046530 
37046540 
37046560 
37046580 
37046590 
37046600 
37046620 
37046624 
37046625 
37046626 
37046630 
37046640 
37046660 
37046680 
37046690 
37046700 
37046710 
37046720 
37046740 
37046742 
37046750 
37046760 
37046770 
37046780 
37046800 
37046820 
37046838 
37046840 
37046850 
37046855 
37046860 
37046880 
37046900 
37046920 
37046940 
37046950 
37046960 
37046980 
37046990 
37047000 
37047100 


REPLYCPIMIXJ}@© "VWYRVOK( 368 42:6] &VOUL3IOS4236)8VEM62484236)337047105 


IF CMEMCPIMIXeMLINKY)),CCFI2ZFENCE THEN 
SWAPCWAITSWAP21) ELSE 
COMPLEXSLEEPCCREPLYCPIMIX])>0 OR DSED))3 
IF REPLYCPIMIX]SVOK THEN GO EXIT} 
IF NOT WHYSLEEPCVWY&VOK( 362421618 
VOUL30S42:6)&VFME2484286)) THEN GO TO W73 
KIND*LABELTABLECUJ*MULTITABLECUJ]*«GOTLeRDCTABLELUJ]«U«03 
1F NOT DSED THEN IF REPLYCPIMIX),CCFIEVFM THEN 2RHR 
IFCUeREPLYCPIMIX], CFF JI#20 AND U#21 THEN ZRHR 
BEGIN BADFM’ GO ROUND END ELSE ZRHR 
BEGIN LABELTABLE(UJ*#"FIDs RDOCTABLECU),COs6]¢PIMyX3 
MULTITABLELUJ#MID 3 KINDeUNITCUI,£C194)3 ZRH 
GO EXITS ERHR 
END ELSE GO OUKIDS ZRHR 
END3 GO X3 


SOMEWHERE!’ IF FORMS THEN 


Wie 


ONS 
WSs 


BEGIN REPLYCPIMIX Je" VWYRVEME 3634226) 3% 
FILEMESSC™#FM RQD"2OMIDOFID*REELACDATE »CYCLE) 32% 
IF CMEMCPIMIX»MLINKLJJ2ZFENCE THEN SWAPCWAITSWAP91) ELSE 
COMPLEXSLEEPCCREPLYCPIMIXJ>02 OR DSEDI3S 
IF DSED THEN GO TO INITIATES 
IF NOT WHYSLEEPCVWY&VFM[3684286]) THEN GO TO W138 
U*REPLYCPIMIX},C18815]3 REPLYCPIMIXJ]+03% 
IF NOT DSED THEN 
IF U LSS 16 THEN 
IF PRNTABLELU),C1%1] THEN ELSE GO TO SOMEWHERES 
GO TO X3% 

ENDS% 

GO TO TYPESWLTYPEJ32% 


TYPE*IF US1 THEN 21 ELSE IF U®3 THEN 20 ELSE 
IF U®5 THEN 0 ELSE 225 REPLYCPIMIXJ©03 GO ROUND? 


IF NOT PTPUNCH THEN 

BEGIN FILEMESSC®#PP ROD" sOeMIDeF I De REELS CDATE sCYCLE) 88 
IF OUTWAITTCPTPUNCH) THEN GO TO wWA3 
IF NOT PTPUNCH THEN GO TO W43 

ENDS 

GO TO X3% 


TIF ID, £6316)3% 

FOR U*O STEP 1 UNTIL 31 DO4 

IF TINUCU),£30818)=T1 THEN GO ONS 

GO TO MTj% 

IF LABELTABLELUJ#¥0 THENS 

BEGIN FILEMESS(*#,,, "&T10129130318)2 "ROD "9% 

MIDoFID®eREEL*CDATEs CYCLE) 3% 

IF OUTWAITCLABELTABLECUJ20) THEN GO TO WS3 
IF LABELTABLECU]#0 THEN GO TO W53 

END}% 

GO TO X3% 


TLleMIDs% 
IF NOT MAGTAPE THEN2 
BEGIN FILEMESS(C"#MT ROD" + OeMIDeFID* REELS GDATES CYCLE) 8% 
IF QUTWAITCMAGTAPE) THEN GO TO Wé;3 
IF DOSED THEN 
BEGIN 
Uewls 
GO TO EXIT3 


SP 


&P 
aP 


37047110 
37047120 
37047200 
37047300 
37047400 
37047410 
37047500 
37047600 
37047605 
37047610 
37047625 
37047650 
37047660 
37047670 
37047700 
37047800 
37048000 
37049000 
37049500 
37050000 
37051000 
37052000 
37053000 
37053100 
37053200 
37053300 
37054000 
37055000 
37056000 
37057000 
37058000 
37059000 
37084000 
37085000 
37086000 
37087000 
37088000 
37093000 
37094000 
37095000 
37096000 
37097000 
37098000 
37099000 
37100000 
37101000 
371902000 
37103000 
37104000 
37109000 
37110000 
37111000 
37112000 
37113000 
37114000 
37115000 
37115100 
37115200 
37115300 
37115400 


ENDS 


IF NOT MAGTAPE THEN GO 10 W6i 


ENDs% 


IF CTL*PRNTABLELUJ,£C156151)#0 THEN’ 
BEGIN FILECLOSECT1&3£16433115))3% 
MCOMECTI®3)] INX 5],03924) 013% 


ENDs2& 


x3 KINDeUNITCUJ.C184)5% 
LABELTABLE(UJ+*FIDI MULTITABLECUJ@#MIDSS% 
ROCTABLELUJ*P(DUP»LODIAREELL142 368 LOJRCDOATEL 24831917) 
RCYCLEL4SIS4is7JaPIMIXC6s4286)3 


EXIT§ FINDOUTPUT+Us2 
END FINDOUTPUT32 


REAL PROCEDURE FINDINPUTCMIDeFIDsREELeCDOATEsCYELE*COBOLeUL»s OF eMODEOFN)S 
VALUE MIDeFID*eREFLeCDATE CYCLE sCOBOLs OF sMODEsFNIS 
REAL MIDeFIDsREELeCDATE sCYCLEsCOBOL+UL» OF eMODESFNES 
BEGIN REAL TieT2eUslLOonyT oF IRSToILS 


REAL A=COBOLS 


INTEGER Se COUNT? 

INTEGER USASI®IL3 

ARRAY FPBaLOC#]3 

LABEL LOOK»sSEE*SRCHOUTS 

LABEL START#WHY se SX] ToeXeYoREADALABELsREWs EXITS 
LABEL ONNeDUNOFAILS 

DEFINE UNLABELED = UL#S 


DEFINE DSEDFCTERMSETCPIMIX)) #3 


SUBROUTINE CHECKTERMIXS 


BEGIN 


IF DSED THEN 


BEGIN 


IF CJAROCPIMIX*2O0] FEQV *"LIBMAIN®) «NOT O AND 
(JAREPIMEIXe1) EQV “DISK "JaNOT O THEN 


BEGIN 


Verts 
GO TO EXIT3 
END ELSE GO TQ INITIATES 


END3 


ENDS % CHECKTERMIX 


REAL SUBROUTINE SEARCHS% 


BEGIN COUNT*03 


IF NOT DSED THEN 


$ SET OMIT = NOTCPACKETS) 
BEGIN IFCLO¢#CHI] §SPSEUDOMIX(PIMIX])) NEQ@ O THEN 
BEGIN IF S GE@ O THEN 
IFCLABELTABLECLOJ] EQV (C*@14)=NOT 0) THEN 
COMPLEXSLEEPCCLABELTABLELLO] EQV (=@14)) NEQ NOT 0)3 


$ POP OMIT 


$ SET OMIT = PACKETS 


BEGIN IF CLOMRJARCPIMIX®6).0286)) GE@ 32 THEN HI teLO ELSE 
BEGIN HI#*LO8s03 GO TO FAILS ENDS 


$ POP OMIT 


LOOK s FOR UeLO STEP 1 UNTIL HI 008% 


IF 
IF 
IF 
IF 
IF 


CLABELTABLELU) EQV FIDISNOT O THEN’ 
(MULTITABLELU] EQV MID)SNOT O THENS 
CCTI*ROCTABLECUI eC L4S10]=REEL) OR CREELSO) THEN? 
CTigl24t17J2CDATE) OR CCDOATEBO) THEN’ 
CTI,C4187)=CYCLE) OR CCYCLE&0) THEN 


37115500 
37116000 
37121000 
37122000 
37123000 
37124000 
37125000 
37172000 
37173000 
37174000 
37174100 
37174200 
37175000 
37176000 
37177000 
37178000 
37179000 
37180000 
37180100 
37180200 
37180300 
37180400 
37180500 
37180600 
37180650 
37180700 
37180990 
37181000 
37185300 
37185310 
37185320 
373185330 
37185340 
37185350 
37185360 
37185370 
37185380 
37185390 
37185400 
37185410 
37185420 
37185990 
37186000 
37187000 
37187099 
37187100 
37187110 
37187120 
37187130 
37187131 
37187999 
37188000 
37186100 
371688101 
37189000 
37190000 
37191000 
37192000 
37193000 
37194000 


BEGIN 


$ SET OMIT = NOTCPACKETS) 


$ POP OMIT 
END3 
FAILS 
$ SET OMIT = NOTCPACKETS) 
END3 
$ POP OMIT 
IF LO = HI 


IF LO#HI AND LO332 THEN 
IF PACKETACTCU®32]#0 THEN GO TO FAIL3 


COUNTAECOUNT4+13 PCUPXCH)3 


THEN IF COUNT = 1 THEN GO SEE ELSE 
IF LOFO THEN IF CLOSBJARECPIMI%26),0C216J)823 OR LOF24 


THEN HI4*L0 ELSE GO TO ONN ELSE 


IF LO®32 THEN BEGIN LOs#233 H1t*243 END ELSE 
IF L023 THEN BEGIN LOSe® OF HIt#1i5s END ELSE GO TO DUNS 


END ELSE 


IF CYCLE e181) THEN & PBT 


IF NOT CDATE,E141) THEN @ NOT LIBMAIN/DISK 


IF COUNT#®O THEN IF FID.€1%5)<3 THEN 
BEGIN FIDsCitSIeF ID CistS5]+i3 

LO*Os HI1©153 GO LOOK! 

END ELSE FID C1LI54«13 


FOR UeO STEP 1 UNTIL 15 DOS 


IF CMULTITABLELU] EQV MID)=NOT O THENS 
IF CRDOCTABLECU),£C24%171=CDATE) OR (COATE=0) THEN 


IF RDCTABLECUI,C8:6]=PiMIX THENS 

IF CTL*MEMCPRNTABLE(UJe(15815)°3] [NX 5)),(4181) THEN 
IF T1e€4341] OR T1,064081)80 THENS 

BEGIN COUNTe*COUNT41$ PC UsXCH) END} 


ONN? BEGIN LO$%®323 HI88353 
GO TO LOOK} 
DUNS 
BEGIN 
GO SRCHOUT: 
END} 
IF COUNTS0O THEN 
IF MID#0 THENS 
IF LABELTABLELUJ]>0 THEN2 
BEGIN COUNT+COUNT#413 
PCUsXCH)3 
END ELSES 
SEE! 
END} 
SRCHOUTS 
SEARCH*S*COUNT>0O8 


END SEARCH3% 


REAL SUBROUTINE RESEARCHS 


BEGIN 


$ SET OMIT = NOT PACKETS 


St®"23 


$ POP OMIT 


PCSEARCH)3 


DO PCDEL) UNTIL CCOUNTS#COUNT#1) LSS O53 


RESEARCH#S3 
END RESEARCH3 


REAL SUBROUTINE REEDS 


BEGIN IF CHI@WAITIOCT1+L08@377(16233815]eU) AND @367)#0 THEN 
IF CHI AND NOT L0)#0 THEN 
BEGIN BLASTQCU)$ SETNOTINUSECUL0)3 


STOPTIMINGCFN#1023)3 


37195000 
37195009 
37195010 
37195020 
37195021 
37195030 
37195040 
37195050 
37195099 
37195100 
37195101 
37195200 
37195250 
37195280 
37195300 
37195350 
37195400 
37195450 
37195500 
37195550 
37195600 
37195650 
37195700 
371957598 
37195800 
37195850 
37196200 
37197000 
37197500 
37198000 
37199000 
37199100 
37200000 
37201000 
37202000 
37203000 
37204000 
37205000 
37206000 
37207000 
37207500 
37208000 
37208500 
37209000 
37210000 
37210090 
37210100 
37210150 
37210170 
37210175 
37210188 
37210200 
37210250 
37210300 
37210400 
37210990 
37211000 
37212000 
37213000 
37214000 


FILEMESSC*"PARITY "e"ON goo “ATINULUI(24330:1619% 37215000 
MIDsEIDeREELeCOATESCYCLE DSS 37216000 

END 37217000 

IF DSED THEN 37218000 

BEGIN 37218100 
SETNOTINUSE(Ue0)3 37218200 
STOPTIMINGCFN®1023)3 37218300 
CHECKTERMIXS 37218400 

END3 37219000 
REED*HI 3% 37220000 

END REED? 37221000 
37221090 

SUBROUTINE SEARCHCOM$ % FILE SEARCH FOR COM 30 37221100 
BEGIN PC(DEL)3 37221120 
IF NOT SEARCH THEN Us="1 ELSE 37221140 

IF COUNT®1 THEN UsteP ELSE 37221160 
BEGIN 37221180 
SSaCOUNT? T1ir=03 37221200 

COUNTtS,F COUNT>8& THEN 8 ELSE COUNTS 37221220 

WHILE CCOUNTS*SCOUNT"1) GE@ O DO 37221240 

BEGIN UteP3 37221260 

IF Ti THEN 37221280 

BEGIN 37221300 

T1iseO3 MCA},C30818) 82 TINULUI.£30918]3 37221320 

AtEA+13 37221340 

END ELSE 37221360 

BEGIN 37221360 

TAUSLS MCAI,L 12818) eT INUCU),£30316)3 37221400 

END3 37221420 

END} 37221440 

Users; 37221460 

END} 37221480 

GO EXIT$ 37221500 
END3 37221520 
37221990 

START&2 37222000 
IF UL<O THEN SEARCHCOM ELSE 37222100 
IF UL THEN GO TO WHY ELSE 3% 37222500 
IF NOT SEARCH THEN® 37223000 
WHY? BEGIN FILEMESSC"ENO FIL» OoMIDeFID*REELeCDATE ®CYCLE) 3% 37224000 
FIRSTUsSVOKRVWY( 3684296 )8VULLI0L42s6)&VILI2454216)3 37225000 

IF COBOL THEN 37225050 
FIRSTUEFIRSTACVOFXOF C183 42s6)aCVERXULIC1294216)3 37225100 
REPLYLCPIMIXJeFIRSTRIL2+a7e14d3 37226000 
IFCMEMCPIUMIX»MLINKiJIeCCFIZFENCE THEN 37226100 
SWAPCWAITSWAPe1)5 37226200 
COMPLEXSLEEPCRESEARCH OR CREPLYLPIMIXJ>0) OR DSED)3 37227000 
CHECKTERMIXS$ 37228000 

IF S THEN SeSEARCH ELSE 37229000 

BEGIN IF NOT WHYSLEEPCFIRST) THEN GO TO WHY 37229500 

IF CT2teCTI$sREPLYCPIMIXJ) CFF IJ) GTR 64 THEN & IL 37230000 

BEGIN STREAMCT29)3 ® MID/F 1037230250 

BEGIN S]seT23 37230500 

LU3 SrtsSrets ITF SC#™L™ THEN GO TO LL? 37230750 

ST#sSieis T2eeSy3 37231000 

END} 37231250 

T2U5P3 37231500 

NAMETDCHIeT2)3 MIDS®HIS NAMEIDCHI oe T2)3 37232000 

NAMETOCHITeT2)% FIDSFHIS 37232250 
FORGETSPACECTIOCFFJ™4)3 37232500 


SXITs BEGIN FILEMESS("#pUP "eR IL "eMIDeFIDeREEL®CDATE ®CYCLE)3 


Yt 
X$ 


GO TO Y3 

END; 
IF T1isVOK THEN GO TO Y3 
TF NOT ¢€J]L#"T1,CCFISVIL) THEN 
BEGIN Ute} 

REPLYCPIMIX] $803 

GO TO EXIT3 
END3 
UNLABELEDe@LABELTABLE(UeT1,(6(16815])=03143% 
P(U)3 
COUNT3 #43 
IF LABELTABLECUJ#0 THEN 
BEGIN MULTITABLELCUJ1MID3 

LABELTABLECUJSSFID3 
END ELSE 
BEGIN MIDteMULTITABLE[U],(6842]3 

FIDS=LABELTABLECUI,[6%42)3 
END? 

END} 
REPLYLPIMIXJ] «0332 
END33 
IF COUNT>1 THEN 


WHILE CCOUNT*COUNT™4)20 DO 
BEGIN IF (UeP)<16 THEN IF MID#0 THEN 
IF (TLe*#PRNTABLE(UJ,C15%15)2#40 THEN 
FILECLOSE(T1&8@12(018833%15))3 
STREAMCXS@CTINULUJI& D&iBSteSPACEC10))3 
BEGIN SleXs S]#S[4#53 pSe8 LIT " DUP ON *3 
NS*3 CHR} OSeLIT "#3 
XeDI3 
END} 
TleP) 
IF U232 THEN IF CIDROWCU "32)4#0 THEN 
STREAMCDK*CIDTABLELU "320e2)eT1)3 
BEGIN DleOI"13 DS*6 LIT "sDECK "3 
SI*LOC DK} SJeSi413 DS«7 CHR3 
END3 
END} 
REPLYCPIMIX]&£= "VWYRVOK( 3614236) RVILE3084286)3 
IFCMEMEPIMIXoMLINKLJ),£CFIZFENCE THEN 
SWAPCWAITSWAPe1) ELSE 
COMPLEXSLEEP(DSED OR CREPLY(CP1M1X)>0))3 
CHECKTERMIX$ 
IF CTL*REPLYCPIMIXI) £33815) 8VIL THEN 
BEGIN REPLYCPIMIXJ]«03 
IF Tiel FF J] > 36 THEN GO SXIT3 
POT2,018815])3 
GO TO X3 
END3 


IF NOT WHYSLEEPCVWYAVOKE 36t4286)8VILE 30842863) THEN 


BEGIN StsSEARCHS GO TO SXIT$ END3 
REPLYCPIMIXJ*«O8 GO TO START 
END3 


LABELTABLECUeP),£135]+6@203 
RDCTABLECU], [COs] «PiMIX3 
IF NOT UNLABELED THEN 


BEGIN FPBSePRTCPIMIX93]3 


FPBCFN]$*MID}3 


37232750 
37233000 
37233250 
37233500 
37233750 
37234000 
37234250 
37234500 
37235000 
37235100 
37235250 
37235500 
37235750 
37236000 
37236250 
37236500 
37236750 
37237000 
37238000 
37239000 
37240000 
37240100 
37240200 
37240300 
37240400 
37240500 
37240600 
37240700 
37240800 
37240900 
37240910 
37241000 
37241010 
37241020 
37241030 
37241040 
37241050 
37241060 
37241200 
37241300 
37241310 
37241320 
37241400 
37241500 
37241510 
37241520 
37241525 
37241530 
37241540 
37241550 
37241600 
37241610 
37241700 
37241800 
37241810 
37241900 
37241910 
37242000 
37242100 
37242200 


FPBLFN+1IJ8=FID3 

END3 

If U LSS 16 THEN 

IF MIO0#0 THEN 

BEGIN IF CTL©PRNTABLECUJ.£15215])#0 THENS 
BEGIN FILECLOSE(T1&3£016'33315))3% 

MEMCT{"°3) INX 5]),.639%4) 01532 

END#E% 


RRRMECH*TWOCU) OR RRRMECHS STARTIMINGCFNeU)3 
IF UNLABELED OR IL OR CYCLE ef131) THEN GO EXITS 
T1 $3 SPACEC119810082:382:10/RMODEL 2184731) 
&83023846:2)3% 
LO*+@403 FIRST#13% 
READALABEL?: IF REED # O THEN IF FIRST THEN2 
REW8 BEGIN FIRSTeWAITIOC@4200000000200eU)3 GO READALABEL END ELSE 
BEGIN SETNOTINUSE(CUs1)3 FORGETSPACE(T1,033#15))3 
STOPTIMINGCFNe1023)3 GY TO START END3 
STREAMCY8&03X2200T1)3 
BEGIN DfeeLOc X3 OSe28 LIT “"VOLIHDRI"; 
Sts=Tis OlssDt83 
If 4 SCB0C THEN TALLYs#1 ELSE 
BEGIN SJt#sT13 IF 4 SCBDC THEN TALLYt#23 ENDS 
Y:sTALLY3 
END? 
IFCUSAS]$#P)>0 THEN USASITAPECTIg( CF] ®USASIT e22#U20)3 
STREAMCM#O oF eOrReOeDeOeCeOiSeTi INX 1733 
BEGIN ST#S3 DI*#LOC M3 DS#2 WDOSs DSe*3 OCT32 
DS«*S OCTS DOS*2 OCTI% 
END32 
IF CPBCYCLE OR CYCLE=0) AND CPCXCH)SCDATE OR CDATE®O) ANDS 
CPCXCH) REEL OR REELBOJAND CCPCXCH) EQV FIDJFNOT 0) ANDS 
CCPCXCH) EOV MIDIZNOT 0) THENS 
BEGIN FORGETSPACE(T1,033015]23 T1«@3400000053% 
LO#OSTI*REEDS GO TO EXIT32 j 
END3% 
IF FIRST THEN GO REW3% 
LOss@603; DO UNTIL CFIRSTISREED ef 42s1)3 DO UNTIL REED C42t1)3 
IF USASI>0 THEN DO UNTIL REEDe( 4281] ELSE FIRSTISREEDS 
LO¢@403 GO READALABEL} 
END3% 
EXIT: FINDINPUT¢U3% 
END FINDINPUTS3 
PROCEDURE STARTIMINGCFNeU)$ VALUE FNeUS REAL FNOUSS 
BEGIN ARRAY FPB{L*J]3 INTEGER Ie J32 
FPBePRICPIMIXe3I]3% 
IF U<32 THEN 
BEGIN IF FPBCFN+4)20 THEN 
BEGIN IF CI*#FPBLFN43),£3686])#0 THEN? 
IF J[#U41 THEN IF CIleFPB,C8I10]7 )SCLO23"ETRLNG) THENS 
BEGIN JeGETSPACECI*ETRUNGe201)+23% 
$ SET OMIT # SHAREDISK 
MOVECIToFPBeJ)3% 
$ POP OMIT 
$ SET OMIT = NOT SHAREDISK 
MOVECIT4#4°9FPB ENX NOT Or Jdhi)34 
$ POP OMIT 
MOVECETRLNG@ EFPBLFNJ Je del) 3% 
FORGETSPACECFPB,(333815))3% 
FPBDCPIM]X) « 


37242300 
37242400 
37242600 
37242600 
37243000 
37244000 
37245000 
37246000 
37247000 
37248000 
37246500 
37249000 
37250000 
37251000 
37252000 
37253000 
37254000 
37255000 
37255100 
37255200 
37255300 
37255400 
37255500 
37255700 
37255800 
37255900 
37256000 
37257000 
37258000 
37259000 
37260000 
37261000 
37262000 
37263000 
37264000 
37265000 
37266000 
37267000 
37267050 
37267100 
37268000 
37269000 
37270000 
37271000 
37272000 
37273000 
37273100 
37274000 
37275000 
37276000 
37277000 
37277999 
37278000 
37278001 
37278099 
37278100 
37278101 
37278200 
37279000 
37279100 


END 


PRTICPIMIXe3J¢FPBe (MC JJ JRCI+FETRLNGIC8236210)3% 
FPBLFN+4]¢03 FPBLFN+3)¢024312)¢03% 
END3% 
FPBCFN+4 JeFPBCFN+4 J @CLOCK*PCRTR) 3% 
FPBLEFN+3) ef 3686) eUFiss 
IF U LSS 16 THEN % RDC & PRN LOG ENTRIES 
BEGIN 
STREAMCRSFRDCTABLELCUI «LI4s LO eDsFRDOCTABLELUI.L24317)>5 
CHSEROCTABLECUJ SC 4is7) o> TIeCFPBCFN+2)))3 
BEGIN SI8*LOC R$ DSte3DEC3 DStSSDEC3 DStsDECS END3 
FPBEFNS3] £6817] ¢ePRNTABLELUIJ,£313817)3 
END3 
END ELSE 


BEGIN IF CleFPBEFN+4])<0 THEN 


BEGIN FPBCFNS4) of 4+CLOCKHPCRIRDS JeFPBCFN4¢3),(3636)°13 
FPBCFNS3) -C24t12]*P (DUP) «(241 2)4(JeTINUCII,018812))3 
IF 1<16 THEN 
IF J>0 THEN FILEMESS(%# 1O"&TINUETI 
C12:30318)]»"ERRORS&S*eF PBCFNJ oFPBEFN+1)9JU0020)3 
TINUECI).£16812)«03 


END END END TIMING? 


REAL PROCEDURE DISKADDRESSCMIDeFIDeFPB3eAeHe 10)3 
VALUE MIDeFIDeFPB3eAsHe 105 
REAL MIDeFIDsFPB3sAetO8 


37280000 
37281000 
37282000 
37263000 
37284000 
37264100 
37284110 
37284120 
37284130 
37284140 
37284150 
37284310 
37285000 
37285100 
37285200 
37285300 
37285305 
37285310 
37285320 
37285400 
37285500 


® (€8HM)37286000 
% (SHMI37286100 
® (€SHM)37286200 


ARRAY HC*)} 37286300 
BEGIN LABEL EOF, E0F23 37287000 
INTEGER 13 37287250 
REAL Te V3 37287500 

IF A20 THEN 37288000 
BEGIN TeCA DIV HELO), C3081 2I])xH(01,042:6)5% 37289000 

IF HO9) LEQ IseCIF HE1]J=O0 THEN O ELSE T DIV HEL1)J) THEN 37290000 

GO TO EOFs 37290100 

IF HOI8*#1+¢10)%0 THEN % NEW ROW NEEDEDs 37291000 

IF 10 THEN GO TO EOF ELSE &% EOF ON A READ, 37291200 

IF 1082 THEN % CALLED FROM FILEOPEN SO 37291400 

BEGIN % DONT EXPAND THE FILE YET, 37291600 

Tizl3 37291800 

GO TO E0F23 37292000 

END 37292200 

ELSE 37292400 

IF H04) THEN ® IN DIRECTORY» UPDATE HEADER, 37292600 
PCDIRECTORYSEARCH(*MIDoFIDe™H&ICCTF))*DEL) 37292800 

ELSE % NOT IN DIRECTORY, 37293000 

BEGIN % (SHM)37293210 


EOFS 
POF23 


IF (V8eFPB3,(1835)) GTR O THEN % EV SPECIFIED % (SHM)37293220 


VaRrCIF V GTR 20 THEN O ELSE "V) ELSE 


% (€SHM)37293230 


IF CVSeFPB3,016'2)) GTR O THEN &® SPEED SPECIFIED 3¢SHM$37293240 


VisCIF V GTR 2 THEN O ELSE V) ELSE 
Vte0s &% NO SPEED OR EV SPECIFIED 
HCI] tt PETUSERDISKCH(8].V)3 


% (€SHM)37293250 
% (SHM)37293260 
® ($HM)37293270 


END3 ® (SHM)37293330 


TeHCTJ+1¢T MOD HL1)33 

STREAMCD*(TJ)3 BEGIN SfeD3 OS*8 DEC END3% 
END ELSEZ 
T#03% 


DISKADDRESS#T3% 


END DISKADDRESS33& 


37294000 
37295000 
37296000 
37297000 
37297500 
372968000 
37299000 
37300000 
37301000 


PROCEDURE SETNOTINUSE(CUsRWL)$ VALUE UeRWLS REAL UsRWLS 
BEGIN REAL IeJ3 
IF U<16 THEN PCWAIT10C@4200000000203772U)»DEL)3 
SLEEPCCTOGLE] »STATUSMASK )3 
RRRMECHE CCI *TWOCU)) AND SAVEWORD) OR CCIT*©NOT 1) AND RRRMECH) 3% 
READY*READY AND [3% 
IF RWL THEN 
BEGIN 
STREAMCS*£TINULUJ] ]eMeMULTITABLELUJ]*FeLABELTABLELUJ >» 
Ne IF U<i16 THEN PRNTABLE(CU),£30318}3 ELSE Oe 
THeMULTITABLECUJ#O»5 TTs2U GEQ 16% DtRJtaSPACE(10))3 
BEGIN S]#Ss SyJT#S[4+5) DSeLIT "#"3 DSe3 CHRIS 
DS*6 LIT ™" RW/L "3 ST*LOC Ms ST*+Sl413 
DS«/7 CHRS DSe*LIT " "3 STeSI+13 DSe7 CHR} 
TOMOD SDL eDIMISSOSe7FILLIDIeM)3 TTC QUMP 
OUT TO LAD? DSeLIT "C8" OS#5 DEC OSeLIT") "3 
LAS DSe*LIT “ey 
ENDI& 
SPOUTCJ)3 
LABELTABLE(U]+@2143 
OND ELSE LABELTABLE(U]+#1143 
MULTITABLELUJ*RDCTABLECUJ¢03 
IF U<16 THEN PRNTABLELUJ©0 3 
END SETNOTINUSE: 
PROCEDURE BLASTQ(U)3 
VALUE US} REAL U3 
BEGIN 
REAL 6X3 
BOOLEAN SUBROUTINE CHECKIO3 
BEGIN 


CHECKIOVFCLSSUNITCUJ) 05261340 OR CI1,01431] AND 1,01335)4031)3 


END3 

IF CHECKIO THEN COMPLEXSLEEPC(NOT CHECKIODS 

IF 1,01681] THEN & SKIP [/0 IN PROCESS 

BEGIN [teNFLAGCLOCATQUECX&31,CFFII)3 
LOCATQUECX],CFFIt=@777773 
UNTTCUJ,CCFI35X3 

END ELSE 
UNITCUI,CSt43)s5(NOT 0),016230)3 

WHILE CISs1.CFFIJ)#@77777 DO 

BEGIN RETURNIOSPACECI)3 
LOCOUNTECPIMIX] s=(*#PC DUP) "13 
TtaNFLAGCLOCATQUELII)3 

END} 

END BLASTQs% 


PROCEDURE BUILDLABELCLABLE sMIDe RID® REEL *CDATES CYCLE sPFACTsPTINeBLKODE e% 


BSIZEeRSIZED3S 


VALUE LABLE eMIDeF ID*REELsCDATE sCYCLEsPFACT»sPTNe BLKODE » 


BSIZEeRSIZE3% 
ARRAY LABLE(C¥*]33 
REAL MIDsFIDeREF Le CDATE® CYCLE sPFACTsPTINeBLKODE sd 
BSIZEsRSIZES% 
BEGINISTREAMCDeCPFACTI])3 BEGIN Sleeps SIe#S1+#53 DS#3 OCT ENDS% 
PFACT*CALCULATEPURGECPFACT)3& 
STREAMCS¢(MID) »LABLE)3% 
BEGIN pS*8 LIT " LABEL "S SyeSs DSe2 WDSs% 
DS*3 DEC% DS*5 DEC DS#2 DECE SI*SI433 DS#5 CHRIS 
DS*14 LIT "O"3 DSe5 PECs STeSIT+7k DSeCHRIS 
ae DS*5 DECs DS*5 DECS DSe11 LIT "ONE 
END3% 


37302000 
37303000 
37303200 
37304000 


‘37305000 


37306000 
37312000 
37313000 
37314000 
37314100 
37314200 
37315000 
37316000 
37316100 
37316200 
37316300 
37316400 
37317000 
37318000 
37318100 
37319000 
37319010 
37319020 
37319100 
37320000 
37321000 
37322000 
37323000 
37323100 
37323200 
37323300 
37323400 
37324000 
37326000 
37327000 
37328000 
37329000 
37330000 
37331000 
37332000 
37333000 
37333500 
37334000 
37335000 
37336000 
37337000 
37338000 
37339000 
37340000 
37341000 
37342000 
37343000 
37344000 
37345000 
37346000 
37347000 
37348000 
37349000 
37350000 
37351000 


eveal 


END 
PROCE 


BEGIN 


END F 
PROCE 


BEGIN 


IF (BSIZE*LABLE.[(8110))>10 THEN? 
STREAMCU*JARROWCPIMIX] eDeCLABLEL103))32% 
BEGIN SleJs SleSil4ts DSeLIT " "3 DS*#7 CHRIS 
SleSi#13 DSeLIT "/%3 DS#7 CHRS 12¢D8e"2 LIT " "88 

END GUILDLABELIS 
DURE FILEMESSAGEC IT eKoMoFeReDeCe TYPED 3 
VALUE TeKeMeFoReDoCe TYPES 
REAL [eKeMeFoRe Do Ce TYPE3 

REAL ZeL3% 
L te SPACEC(12)3 

STREAMCZS Je CL] eJeCJARCPIMIXe*) J oPIM[XoL)3 
BEGIN Sle];3 


IF Sc#%+" THEN BEGIN TALLY*#413 DS*LIT """3 SI*SI+1 END ELSES 


BEGIN SleSi4is IF SC#™#" THEN DS*LIT " " END3S 
DSe7 CHRS DSeLIT " "3 LeDIs% 


2(CDI*LOC 2s IF 8 SC#DC THEN BEGIN DleLs SleSI*73 DS*7 CHRS% 
DSeL IT * "3 LeD] ENDD3% 


DIeLs SteSt+13 DSe*7 CHRI DSeLIT * "3 LeDIs3Z 


3(DI1eLOC Z3 IF 8 SC#DC THEN BEGIN DIlehks St#S1"83 DS*7 DEC 
WeDI3 DIeDIe73 DS*6 FILL: 
OrelLs OSeLIT * "3 Lepoys 


END)3 


DI*Ls DieDIm1s DSeLIT "she 
Z*TALLYS SI#LOC Z3 SIeS]+73% 


IF SC2"0" THEN BEGIN SleJs SIeSI+1s DS*7 CHRS DSeLIT "/"%3% 
SleSI+1i DSe7 CHRS DS#LIT "H"3% 


ST*LOG PIMIX$ DS*2 DEC? 


LeDIs DleDI"23 DS#FILLs DIeL END 


OSeLIT "ess 
END} 


IF P THEN BEGIN TERMINATECPIMIX)$ TERMINALMESSAGEC@L) ENDSS 


SPOUTERC Ls On TYPE D3 

ILEMESS32 
OURE FILLBUFFERSCCURRENTeFINAL®COBOLeNR)S 
VALUE CURRENToFINAL»COBOLeNR3 

REAL CURRENT# FINAL» COBOL NR} 

ARRAY LOCATE #J3% 

INTEGER le JoKeD3% 

INTEGER FIRSTLOCRJePREVLOCaKeCURLOC#D}3 
REAL T#LOCATS 
REAL T13 

REAL NF&ST1+1%3 
LABEL LINKS 
REAL BSIZESCURRENTsN@&F INALSUSCOBOL*SALPHABNR3 
IF. ALPHA<512 THEN 

BEGIN 

PCNR*(COBOL GTR 0))3 

IF COBOL THEN FINAL&*CURRENT3 
JOPINALe C3385 ]"°Ke CURRENT ¢ (33815134 

De2QCNOT CURRENT) £C19228113% 

LOCATeMEK4+0]3 NReNRO13S 

FOR let STEP £1 UNTIL NF DOS 

BEGIN IOREQUESTCFLAGCFINAL) ®CURRENT@LOCAT 3% 

MCLOCATJ*MCLOCATI&0£2612617)] AND NOTCM OR I[OMASK)3% 
1F NOT COBOL THEN 


® INITIALIZE NF 


IF ]™1 THEN IF PCFINAL,C3#5)*DUP)s6 OR PCXCH)S7 THEN 


BEGIN 
SLEEPCLOCAT & 0 [383830]> 1 0MASK)3 


37352000 
37353000 
37354000 
37355000 
37356000 
37357000 
37357100 
37357200 
37359000 
37360000 
37361000 
37362000 
37363000 
37364000 
37365000 
37366000 
37367000 
37368000 
37369000 
37370000 
37371000 
37372000 
37373000 
37374000 
37375000 
37376000 
37377000 
37376000 
37379000 
37379500 
37380000 
37381000 
37362000 
37383000 
37384000 
37385000 
37385500 
37386000 
37387000 
37388000 
37388100 
37386200 
37368250 


% MUST BE AT THE TOP OF THE STACK37388275 


37388300 
37388400 
37388500 
37388600 
37388700 
37388800 
37389000 
37390000 
37391000 
37392000 
37393000 
37394000 
3739460285 
37394050 
37394100 
37394150 


STREAMCN#*O0eLeOINDIV64*0sBACCHTISFINAL L721)» 37394200 
BUF © (MCELOCAT] INX T1)*C1"T1))3 37394250 
BEGIN DI « LOC N$ SI * BUFS BACCC(S] ¢ S)44)3 37394260 
IF 4 SC#NC THEN GO OWT3 37394260 
DI « LOC NS BACCC(CSI « BUF) DS + 4 OCTi 37394300 
S} « LOC L$’ DI + LOC BACC# SI © SI"2s DI + DIM13 37394350 
DS «© 1 CHR SI ©« BUFS 37394360 
CI * CI+BACCS GO FWDE 37394400 
NDIV64CS1 © Si1*323 SJ] *« SI"32)3 SY} © SI*NS SI] * S443 37394450 
GO ON} 37394460 
FWOS NDIV64(S] © SI+32) ST © SI*32)3 SI * ST4N3 37394500 
ON! DI « LOC L3 DS + 4 OCT3 37394550 
OWT: 37394560 
END STREAM} 37394600 
Ti « PS 37394650 
IF PCDUP)®0 OR PCXCH)#T1 THEN TERMINATECPIMIX&86 CCTFIJ)3 37394700 
END} 37394800 
IF NR>O THEN STREAMCNRe TeMECLOCATI] oLOCAT)3%& 37395000 
BEGIN SI©LOCATS SI*#SJ]+8s DS*NR WOSSS 37396000 
SJ*LOC Ts} DS*wWDS END32 37397000 
CURRENT, C33¢15) #KeM( Ken) CI6t15)3% 37398000 
FINAL £33315) «K+ J3% 37399000 
END END ELSE 37400000 
BEGIN 37401000 
TeALPHA&UL12#4226) OR M3&% 37404000 
FOR IleN*i1 STEP "1 UNTIL O DOS 37405000 
BEGIN MCALPHASI J ©(CCURLOC+GETSPACE(BSIZE +4» 3041)42)4+23 37406000 
IF FIRSTLOCHO THEN FIRSTLOC*CURLOCES 37407000 
MECURLOC+1]¢03 MOVECBSIZE+1eCURLOC 41 sCURLOC+2)3 37408000 
LINKS MCCURLOC J «FLAGCTI&CPREVLOC+27(16833215)5% 37412000 
MECURLOC4+BSIZE+3]¢FLAGCTI&CPREVLOC4+BSIZE4+1)016833815)3% 37413000 
PREVLOC*CURLOC3% 37414000 
ENDS 37415000 
IF Te¢hl) THEN BEGIN CURLOC#FIRSTLOCS GO TO LINK END32 37416000 
END END FILL OR GET BUFFERS3 37417000 
REAL PROCEDURE FILEHEADER(MIDs FID» NROWSs SIZE* BLENe RLENe S)3 37418000 
VALUE MiDe FID® NROWSe SIZEe S3 37419000 
REAL MIDe FIDS 37420000 
INTEGER NROWSe SIZE* BLEN» RLENe S3 37421000 
BEGIN REAL Qr 23 37422000 
$ SET OMIT = NOT SHAREDISK 37422199 
INTEGER HORSIZE3 37422200 
$ POP OMIT 37422201 
LABEL TIFILLeEXITs 37422300 
ARRAY T = Q[*]3 37423000 
INTEGER LPER» 37424000 
SPER» 37424100 
Nle 37424200 
Rie 37424300 
Lie 37424400 
W3 37424500 
SUBROUTINE GOBBLE} 37425000 
BEGIN SPER t= (BLEN+29) DIV 303 37426000 , 
IF S*0 THEN RLEN t# BLENS 37427000 
LPER $® BLEN DIV RLENS 37428000 
END GOBBLE} 37429000 
$ SET OMIT * SHAREDISK 37429499 
QreS,f1383)3 ‘ 37429500 
$ POP OMIT 37429508 


$ SET OMIT = NOT SHAREDISK 37429599 


IF MI 

BEGIN 

BEGIN 
$ POP OMIT 

IF CN 

BEGIN 
$ SET OMIT = 
$ POP OMIT 


$ SET OMIT «= 


S$ POP OMIT 
$ SET OMIT & 


$ POP OMIT 


TAFILGLS 


END E 
$ SET OMIT = 


$ POP OMIT 
$ SET OMIT s 


$ POP OMIT 


ENDS 
Tr0) 


_ EXIT 


ENDS” 


DeCiti) THEN 6 A PROTECT FILE 
HDRSIZE*323 MID*ABS(MID)$ @¢21 END ELSE 
HDRSIZE*#303 @#5,01323] ENDS 


ROWS#S1ZE) = O THEN 


IF CNI*SECURITYCHECKCMID®FID*USERCODELCPIMIXJ2@))<0 THEN 

NOT SHAREDISK 

BEGIN FILEHEADERS4} & INV USER 
GO TO EXIT3 

NOT SHAREDISK 

ENDS 

IF HDORSIZE>30 THEN 

BEGIN 


37429600 
37429700 
37429800 
37429801 
37432000 
37433000 
37433100 
37433199 
37433200 
37433201 
37433300 
37433399 
37433400 
37433500 
37433550 


IF PCTCOJ*DUP),CISti5]4#BLEN OR PCXCH) oL1814)#RLEN THEN37433600 


BEGIN 
PCDIRECTORYSEARCHC(MIDeFIDe22)9DEL)3 
FILEHEADER*S$ GO TO EXITS % INV BLOCKING 
END} 
TeCBs1OJ*HDRSIZES 
STREAMCN*HDRSIZE"309T#T+30)3 NCODS*B LIT "0%)3 
END3 


Tose T & CNL AND POLISHCTC4).C982)e10 LNG) ICICTFI3 
NOT SHAREDISK 
IF HDRSIZE>30 THEN BEGIN GOBBLE’ GO TO TIFILLS ENDS 


IF Cul $8 (2 8& TO0)),01314)) = O THEN L1 38 303 
Ni $® TE7)4+138 RL te 2,13081273 
IF BLEN = O THENS THIS IS "TECHNIQUE "D"" FILE TYPEees 
BEGIN BLEN $® Z,015t1573 
S 48 (RLEN t# L414) # BLENS 

ENDS 
Wesm CCCND DIV R1) * Z,£4286]) x 30) * (N12 MOD R141) « Las 
GOBBLES TL7] :# W te 

CCW DIV 30) DIV SPER) x LPER + 

CCCCW DIV 30) MOD SPER) x 30 + 

W MOD 30 + RLEN"1) DIV RLEN) © 13 

TC1J©CTC8) DIV SPER)x SPER} 
TL4)3eCeP (DUP) 28001184781) OR 13 
LSE BEGIN 
SHAREDISK 
T &® MEMORY OR (GETSPACE(C 300 Be 1) + &360000700002)3 
STREAMCT)3 
BEGIN SltwTs S]seSi"68s DS3830 WOS? END3 


NOT SHAREDISK 


37433650 
37433700 
37433750 
37433600 
37433850 
37433900 
37433950 
37433951 
37434000 
37434099 
37434100 
37434101 
37435000 
37436000 
37437000 
37437500 
374368000 
37438500 
37439000 
37439500 
37440000 
37440500 
37441000 
37441500 
37441600 
37442000 
37442499 
37442500 
37443000 
37443500 
37443501 
37443599 


TeM OR CCGETSPACECHDORSIZE»891)+8@700002)&HURSIZE( 8% 36210))337443600 


MOVECHDRSIZE*T INX NOT 1eT)3 
TO3) 48% XCLOCK+PCRIR)S 


TO7] 8 P13) = TL9) +2 NROWSS GOBBLE! 
To1) t= Te8) te CCSIZE + LPER@4) DIV LPER) x SPERS 


37443700 
37443803 
37444000 
37444500 
37445000 
37445500 
37446000 


te SPER & LPERC30¢36812) & BLEN(15#33815] & RLENC1834914)3 37446500 
FILEHEADER 85 NFLAGCT)S 


37447000 
37447500 
37448000 


PROCEDURE PURGEITCU)3 VALUE US INTEGER USS 


BEGIN 


ARRAY LABLEL¥*]3 
REAL EOFS 


RDCTABLELU],.£816] t= OFBMAKE THE USER THE MCP 
PCWALTIOC@4200000000 203779) DEL D3 
LABLE 8 (MESPACEC10)I3R100Os36t10Ia5SL2184523)3 


BUJLOLABELCLABLE ss Oe"X"eleOrleQePRNTABLELU) ,L 303161 902000)5% 


PCWAITIOCLABLE #@377000000U)sDEL DS 
EOF +@17370000000000003% 
PCWAITIOCCEOF ) 2@377000009U) DEL) 3% 
FORGETSPACECLABLE.(€33815])3 
SETNOTINUSECUP0)3 
KILLCCU] INX NOT 1)3 

END PURGEIT3% 

PROCEDURE KRUNCHERCH)3 ARRAY HE*]5 


BEGIN DEFINE ERHC7)] #+RLEHC1)74*RPBRHL0),(30312]8 + 
MAXROWS#H(9], (4325) #, 
BCL¥H(0},(4286]#+BRLZH[8) #3 

ARRAY AL*]3 

LABEL FORGETsEXI Te AGAIN» DONE? 
INTEGER NBeNBR3 

REAL JeJeKeT} 
AtSZ(MCSPACEC41)13840(8:38:10)3 
MOVECA1 AC CFI 159A); 

IF E LSS O THEN GO TO EXIT? 
NBS*— DIV RPBS 

NBREFRL OLIV BCL3 

IF RL NE@ BRL THEN 

FOR [8510 STEP 1 UNTIL 29 DO 
IF H€1] NEQ@ O THEN 


$ SET OMIT = SHAREDISK 


FORGETUSERDISKCHE11+RLeBRL*RL D3 


$ SET OMIT = NOT SHAREDISK 
FORGETUSERDISKCHE I J+RLe CBRLYRLIGCNOT HEA4IIC184734)>% 37516100 


$ RESET 


OMIT 

BRLBFRL) 

IF NB LSS NBR THEN 

BEGIN ACOI]ISHENT23210)3 
NT43e13 
RLISC(NBei)xBCL3 
GO TO FORGET) 

END3 

THESCKERJIF]I#ENBRX203 


AGAIN IFCNTI¢#NBR DIV J)80 THEN GO TO DONES 


DONES 


IF CNT298NB DIV NT1) GTR £9 THEN GO TO DONE? 
IF NBR MOD J#0 THEN 
BEGIN IF CNT3!SNTIxNT24NT1) USS T THEN 
BEGIN KieJ3 TIH®NT3) NT4tent24+1 ENDS 
END; 
Jesdel} 
GO TO AGAIN) 
IF Kei THEN GO TO EXIT! 
NT282NB DIV NBR + 103 
RL#tweRL DIV K3 
FOR 1310 STEP 4&1 UNTIL NT2 DO 
BEGIN IF (NTI*@HCTI*RL) GTR O THEN 
FOR Jta#i STEP 1 UNTIL K DO 
ACCT *1LO)xKeJe LI eNTI +UxRE? 
END$ 


37449000 
37450000 
37451000 
37452000 
37453000 
37453100 
37454000 
37455000 
37456000 
37457000 
37458000 
37463000 
37464000 
37465000 
37466000 

%R1737500000 

%R1737501000 
37501500 

%R1737502000 

%R1737504000 

%R1737505000 

%R1737506000 

%R1737507000 
37508000 

%09737509000 

%R1737510000 

®R1737511000 

%R1737512000 

%R1737513000 

%R1737514000 

BR1737515000 
37515995 
37516000 
37516050 


37516105 
%R1737517000 
$R1737520000 
%R1737521000 
BRi#37521100 
%R1737521200 
%R1737521300 
%R1737521400 
%R1#37522000 
%R1737523000 
%R1737524000 
%R1737525000 
£R1737526000 
%R1737527000 
%R1737528000 
%R1737529000 
®R1737530000 
®R1#37530100 
%R1737530200 
2R1%37531000 
®R1737532000 
®R1737533000 
2R1737534000 
#R1737535000 
¥R1737536000 


FOR Kt#NT4 STEP 1 UNTIL 19 DO ALKI]1503 %R1737538000 

IF MAXROWS LSS CNTS&$sC(NT4#20)4NT4) THEN MAXROWSS ENTS 37538500 

FORGET! IF NB+1 NE@ NBR THEN ¥R1737539000 

$ SET OMIT = SHAREDISK 37541995 
FORGETUSERDISKCALENT4@1)+#RLe(NT2°9)xBRL@NT&xRL) 3 37542000 

$ SET OMIT = NOT SHARENDISK 37542005 
FORGETUSERDISKCALNT4"1]4#RLe 37542010 
CONT2°9)xBRLOENTAxRLISCNOT HL4))0194781])3 37542020 

$ RESET OMIT 37542025 
MOVEC20eAeTHL10]])3 $R1737543000 

BRLEFRLE *R1737544000 

EXIT: FORGETSPACECA)3 2R1737545000 
END3 *R1737546000 
PROCEDURE DISKFILEOPENCALPHA)S VALUE ALPHA’ INTEGER ALPHASS %R9038000000 
BEGIN REAL RCWB4O>MSCWRE 23 %R9038001000 
REAL TOM™IOMASKe [OMASK=413 %R9038002000 
INTEGER NBUFSR4+2sFNUMB+3eBLEN@ 44s TYPE SSS REEL +62 CDATEES7 >» %R9038003000 
CYCLES+Be MODE S49 LOS+10eRLENZ411eUSeleeKIND&el 3¢ ZR9038004000 
DIRECR4+14eFORMSE4+15sCOBOLS4+16»/UNLABELEDS41/s 38005000 
OPTIONAL=+16eCNTICTL=4193 38006000 

REAL MF ID#4+20eF 1D8421 eo T1422 0 T2423 MASK S424 STATE R4253 38007000 
ARRAY FIBe4+26(¥] eFPBa+27(*) 3% £R9038008000 
INTEGER ACCESSm+28eF 18784293 %R9038009000 
ARRAY HEADER#4+30[(#)3% 2R9038010000 
LABEL MSGeEXITS 38010500 
SUBROUTINE DISKSETUPS3 2R9038011000 
BEGIN IF STATE,(4231) THEN’ %R9038012000 
BEGIN 38013000 

IF CNOT MFIDI®€NOT OJAND NOT USERCODECPIMIX4.£1321]) THEN 38013100 

BEGIN 38013110 

FPBLFNUMJ SMF IDSSF 103 38013120 

FPBLFNUM4{2)33F IDS =USERCODELPIMIX)$ 38013130 

ENDS 38013140 

IF NFLAGCFIBC L4G) ¢FLAGCFILEHEADERCMFID 38013200 

$ SET OMIT = NOT SHAREDISK 38013299 
&CTYPES26)(184731) 38013300 

S$ POP OMIT 38013301 
PFIDSFIBCSICLE4521)eF 1BL8),(2015) 38013400 

eF1B08),025823] eBLEN*RLEN®@ STATE) ))<6 THEN 38013600 

BEGIN PCDEL)3 38013800 

$ SET OMIT = NOT SHAREDISK 38013699 
FIBL5], C4511) «43 % FOR PAR LABEL ACTION 38013900 
FIBCB),C3t5]*FIBL14]3 &% TOSTATUS UPDATE 36014000 

$ POP OMIT 36014001 
Titmi3 38014200 

GO TO EXIT) 38014400 

END} 38014600 

IF FIBC8).020328)#0 THEN FPBLFNUM4+2),(18%30]¢DATE ELSE 38015000 

IF CDATE NEQ@ 0 THEN % LABEL EQUATION DATE SPECIFIED 38015100 

BEGIN 38035200 

HEADER t# FIBL14)3 38015300 

IF CDATE NEQ@ HEADERC3),£30418) THEN & WRONG DATE 36015400 

BEGIN % WRITE DATE CHECK MESSAGE 36015500 
STREAMCHISHEADEREC 3), C3031 5) sT28e(T2))3 38015600 

BEGIN SItsLOC HS DSt=8DEC? END? 38015700 

MSGS FILEMESSC"#DAT CK." 2000008 T2518818:30]),5 38015800 
MF IDs FIDe REEL*® CDATEs CYCLE)3 36015900 

REPLYCPIMIX] 0% @"VWYSVOKLI6SA2S6IRVEME3084226)3 38016000 

IF CMEMEPIMIXeMLINKIJ],fCF) GEQ FENCE THEN 38016100 
SWAPCWAITSWAP®1) ELSE 38016200 


COMPLEXSLEEP(C CTERMSETCPIMIX) OR REPLYCPIMIX) GTR 0))3 38016300 


$ POP OMIT 


$ POP OMIT 


1F TERMSETCPIiMIX) THEN 380160400 

BEGIN 38016500 
FORGETSPACECDIRECTORYSEARCHCMFID«eF ID» 38016600 

$ SET OMIT = NOT SHAREDISK 38016649 
IF TYPE=26 THEN 22 ELSE 38016650 

38016651 

FIBCL5),023933+10))3 38016700 

GO TO INITIATE; 38016800 

END3 38016900 

IF NOT WHYSLEEPC 38017000 
VWYRVOKO 3684236] 8VFM030842316)]) THEN GQ TO MSG) 38017100 

IF (CTIS®REPLYCPIMIXJ,£CF)7)2 NEQ VOK AND 38017200 

Ti NEQ VFM THEN GO TO MSGS5 38047300 

Ti t= COATE te 03 38017400 
FPBCFNUM42),(18930) t= T23 % USE OLD DATE 36017500 

END! & IF DATE CHECK MESSAGE 38017600 

ENDS & JF LABEL EQUATION DATE SPECIFIED 38017700 
FIBC18) t= RLEN & BLENCCTFEI & BLEN(C 3833815) 36017710 
STATE 2(46%2) t= BLEN NEQ RLEN3 38017720 
STARTIMINGCFNUMe® 1895 380180080 
FPBtePRTICPIMIXe3)3 & STARTIMING MAY HAVE MOVED IT, 38018500 
END3% %R9038019000 
HEADER*F IBL14)33% 2R9038020000 
KIND@*43} UelB3% %R9038021000 
MODE*O3% BR9038022000 

IF NOT COBOL THEN UNLABELED«#13% %R9038023000 
CNICTL#BLENS10233% %R9038024000 

$ SET OMIT * NOT SHAREDISK 38024004 
IF TYPE#26 THEN 38024005 
38024006 

IF FIBL8).£20826)]20 THEN & NOT CREATING 38024010 
IF HEADERELS8I<CCBLEN+29) DIV 30) THEN @BLKSIZE > ROWSIZE 38024020 
BEGIN BLEN*HEADERE81x303; FORGETSPACECHEADER INX O)8 38024030 
PCDIRECTORYSEARCHC@MF IDsF ID» STATE ,C13831410)2D0EL)3 38024040 
FIBLLSJ+HEADERe+FLAGCFILEHEADERCMFIDeF ID&FIBL5J0134581) 20002 38024050 
BLEN»sRLENe STATE) )3 38024060 

FIBC19),£3%15]+BLEN3 38024070 
END? 38024080 
IF COBOL>O AND CFIBC13],€2231] OR TYPE#10 OR TYPE#26) THEN 38024100 
BEGIN COBOLI#33 RIF COBOL*"IO OR COBOL*RANDOM 38024200 
BLEN t= BLEN + RLENS ZTHEN CHANGE BUFFSIZE TO 38024300 

END3 ZBUFFSIZE # RECSIZE 38024400 
GETBUFFERSCCIF CNTCTL THEN BLENS %R9038025000 
ELSE CCBLEN+29) DIV 30)x30)+19% %R9038026000 

NBUFS#UsALPHA) 33% %R9038027000 

IF COBOL * 3 THEN SIF COBOL"J]0O OR COBOL"RANDOM 38027100 
BEGIN COBOL 1% 13 ZTHEN CHANGE BUFFSIZE TO 38027200 
BLEN t= BLEN ® RLEN3 BBUFFSIZE © RECSIZE 38027300 

ENDS % (SEE ABOVE) 38027400 
FIBLIGI©MCALPHAI&CNICTLOI2Z3847 4138 10L2434731)% %R9038028000 
&(CCBLEN+29) DIV 30)(2784216)% %2R90368029000 

&8CIF CNTCTL THEN BLEN ELSE 1023)(6:36310)% %R90386030000 
&TINUC18I]0333315) OR M OR IOMASK32 %R9038031000 

FIBC16] 2.0282): 8CHEADER, (3182) AND (€1041))#03 R9038032000 
FIBCS) eCisiLjse NOT FIBCI6J.C231)3 $R9038033000 

IF FIBC5).0131)] THEN %R9038034000 

FOR MASKt©10 STEP 1 UNTIL 29 DO HEADERIMASK I]t =03 %R9036035000 
FIBLA9IeCIF DIREC THEN BLEN@RLEN+] ELSE 1) %R9038036000 
INX FIBI16]8&80L2712716)3 2R9038037000 


IF STATE *£4682]40 THEN FIBC19I,CO81DI©RLENSS 
FSEPIMIXe(T2¢3CFNUM DIV ETRLNG)),C40¢4] ]+C*PCDUP)) OR 
CTWOCORT2L4AI 844 tA) )KCCNOT HEADER) ,£3182]))3 


%R9038038000 
%R9036039000 
%R9038040000 


T2¢1F COBOL THEN O ELSE FIBL19),033825)"F1B016).0338151588R938041000 


FIBC1O), C3815) :eMCALPHAJ@2) 2 HEAD OF BUFFER RING 

FOR MASK*O STEP 1 UNTIL NBUFS*1 DOS 

MCALPHA+MASK Je (PCDUPSLOD)4+T2)% 
RPCFLAGCFIBLCAI*ABSC3xCOBOL) J) *XCHICCTCI} 

FIBCA6I]2=FIRL16) OR MS 

FIB(5),€4541]«03 


38041100 
%R9038042000 
%R9038043000 

38044000 
%R9038045000 

38045100 


IF PCCFIBL14]]eLOD) CFF IS2 THEN FIBCSI)efLi1se2deLsBINPUT ONLY. 38045105 


IF HEADER(C4),€1031) AND NOT JO THEN 
FILEMESSC@"CODE WeMPILE “sMFIDeF ID 802000) } 
$ SET OMIT # NOTCPACKETS) 
IF PSEUDOMYXCPIMIXI#0 THEN 
1F NOT F1B(5),041%1) THEN 
FILEMESSAGECCIF 10 THEN * IN * ELSE ® OUT") 
&TINUCUJL6830818)>5 IF ACCESS=0 THEN ™ SER bd 
ELSE IF ACCESS#31 THEN IF TYPE#26 THEN ™ PRO " 
ELSE ™ ROM " ELSE ™ UPD "y 
MF IDs F1D202020264)3 
$ POP OMIT 
END DISKSETUPS2 
PCRCWsMSCWaSTF)3 
RCW8BRCWRPCXCHIECCICI3 
DISKSETUP3 
IF COBOL<O THEN Z ADJUST UPPER BOUND FOR COBOL 68 
BEGIN MASK ¢ (YF 10 AND NOT FIBL13),02231) 
THEN HFEADERE7) 
ELSE CCCHEADER(9) x HEADERE1]) DIV 


38045110 
38045120 
36045149 
38045150 
38045155 
38045160 
38045200 
38045300 
38045310 
38045400 
38045501 
%R9038046000 
%R9038047000 
%R9038048000 
%R90368049000 
38049200 
36049300 
38049400 
38049500 


HEADER(O],042t6)) x HEADER(OJ,(30812)) * 1)#38049600 
IF FIBC32=0 OR FIBL3J>MASK THEN FIBEC3]¢MASK$ ZLESSOR OF 2 EVILS38049700 


ENDS 
IF PC(TYPE®DUP)#®10 OR PCXCH)#26 THEN 
BEGIN | 
IF COBOL<1 THEN % ALGOL OR COBOL 68 


FOR MASK « 0 STEP 1 UNTIL NBUFS*1 DO 
IF COBOL THEN MEMCALPHA+MASK) INX NOT 2) * NOT 0 
ELSE MCALPHA+MASK JePCDUPeLOD)B1L2784711)93 
FIBLOJ*FIBL7]+03% 
FIBCI7)©IF 10 THEN O ELSE BLENSS 


END ELSE 

BEGIN 
T2eC(MFID*FIBE16)),C33815)3% 
FIB7*FIBL7)3 


IF COBOL THENS 
BEGIN IF COBOL>0 THEN 
IF NOT CFIB7=0 OR FIBL13),022814) THEN 
BEGIN FIB7 «+ FIB7 = 43 
OPTIONAL * NBUFS © 13 
END ELSE OPTIONAL + NBUFS = 2 
ELSE BEGIN % COBOL 66 
OPTIONAL * NBUFS = 13 
IF DIREC THEN FIB7 © FIBC7) «+ FIBC3)3 


END3 
FIDeFIB[16]3% 
MASKeO3% 
END ELSE& 


BEGIN OPTIONAL@NBUFS™3 3% 
MASKe CF ID]FIBI19)) ,C33815I]°T25% 


380496800 
38050000 
%R9038051000 
38052000 
38053000 
38053500 
38054000 
%R9036055000 
%R9038056000 
%R9036057000 
%R9038058000 
%R9038059000 
%R90368060000 
%R9038061000 
38062000 
38062500 
38063000 
38063500 
38064000 
38064200 
38064400 
38064600 
386065000 
%R90386066000 
%R9036067000 
%R9038068000 
%R9036069000 
%R9036070000 


END3& 

IF STATE,£46#2]#0 OR 10 THEN 

IF MCALPHAJ,£C2s1] THEN 

FOR TieO STEP 1 UNTIL OPTIONAL DO% 
BEGIN IF (ME T2] 338 


DISKADDRESSC(FPBEFNUMJ» FPBCFNUM4+1)* FPBEFNUM43]» 


%R903B071000 
%R9036072000 
%R9038073000 
%R9038074000 
38074500 
38075000 


FORMSIE(CHEADERLOI, C3081 2IxTIIADIRECL184781))+F 187» 38075500 


HEADER» JO&CNOT HEADER(4))(4684731))) > 1 THEN 
BEGIN 
IF CUSERCODECPIMIX] EQV MCP)#NOT O THEN 
IF PCMEMFIDJ»DUPI.£3%6]%0 AND 
PCXCH)<DIRDSKxDSKTOG THEN 
BEGIN 
TERMINATECPIMIX)3 
TERMINALMESSAGE(30)3 
END3 


TOREQUESTCFLAGCF ID) »MFIDGIL2434781) eMC T2"2))3 


MCALPHAIJtSFLAGCMFID)8002682687)] AND NOT 
(M OR ITOMASK)) 
END ELSE 
IF MET2)#®0 THEN 
MCALPHAJ#@PCDOUP*LODI&8102794711) AND NOT M3 
IF COBOL<O THEN MEMCALPHA) INX NOT 2) « 


CIF FORMS20 THEN FORMS DIV FIBL11) ELSE NOT 0)3 


STREAMCN*NBUFS*4 eo TeMLALPHA) » ALPHA) 3% 
BEGIN SIT*ALPHAS SIeS]4+63 DSeN WOS32% 
St*#LOC Ts DS#WDS3% 
END3% 
MF IDs C33tLSJeT2eMET272), 018215133 
FIDsC338t15)*+T2+MASKSS 
END3% 
IF (NBUFS*1)#0OPTIONAL THEN FIBL16],C33ti15)*MCALPHA) 3% 
FORMS¢C(FORMS#FIB7 MOD HEADERCO),£30812))xRLEN? 
SLEEPCOMCALPHAI Je LOMASK 32% 


IF COBOL 2 0 THEN % NOT COBOL 68 


38076000 
38076500 
38077000 
36077500 
38078000 
38078500 
38079000 
38079500 
38080000 
36080500 
38081000 
38081250 
38081500 


B EOF IF INPUT» FULL HOR IF OUTPT36081750 


38082000 
38062400 
38062500 
%R9038083000 
%R9038084000 
%R9038085000 
®R9038086000 
%R9038087000 
%R9038088000 
2R9038089000 
%R90368090000 
®R9Q38091000 
%R9038092000 

38092900 


IF FIBCI3),C22t1L THEN MEALPHAI s(C33815]*FIBCIGIJINX 1 ELSESR38093000 


MCALPHAI,£C33915]¢FIBC16),C3381SI+FORMS413% 


%R9Q38094000 


IF CNBUFS#1)#OPTTONAL AND 10 AND NOT FIBC13).02271) THENSR38095000 


FIBE 17 JeO ELSE 
FIBLi7]6IF DIREC THEN FORMS+¢+RLENS 
ELSE BLEN*FORMS3% 
END! 
T1e*03 
EXIT! 
PCP&RCWICTC)eOeRDSeOeXCHeP&PCCTFIsSTF)3 
END DISKFILEOPENS 
PROCEDURE OTHERFILEOPENINCALPHA)S VALUE ALPHA INTEGER ALPHA3 
BEGIN REAL RCWa4+0eMSCWHEH23 
REAL ITOMBIOMASKe JTOMASK=+1} 
INTEGER NBUFS*4#2eFNUMB4+3eBLENa+4e TYPES +5 eREEL e+ Oe CDATE R470 
CYCLE S+B oe MODE Mtr LOBe1 Oe RLENwe] LeUeel2eKIND&el 3p 
DIRECe414eF ORMS 8415 eCOBOL R416, UNLABELED a417¢ 
1 F OPTIONALB41 Be CNTICTLR+I93 
REAL MF ID@420eF 10542107124 220eT234¢23eMASKR4+2GeSTATER4253 
ARRAY FIBR+26(*]eFPBat27(*)5% 
INTEGER ACCESS#4+28e,FIB7e+29} 
ARRAY HEADER@+30(4J3% 
REAL USASI#NT1» RHE ADSHEADERS 
LABEL FINDs DCN} 
SUBROUTINE TYPEOPENS® 


%R9038096000 
%R9038097000 
%RI038098000 
%R9038099000 
38099400 
38099500 
%¥R9038100000 
%R9038101000 
38102000 
%R9036102100 
%R9038102200 
%R9038102300 
%R9038102400 
38102500 
38102600 
38102700 
%R9038102800 
%R9038102900 
%R9038103000 
38103100 
38103200 
¥R9038103400 


BEGIN 
TIssCOPNMESS AND CCTISSJARCPIMIX00)])>0 OR 
COPNMESS AND 1T1<0)) OR OPENK3 
NT23203 
IF U<16 THEN 
STREAMCStSPRNTABLELUJ+¢C 30:18) 5 D2F(NT2))3 
BEGIN SIseLOC Ss DS3#8 DEC; 
DIs=DI"73 DS3#6 FILL} 
END3 
FILEMESSAGECC(™ IN ")8& 
TINUCUICE6830818)+ NT2e FRPBLCFNUM)» FRBELFNUM41) > 


%RI9038103500 
38103600 
386103700 
38103800 
36103900 
38104000 
38104100 
38104200 
38104300 
38104400 
38104500 


IF KIND®2 OR KIND#9 THEN PCREEL*CDATE) ELSE P(020)» 38104600 


PeCYCLE+T1)3 
END} 
SUBROUTINE REED$% 
BEGIN IF CT2*WAITIOCTis (MASK OR @40)8@377(CTFJe2U) AND @367)#0 
IF ¢(T2 AND NOT MASK)#0 THEN 
BEGIN STOPTIMINGCFNUM®1023)$ SETNOTINUSE(UP0)3 
FILEMESSC™"PARITY “e"ON ooo "&TINULUJL 24330318108 
MF IDeFID*sREELOCDATE*® CYCLE) 3% 
ENDSS 
IF TERMSETCP1MIX) THEN 


BEGIN STOPTIMINGCFNUM21023)3 SETNOTINUSECUs0)3 
GO TO INITIATES 
END3 
END REEDS& 


REAL SUBROUTINE CNTLBITS#% 


38104700 
2R9O038104800 
%R9038105300 
THEN38105400 
%R9038105500 
%R90 38105600 
%R9038105700 
®R9038105800 
%R9038105900 
%R9038106000 
%R90368106100 
%R9038106200 
%R9038106300 
%R9036106400 
%R9038106500 


CNTLBITS*IOMASK&MODEL2L 24781 JADIREC( 2204781 J@CNTCTLE2384751)38106600 
BLOL[G8473118CKIND®7 OR KIND>9 AND KINDS12)(2014781)8R38106700 
&CIF KIND®10R KIND®70R KINDSL2THEN@20ELSE 0)962784216)3 36106800 


SUBROUTINE LABELAREA:S 
METI©ALPHA"2]¢M OR (GETSPACEC(T1ieM(CT1) 
RTICBS3BtLOJRCNTLBITSCUS818s1 53% 
SUBROUTINE DOCARDLABEL3 
BEGIN NT3 t= SPACECL3) 423 
MOVEC1OsTieNT3)3 
FORGETSPACECTI*2)3 T1eNT3;3 
MEALPHA"2ZIJ¢CMECTIJIRLOLSs 36:10 Jal lC2arassids 
MODE*CNTCTLeDIREC#03 
END} 


PCRCWeMSCWeSTE D3 

ROWS RCWRPCXCHIICTC)3 

IF STATE,(41#1] THEN 
BEGIN UsFIBLi5]), £2585) 5% 
END ELSES 


%R9038106900 


0 £8810] )+4e201)44)%3R938107000 


%R9038107100 
%R9038107200 
3R9038107300 
%R9038107400 
%RI038107500 
%R9036107600 
%R9038107700 
%R9038107800 
%R9038107900 
%R9038110000 
%R9038110500 
%R9038111500 
2R9036112000 
¥R90368112500 


BEGIN IF CUSFINDINPUTCMFIDsF IDs REELS COATE s CYCLE COBOL» UNLABELED »s%R38113000 


OPTIONAL» MODE» FNUM))<0 THEN’ %R9036113500 

BEGIN FIBL5),039%4)+93 GO TO FIND END3S% %R9036114000 
STARTIMINGC(FNUMe IF U>31 THEN 18 ELSE U)3 %R9036414500 
FPBIBPRICPIMIXs3)3 ® STARTIMING MAY HAVE MOVED IT, 38115000 
KINDS®IF U GTR 31 THEN 11 ELSE UNITCUI,£184)3 38115100 
TYPEOPENS&% %R90386115500 
IF U<16 THEN BEGIN RRRMECH*THOCU) OR RRRMECHS %R9038116000 
PRNTABLELU),C15815])*ALPHASS% %R9038116500 

ENDI% 2R90368117000 

38117500 

IF CTL*RDCTABLECUI],£14#10])240 THEN REELeT1s 2R9036118000 
%R9036118500 

STATE s£3984)+03% %R9038119000 


END3& 
IF KINO#®O THEN? 
BEGIN IF Us23 THEN BEGIN T1*READERAS’ READERAe€O ENDS 
ELSE BEGIN TI*READERBs# READERB*O ENDS 
NOCARDLABEL3 
IF BLEN<T1I*(MODE+1)%10 THEN BLEN@TLis2 
END ELSES 
IF KIND#2 THEN? 
BEGIN IF NOT UNLABELED THEN BEGINS 
IF DIREC AND NOT FIB(16],(€22%1] THEN 
BEGIN IF NOT STATEsf4081] THEN BEGIN’ 
T1#583(2384632) OR MSR 
MASKe¢0O3 REEDS 
MASKt=@603 DO REED UNTIL T2,(4291)3 
DO REFD UNTIL T2,04291)3 
MASK#0O3 REED} END3% 
END3 


CNTCTL#13 LABELAREA2& 
TIeNFLAGCMEALPHA"2])3 

IF DIREC THEN Tie#T1,(8810]"1 INX T13 
MASKE#@403 REED} 
STREAMCYSsO0tXseOeX1teOeX2tz0eZieli)3 


%R9038119500 
%R9038120000 
%R9036120500 
%R9038121000 
%R9038121500 
%R9036122000 
%®R9036122500 
2R9038123000 
¥R9038123500 

38124000 
%R9038124500 
%R9038125000 
BR9038125500 

38426000 
%R90368126500 
%R9038127000 
%R9036127500 
%R9038126000 
%R9038128500 
2R9038129000 

38129500 

38130000 

38130500 

38131000 


BEGIN DIesLOC Xs DSse24 LIT “VOLIHDRIHDOR2ZEOFIEOF2EQVI"s 38131500 


DIsFLOc XxX} 
6CTALLYSBTALLY413 
S118Z3 
IF 4 SCSDC THEN 
JUMP OUT TO B)3 
TALLY!13203 
B3 
Yr=TALLY3 
ENDS 
IF CUSAS]##P)>0 THEN 
USASITAPECTI,£CFIeUSASIT*#4sUsDIREC) ELSE 
IF MCTL INX 6),02436)51 THEN 
BEGIN 
REED: 
MASKe@603 
T1#583(23346:2] OR M3 
T2¢0} 
END} 
IF T2 NEQ@ @40 THEN DO REED UNTIL T2,04281] ELSE 
FOR CNICTLeDIREC STEP 1 UNTIL 2 DO® DIREC = O OR 1 


38132000 
36132500 
384133000 
36133500 
38134000 
38134500 
38135000 
36135500 
38136000 
38136500 
38137000 
38137500 
38138000 
36138500 
38139000 
38139500 
38140000 
38140500 
386441000 
DB 36341500 


PCWAITIOC@S7T4Q0000005R(NOT DIREC IC 2204781) 603775U) 9 DEL) 320838142000 


ENDS% 
IF BLEN # 0 THEN 


%R9038142500 
2R9038143000 


BEGINSSTREAM(BSe0rBFseOeRss0sLee"LABEL “»StMCALPHA"2))33R9038143500 


BEGIN SJ]s*LOC LS STseSItis DI sad] +152 

IF 78C = DC THEN’ 

BEGIN SisweSs S1lt#S]+583 DitseLOc BFFs DIltwDl?13% 

DSt=CHRs OS885 OCT DG8"5 OCT 

ENDS 

END STREAM} 

RLEN #® POLISHS BLEN && POLISH3 

STATE ¢@ STATE & PCXCHIL4694632)3 
, FIBL18] t* RLEN & BLENCCTF) & BLENE3!833815)3 
END} 
CNTCTL*BLENS10233% 


%R9038144000 
#R90368144500 
3R9038145000 
2R9036145500 
®R9038146000 
%R9038146500 
%R9038147000 
%R9038147500 
%R9038148000 
%R9036148500 
%R9038149000 


DCNEt 


BIND! 


END ELSES 


IF KIND®9 THENS 
BEGIN UNLABELED«CNTICTLe13% 
DIREC*#032% 


END ELSES 


IF KINDS11 THEN 

BEGIN TleCIDROW(U"32),618815)3 
CIDROWLUM32).018815) +03 
DOCARDLABELS 
FIBC13),CASGIeNBUFS#13 FIBCI3].C1089 «43 
IF BLEN<10 THEN BLEN#103 


END ELSE 


FILEMESS( "1/0 ERR“ sOsMFID»FIDsREELOCDATESCYCLE D&S 


Pci} 


IF BLEN=O THEN GO TO DCN32% 


IF NOT 


FIBC18),C1813 OR P THEN 


GETBUFFERSCBLEN»NBUF Se UP ALPHA)? 


PCPRRCWLCTCIs0eRDSoOsXCHePRPLCTF I eSTF)3 

END OTHER FILE OPEN IN3 

PROCEDURE OTHERFILEQPENOUTCALPHA)$ VALUE ALPHAS INTEGER ALPHAS 

BEGIN REAL RCWR40eMSCWRH23 

REAL TOM*]OMASK» [OMASK=4+1} 

INTEGER NBUFS34+2sFNUM@4+3°BLENR+Oe TYPE S45 eREEL RHO er CDATE S472 
CYCLE Z+Bo MODE R+9e 1OF+{ Oe RLENF$11-UF+12eKIND=4]1 3» 
DIRECS+14*FORMSE4+15*/COBOLZ+L 6s UNLABELED#41 7. 
OPTIONALB+1{ 8 eCNTCTLe4193 

REAL MFID#*209F 1D@4+210T124+22eT2S4239MASKB4+24e STATES 4253 

ARRAY FIBS426(#) eFPBa427(*] 33 

INTEGER ACCESS#+26-F 1872429) 

ARRAY HEADER&+30(¥*]3% 

REAL USASIENT1» RHEAD=HEADER: 

LABEL LPSsF IND» DCNoPBS} 

SUBROUTINE TYPEOPENS& 


BEGIN 


TIteCOPNMESS AND CCTISSJAREPiMIX*20))>0 OR 


COPNMESS AND 11<0)) OR OPENK3 


NT24303 

IF U<16 THEN 
STREAMCS#SPRNTABLECU),C30818)» DIe(NT2])3 
BEGIN SIt#Loc Ss DSim6 DECI 


END3 


DI#*DI°7% DSt*6 FILLS 


FILEMESSAGECC™ OUT")2& 


END3 


TINUCUJ (6830816), NT2*e FRPBCFNUM)>s FPBLFNUM41 Je 


IF KIND#®2 OR KIND=9 THEN PCREEL*CDATE) ELSE P(000)> 


PsCYCLErTi)3 


SUBROUTINE REED#% 
BEGIN IF (CT2*WAITIOCT1 + (MASK OR @40)R8@377[CTFIJ®U) AND @367)#0 
IF (T2 AND NOT MASK)#0 THEN 


BEGIN 


END3% 


STOPTIMINGCFNUM®1023)3 SETNOTINUSE(CUS0)3 
FILEMESSC*"PARITY "#"ON ooo “&@TINULUI(24130216) 0% 
MF IDeFIDeREELPCDATE* CYCLE) 3% 


IF TERMSETCPIMIX) THEN 


BEGIN 


ENO} 
END REED33 


STOPTIMINGCFNUM21023)3 SETNOTINUSECUL0)3 
GO TO INITIATES 


%R9038149500 
2R9038150000 
%R9038150500 
%R9038151000 
%R9038151500 
2R9038152000 
%R9036152500 
%R9038153000 
2R9038153500 
%R9038154000 
%R9038154500 
%R9036155000 
%R9038155500 
#R9038156000 
%R90368156500 
%R9036157000 
%R9038157500 
%R9038156000 
%R9036156500 

38159000 

38200000 
%R9038200100 
%R9038200200 
%R9038200300 
%R9036200400 

38200500 

36200600 


38200700 


%R9038200B800 
%R9038200900 
%R9038201000 

38201100 

38201200 
%RI038201400 
%R9038201500 
38201600 
38201700 
38201800 
38201900 
38202000 
38202100 
38202200 
38202300 
38202400 
36202500 
38202600 
38202700 
¥R9038202800 
%R9038203300 
THEN38203400 
3R9038203500 
%R9038203600 
¥R9038203700 
ZR9038203800 
%R9038203900 
%R9038204000 
%R9038204100 
%R9038204200 
%R9038204300 
%R9038204400 


REAL SUBROUTINE CNTLBITS#& %R9038204500 
CNTLBITS*1OMASKRMODEL2Z1F4741JRDIRECL 22847181 J8CNTCTLE2314731138204600 
R1OC248A7:1 IRC KIND=7 OR KIND>9 AND KINDS12)£20247311%R38204700 

&CIF KIND®i0R KIND#®70R KINDSL2THEN@20ELSE 096273424613 38204800 


SUBROUTINE LABELAREASS% %R9038204900 
METI*©ALPHAT®2Z)©M OR (CGETSPACEC(CTIOM(T13¢£68910) 445201 )4+4)%8R938205000 
RTICAs3B:1LOI&CNILBITS(18316315I3% —%R9038205100 

% %R9038205900 
PCRCWeMSCWeSTF)S %R9036210000 
RCWSaRCWRPCXCHIECTC)$ %R9038210500 
IF STATE s(41t1] THENS %¥R9038211500 

BEGIN UeFIBl15),(25%5)3% %R9038212000 

END ELSES %R9038212500 

BEGIN T2s=FPBEFNUM+3); % SAVES COPIES FOR BACK UP 38213000 

IF CULBFINDOUTPUTCMF IDs FID) TYPE 38213500 

$ SET OMIT = NOT PACKETS 38214000 
&FPBCFNUM4+3)(0132331) 38214500 

$ POP OMIT 38215000 
»FORMSPREELOCDATE®CYCLE® KIND) )>40 THEN 38215500 

BEGIN FIBCE14J].03815]¢u3 %R9038216000 
FPBCFNUM4#2),[018t30]*DATE3 . %R9038216500 

IF MCP#NOT O THEN MLCU+2]*USERCODELCPIMIX]3 £R9038217000 
MEUF3]#XCLOCK+PCRTR)3 %R9038217500 
T13#®SPACE(30)3 38218000 
MOVEC30eUsT1)3 38218500 
STREAMCDATE s+Bt=1143)3 38219000 

BEGIN SItsLOC DATESDSSSBOCTIDISSDI@8sDSsa2LIT + 2"F ENDS 38219500 

METL+i Je CXCLOCK#PCRTR) ACMI 1143) (6830818)3 38220000 
MCT1¢4]9=& ORSYSNOL434632)810284731]3 38220500 
METi+5]eCuPCDUP) 81021478133 BABORTED PBD TOG. 38221000 
MCT146]1=03 386221500 
MEUMLISZEUFCIF TYPE NEQ@ 0 AND TYPE LSS 20 THEN 38222000 

"PBD " ELSE "PUD sMCUS6)eT19°1)3 38222500 
FORGETSPACECT1)3 38223000 
FILEMESSAGECCIF TYPE GEQ@ 20 OR TYPESO THEN "PUDseoe,” 38223500 

ELSE "PBDeeee"I&MLUF6)[2436324)5 38224000 

"OUT "BMCU4¢6)(30830818]> 38224500 

MFID*#FIDs02000» 38225000 

(PBDREL OR OPNMESS) OR OPENK)3 38225500 

STARTIMINGCFNUM®U@18)3 %R9038226000 
FPBsePRTICPIMIXe373 % STARTIMING MAY HAVE MOVED IT, 36226500 

END ELSE ®R9038227000 

BEGIN %R90368227500 
STARTIMINGCFNUMeU) 33 %R9038228000 
FPBISPRICPIMIXe3]3 % WATCH OUT FOR STARTIMING. 38228500 

TYPEOPENSS %R9038229000 

IF TYPE#5 OR TYPES8 OR TYPE®9 THEN UNLABELED]13% %R9038229500 

IF U<16 THEN BEGIN RRRMECH*TWOCU) OR RRRMECH? %R9038230000 
PRNTABLELUJ,CI5815J¢ALPHAS® %R9036230500 

END} END3 %R9038231000 

ENDS® %R9036231500 

IF KIND®6 THENS ZR9038232000 
BEGIN BLENT#105 36232500 
FIBC18)t=C*#PCDUP) )RBLENCCTCI&BLENCCTFI&BLENL 3233215)3 38233000 
MODE*DIREC#CNTCTL©0O33 %R9038233500 

END ELSES %R9038234000 
IF KIND#1 THENS %R9038234500 
BEGIN MODE*DIREC*CNTCTL#03% %R9038235000 
LPS3 %R9036235500 


IF NOT COBOL THEN MCALPHA™2)*0815(8%38810)3% %R9038236000 


PBS!I 


END ELSE2 
IF KIND®12 THEN 


BEGIN TYPE*IF CTYPE#0 AND TYPE<20) THEN 15 ELSE 223 
MODE*DIREC*O$ FIBCI3I,CLIFI*NBUFS*CNTICTLe1s FIBL13),£1039)613 


%R9038236500 
2R9038237000 
36237500 
38238000 


BLEN*IF TYPE220 THEN 10 ELSE IF BLEN>17 THEN 17 ELSE BLENZ 36238500 
MCTLSGETSPACE( 920308 t2JeM( TIMI J eC MCALPHAJI&CTI+2) (CTF I&SRIN036239000 


UC12142%6)3 
DISKIOCRHEAD» *T1*77e9e JAREPIMIX*6),(CFI)3 
MCALPHA]taTi+¢23 
FIBC1T4JeC#PCDUP)IACTIF29(CTCI&CTI+56) (CTE 3 


FIBC18J«C*PC OUP) EBLENCCTCIJ&BLENCCTF J&BLEN(03833915))3 


STREAMCD#T1¢1)$ 2¢36(0S"8 LIT"O"))3 


FIBCSJ CFF I+CMETIF9OLIOFIBCSI eC FFIRILI8S4731I)0e15 


SLEEPCERHEAD I] + TOMASK )3 
HEADERSFCMET117)&8920883881013 
HEADEREC 74) ¢MFID3 
HEADERC7SJeF IDS 
HEADERES7J©FORMSS 
HEADER( 883t3T2,615198)3 % COPIES 


HEADERE7T6)*ABSCJARCPIMIX001)3 
HEADER(C77J*ABSCJARCPIMIX01])3 

GO TO LPS3 

END ELSE 

IF KIND=7 THENS 

BEGIN TYPE*IF (TYPE#0 AND TYPE<20) THEN 6 ELSE 203 
IF SVPBT THEN SAVEWORDt&TWOCU) OR SAVEWORD3 
GO TO PBS: 

END ELSES 

IF KIND®2 THEN® 

BEGIN IF PRNTABLECUJ20 THEN GO TO DCNS2 
CNICTLeMODES2 

END ELSES 

IF KIND=8 THEN? 

BEGIN UNLABELED+CNTCTLo13% 
DIREC+03% 

END3% 

IF UNLABELED THEN 

BEGIN IF COBOL THEN 
BEGIN MASKe03% 


38239500 
38240000 
36240500 

ZR9038241000 

%R9038241500 

BR9038242000 

BR9038242500 
36243000 
38243500 

%R9036244000 

%R9038244500 

$R9038245000 
38245500 

¥R9038246000 

%R9038246500 

%R9038247000 

%R9038247500 

$R9038248000 

%R9038248500 
38249000 
38249500 

%R9038250000 

£R9036250500 

%R9038251000 

%R9038251500 

%R9038252000 

%R9038252500 

%R9038253000 

%R9038253500 

£R9038254000 

%R9038254500 

%R9038255000 

$R9038255500 

%R9038256000 


IF KIND#1 THEN BEGIN Ti*+@40001000003 REED END ELSE#%R938256500 


IF KIND#7 OR KINDS12 THEN 
BEGIN 

IF TYPE «< 20 THEN 

BEGIN 


HEADER(C73)+@15401760001000008&F IBISICFICI) 


FIBLSIJ,CFFI*FIBCS) CFF I413 
FIBCI4A), CFR JseT1+383 


ENDS 
GO FINDS 
END3 
ENDSS 
END ELSES 


BEGIN IF COBOL THEN? 


BEGIN MELALPHA*2Z)¢PCDUPSLODIQCNILBITS(CAIBS18s15Is% 


IF U<16 THEN 


STREAMCN*PRNTABLECU) (30818) *DeMLALPHA™2] 03% 
BEGIN SI*LOC NS DIeDI+53% DS*5 DEC ENDSSZ 


END ELSE® 
BEGIN IF REEL#0 THEN REELe13% 


%R9038257000 
38257500 
38256000 
38258500 
36259008 

2R9038259500 
38260000 
38260500 
38261000 

%R9038261500 

%R9038262000 

%R9038262500 

%R9038263000 

%R9038263500 

%R9036264000 

2R9038264500 

%R9038265000 

%R9038265500 

%R9038266000 


eee i ohne ea oe te Je 


ie Gh ised ie op cSG, mle es atc cee Sis tah sw enero “pele ee naar 


IF CYCLE®0O THEN CYCLEeLSS %R9038266500 
IF CDATESO THEN STREAMCDATEsCD*#(CDATEI)3% 2R9038267000 
BEGIN S}*LOC DATES SI*St+33 DS#5 OCT END: 38267500 

LABELAREASS %R9038268000 
BUILDLABFLCMLALPHA™2JeMFIDeFIDeREFLeCDATE® CYCLE 2% 3R9038268500 
FIBC4Je CIF UK16 THEN PRNTABLELU),£30316)]%48R38269000 

ELSE O)eSTATE,(4622)+% %RI038269500 


BLENeRLEN) 3% %R9038270000 

END3& 3R9038270500 
MEMCALPHA*2] INX PCDUP),[8110)]+@37000000000000003% %R9038271000 
IF CPCKINDeDUP)®7 OR CPCXCHeDUP)@®12 OR PCXCH)=1)) THEN 38271500 
IF KINO®7 AND FIBL13),0C28:10J4#COBOL THEN GO FIND ELSE 38272000 
BEGIN If TYPE GEQ@ 20 THEN 38272500 
BEGIN MCMCALPHA*2] INX 4I]ESFLAGCNABSCJARECPIMIX00)))3 38273000 
MEMCALPHA"2) INX S]CPFLAGCJAREPIM]X0138170184385))3 36273500 
STREAMCASSECMOMCALPHA™2] INX 6)])3 36274000 

BEGIN DSt#15 LIT"™ PUNCH BACK®*UP “3 DSteLITZ"3 38274500 
2COS8SB LITMEZLESE22") 3 38275000 

END3 38275500 

END ELSE 38276000 
BEGIN Tit=MCMCALPHA*2) INX 333 38276500 


DISKWAITC@CMEALPHA"2) INX 4) e10eJAREPIMIX06),0CFI)3 38277000 


MEMCALPHAw2)] INX 13}*FLAGCNABSCJARECPIMIX0O})I8OL2I47¢1)3 36277500 


MEMLALPHA*T2ZIINX 14) ¢FLAGCJAREPIMIX01181701243%35))932R90382786000 


MEMCALPHA"2] JINX 3]335T13 38278500 

END$ 38279000 
MCOMLALPHA?®2) INX LI]s*MFIDS 38279500 

MEMCALPHA®2J) INX 2)eF 1D3 %R9038280000 

IF KIND™1 THEN MCLALPHA"™2 J] «PC DUP ®L00)8102784216) ELSE#R38280500 

BEGIN HEADERC73] ¢FIBCSI.CFFIRCTYPE<20)(CTFIJ& 38281000 

15f384335]3 38281500 
FIBLSJePCDUP»>LODeOodeCFXa+)} %2R903682862000 

STREAMCLeMCLALPHA*"2] eB«+CHEADER(56)))3 %¥R9038282500 

BEGIN SI*kL3 DS*17 WDS ENDS %R9038283000 
FIBCISI CFF JSC HEADER(C38))% GO FIND: %R9036263500 

END3 END3 %R90368284000 

TI©NFLAGCM( ALPHA"2)) 3% %R9038284500 

MASKe0O3 REED3% %2R9038285000 

IF KIND®2 THENS %R9038285500 

BEGIN T2*@17370000000000003% %R9038286000 
TI©NFLAGC(T2])3% 229038286500 

REED3% %R9038287000 

END3S 2R9038287500 

END3% %R9038286000 

PCO)) 2R9038288500 

IF BLEN®O THEN 38289000 

DCNS8 FILEMESSC@"1/0 ERR™sOoMFIDetF ID»sREEL*CDOATEe CYCLE) 3 36289250 
IF NOT FIBL16),£1#1) OR P THEN %R9038289500 
GETBUFFERS(CBLENeNBUF Se Ue ALPHA) 3 %R9038290000 

FINDS8 %R9038290500 
PCPARCWI(CTC)eOeRDSeOeXCHe PEPCCTF Ie STF)3 %R9O38291000 

OND OTHER FILE OPEN OUTS 38291500 
PROCEDURE DISKCLOSECALPHA)S VALUE ALPHAS INTEGER ALPHAS% %R9038355000 
BEGIN REAL RCWe+0eMSCWHR23 %2R9038356000 
ARRAY FIBR+iC*] sFRPBe+2(*#] »HEADERS43(%) 5% $RI038357000 

BZX DONT ADD ANY DECLARATIONS BETWEEN "HEADER" AND “KIND 323% WCP%R38356000 
INTEGER KINDw44eNBUFS@ 450 U S462 BLEN34+7 2 CODE R4Be %¥R9038359000 
UNLABELED#4+9eCOBOLeE+10s 13411 eJmel2eFNUMs4) 33 38360000 

REAL MID@®+1MoF 1 DR41 5 eRe GeDae 7 eCetLOeoFORMSHS I Oe STATES 4203 38362000 

LABEL LieL2eL3eEOrF e CLEANUP} 38363000 


LABEL OBJTYPEs DUMMY3 #R9038364000 
REAL Ti®+21eT22+229T3%+239 1ODS+243 %R9038365000 5 ae [eee 8 thts Ste be Monee Bee 
ARRAY SEGOR+25(#) sSKELR+26(4)3 %R9038366000 
REAL Tss27sACCESSu+283h 38366010 
BOOLEAN COMPGO8+293 38366020 
& SET OMIT = NOT SHAREDISK 38366099 
DEFINE 38366100 
LASTLOCK = HEADERL 30] #» 38366200 
IMPLOCK @ HEADERL 31) #> 38366300 
PROGRAMLOCK * MCFPB INX NOT O183 38366400 
LABEL LSTUNLCKe IMPUNLCKe IOFINIS 38366500 
SUBROUTINE SDCOOLOFF? 38366600 
BEGIN 38366700 
FOR I*0 STEP 1 UNTIL NBUFS#1 DO. 38366800 
BEGIN 38366900 
IF NOT MCALPHA4+1]}.(01981] THEN 38367000 
BEGIN 38367100 
IF COCTeMCMCALPHA4I] 33) EQV LASTLOCK)=NOT O THEN 36367200 
LSTUNLCK TeLASTLOCK ELSE IF (CT EQV | MPLOCK)SNOT O THEN 38367300 
IMPUNLCK S$ TeNABSCIMPLOCK) ELSE 38367400 7 
BEGIN 38367500 
SLEEPCOIMCALPHA*I JJ ¢1OMASK)3 GO TO JOFINI3 38367600 
ENDS Ti#T2«03 38367700 7 
FOR J*#O0 STEP 1 UNTIL CLOQAVAITL@1) DY 38367800 
IF CCT3*LQUELJJ).CA840) EQV T.e£8840))=NOT O THEN 38367900 
IF LOCATQUELT3¢CI&7IIZ03¢5)SP1MIX THEN 38368000 
BEGIN 38368100 
IF J « CL@AVATLeLQ@AVAILe@1) THEN 38368200 
STREAMCAGLQAVATL@UeBeLLQUECVII)3 38368300 
BEGIN SI*Bs S]*S]#83 DS*A WOS END} 38368400 
RETURNIOSPACE(T3,(187])3 38368500 
Tiel} 36368600 : 
END ELSE Teels 38368700 
IF NOT €T1 AND T2) THEN 38368800 
BEGIN 36368900 
IF NOT T1 THEN 36369000 
BEGIN 38369100 
IF I<NBUFS THEN 38369200 : shee te Mn é 
SLEEPCEIMCALPHA+1 ]) +1 0MASK)3 38369300 
TL*ABS(T) OR @20603 % UNLOCK ADDRESS 38369400 
END ELSE 38369500 __ = r be 
T1#CABSC(CT) OR S60)8SYSNO(3094632)3 &% CLEAR ADR38369600 
PCWAITIOCOT19 INX 810000000050048)eDEL)3 38369700 
ENDS 38369600 : 
IF T GEQ O THEN PROGRAMLOCK*LASTLOCK*0O ELSE 38369900 
IMPLOCK«#0O} 38370000 
END3 38370100 
IOFINI: 38370200 = 
END3 38370300 
IF LASTLOCK#0 THEN GO TO LSTUNLCKS 38370400 
IF IMPLOCK#0 THEN GO TO JMPUNLCK3 38370500 
END SO COOLOFFS 38370600 
$ POP OMIT 38370601 7 - 
SUBROUTINE COOLOFF3 38370700 
BEGIN FOR 10 STEP 4 UNTIL NBUFS*"1 DO 38370600 
BEGIN IF NOT MEALPHA+I],£1931] THEN’ %R9038371000 oe 
SLEEPCEMCALPHASI J) J) + LOMASK 232 %R9038372000 
IF KIND#4 THEN %R9036373000 
IF MEALPHA+}] ],027t1] THEN GO TO EOF3% 2R9038374000 ae 


END3% ®R9038375000 


we ac Be 


OF’ END COOLOFFs% 


BOOLEAN SUBROUTINE WRITTENONS ® PICKS UP THE ACCESSED BITS 


BEGIN J%8#Q03 % THE BUFFERS, 
IF CT#*®FIB010),03%15)) NE@ O THEN 
BEGIN 
FOR Is:#NBUFS"4 STEP “4 UNTIL 0 DO 
IF METI,C1131) THEN Jtepsery ELSE TeeM(T) 
END3 
WRITTENONS &U} 
END3 


DEFINE REWSCODE, C4731) #02 
KRUNCHFNOT CODE. (4211 ]#s 
RELRCODE (4681) 80% 
TIMECODE: (4531) 809% 
LOCK*®NOT CODE s(44!:1)#0% 
PURGESNOT CODE.£4311) 43% 
DEFINE TECHBSTATE, C4682) #> OPENIO#FIB(13] 
WRITBACK®FIBCi3],C23¢1) 4s LASTIO@FIBC1i3] 
WRITEAFTEREOFSFIBL132.C44:2)#» INPUT#STATE,(4 


START OF CODE 


PCRCWeMSCWoeSTE D5 RCW * RCW & PCXCHIL(CTCI3 
HEADER «+ FIBC(14]3 ACCESS « FIBC4),.(2723)3 
IF COBOL THEN 
BEGIN IF COBOL > O THEN ® COBOL 61 
BEGIN IF WRITBACK AND TECH®0 AND LASTIO AND 
COPENIO OR NOTCINPUT)) THEN 
IF ACCESSS1 AND WRITEAFTEREOF#0 THEN 
BEGIN FIBL7) * *PCDUP) » 13 
HEADERI7) © *FC DUP) = 13 
END ELSE WRITEAFTEREOF + 03 
IF TECH®O THEN ITF WRITEAFTEREOF®2 THEN 
BEGIN FIBEL7] *« *PC(DUP) + 13 
HEADER(L7) * *PC(DUP) + 13 
END ELSE JF WRITEAFTEREOF®1 THEN 
BEGIN FIBLE7}] + *PCDUP) @ 13 
HEADER(7] + *PCDUP) @ 13 
ENDS 
WRITEAFTEREOF © Q$ 
END3 


eC FF I"23 


el 2281) #>» 
alLGOt 1. jee 
311183 


TF ACCESS*4 THEN %& JF RANDOM 


BEGIN IF COBOL > 0 THEN % COBOL61 
BEGIN ACCESS « 4} 


IF FIBEL13),£1089) = 2 THEN % SEEK IN PROCESS 


BEGIN 

$ SET OMIT = NOT SHAREDISK 
IF FPBCFNUM#3),(43:5)826 THEN 
SDCOOLORF ELSE 


$ POP OMIT 
COOLOFFS FIBEC13)e01089) «+ 13 
END 
END ELSE IF FIBC371]<BLEN THEN ACCESS#43 
END3 
IF FIBC13)-02381) AND ACCESS#0 THEN 
BEGIN FIBLC7J+PCDUPeLOD) 13 
ACCESS#4}3 
END? END} 


% COBOL68 


%R90368376000 


38376500 


FROM38377000 


38377200 
38377400 
38377600 
38377800 
38378000 
38376200 
38378400 
38378600 
38379000 


2R9038380000 
%R9038381000 
%R90368382000 
%R9038383000 
%R9038384000 
%R9038385000 


38385400 
383865500 
38365600 


%R9036386000 


38386010 
38386020 
38387000 
38388000 
38389000 
38389100 
38389200 
38389300 
38389400 
38389500 
38389600 
38389700 
38389800 
38389900 
38390000 
38390100 
38390200 
38390300 
38390400 
38390500 
38391000 
38391100 
38391200 
38391250 
38391300 
38391350 
38391399 
38391400 
38391450 
38391451 
38391500 
36391550 
38391600 
38391700 
38391800 
36391900 
38391910 
36391950 


IF NOT STATEsC41#13 THENS %R9038392000 
BEGIN IF ACCESS#1 THENS $R9G38393000 
BEGIN 38394000 

$ SET OMIT 3 NOT SHAREDISK 38394099 
IF FPBLFNUM4+3],(4315]%26 THEN 38394100 

SOCOOLOFF ELSE 36394200 

$ POP OMIT 38394201 
COOLOFF3 38394300 

END ELSES %R9038395000 

IF ACCESS®0 THENS %R9038396000 

BEGIN COOLOFFS IF NOT STATE,C43%1] THENS %R9038397000 

IF FIBLI7J<BLEN AND STATE,C4682)#40 THENS - %R9038398000 

BEGIN R t® SPACECC(BLEN+29) DIV 30)x30 + 1)3 38399000 

IF CMCRI*M[FIBL16]1+% ZR903B400000 
DISKADDRESSCMIDsFIDeFPBLFNUM4+3]eFIBL7J@1eHEADER®O)) NE@ O THEN & (SHM)38401000 
BEGIN 38401500 
PCWAITIOCFIBELGIGIL 2484752 ERE33833815]°%  %R903B402000 

OrU) DELS | %R9038403000 

MOVECFIBLA7JeR#BLENT"FIBLI7 I 410% %R9038404000 

FIBL16] INX BLEN@FIBL17)+1)5% %R9038405000 

PCWAITIOCFIBL16]#0+U) sDEL) 5% %R9038406000 

IF NOT FIBL16),C24t1) THEN HEADER(4],Ci1tiJe43 38406500 

ENDS 38407000 

FORGETSPACE(R) #3 %R9038408000 

ENDS% %R9038409000 

END ELSES %R9038410000 

BEGIN 38411000 

$ SET OMIT s NOT SHAREDISK 38411009 
IF FPBCFNUM4#3).(4335)#26 THEN 38411010 

SDCOOLOFF ELSE 36411020 

$ POP OMIT 38411021 
COOLOFES 38411030 

IF CFIBC17) LSS BLEN AND STATE,£4632]#0) OR 38411500 

ACCESS=4 THEN 38412000 

BEGIN IF ACCESS=4 THEN 38412500 

IF FIBL13],023$1] OR NOT STATE,(4391) THEN 38413000 

ACCESS t= 23 38413500 

IF CMCFIBC16)) #=DISKADDRESSCMIDeF IDs FPBCFNUM+3) °F IBL7]» % CSHM) 36414000 
HEADER? 0))50 THEN ACCESS ta 4} 368414200 

IF ACCESS#4 THEN 384144400 

BEGIN PCWAITIOCFIBE16]&0OL 2482481] 900U) »DELIS 38444500 

HEADERC4J.CiLtij*1s ENDS 38414600 

END} IF ACCESS ® 4 THEN ACCESS 35 23 38414800 

ENDSS %R9038415000 

ENDSS %R903B416000 
HEADERC4) C4381 ItSFPBCFNUM+3],01504)3 38417000 

IF (NOT REW) OR LOCK OR REL OR TIME THEN %R9038419000 
BEGIN %R9038420000 
FORMS*HEADERL3]3 BR9038421000 
STREAMCPFeLFIBL4)) #D©FPBCFNUM4+2) ¢f188 30] *HeLHEADERL 3) Je S#lT))3%R9038422000 
BEGIN SLePFES1¢SI#5#0Se3 OCTISI#LOC DIDIleHs0Se8 OCT ENDS %R9038423000 
HEADERE 3) ¢(PCOUPsLOD»SSN) )&CPCDOUP) 2£12430818)&8TL2138110)5 ZR9038424000 

ENDS %R9038425000 

IF LOCK OR HEADER(4},£43%1] THEN 38426000 
BEGIN IF NOT HEADERC4] THEN & FILE IS BEING CREATED 38427000 
BEGIN %RI038428000 

IF KRUNCH THEN KRUNCHERCHEADER)S %R9038429000 
HEADER(4),09%3)]1853% MARK AS NEW FORMAT+ ACCESSED %R9038430000 

IF JARCPIM{X*#0)] < O AND FIBL4),02981] THEN %R903B8431000 


~"% COMPILER CLOSING CODE FILE WITH LOCK ## ek Oe eee 38432000 


BEGIN %2R9036433000 
SEGOSSEMIGETSPACE(620225)942))83008238110]3 38434000 

SKFL © 31 INX SEGO3 T3 «© JAREPIMIXe2),0FFI3 2R9038435000 

%® READ IN SEGMENT ZERO %R9038436000 
DISKWAITC*SEGOs( CF J+ 30*HEADERI101)3 %™R9038437000 

® READ IN SKELETON SHEET %R90384368000 
DISKWAITC*SKELe (CEJ 2300T3)3 %2R9038439000 

IF SKELEL20)<0 THEN SKELC20] © SEGOL7I,CFFIsS %2R9038440000 

IF JARCPIMIXe21,08310)%1 THEN 2R9038441000 
BEGIN % COMPILE AND GO #44 eee eee eee REE E KEKE HEI BAG 2000 
DISKWAITCSKEL.CCFIJ2300T3)3 $R9038443000 

COMPGO « TRUE3 ¥R9O038444000 

END %R9038445000 

ELSE %2R9036446000 
BEGIN & COMPILE TO LIBRARY ***eeeu cee eee eee ee 38447000 

FOR Ti « 15 STEP 1 UNTIL 22 DO ZR9038448000 

SEGOCT1) © SKELETII3 2R9038449000 

IF (T2 © SKELEC13)) = O THEN GO TO L3% %R9038450000 

SKELC13) «© QF & IN CASE ! CALL TERMINATESR938451000 
DISKWAITCSKEL, (CF 12e30*T3)3 %2R9038452000 

IF CTL teDISKADDRESSCMIDeFIDeFPBCFNUM+3] ¢HEADERC 7] 35 % (SHM)38453000 
(*#PCDUP))4¢1eHEADER*0))%0 THEN 38454000 

FILEMESSC# "DISK ","OVRELOW"oMIDe F 1038455000 

ReDeC)3 8R9YO38456000 

SEG0C15) « Tl © HEADERL7)3 %R9038457000 

L13 DISKWAITC™SKEL CCF Je 300T2)3 %™R90368458000 
FORGETESPDISK(T2)3 %2R90368459000 

IF (T2*SKELC29)) ® 0 THEN GO TO L23 2R9038460000 

IF (T3:=DISKANDDRESS(MID*FIDeFPBCFNUM4+3) 2 % (SHM) 36461000 
HEADERE 7] 2#C*PCDUP)) +10 38461500 

HEADER*®Q))*0 THEN 2R9038462000 

FILEMESSC#"DISK "s"OVRFLOW" MI De F 1D* 36463000 

ReDeC)3 £RI038464000 

SKELE29)] *« T3 © HEADERE7I3 %R9038465000 
DISKWAITCSKEL, CCF] 530° %R90368466000 
I*HEADERET1 OIV HEADER[8)+10] + %R9036467000 

Ti MOD HEADER(8))3 %¥R9038468000 

Ti « 733 %R9038469000 

GO TO Lis %R9038470000 

L2t DISKWAITCSKELeCCFJ 230° R9038471000 
I*HEADERC TY DIV HEADER(8)4+10) + %R9038472000 

Ti MOD HEADER(E8))3 %R90368473000 

L33 SEGO[6} «© PCDUPseLODseSSN)3} & "NEW FORMAT"3R936474000 
HEADERC 4), C1081 IJ¢133MARK AS PROGRAM FILESR938475000 
DISKWAITCSEGO, LCF I+ 30sHEADERL10))3 %R9038476000 

END @OPY OF LABEL EQUATION CARDS) %2R9038477000 
FORGETSPACE(SEGO)} %R90368478000 

IF HEADERC7I<HEADERETGIJ"1 THEN 2R9038479000 


BEGIN FORGETUSERDISKCHEADERCI0IJ+HEADERE7)+12%R38480000 
HEADER(7I*HEADEREC8)41)3 38481000 


HEADER( 8) «© HEADERE 7) 413 
END} 
FOR Tite"l STEP 1 UNTIL 4 DO 
IF PC,OBVTYPEsTLle+eLOD) & 
ABSCVAREP1MIX00)2) THEN 
HEADERL AJ ef 3686)85T1 425 


DUMMY tt 


END CODE FILE3 
HEADERE 1) «FORMS&HEADER(3)(6330818)3 
IF CHEADERC2Z)¢=USERCODELPIMIXI),£181) THEN 
HEADER(2)3=03 


%R9038482000 
%R9038463000 
%R9038484000 
%R9038465000 
%R9038486000 
2R9038487000 

38488000 
%®R9038489000 
&R9038490000 
%R9@36491000 


HEADER(5) t= HEADER(6) t= 03 


IF COMPGO THEN 
BEGIN PRTCPIMIXs®@261*+10D*GETESPDISK3 
DISKWAITCHEADER.LCFJ230-100)53 


END ELSE 
BEGIN 
ENTERUSERFILECMIDeFID*HEADER,C CR I"1)3 
END3 
ENDS 
ENDI% 
IF REW AND NOTCLOCK OR REL OR TIME) THEN 
BEGIN 


IF HEADERC4) THEN 
IF WRITTENON THEN HEADER(C4I ,Citsiiset3 
STATE, C39t4]3823 
END ELSE 
BEGIN 
HEADERELJeFORMS&HEADERE3J£6#30218)3 
IF HEADERC4)] THEN & FILE 1S ALREADY IN DIRECTORY 
BEGIN ; 
JEEWRITTENON OR HEADERL 4), Cilsi)3 
$ SET OMIT = SHAREDISK 
LetF FIBECSJ.Ciei1] OR NOT J THEN FIB(5].01383)410 ELSE 
CHEADER INX O)&FIBL5)(0350%13°3]3 
$ POP OMIT 
$ SET OMIT © NOT SHAREDISK 
TeCCFPBCFNUM+3] AND 31)526)8FIB(5](3021383)3 
TetF FIBC5).£181] OR NOT J THEN IF I THEN 22 ELSE 
TeCFFJ+10 ELSE CHEADER INX O)RCIF I THEN 12 
ELSE TeCFFIICCTFIS 
& POP OMIT 
IF CTeDIRECTORYSEARCHCMIDsF IDGIL 384731 )0199#0 THEN 
IF PURGE THEN 
IF ME1#4).01284]"0 THEN 
IF NOT SYSTEMFILECMIDeFID) THEN 


%R9038492000 
%R9836493000 
%R9836494000 
%R9036495000 
%R9038496000 
%R9038497000 
%$R9I038498000 
%R9G38499000 
%R9038500000 
%R9036501000 
®R9038502000 
38503000 
38503200 
38503400 
38503600 
38503600 
38504000 
38504500 
%R9038505000 
36506000 
38507000 
38507500 
38507799 
38508000 
38508500 
38508501 
38508599 
368508600 
38508700 
38508600 
36508900 
38508901 
38509000 
38510000 
36511000 
36512000 


IF SECUNITYCHECKCMIC oF IDs USERCODELPIMIXJ+1),.(4501) THENER936513000 


PCDIRECTORYSEARCHC*MIDeFIDe7)eDEL)S 
1F 1#0 THEN FORGETSPACECI)3 

END ELSES 

IF NOT LOCK THENS 


%R9038514000 
38515000 
38516000 

2R9038517000 

%R9036518000 


IF HEADERE4),04311) THEN PCDIRECTORYSEARCHC°MIDeFIDe7)eDEL) ELSE 38518500 


BEGIN 
HEADER(2)+USERCODECPIMIX]3 
DISKLOGCMIDeF ID+HEADER)} 
FOR 1610 STEP 1 UNTIL 29 DOR 
IF HEADEREIJ#0 THEN FORGETUSERDISKCHEADERE IJ» *HEADER(8)) 3% 
END} 
FORGETSPACECHEADER) 3 
STATE, C3914] 013% 
ENDS 
IF NOT COBOL THEN FIBL4),C27831«33 
GO CLEANUPS % 


OBJTYPESt: "BASIC “se %1% 
"ALGOL “se 42% 
"COBOL “s &3% 
"FORTRAN’»s 4% 
"TSPOL "s 25% 
"XALGOL “re %62% 


%R9038519000 
%R9036520000 
%R9038521000 
%R9038522000 
%R938523000 
%R9038524000 
%R9038525000 
%R9038526000 
38527000 
%R9036528000 
¥R9036529000 
%R9038530000 
%R9038531000 
%R9038532000 
%R9038533000 
®R9036534000 
%R9038535000 


0’ &DUMMYS %R90 38536000 

CLEANUPS %R9038537000 
P(PRRCWLCTCJ®OeRDSeOoXCHePRPCCTE Je STF DS %R9038538000 

END DISK CLOSE3 %R9038539000 
PROCEDURE BACKCLOSECALPHA)} VALUE ALPHAS INTEGER ALPHA: %R9038540000 
BEGIN REAL RCWE+O0oMSCWE™23 %R90386541000 
ARRAY FIBS+1 (J) oF PB=4+20*) eHEADERE4+3L 413% %R9038542000 

ELK DONT ADD ANY DECLARATIONS BETWEEN “"HEADER™ AND "KIND"™ %2% WCP%8R36543000 
INTEGER KINDR+4eNBUFS e452 US+6eBLENS4+7eCODES+Be %R9038544000 
UNLABELEDe49,COBOLE+1 0c] +11 eUeel12eFNUMa+1 33 38545000 

REAL MID@+14oF ID 415 eRet16eDeti 7 eCR+ 1 Be FORMSH41 Fe STATE 4203 38547000 

LABEL AGAINP EOF sEOTe CLOSEOUT» PBDePUDS 38548000 

REAL Tis421eT25+220T3& +239 1 0Nes24}3 %R9038549000 

ARRAY SEGO8*+25(0*] eSKELS+26[*])}3 %R9038550000 

% %R9038551000 
SUBROUTINE COOLOFF3% %¥R9038552000 

BEGIN FOR J*0 STEP 1 UNTIL NBUFS™1 DOS %R9038553000 

BEGIN IF NOT MEALPHA+I],01921) THEN’ %R9038554000 
SLEEPCOMLALPHAt+I JJ + LOMASKI 3S %R9038555000 

IF KIND#4 THEN %R9036556000 

IF MCALPHA#13,(02781) THEN GO TO LOF3% %R9038557000 

END3% %R9038558000 

EOFs END COOLOFF 3% %R9038559000 
% %R9038560000 
REAL T4427 sACCESS#4+2832 %R9038561000 
BOOLEAN COMPGO*+29; %R9038562000 

REAL TYPE #4303 38562100 
DEFINE REWBCODE C4781) 49% %R9036563000 
RELSCODE . C4601) #03 %R9038564000 

TIMESCODE, C4581] 49% %R9038565000 

LOCK=NOT CODE .C4421)&o% %R9038566000 

PURGE=NOT CODE.(C43813#3% %R9038567000° 

$ SET OMIT © PACKETS 38567950 
DEFINE TOREELNO = 33133113583 36568000 

$ SET OMJT ® NOT PACKETS 38568050 
DEFINE TOREELNO = 42:42:68} 36568100 

$ POP OMIT OMIT 38568150 
% %R9038569000 
SUBROUTINE CKBKUP} %R9038570000 

BEGIN MEMGALPHAJINX 17 JeMCALPHAI&CFIBL5) CF TC)# 38571000 
FIBELSJ©PCOUPsLODe Orel oCRXe4)3 %R9038572000 

IF NOT PRTROWCPIMIX),£781) THEN 38573000 

IF FIBL14), CCF ISFIBL14),CFF) 38573100 

THEN BEGIN PBJOCALPHAFIBL14))sSLEEPCEMELALPHA] J+ IOMASKIJEND ELSE38574000 

BEGINS STREAM(Se MCALPHAJoZeFIBC14),CFF Is %R9038575000 

BEGIN SJe«S3 DSe$6 WOS END} %R9038576000 

FIBCI4), CFF J*PCDUP) CFF I"183 %R9038577000 

END3 END$ %R9038578000 
PCRCWeMSCWeSTF)$ %R9038580000 
RCWSBRCWRPCXCHILCTCIS %R9038581000 
H*LOCK3 36581100 

IF TieCF TBC Os el isi) AND KIND®7) THEN & MULTI #REEL PBT FILE 36561200 

BEGIN 38581300 

FIBCO] eL1si)eO3 365814008 

COOLOFF3 38581500 

GO TO E0T3 38581600 

END} 38581700 

IF FI@C17)<0 THEN 36582000 

BEGIN MCALPHAJ, CFF J+@600203 IF TYPE<20 THEN CKBKUP3 38583000 
MEALPHA),€1831)«03 CKBKUP END% ¥R9038584000 


BEGIN 


ELSE JF FIBLi7)<BLEN THENZ 
IF NOT COBOL THEN FIBLI7)«FIBLI7I*C STATE, £4682123)33 
STREAMCNSSFIBLA7) eD&tsMLALPHAI,(CFI])3 
BEGIN NCOS*8 LIT * "8 END} 


MCALPHAJ @FLAGCFIBCI6J&8O0L2084781))% CKBKUPS 

END ELSE COOLOFFS 
MCALPHAJ*+C#¥PCDUP))&C@60000)(CTFIRCTYPE<20)(3224781]3 
JF NOT UNLABELED THEN 


AGAIN? 


BEGIN 


BEGIN 


IF TYPE<20 THEN CKBKUP$ 
MECALPHAJ*C#¥PCDUP)I&201 8245831 8MCALPHA*2ZI(885110)3 


%R9038565000 
%R9038586000 
38587000 
$A138587500 
%R9038588000 
%R9036589000 
38590000 
%R9036591000 
38591100 
38592000 


STREAMCLeM[CALPHA"2) ¢BeMCALPHA))3 BEGIN SI*Ls DS*17 WOS END 38593000 
ENDS MCALPHAJ].(C20s1J¢13 IF FIBCI4SJ CFF IAF IBCI4).0CF) THEN 


CKBKUP3 FIBCI4J «CFF J*PCDUPISENDS CKBKUPS 


TF KINDF1i2 THEN % PBD 


BEGIN 


TeFIBC14],03215]3 
IFCR&e@M(T+73x3)#0 THEN 


BEGIN 


$ SET OMIT 


$ POP OMIT 


$ SET OMIT 


$ POP OMIT 


EOT3 


END 
BEGIN 


IF R < PBDROWSZ THEN 

BEGIN FORGETUSERDISK(MCT+10] +RePBDROWSZ*Rei )3 
MC T+8JeR;3 

ENDS 

MCT#i J eMET43)3 

STREAMCA*FPBEFNUM+2],016130J)+Te#T+3)3 

BEGIN SI*LOC AsSDS#8 OCTIDI«©DI-8;0Se2 LIT*+2"3 
SfeTsS]«S$14+530S¢3 CHR} 

END} 

MCT+#1), C6318) eME(1T+3),030818)3 

IF [Te*®TYPE>20 THEN M(T4#5),0381)2203 

MCT+#5),£2:1)¢0}3 

DISKWAITCTs30eMETRW1))3 

ReM([T+6]3 

JEFRILLTOREELNOI3 


PCDIRECTORYSEARCHC*CIF [ THEN PCPUD) ELSE PCPBD))oJ014)» 


DEL Ds 
IF J#R THEN 
BEGIN STREAMCONE1S15 Diet Jl)3 

BEGIN SI!=LOC ONES DS8*8 ADD END} 

GO AGAINS 
END} 
= NOT PACKETS 
IF CTISSPSEUDOMIXECPIMIXJ)50 THEN PC1) ELSE 
IF PACKETPAGECTI"32]#®0 THEN P(1) ELSE PCO)3 
IF P THEN 
BEGIN PBCOUNTI®PBCOUNT+%3 


IF AUTOPRINT 
THEN PCPRINTORPUNCHWAITCR&I(32¢32¢16)] 01) DEL) 
= NOT PACKETS 
END3 


TEFCLOSEK OR CPBDREL OR CLOSEMESS)3 

FILEMESSAGECCIF &f THEN PCPUD) ELSE PCPBDIIARI 2416124)» 
C*REL "JERE SO#SOCLB I sMIOeF I De 
FIBLC7)2090eT)3 

END} 

Cece ene eee FIBC14),£3815]3803 

ELSE 

T#@17370000000000003 

JeWAITIOCLT)2@400U)40 OR WP 

I t= SPACEC8)3 


BPRESUMABLY O IMPLIES NO USER 


2R9038594000 
%R9038595000 
%R9938596000 
%R9I938597000 
DISK38597500 
38598000 
38598100 
38599000 
%R9038600000 
%R9038601000 
2R9038602000 
%R9038603000 
%R9I038604000 
%R9038605000 
%R9038606000 
%R9038607000 
38607100 
38607950 
38608000 
38608050 
36608100 
38608200 
38608300 
38608400 
386086500 
38608600 
38608700 
38608600 
38608890 
38608900 
38608910 
38608920 
38609000 
38609010 
38609100 
38609300 
38609590 
36609600 
38609610 
38617000 
38618000 
36618500 
36619000 
38621500 
38621600 
%R90386622000 
38623000 
%R9036624000 
%R9038625000 


STREAMCPNIETYPE GEQ 20-D18001)3 
BEGIN 
DStF24LIT" LABEL OPBTMCP OBACK*UP"} 
PNCDS*DIs DiswDI"143 DSHS2LIT®UT"s DIs#D)s 
20(DS#s2LIT"® "93 
END3 
IF NOT UNLABELED THEN MEI+4)«MUMCALPHA*2] INX 4],04216]3 
MCI+3)¢Tis & MARK ENDING TAPE LABEL FOR MULTI*REEL COND, 
VoWAITIOCI RBC SP 3IBt1OFRSL 2184583) »@402U) #0 OR JSR 
FORGETSPACECI)34 
FOR [#0 STEP 1 UNTIL 1 DOS 
PCWAITIOC@1ONO0NO3Z40000005 + B40rU DELI SS 
IF CTWOCU) AND SAVEWORD)#0 THEN 
SETNOTINUSE(US0) ELSE 
BEGINS 
ROCTABLECUJ@ CHP COUP) 180£818156)8RE148138110)3 
PRNTABLECUILL15215)603 
RRRMECHSSNOT TWOCU) AND RRRMECH3 
Tt® IF CAUTOPRINT AND R&1) THEN NOT 
PRINTORPUNCHWAITC*™UsTYPE GEQ 20) AND 1 ELSE 13 


38626000 
38626100 
38626200 
38626300 
38626400 
38626500 
%R9036628000 
38628100 
%R9038629000 
%R9038630000 
%R9038631000 
%R9038632000 
%R9038633000 
%R9038634000 
%R9038635000 
36637000 
38638000 
38638500 
38639000 
36639100 


IF J THEN JF J THEN SETNOTINUSE(Us0) ELSE LABELTABLEL(U],£185]$911%R38640000 


END$ END} %R9038641000 

STATE LFFJ «03 %R9038642000 
GO CLOSEOUT3% %R9038643000 
PBDias "PAD "3 %R9038644000 
PUDS8$ "PUD "3 38644500 
CLOSEOUTS %R9038645000 
PCP&RCWLCTCI20*#RDSeOoXCHOP&P(CTFIJeSTF)S %R9038646000 

@ND BACK CLOSE} %R9038647000 
PROCEDURE OTHERCLOSECALPHA)3 VALUE ALPHA INTEGER ALPHA3S %R9036648000 
BEGIN REAL RCW=40eMSCWS23 ¥R9038649000 
ARRAY FIBR+IC* oF PBse2(*  eHEADER=+3L*I5% %2R9038650000 

RLF DONT ADD ANY DECLARATIONS BETWEEN “"HEADER™ AND “KIND” 322% WCP%R38651000 
INTEGER KINDs44e¢NBUFS 845 9U846 9) BLENS47 e CODE SHB» %R9038652000 
UNLABELED R49 eCOBOL S41 Oe T8elis Jel 2eFNUMES1 33 38653000 

REAL MIDE +14oF [D415 eRe+16eDEel7 > CS+1 Bs FORMSE419eSTATER 4203 38655000 

REAL T1842, eT2ee220T324230 10DR+243 %R9038656000 

ARRAY SEGO#4+25[#*) »SKELS4+26[¥*]}3 %R9038657000 

REAL Te#27sACCESSu+285% $R9038658000 
BOOLEAN COMPGOR4293 %R90368659000 

LABEL PX»PaBDs %R9038660000 

LABEL CReLPoMTe CLOSED» DK eSPeCPeBKUPsPPePRsDCeCDeCC3 BR9038661000 
SWITCH SWeCReLPeMTsCLOSEDsDKeSPeCPeBKUPsPPsPReDCeCDeBKUP? %R9038662000 

LABEL EOFs ONsDNEe CLEANUPS 2 %R9038663000 

LABEL E£0D3 %R9038664000 
SUBROUTINE COOLOFFS% %R9038665000 

BEGIN FOR I*O STEP 1 UNTIL NBUFS"1 DOS $R9038666000 

BEGIN IF NOT MCALPHA4¢(1,01981] THEN’ %R9038667000 
SLEEPCOMECALPHA4+I J] + 1OMASK)33% %R9038668000 

IF KIND#4 THEN. %R9038669000 

IF MCALPHA4I],£27%#1] THEN GO TO EOFS% %R9038670000 

END3% %R9038671000 

EOF! END COOLOFF;% %R9038672000 
% %R9038673000 
DEFINE REWRCODE C4781) #0% %R9038674000 
RELFECODE se (4681) #e% %R9038675000 

TIMECODE, (4541 J] #08 %R9038676000 

LOCKENOT CODE (4481) #e% ¥R9038677000 

PURGEFNOT CODE s( 4331) 433 %R9038678000 


%R9038679000 


CR! 


DNE$ 


SUBROUTINE EMPTY3% 
IF FIBLI7I<BLEN AND CSTATE.L46#2)#0 OR KINDS1) THEN 


BEGIN IF NOT COBOL THEN FIBLI7J¢FIBCI7I“CSTATE,L4682)2#3)3% 


STREAMCKINDNSSFIBLC17 J eDs eMC ALPHA) (CF JD3 
BEGIN S]#LOc KINDS SIleSI+73% 
IF SCs"2" THEN DSeLIT "e" ELSES 


IF SCe"5" THEN DSeLIT "+* ELSE NCDS#8 LIT ™ "23% 


END3% 
PCWAITIOCFIBCI6I&CBLEN@FIBLCI7IxC KIND #2) 908236310138 
#@40eU)* DEL) 3% 
FIBC6OJ*FIBL6I] +13 
END ELSE COOLOFFS2 
LABEL CLOSEOUT3% 
VABEL EOFITS% 


PCRCWeMSCWeSTF 3 
RCWSBRCOWRPCXCHICCTCI3 
GQ TO SWEKIND); 


COOLOFFS BLASTOCU)3% 


IF L[2NBUFS THEN DO UNTIL WAITIOCMLALPHAT2]2@400U)#0 ELSES 


BEGIN TeMfCALPHA4]],£33915]3% 
TePIBL16) ef 33815] "23% 
FOR Je1 STEP 1 UNTIL NBUFS DO% 
BEGIN IF CI>T) AND CISCT+BLEN41)) THEN GO ONS% 
TeMCT) Ci8815)"23% 
END3& 
ONS MOVEC1O*eT+2 eMC ALPHA™2I1)5% 
END3% 
IF JARCPIMI]Xe0]<O THENZ 
IF PRTCPIMIX*@25]#0 THENS 
BEGIN STREAMC] 2 Ee"ENDPACK"» DeMLALPHA™2))3% 
BEGIN SI«#Ds% 
Ls SileSt4is IF SC=" "© THEN GO TO L3% 
DIe*LOC E% DIeDI+13 
IF 3 SC#DC THEN TALLY#13 


$ SET OMIT = NOTCPACKETS) 


IF TOGGLE THEN ELSE 
BEGIN Sft*Si°33 IF 4 SC#DC THEN TALLY*4i3 END? 


$ POP OMIT 
I*TALLY3% 
ENDS 
IF NOT P THENS 
BEGIN BLASTQCU)32 
DO UNTIL WAITIOCMLALPHA™2) 0 @400U)#05% 
GO TO DNES% 
ENDs% 
END#3 
BLASTQ(U)3 
CCt3 


NT3SSGETSPACEC1326405)+43 
MOVECLO*MCALPHA"2]eNT3)3 
FORGETSPACECMEALPHA®2]) INX NOT 1)3 
MLALPHA*2]«NT33 
LABELTABLECUJ«+"@14; 

RDCTABLE(U)+03 
MENT3 INX 1O]¢UNITCODELU"23]73 


FREECARDCCMCALPHAT2 1 -CCFIDAULIS4 StS IRUARCPIMIXe6IC1s181I9)3 


GO CLOSEQUT?4 


%$R9038680000 
%R90368681000 
%R9038682000 

38683000 
%R903B8684000 
%R90386865000 
%R9038686000 
%R9038667000 
%R9038688000 
%R9038689000 
%R9036690000 
%R9038691000 
BR9Q 38692000 
%R99 38693000 
%R9038694000 
%R99368695000 
%RI038696000 
%R9Q386097000 
%R9G38696000 
%R9038699000 
2R9038700000 
%R9036701000 
%R9038702000 
%R9038703000 
%R9038704000 
%R9038705000 
%R9038706000 
%R9038707000 
%R9038706000 
%R9038709000 
%R9036710000 

38711000 
%R9038712000 
%R9036713000 

38714000 

38745000 

38715099 

38715100 

38715200 

38715201 
%R9038716000 
%R9038717000 
%R9038716000 
%R9038719000 
%R9038720000 
%R9038721000 
%R9038722000 
%R9038723000 
%R9038724000 
%R9038725000 

38726000 
%R9038727000 
%R9038726000 
%$R9038729000 
%R9038730000 
%R9038731000 

38731100 

38732000 
4R9038733000 
%R9038734000 


CP3 


PX} 


EMPTY3% 

IF NOT UNLABELED THEN PCWAITIOCMCALPHA™2]209U) DEL DIS 
SETNOTINUSECURFORMS OR PUNCHLCK)3 

GO CLOSEOUT33 


EMPTY32 

PCWATTIO€C@4000100000000U) » DEL) 3% 

IF NOT UNLABELED THEN PCWAITIOCMLALPHA™2]+0*°U) DEL) 5% 
SETNOTINUSECUPFORMS) 5 

GO CLOSEOUTs% 


IF STATE sC4381) THEN COOLOFF ELSE EMPTY3% 
GO CLOSEOUTS 


IF NOT STATE.C41#1) THEN’ 
BEGIN IF STATE,»€43%1] THENS 
BEGIN COOLOFF3 BLASTQ(U)3% 
IF NOT REW THEN 
BEGIN Te@1QNQ000001 40000005&STATEL 2214421133 
IF I2NBUFS THEN SKIPFILECUPT.£22311)93 
IF NOT UNLABELED THEN 
PCWAITIOCT#@377°U) *DEL)3 
END3% 
END ELSE% 
BEGIN EMPTY 3% 
EOFIT: T#@17370000000000003% 
PCWAITIOCL TI] °@400U) eDELD 3% 
IF NOT UNLABELED THENS 


BEGINSSTREAMCBC+FIBL6] @RC+FIBL 7) eDeMLALPHA?2])3% 


BEGIN SI*LOC BCS DieDI+403% 
DS*5 DEC DSe7 DECI 
ENDs% 
PCWAITIOCMCALPHA™2) »@40eU) »DELI32& 
PCWAITIOCE T] +@400U) DEL) 3% 
T#@10000003400000053% 
PCWAITIOCT+@40°U) * DEL) 3% 
END3% 
END3% 
END ELSE% 


%R9038735000 
%R9038736000 

38737000 
%R9038738000 
%R9038739000 
%R9038740000 
%R9I038741000 
%R9038742000 
%R9038743000 
%R9038744000 
%R9038745000 
%R9038746000 
%R9038747000 
%R9038748000 
%R9038749000 
%R9038750000 
%RI038751000 

38752000 
%R9038753000 
%R9038754000 

38754100 
%R9038755000 
%R9038756000 
%R9038757000 
%R9038758000 
%R9038759000 
%R9038760000 
%R9038761000 
%R9038762000 
%R9038763000 
%R9038764000 
%K9038765000 
%R9038766000 
%R9038767000 
%R9038768000 
%R9038769000 
%R9038770000 
%R9038771000 
%R9038772000 


IF FIBC1I8), CASiITHEN BEGIN FIBLCISlelisileFIBC16)«03 GO EQFIT END$ 38773000 


IF REW THENS 

BEGIN PCWAITI0(6@4200000000203775U)#DEL 3% 
STATE ,( 402114032 

END ELSE STATE sC40tL] «NOT STATE, (4481938 

IF REL THENS 

BEGIN SETNOTINUSE(U0)3 

STATE, C4182] 613% 

END ELSE STATE (4182) +23% 

IF LOCK THEN’ 

BEGIN SETNOTINUSE(Us1)3 
STATE ,CA4LI2] 6183 

END} 

IF U USS 16 THEN 

IF PURGE THEN 

BEGIN IF PRNTABLELU]<0 THENS 
FORKCPC »PURGEIT)»Ue"2012891) ELSE SETNOTINUSECUP0)3 
STATE C4192) e132 

END3% 

GO TO CLEANUPS% 


%R9038774000 
¥R9038775000 
%R9038776000 
%R9038777000 
%R9038778000 
%R9038779000 
%R9038780000 
%R9038781000 
%R9038782000 
%R9038783000 
%R9038784000 
%R9038785000 
%R9038786000 
%R9038787000 
%R9038788000 
%R9038789000 
%R9038790000 
%R9038791000 
%R9036792000 
%R9038793000 


PPss IF NOT STATEs(4121] THEN %R9038794000 
BEGIN EMPTY PCWAITIOC@2Z0045000000002040eU) DEL) ENDS %R9038795000 

GO TO PX3 %R9038796000 

% %R9038797000 
PRts IF NOT STATE *(4131] THEN BEGIN COOLOFFS BLASTQCU) END3S2% %R9@38798000 
IF REW THEN PCWAITIO(@10340000000203775U) »DELIF& %R9038799000 

GO TO PX3% %R9038800000 

% %R9038801000 
CDst HEADER*CIDROW(U"32)3 2R9038802000 
IF MCALPHA) «C2731] THEN MOVE C104eF [BL 16),033915) eMLALPHA"2]) ELSE%R38803000 

EOD: DO UNTIL READEMFROMDISKCHEADER» MCALPHA™2])3 %R9038604000 
$ SET OMIT = PACKETS 38804999 
IF HEADERE3I<HEADEREC 7) THEN %R9038805000 

$ POP OMIT 38805001 
IF JARCPIMIX20)<0 AND PRTICPIMIXe21)#0 OR JARLPIMIX01)<0 THEN %R9038806000 

BEGIN 38606050 

$ SET OMIT © NOTCPACKETS) 38806099 
PACKETERR(U"32) 3 5TRUES 38806200 

IF CIDTABLECU"32e3) LEQ CIDTABLELU"3207) THEN 38806300 

$ POP OMIT 38606301 
BEGIN STREAMCE*"ENDWAIT™ 8 Q¢@145 D*MCALPHA™2))5 38807000 

BEGIN SIeLOC Q¢ SIeSI+#73 IF SC¥DC THEN DI*DI413 QeDIs SleQs 38808000 

Ls IF Sce”* " THEN BEGIN SI*SI4is GO TO L END3 %R9038809000 

DI*LOc EF DieDI+14 IF 3 SC¥DC THEN TALLY#13 38810000 

$ SET OMIT s&s NOTCPACKETS) 38810099 
IF TOGGLE THEN 36810100 

BEGIN SfeSI33 IF 4 SCEDC THEN TALLY*O3 END? 38810200 

$ POP OMIT 38810201 
E*TALLY3 36810500 

END3 %R9038811000 

IF P THEN GO TO EO0D3 %R90386812000 

END} %R90368813000 

ENDS 38813100 
KIND#03 %R9038814000 

GO TO cC3 %R9036815000 

& %R9038816000 
CLOSEOUT?$ STATESC39t4] #13 TIME 13% %R9036617000 
CLEANUPS CLOSED!® DK! BKUPS NC3 %R9038818000 
PCPRRCWLOTC2eOeRDSeOeXCHeP&PLCTFIsSTF)3 %R9038619000 

END OTHER CLOSES %R90368820000 
PROCEDURE FILEOPENCXTRAsALPHA)3 %R9039000000 
VALUE ALPHA»sXTRAS INTEGER ALPHAeXTRAS %R9039000100 
BEGIN REAL RCWR+05% 39001000 
REAL ITOM™I]OMASKe JOMASK$ 39001100 

REAL XTRARS*4eXTRAC#™63 3R9039001200 
INTEGER NBUFS*FNUM*BLENe TYPE *REELeCDATE® CYCLE ®MODEs TO»RLEN®UPK IND» 39002000 
DIREC*FORMS + COBOL s UNLABELED sOPTIONAL®CNTCTLS 39003000 

REAL MFID*eFIDe Tie T2sMASKeSTATES 39004000 

ARRAY FIBC*J]eFPBE 413% 39005000 
INTEGER ACCESSoFIB7S 39006000 

LABEL DCINePBS3 39006100 

LABEL DKRNeSPNeDKSNeDKUN®DKPNe DCN} 39007000 
SWITCH INSW*DKRNeSPNeDKSNeDKUNSDCING 39008000 

LABEL LOOK sEXITeLOOKOUT#LPSeFINALINeFINALOUT®SPDC32% 39009000 

REAL SUBROUTINE CNTLBITS3& 39026000 
CNILBITS*IOMASK&MODEL2Z1 4781 J8DITRECL 2284731 J@CNTICTLE2384731339027000 
RTOC2484782 JR CKINDS7 OR KIND>9 AND KINDS12902084781) 39028000 

&CIF KIND*®10R KIND*®70R KIND@12THEN@2Z0ELSE 0)£27542:6)339029000 

a 39030000 


SUBROUTINE MAKELODS3% 39031000 


BEGIN FIBLI6JeTIeCCBLEN@1 xD TREC +MCALPHAI D&CNTLBITS(18818215)% 
&CIF BLENS1023 THEN BLEN ELSE 10233(8%38310)% 
&RTINUCIF CKIND&7 OR KIND®12) THEN IF TYPE<20 
THEN 20 ELSE 22 ELSE 
IF KIND#®11 THEN 23 ELSE UJE38385) OR M3 
FIBLI9J*CIF STATE,C4682)50 THEN (DIREC INX T1)% 
RC2xDTREC+(BLEN>1023)41)0384325) ELSES 


39032000 
39033000 
39034000 
39034050 
39034100 
39035000 
39036000 


IF STATE.C46#2)51 THEN CCNOT RLEN INX 2)xDIREC INX 11)39037000 


SRLENE 883810) 8 C3xDIREC#2)03243%5) ELSES 
CL*OTREC INX TIIARLENCHs 36t1OIRCOLREC+6)( 384385) 9% 
BLOC2Z5¢473195% 
IF NOT CIO OR COBOLITHENS 
TI*FIBCA9IRTAC3 8 325I8OL S58 2511133 
T2eT1,C3I3s1SI"*MLALPHAJ 3% 
FOR MASK«O STEP 1 UNTIL NBUFS*1 00% 
BEGIN 3P 
MCALPHA+MASK JeFLAGCCPCOUPSLODI+T2I8PCT Is XCHIC3SSI3ZII5S JIGS 
ENDs& 
END MAKEIODS3% 
LABEL DKRO+SPOrDKSOsDKUDeDKPOsDCUS 
SWITCH OUTSWeDKRO»SPOrDKSOrDKUDSDCOS% 
LABEL FIXFIBeFINDeSPACERSS 
WABEL PREFINAL#DKis% 
ARRAY HEADER(*)53% 


FIB*MCALPHA"3)3 FPB*PRTLP&MI X93] 3% 

IOMASKS3I0M$ 

NBUFSeFIB(13),C1219]3 FNUMOF(BC4),CA3811)3 BLEN@FIBE16),03815)3% 
TYPE*FPBLFNUM+3],(43851]3% 

STREAMCS@CFPBLFNUM4¢2) J] eD*[CDATE) 23% 

BEGIN SIs#Ss Sls*S1433 DSte50CTs DSs=OCT3 ENDS 

IF FPBLEFNUM*+4]>0 THEN REEL © CDATE * CYCLE © QO} 
MODE*FIBC132.C2401)8 TO*FIBL137, 02781) RLEN©FIBL18),03381515% 
DIRECeFIB(13),C2581)]8 FORMS+FPBCFNUM+3),14291]8% 

STATE*FIB(5)3 UNLABELEDFIBL4],£2¢1)3 

MF ID*FPBLFNUM)2 FIDeFPBLFNUM41]% OPTIONALeFIBI4],(531]5% 
COBOLeCFIBL13] AND 1LIBCEFIBI,C8810Je22)06184781)13 & COBOL 60 & 66 
KIND*FIB(4],(844)8 REELOFIBL13),C28810I3% 

IF TYPEs19 THEN TYPE © 14 ELSE 

IF TYPE*26 THEN GO TO DKPN ELSE 

IF TYPE>26 THEN GO TO DCN? 


39038000 
39039000 
39040000 
39041000 
39042000 
39043000 
39044000 
39045000 
39046000 
39047000 
39048000 
39049000 
39050000 
39054000 
39055000 
39056000 
39082000 
39083000 
39083100 
39084000 
39085000 
39086000 
39087000 
39087500 
39088009 
39089009 
39090000 
39091000 
39091100 
39092008 
39092045 
39092050 
39092055 


IF TYPE®14 THEN IF LOGLINE,C3387)%0 THEN TYPEssii3 %R2639092075 


IF CTYPEFO AND NOT 10) OR TYPE GTR 20 THEN 39092080 
BEGIN IF USEPBD THEN TYPE*223 GO LOOKOUT END3 39092090 

IF TYPES OR TYPESG OR CTYPE>14 AND TYPE<19) THEN 39092100 

IF 10 THEN GO DCN ELSE % CANT READ PRINTERS OR PBe %10639092110 

BEGIN IF USEPBD 39092150 

THEN TYPE26153 39092160 

$ SET OMIT = NOTCPACKETS) 39092164 
IF CTLISPSEYUDOMIXCLPIMIEXJ2#0 AND PACKETPAGELT1I*%32]#0 THEN 39092165 

IF FORMS THEN FPBCFNUM4#3),C23¢1]¢81 ELSE %® SETS FREEF 39092170 

IF NOT FPBCFNUM43),(2391) THEN TYPES6153 39092175 

$ POP OMIT 39092180 
GO LOOKOUTS 39092185 

END3 39092190 

IF REELSO THEN REEL@L3 39092200 

IF 10 THEN 39092500 

IF TYPE#6 AND TYPE#20 THEN 39093000 

_IF TYPE210 THEN GO TO INSW(TYPE"10) ELSE GO LOOK 39093500 

ELSE GO TO DCN} 39094000 


IF TYPE210 AND TYPE#20 THEN GO TO OUTSWETYPE"10) ELSE GO LOOKOUT; 39094500 


LOOKS IF 10 THEN OTHERFILEOPENING 1) ELSE OTHERFILEOPENOUT(1)3 
IF U LSS 0 THEN GO TO EXIT ELSE GO TO PREFINALS 
DCN? FILEMESS(P" 1/0 ERR"sOeMF IDs F IDeREELsCDATEs CYCLE) 3% 
GETBUFFERSCBLEN@NBUFSe Us ALPHA) 3% 
PREFINALS# MAKETODS33 
If KIND#11 THEN : 
BEGIN IF COBOL < 0 THEN % ALGOL OR COB0L68 
IF READEMFROMDISKC(CIDROWLU"32)»+>MEALPHA]) THEN 
MCALPHAJ+PC(DUPeLODIROL2:2r1 Jail 2724791I3 
END ELSE 
FILLBUFFERSCFIBCI6) FI BL19)*COBOL»NBUFS); 
IF COBOL>0 THEN FIBL16]+Ce#PCDUP)&MCALPHAICCTC]; 
FINALING? FIBLC6O) « FIBC7] « FIBL17) + 9% GO TO FIXFIB: 


LOOKOUTS! TF 10 THEN OTHERFILEOPENINCO) ELSE OTHERFILEOPENOUT(O)3 


IF U LSS 0 THEN GO EXIT ELSE GO FIND} 


39095000 
%R9039096000 
39143000 
39144000 
39145000 
39145100 
39145200 
39145210 
39145300 
39145400 
39146000 
39147000 
39148000 
39155000 
39156000 


BINALOUT#! IF NOT FIBCI6I],01t1] THEN GETBUFFERSCBLENe@NBUFS®UCALPHA)S% 39230000 


BIND! MAKETODS3% 
FIBLOJ*FIB( 7) +033 


39231000 
39232000 


FIBCI7J*IF COBOL THEN FIBCIBI,C38ISJELSE FIBL181,£18+15)5% 39233000 


IF KIND = 10 THEN 
MCALPHA+1LIJ*PCDUPeLODIEPCDUPeLNG IC 24seaii ds 
GO TO FIXFIBS% 

DCINE: 

DCOt Ue3O0% KINDe103 
IF (BLENS#RLEN) LSS 17 THEN BLEN##173 
FIBLL3],CAt9IeNBUFSe23 
FIBCIS8] 18 CePC DUP) )ABLENE 3133245] 8BLENCCTFI3 
GO TO SPDC} 

SPO: MODE*O3 Ue25s KIND<53 

SPDCt CNICTL©DIREC*O# UNLABELEDe13 
STARTIMINGCFNUM®U 3S 
GO TO FINALOUT?3 

SPN3$ Ue2Ss KIND«53 
MODE*CNTCTLeDIRECeOs UNLABELED 133% 
STARTIMINGCFNUM2U) 98 
IF BLEN<10 THEN BLENe103% 
GETBUFFERS(BLENeNBUFS*UsALPHA) 3% 
MAKETODS32% 
GO TO FINALINGS 

OKRN8s DKROs ACCESS$=13 


GO TO DK13 
DKUOS?: 1O:213 
DKUNS3 ACCESS1223 

GO TO DKi3 


DKPN3! DKPOS 
$ SET OMIT = NOT SHAREDISK 


ACCESS#13 
GO TO DKtis 
$ POP OMIT 
$ SET OMIT #& SHAREOISK 
GO TO DCN} 
$ POP OMIT 
DKSNIt DKSOs ACCESS€03 
DK1i3 DISKFILEOPENCO)3 


IF Ti THEN GO TO EXITS 
BIXFIBS3 FIBC4SICOsLJeUNLABELED SS 
FIBCS).L8:4]eKINDES 
FIBCADI C2416) eU3 
FIBC13),C26:10]+REELIS 


39233100 
39233200 
39234000 
39234900 
39235000 
39235100 
39235200 
39235250 
39235300 
39236000 
39237000 
39238000 
39239000 
39240000 
39241000 
39242000 
39243000 
39244000 
39245000 
39246000 
%R9039247000 
2R9039248000 
%R9039249000 
%R9039250000 
®R9039251000 
39252000 
39252999 
39253000 
39254000 
39254001 
39254999 
39255000 
39255001 
39256000 
39257000 
39258000 
39294000 
39295000 
39296000 
39297000 


| 


FPBePRTI(PIMIXs3)3 
FPBCFNUM4+3),CA3t5)¢TYPES 
STREAM(REELeDeLFPBCFNUM4+2]))3 
BEGIN SIleLOC REEL? 
IF 3 SC#DC THEN 
BEGIN DleDs SI*Loc REELS DS*3 DEC END; 
END$ 
ROCTABLELUJ, (8:6) «PIMIX3% 
IF FIBC18),0181) THENS 
BEGIN FIBC16]«03% 
FIBLESJ*STATESB(39342%6)123 
FIB(10).03815)+03 
END ELSES 


39297010 
39297020 
39297100 
39297200 
39297300 
39297400 
39297500 
39298000 
39299000 
39300000 
39301000 
39301100 
39302000 


FIBCSI (CF I+STATERDIRECC AAS 47 U1 IBI0C393 4385 J &FIBI51(4584531) 339303000 


IF COBOL>O0 OR FIBE4),07#1) THEN MEFIB INX NOT 1),£396] * 6 39304000 

ELSE MLALPHA"7),[3t6)e4s% 39305000 

FIBEC4) C2783) +ACCESS3% 39306000 

IF U<16 THEN IF KIND#7 THEN FPBCFNUM4+3),C2331)2=103 39306010 

39306100 

39306200 

EXITs3% 39307000 
IF XTRA THEN %R9039307100 
XTRACHBNOTCFIBE4).C791) OR UNLABELED) AND XTRAC NEQ 23 %R9039307200 

IF XTRA LSS 2 THEN GO TO INITIATE3 %R9039307300 
RCWIEXTRARS %R9I039307400 

END FILEOPENS& 39308000 
PROCEDURE CREATELOGC(DDD)S VALUE DDDS ARRAY DODE¥*]3 39500000 

BEGIN ARRAY A#LOGARRAYE*])3 39501000 

DEFINE LORAC31 I) #e 39502000 

DELTAFAL32I#¢ 39503000 

NFAC 33) be 39504000 

SFAL34]#» 39505000 

REAL3IS)#e 39506000 

HEAT 36)#3 39507000 

LABEL GETANOTHERROWsNEWLOG# AGAIN: 39507500 

REAL Ts INTEGER ITeRC3 %L0639508000 

ARRAY T1I®RC(#]3 39508050 

REAL BodeKeDISK3 39508100 

SUBROUTINE FIX3 39508200 

BEGIN MET) s=C(M£J1]81068238210)3 39508300 

JIredelys 39508400 

END3 39508500 

& 39508510 
SUBROUTINE BUILDHEAD3 39508520 

BEGIN M(CTJ4#03 39508540 

MOVE C29 eTeT+1)3 39508560 

MET+2])0@MCP3 39508580 

MET+4), C6981) 6513 39508600 

MET+5)¢eM(T+6) 380143 39506620 

M(T#9J} 3513 39506640 

STREAMC DATE sXt#T43)3 39508660 

BEGIN SJteLOC DATES DSts8 OCT: 39508680 

Ditexs DStwe LIT™+#"3 39508700 

SPseXs SIswSl+53 DSts3 CHR} 39508720 

ENDS 39508740 
MCT+#1),C6O818JeM(CT+3),030816)8 39508750 

CXCLOCK+PCRTR) (2512532313 39506755 

MCT#10] S@PETUSERDISKC CME TOO) SF] ELE 2S4781)01)3 39506760 

sages: ENDS 39508780 
% 39508800 


S$ SET OMIT » 
$ POP OMIT 


DISKss"D1ISK "3 

AC30)#=NOT 03 

IF (CTHSDIRECTORYSEARCHC "LOG * 

NOTCSHAREDISK) 
&CSYSNO+17)£24246226) 


eN1SKs5))20 THEN 
BEGIN TSFSPACE(C30)3 

DISKWAITC@™T»*™300eDIRECTORYTOP*™SYSNO)3 
MELT JINX 20),.(08310)] 85 N §& Q3 
DISKWAITCT#*30*e DJ RECTORYTOP*SYSNO)3 
$:=(739%300) OR MEMORY3 
BUILDHEAD3 
If CR&teMET+10))%0 THEN 
BEGIN MET INX 7] #2013 

RC3=03 
END ELSE 
BEGIN MET INX 7]88993 

DISKWAITCA INX 30049R)3 
END? 


EOF MARKER 


MET] ss @0001200036000301;3 BLOCKING 
HSeEUFC”LOG " 
$ SET OMIT = NOTCSHAREDISK) 
RCSYSNO4+17)(2424216] 
$ POP OMIT 
eD1SKeT™1)3 
END ELSE 
BEGIN BAHAe THERE REALLY IS A LOG 
HeT, CFF I3 
teMCT INX BJ)aices4a7sids 
1393 
DO [Tet#let UNTIL MET TNX 1)#0 OR [2303 
RCrelrel 7103 
IF N DIV S2!I THEN 
GETANOTHERROWS 


IF RC LSS 20 THEN 
BEGIN NeIxS3 
IF PCMET INX 1410) 4*PETUSERDISK(C"Se1)eDUP)*0 THEN 
BEGIN PCDEL)3 
ReeO3 
END ELSE 
BEGIN RtePCXCH)NS 
DISKWATTCA INX 30rd eR4N)3 
RC&eRCHi3 
END 
END ELSE ELSE 
BEGIN ReMCT INX ]49J]eCle(1"1)xS)3 
Jrale+S3 
JF N#0 OR IT#0 THEN % SET UP SEARCH FOR EOF 
IF N LSS | THEN Nos] ELSE TSeN"1 ELSE 
1F MET INX 5)#@14 THEN % MUST BE COLD START 
BEGIN MCT INX 5] teMET INX 6) 50143 
GO TO NEWLOGS 


% DONT TRY TO GET 214°ST ROW 


END3 
Ksrl3 
B t® SPACE(30)3 
FOR le] STEP 4 UNTIL Uv DO 
BEGIN DISKWAITC*Be 30eR41)3 
IF CMCERIJENOT 0) OR K>CKeM(B),€25823)) THEN 


BEOF POINTER 


39506810 
39508850 
39508900 
39509000 
39509009 
39509010 
39509011 
39509020 


® IF YOU CANT FIND ONE® MAKE 210639509050 


39509100 
20639509150 
39509200 
39509250 
3950926) 
39509265 
39509270 
39509275 
39509280 
39509285 
39509290 
39509295 
%L0G39509300 
39509850 
39509859 
39509860 
39509861 
395098670 
4L0G639510000 
%L0639510050 
39518000 
39519000 
%L0G639519050 
%L0639519100 
%L0G39519150 
39519200 
2140639519250 
%L0G639519270 
39519300 
39519320 
39519340 
39519360 
39519380 
39519400 
%L0G39519450 
%L0639519500 
39519550 
20639519600 
39520000 
39520100 
39520200 
39520300 
39520400 
39520500 
39520600 
39520700 
39520800 
39521000 
39522000 
39523000 
39524000 


NEWLOG! 


$ SET OMIT = 


$ POP OMIT 


BEGIN J*0s Nel ENDS 
END3 
FORGE TSPACE(B)3 
IF J#0 THEN GO GETANOTHERROWS 
END3 
MCT INX 7) 8 CMET INX GJEFRC) x 3xS © 13 
DISKWAITCT,(CCFJ*30%H)3 
RC##RCW13 
END} 
FORGETSPACECT)3 
FORKC PC e LOGWARN) #RC00012800)3 
IF CTS®DIRECTORYSEARCHC "SYSTEM " 
NOTCSHAREDISK) 
&CSYSNOF17)£ 4214216) 


*DISK®5))#0 THEN 

BEGIN SYSDISKADR*MCT INX 1023 

Je@SPACEC10)3 MEJ INX 4]1203 

IF SYSDISKADR NEQ@ 0 THEN DISKWAIT(*U95eSYSDISKADR)3 

[t=MEJ JINX 473 

IF 1¢f4086]#0 OR 1.(3288)20 OR & LMAX&O OR STAMAXSO 
16£4038) GTR 1,£32%8] OR % LMAX GTR STAMAX 
1,£3288] NE@ MET+#7) THEN % STAMAX NEQ@ EOF 


BEGIN SYSDISKADRS25YSDISK:=03 


$ SET OMIT & 


STREAMCSNSS( "SYSTEM * 
NOT SHAREDISK 
RCSYSNO+#17)(4204226] 


$ POP OMIT 
eds 
BEGIN SItaLOC SNS STeeST+ts OSHSLIT™9"s OSSS7CHRS 
DStz27LIT"/DISK INCORRECT * NOT USEDe"3 
END? 
SPOUT(J)3 
END ELSE 


BEGIN STREAM(X8#M(T4+3),(30818]5B8#(B))3 


$ SET OMIT = 
$ POP OMIT 


$ SET OMIT = 


$ POP OMIT 


END} 


BEGIN SItsLOC Xs DS&sODECs ENDS 

GIMEDATECEBI,(CFJ»"B)? 

STREAMCSNtS( "SYSTEM * 

NOT SHAREDISK 
&CSYSNO04+17)(4234226) 


>*Bs 
LXss], C4088] SXse] C32t8]ed)3 
BEGIN SItsLOc SN3 SItwSJ[+13 DSteLJT"#"3s DSse7 CHR} 
OSte23LIT"/DISK CHECKED CCREATED "3 
SttzLOC BS S]TtmSl423 30DStR2CHRSE OStaLIT"s/")3 
DiteDI*13 DSIe7LIT*s LMAXe™3 
DSte2DEC} Jsedts OL sDl"2s DSISFILLi DI tes 
TWXONLY 


DSteOL ITs STAMAXE"S DSte2DECs JsaNls Di ted 23 


DSteFILLs Di teays 


DS rF2LIT*e"3 
ENDS 
SPOUTCU)3 


SYSDISKeMET]3 
UNLOCKTOGCSYSDISKMASK)3 
TLMBLOQUERTECTC)s 
SYSDISKIOC1+OeT1)3 


39525000 
39526000 
39528000 
%L0639528050 
39528100 
39528200 
%L0G39526300 
39528500 
3L0G39529000 
2L0G639530000 
39530500 
39531000 
39531099 
39531100 
39531101 
39531200 
39532000 
39532100 
39532200 
39532300 
39532400 
39532500 
39532600 
39532700 
39532600 
39532900 
39533000 
39533100 
39533200 
39533300 
39533400 
39533500 
39533600 
39533700 
39533710 
39533720 
39533730 
3933374) 
39533730 
39533760 
39533770 
395337930 
395337390 
39533600 
39533610 
39533620 
39533830 
39533640 
39533850 
39533660 
39533670 
39533680 
39533690 
39533900 
39533910 
39533920 
39534000 
39534500 
39534600 
39535000 


$ SET 


$ POP 


$ SET 


$ POP 
$ SET 


$ POP 
$ SET 
$ POP 


$ SET 


$ POP 


Ve SE BK IC 


OMIT 


OMIT 


OMIT 


OMIT 
OMIT 


OMIT 
OMIT 
OMIT 


OMIT 


OMT 


IF CUMAX85T104),04088)3) GTR MAXLMAX THEN 
LMAXS=MAXLMAK} 
TWXONLY 
IF CSTAMAX837T104),03288)) GTR MAXLMAX THEN 
STAMAX 2 @MAXLMAX3 
IF €K9"T104),£2438])) GTR MAXLMAX THEN KS=MAXLMAX3 


SYSDISKIOC1*STAMAX41>°71)3 
FORGETSPACECT)3 
BraCJIeMCRCteC#(TsePCeLINETABLE))I92),0(CF) 
TWXONLY 
™LMAX*AXSTAMAX*K™6)%23 


NOTCTWXONLY) 
Sx LMAX"5) "23 


Te=LMAX+1is FIX 
TWXONLY 
T!=STAMAX413 


TesPc,STATABLE)3 FIX! 
TseP¢(,SEQARRAY)3 FIX} 
T3YSPC,INPUTANK)$ FIX3 
T8eP(,TANKS)$ FIX3 
TWXONLY 

Ls=Kel3 

TISPC.TNAOG)S FIX3 

IF LMAX#MAXLMAX OR K#MAXLMAX THEN 


BEGIN 
MEMCBItaMCRCIBRCOCTFII.LCFFI8=B3 
MCRCJ CCR J3eB3 
FORGETSPACEC(RC4+2)3 

END ENDS 


NOW CHECK FOR LIBMAIN® LOCNTRL AND PRNPBT AND CREATE 
THEM IF THEY ARE NOT THERE» 


ENTERSYSFILECL23 % "LIBMAIN" 
ENTERSYSFILEC2)3 % "LOCNTRL" 
ENTERSYSFILEC3)3 % "PRNPBT ” 


END OF CHECKING LOG AND OTHER SYSTEM FILES? 

PROCEDURE SUSTATUSC(A®D0DD*0B)} VALUE AsDDD*Bs REAL AsBS ARRAY DDDE*)3 
BEGIN REAL RT1eI3 

ARRAY D(*)eZSFL*) eVADAR(*]3 

SUBROUTINE SPOUTITNOWS 


BEGIN 


STREAMCXseCTINULBJ)2 De EUNUM3®0s SUt=0» Is RT1L)3 
BEGIN SlisXs SIt#S1+53 
DSteLIT™ "3; DSt$e3 CHRE SItsD3 
1OCIF SC#"0" THEN 
BEGIN XssS]3 EUNUMSSTALLY3 
SlseLOC EUNUMS DSta 3 LIT™ EVU"™S DSteDEC 
OSta4 LIT* SU "3 TALLY#=03 
SCSUISTALLYS SIsexXs SKIP SBS SKIP SU SBI 
IF SB THEN 
BEGIN SIs*LOc SUs 
OStsDECs DSsaLITtes 
END) 
TALLY: ®TALLY4#1)3 


39536000 
39536500 
39536999 
39537000 
39537500 
39538000 
39538001 
39539000 
39540000 
39541000 
39541499 
39541500 
39541501 
39541599 
39541600 
39541601 
39542000 
39542999 
39543000 
39543004 
39544000 
39545000 
39546000 
39547000 
39547999 
39548000 
39549000 
39549100 
39549101 
39549200 
39550000 
39551000 
39552000 
39553000 
39380900 
39580910 
39580920 
39580930 
39581000 
39582000 
39583000 
39625000 
39900000 
39901000 
39902000 
39903000 
39904000 
39905000 
39906000 
39907000 
39908000 
39909000 
39910000 
39911000 
39912000 
39913000 
39914000 
39915000 
39916000 
39917000 


Be Be BR 


STs3X3 TALLY: SEUNUMS 
ENDS 
TALLY!ISTALLY413 S]tseS]e1)3 
SlesLOc 13 SI]teS14+73 Ol sedIr13 
IF Sc#"0" THEN 
BEGIN DSt#5 LIT" WENT") 
IF SC#8"2" THEN OSte4 LIT" NOT" 
ENO FLSE DSt#4 LIT" ARES 
DSt=B LIT" READY,«"3 
END? 
SPOUTCRT1)3 
END OF SPOUTING IT3 


SUBROUTINE DOITS 
BEGIN 
IF NOT CZSFLO) OR ZSFC1),03811)) # NOT O THEN 
BEGIN BI"183 DieZSF3 
RTis*SPACE(20)3 
SPOUTITNOW; 
END3 
IF NOT (ZSFL2) OR ZSFL3)Je£181132) # NOT O THEN 
BEGIN B88193 DisCZSFl2))3 
RTIsteSPACEC20)3 
SPOUTITNOWS 
END# 
END OF DOING IT$ 


START OF CODE 


lf B#0 THEN 
BEGIN D&¥CMULTYTABLEC16)182(8838310)3 
RTLIFA3 
$ SET OMIT & OFX 
IF B THEN Die2 INX Ds 
$ POP OMIT 
IF NOT CIF B THEN PCRRR).£2831) ELSE PCRRR),(29:1)) 
$ SET OMIT = DFX 
OR NOT (DCO) OR DC1),01811]) = NOT O 


$ POP OMIT 
THEN 
BEGIN STREAMCXESLFINYULCBI J. RTL)3 
BEGIN SI]tsx3s SlteS] +53 
DSteLIT™ "3; OSt#3 CHR; 
OS##11 LIT" NOT READY«"3 
END3 
SPOUTCRT1)3 
END ELSE SPOUTITNOW) 
END ELSE 


BEGIN ZSFSSCMESPACEC4)118406836810)3 
VADARSSCMULTITABLEL16)184(68238210)3 
DISKWAITC*As"30eDERECTORYTOP)3 
FOR [480 STEP 1 UNTIL 3 DO 
ZSFCTI¢C#eVADAREIJ AND NOT DODC23+1)3 

1te13 DOITS 

FOR 180 STEP 1 UNTIL 3 DO 

BEGIN ZSFCIT]J3®NOT VADARECI) AND DDD( 23+] ]3 
DDDC 23+] J 8=VADARCI)3 

END} 

DISKWAITCAr*30eDIRECTORYTOP)3 

1#523 DOTS 


39918000 
39919000 
39920000 
39921000 
39922000 
39923000 
39924000 
39925000 
39926000 
39927000 
39928000 
39929000 
39929100 
39930000 
39931000 
39932000 
39933000 
39934000 
39935000 
39936000 
39937000 
39938000 
39939000 
39940000 
39941000 
39942000 
39942900 
39942910 
39942920 
39943000 
39944000 
39945000 
39945999 
39946000 
39946001 
39947000 
39947999 
39948008 
39948001 
39949000 
39950000 
39951000 
39952000 
39953000 
39954000 
39955000 
39956000 
39957000 
39958000 
39959000 
39960000 
39961000 
39962000 
39963000 
39964000 
39965000 
39966000 
39967000 
39968000 
39969000 


FORGETSPACECZSF)3 
END3 
ENDS 
PROCEDURE DIRECTORYBUILDER(CA2D0D)3 
VALUE AeDODS 
REAL A3 
ARRAY DDD[*]3 
BEGIN REAL YoZeBoCelodeToRAeRLe RTL ORS INTEGER RADDeRLENS 
REAL NEXTLINKs ADe Xe Ke SEVENT oS FORTY eo Ls EUSUS 
KRRAY SUC#*)3 
ARRAY HEADC#)] eKKC we] e PLO eI) 
REAL WeESPADDODISKTOPe®SUPER®E UMP NTI oNT2eNI SoNT43 
BOOLEAN UCHANG* ERRORS INTEGER LOeREMe TNeTMeMNSREAL XLeX29EUMASK} 
RRRAY ZSFCe]eSOCKE(#)3 
REAL DeYirY23 
REAL AAs AAA 
LABEL FORGET? 
ARRAY VI *e%]3 
INTEGER S3 
ARRAY VREVL¥*]3 
REAL HeF I] oF J3 
$ SET OMIT © NOT SHAREDISK 
REAL HOLDER»NEXTSLOTsBYPASS3 
$ POP OMIT 
LABEL LOOKATDKB®BACKPEXI TeM1e SKBLKoLTR3 
DEFINE ROWSSUCX],C3:4]#> 
LASTAVAILBEHEADLOJ]).(C 3815] #> 
AVAILABLESHEADLOI], (FF IH» 
FIRSTLINKSHEADLCO] LCF I] He 
DASIE2Z4F eS DAC HII 24:3 248, 
SIZESPLE1],0DA]#s 
ADDRESS#PL(O] .(DAl#:s 
HIGHLINKSPLOO] (CF I#Rs 
LOWLINK#PLOLI,CCR Is 
DISKRUNNING®(1811]#> 
FORTYMILLDISKEC19101)#> 
OCCUPIED=(2081]#, 
AVLiS4B0F ce AVELOCKE16#43 
SUBROUTINE SAVITS 
BEGIN 
IF (WeW4+2)228 THEN 
BEGIN ZSFL29)¢ESPADDIDISKWAITCZSF INX Os 309ESPADD*GETESPDISK)3 
WeO ENDSZSFEWI] e+ TIZSFUEWF+1 I) ¢D0DL479"2xI1)3 
END SAV]T3 
SUBROUTINE CLEARS 
BEGIN V{S20)+03 
VCSel]) + BYPASS, (CFIJ3 
V0Se2)]+@143 
VOSe3]¢VES24)03 
MOVECS7oLVCSe2] Jef VLSe5]]) 93 
END3 
SUBROUTINE SETUPS 
BEGIN | 
LOs®CX4+41) MOD 53L08eL04¢(L080)x53 
IF RADD NEQ CLOt#LOxFORTY) OR CLO#®RADD AND RLEN LSS FORTY) THEN 
BEGIN 
IF YasCSuUCX),£CFI#0) THEN 
BEGIN 
NTLOEMSUCX IE RSPACE(16)8SUCXI£1611889)3 
MOVE CIG*NTIZLONTID3 


39970000 
39971000 
39972000 
40000000 
40001000 
40002000 
40003000 
40004000 
40004500 
40005000 
40005050 
40005100 
40005110 
40005200 
40005210 
40005220 
40005230 
40006000 
40006100 
40007000 
40007500 
40007990 
40008000 
40008010 
40008050 
%MC 40008100 
40008110 
40008120 
40008130 
%ME40008140 
40008150 
40008160 
40008170 
40008180 
%MC40008190 
%MG40008200 
%MC 40008210 
40008220 
%MG40008300 
%M940008310 
%™040008320 
%ME 40008330 
%M640008340 
%MC40008350 
40009000 
40010000 
40011000 
40012000 
40013000 
40014000 
40015000 
%4C40016000 
40016020 
40016025 
40016026 
%MC40016100 
40016200 
%MC40016220 
40016240 


%027"40016260 


END3 
MESUEX] JINX KJ] s8RT1s*SPACEC644+Y)3 
KKe(MCRT1J)186644Y)(81381:10)3 JUNK+644Y3 
MOVE C64SYeRT1*ieRT1)3 
FOR R##3xY STEP 2 UNTIL JUNK DO KKCRISFRTL+Ro23 
HEAD*EMEMCSUCXJ)1181(06338310)3 
IF Y THEN 
BEGIN 
KKC LI) aKKOC 2): SE VENTS 
KK{C1)7,C00A)32L03 
KKC2)]eCOAI3IF X EQL O THEN FORTY*@C(DISKBOTTOM*+S) ELSE FORTY? 
MESUEXI].,CDAJS2L03 
HEAD(O]2*RT14+13 
ENDS 
HEADCOJ CFF JeRTL+3xY3 
HEAD(O).C3115]+624RT1+Y3 
END 
ELSE 
DO 
BEGIN SUCX)] OCCUPIED! =13 
RADDI®SRADD*FORTY3 
XeBXels 
@ND UNTIL CRLENtSRLEN@FORTY) LSS FORTY3 
END OF SETUP3 
SUBROUTINE BUILDAVAILS 
BEGIN 
BACK & 2 ERRORe{SREMeO3 
6F CZtB8SULX])#0 AND Z,fCFI]#0 THEN 
BEGIN K#=s03 SETUPS GO BACK END? 
OF (CZ8#SUCX]),DISKRUNNING AND NOT Z,OCCUPIED AND RLEN>0O THEN 
BEGIN 
IF MCESUEXJ]].00A)] GE@ RADD THEN 
BEGIN 
PCMEMCSUCXI TT sO&RADDCOS 2a 2a) eLiL Le Ove INX»s ADeeeDEL D3 
HEAD@EMEMECSUCXI Iai COs36s10)sPLe€MCADII8 2083 38310)3 
IF CCRASPADDRESSI*C(RL&S#S$I1ZE) LSS RADD*RLEN OR 


#MC 40016300 
40016400 


%027740016410 
%027740016420 


40016500 
MC 40016510 
%MC 40016600 

40016700 

40016800 

40016900 

40016910 

40016920 

40017050 

40017100 
#MC40017200 
MC 40017250 

40017260 

40017270 

40017275 

40017280 

40017285 

40017290 

40017295 
MC 40017300 
%M640027100 
%MC 40027200 
%M640027230 

40027240 

40027245 

40027250 
%MC 40027260 

40027270 

40027280 
¥MC 40027290 
*MC 40027295 

40039000 


CREMSSIFCNTis¢®RADD MOD FORTY)®0 THEN O ELSE NTA*RLEN) LSS 40039100 


O)AND RADD NEQ@ RA THEN 
BEGIN 
1k REM LSS 0 THEN RLENteRADD MOD FORTY 
IF AVAILABLE#0 THENZNEED ANOTHER ROW 
BEGIN 
KeROWSKeKs1SROWOKS 
IF K GTR 15 THEN 


40039200 
%MC40040000 
40040500 
*MC 40041000 
%MG 40042000 
®MC 40042100 
40043000 


BYBYC"TOO MANY ROWS NEEDED BY DIRECTORYBUILDER#%244 7340043500 


SETUPS 
END3 
NEXTLINK#MER*AVAILABLEJ3 
MUCRIJ*AD&CRADD*RLEN)CDACI3 
IF ADeECFISSEVEN? THEN MESUCX]),£PAJ*RADD@RLENS 
IF LOWLINK@SEVEN7 THEN 
FIRSTLINKS&R 
ELSE 
MECLOWLINKI, (CCF JS ers 
MER+1 ] ¢@PL CLI CRADD*RLEN@CRAPRL)ILDACIS 
PLOLIFBRECRA™RADD)CODAC)3 
RUEN#O3 
AVAILABLE*NEXTLINKJERROR*FALSE3 
END 


%MC 40044000 
4040045000 
®MC 40046000 
%M@40047000 
%M640047100 
40048000 
40049000 
40050000 
40051000 
40055000 
40056000 
%MC 40056100 
2M640057000 
%MC 40058000 


ELSE®REDUCE EXISTING AREACBEWARE OF ADDRESS CONFLICT OR®MG40059000 


SEU UNDERFLOW), 


BEGIN 
IF RADD=RA AND RL GE@ RLEN THEN 

BEGIN 
ADDRESS#«RAPRLENS 
IF HIGHLINK®SEVEN7 THEN 
MCSUECXIJ].£DAJ*ADDRESS} 
SIZE*RLeRLENSIERROR*RLENSO3 

END 

ELSE 


IF RLEN>RL THEN 
IF LOWLINK=SEVEN7 ANDCX*®1)M0D 5#4 THEN 


BEGIN 
RADD*RADD"RLTLIRLEN*RLEN@RLMWISSIZE*OFERROR|OS 
END 
ELSE 
IF RADD*RLEN LSS CNTY tSMCLOWLINK],CDA)) THEN 
BEGIN 
RLENt®RLEN@CRADD*CRADDISENT1) 23 
SUPER##13G0 BACK} 
END 
ELSE 
IF RADD GTR RA*RL THEN 
BEGIN 
RLENS®RADO@CRA*RLIISUPERS #13 
GO BACK} 
END 
ELSE RLEN® 0 
ELSE 


BEGIN SIZE*RL*RLENSERROR*RLEN©OS ENDS 
END3 
IF SIZE=0 THEN 
BEGIN 
IF HIGHLINK®SEVEN7 AND LOWLINK®SEVEN7 THEN 
BEGIN 
SUCX],OCCUPIED*TRUES 
Ker} 
WHILECY@M[ESUCXJINX CK*K41)])40 AND KS15 DO 
FORGETSPACECY)3 
FORGETSPACECSULX])3 
END 
ELSE 
BEGIN 
IF HIGHLINK®SEVEN7 THEN 
BEGIN 
MCPLCLIIGCCRIJeSEVENTS 
MESUCXJ],CDOAJ*MEPLO1I).00AI3 
END 
ELSE 
BEGIN 
MCPLCO141),CCFISeLOWLINKS 
IF LOWLINK*®SEVEN7 THEN 
FIRSTLINK*HIGHLINK 
ELSE 
MEPL£C1I).CCF Is SHIGHLINK3 
END3 
IF MCLASTAVAILJS0 THEN 
MECLASTAVAILI©ADSLASTAVAIL©AD3 
IF AVAILABLE#0 THEN AVAJLABLE«*AD3 
PLCOJ%=03 


%4C 40060000 
%M940060050 

40060100 
%¥MC 40060200 
%4C 40060300 
%MC40060302 
%MG40060305 
BMC 40060400 
%MG40060500 
MC 40060600 
%3MC40061000 
%MC640062000 
24040063000 
MC40064000 
%#4C 40065000 

40065010 

40065020 

40065030 

40065040 

40065050 

40065060 

40065070 

40065080 

40065090 

40065100 

40065110 

40065120 
%MC 40066000 
%MC 40067000 
MC 40068000 
MC 40068050 
%MG40068100 
%MC 40069000 
%M™C 40070000 
¥M040071000 
*™C 40072000 
%ME 40073000 
MC 40074000 
%MC40075000 
%M™C 40076000 
%M6040077000 
¥MC40078015 
M6 40078020 
MC 40078038 
MC40076031 
%4C 40076032 
%M€40078033 
%MC 40078034 
%M640078035 
%MC 40078036 

40078038 
%*™C 40078040 
%MG40076042 
%MC40078046 

40078048 
%MC 40078050 
%MG40078052 
74640076054 
%4C 40078058 

40078060 


END} %ME40078065 

| END: %MC4007806/ 

IF REM LSS 0 THEN BEGIN RAND*X MOD 5#RADD*CRADD4+(RADD#0))xFORTYS 40078068 
RLEN*ABSCREM)3 END} 40078069 
XeX*(RLENFO)3 %MG40078070 

END ELSE 40078072 
IFONTL9=M(SUCX]},0DAJ) GTR RADD@RLEN THEN 40078074 

BEGIN RLENS=RLEN"CRADD@CRAODIENTI))3 40078076 

SUPER!®13 GO BACKS 40078078 

END %MC40078080 

ELSE 40078085 

RLEN©O} ZME40078087 

END} %M040078090 

IF RLEN>0 AND NOT ERROR THEN GO BACKS %MC40078091 
SUPERI®SUPER OR CERROR AND SULX],DISKRUNNING)3 40078092 
END OF COMPLEMENTING DISK DIRECTORYS %024°40078093 
SUBROUTINE LOCKEDS 40100000 
BEGIN 40100100 
IF (X1s@(RADD*RLEN) DIV TN)=(X21=RADD DIV TN) THEN 40100200 
IFCTWOCX1) AND EUM)=O THEN BUILDAVAIL ELSE GO FORGET ELSE 40100300 
BEGIN 40100400 
Yit#RANNSY20sRLEN3 40100500 


IFCRLENS@(XL¢1)xTN@(RADD"Y2 ) GTR O AND C(TWOCX1) AND EUM)®O THEN 40100600 
BEGIN RADDQECKL4 1 XINSXSS5xDeCCVIFY2ZIDIV FORTYJSBUILDAVAIL END3 40100700 


IF CRUENSS Y1"(X2xKTN)) GTR O AND (CTWOCX2) AND EUM) EQL O THEN 40100800 
BEGIN RADDIS=Y13Xss5xD+RADD DIV FORTYSBUILDAVAIULs ENDS 40100900 

WHILE (X2¢eX2"4) GTR X1 DO 40101100 
BEGIN 40101200 
RLENGESTNSX8ESxHe( CRADDPBCXZ241L Ix TINIFLIOIV FORTY 40101250 

IF CTWOCX2) AND EUM)©®O THEN BUILDAVAIL3 40101300 

END? 40101400 

END3 40101500 
FORGET! 40101510 
END OF LOCKED3 40101600 
% 40199900 
$ SET OMIT = NOT SHAREDISK 40199990 
BYPASS? ®D[SKBOTTOM+42; & SET AT 44240580 40200000 
HOLDERS =D IRECTORYTOP=7*C(HOLDMAX4#29) DIV 303 40200100 
$ POP QMIT 40200110 
SUS®EMERTIL#2SPACEC100)))8100(8:38810)3 40249100 
SEVEN7T&2&@777773FORTY8 #400003 TNIEZ100003MN3 210000003 TMt=100000003 40249105 
MOVECLOO*RTI*LeRTL)S 027740249110 
SOCKS S(MERT1¢3SPACE(40)1]124008:38310)3 40249120 
MOVEC4O*RTI*1eRT1)3 40249130 
X1*@NEUP,C3815S)°13% CHECK ONLY UNITS THAT EXIST 40249200 
VRESCMULTITABLE(16]184(6:3811013 40249250 
LOOKATOKB} %MC40249300 
FOR J!20 STEP 1 UNTIL X31 DO 40250000 
BEGIN 40251000 
X232193 40252000 
FOR J##OSTEP 1 UNTIL X2 DO 40253000 
BEGIN 40254000 
RADDSSMNxJ+1xTN3 40254100 
STREAMCQEFRADDOBSF404a)} 40255000 
BEGIN SIt#LOc Q3DS:=8 DEC END} 40256000 

IF 1 EQL O THEN 40257000 
BEGIN X28®20xWAITIOC4O+A INXO1400000002064918+C) [4381] 4X2) 40257030 

IF X2®39 THEN VRENTI&F14+Cx2)38P(DUPe®LOD) OR TWOCLI*I)3 40257060 

END3 40257100 

IF NOTCREWAITIOC4O4+A INX 0100000000» @642184+C0)).(4211] THEN 2024740258000 


BEGIN 


NT2ESONTLSRSKUt5OxC)4C1 DIVOSUCNTLIFORTYMILLDISK+1IDIV 4)3 


SUENT2] 8aPCDUPeLOD)81018847291I)8(X2>19)01924781)3 
TF Rel4381] THEN 

BEGIN FORTY¢=FORTYxC(X2 GTR 19)41)3 
SOCK(Cx104+J}4=C*PCDUP)) OR TWOCT)3 
XtaNT2PRADDtSCRADD MOD MN)4+CRLENESTNISBUILDAVAIL? 
FORTY$=40000; 


END ELSE SOCKECx10¢J+20] 1=(#P(DUP)) OR TWOCIF X2"19 THEN I ELSE 


C1 DIV 8)x4 + (CI AND 3))3 
END ELSE ®NOT READY CHECK NEXT SU 


BEGIN EUSUSSEUSU OR TWOC4S@CIF X2=19 THEN I ELSE CI DIV 8)x44CI AND 


32)01V 4)3 


LUSLeCCCSUENTL PRC Sx U4t50xC2 IU FORTYMILLDISK+1)x4)"4)3 


END END3 
STREAMCASSC(CNOT EUSU),(4395]5 Je DteVR INX C INX C)3 
BEGIN SI#SLOC AS STteSi+73 
DIVsD14J3 DStFCHR 
END$ 
EUSUS#03 
END3 
$ SET OMIT = NOTCDKBNODFX AND NOT DFX) 
IF NOT C AND CXL*NEUPSETFFI"NEUP,CCRI"1)20 THEN 
BEGIN Ciet3 
IF PCRRR),.C28%1)] THEN GO TO LOOKATOKB ELSE 
BEGIN STREAM(JteJ:=SPACE(60))3 


DS#=44 LIT"OKB NOT READY = [TGNORED BY DIRECTORYBUILDER+«"; 


SPOUT(J)3 

ENDS END$ 
$ POP OMIT 
$ SET OMIT = NOTCDFX) 
NEUPS®NEUPQNEUP[CTFJ]3 % REMOVE ANY EUS DECLARED ON DKB 
$ POP OMIT 

JeDIRMODS 

V $8 (MCSPACE(J)1I8U(6238210)3 

Joe Jmts 

He]eTer {3 

FOR S « O STEP 1 UNTIL vy 00 

BEGIN IF Tal THEN 
LTRs BEGIN IF CHeH+1)SCHUNKMAX THEN 


BEGIN JF TOTALCH)J#0 THEN GO TO LTRI 


T©CHUNKZIZEXH+F ENCES 


END ELSE I t= SPACECCHUNKZIZE)3 


Te] 4CHUNKZJZE3 
_ ENDS 
VROSJ*€MC11I862(58s38310]3 
oO -  e 
BYPASS«BYPASS"23 
CLEARS 
END} 
AAAtBAAISSPACE(480)3 
DISKWAITC@Ar480eJU8sQI[RECTORYTOP+4)3 
ZSF*lLOQUERSPACEC3LICCTC)E 
ZSFCO]+@143 
W+03 
FOR Jt®J STEP 16 WHILE J#16 DO 
BEGIN 
DISKIOCNT3s*CAAA™1 ) 29 4800U416)3 


IF J+i52BYPASS,{£CF) THEN DIRECTORYFULLCBYPASS)3 


BYPASS, (FF JeJ+153 


40261000 
40261010 


%031"740261040 


40261042 
40261043 
40261044 
40261046 
40261047 
40261048 
40261049 
40261050 
40261100 
40261150 
40261200 
40261250 
40261300 
40261350 
40261400 
40261450 
40261500 
40262000 
40262299 
40262300 
40262310 
40262320 
40262330 
40262340 
40262350 
40262360 
40262361 
40262369 
40262370 
40262371 
40262500 
40263000 
40264000 
40264100 
40264500 
40265000 
40265100 
40265200 
40265300 
40265400 
40265500 
40265600 
40265700 
40265800 
40266000 
40267000 
40268000 
40275200 
40275300 
40275500 
40275600 
40275700 
40276000 
40277000 
40278000 
40278100 
40278200 


aoe 


6F SUPER THEN 


BEGIN 


OR I + 0 STEP 1 UNTIL 14 DOS 
BEGIN 1 + DODC47B*2ex] JI 
HisJ+14e]s 
IF T3@414 THEN 
BEGIN DODE479"2x1)43303 
UCHANGI#Q3 
1:15; 
END ELSE 
Ik T2@14 OR 
DDOC424"]x30)],01911 THEN 
BEGIN 
UCHANG3=03 
DDDL478"2x] )+014$ 


DDD[479"2x] JESNEXTSLOTS 
IF NEXTSLOT&O THEN 
BEGIN Flaster Jseyei5 ENDS 


NEXTSLOTS3#H3 
END ELSE 


BEGIN pbO£429"[x30],01842)]3503 


Bs=DD00C429"1x30); 


40279000 
40280000 
40280100 
40281000 
40281100 
%R6140281110 
40281200 
40281300 
40282000 
40283100 
40283200 
%R6140283210 
40283230 
40263300 
40283400 
40283500 
40283600 
40264000 
40285000 
40265005 


IF C€C*DDDC423"1%30))20 THEN 40285010 


BEGIN DDD(423"1x30J¢ 


"C&ClC2t8110)3 
UCHANGE =O} 


402865020 
40285030 
%R6440285035 


DDD(424"1x30) «0340285135 


END 
ELSE 


DDD(424"]x30JePCDUPeLOD) 
AND @00370000000077743 


IF C,l2310)%0 OR 


402865140 
40285150 
40285160 
402865170 
40285500 


DODL424"1x30),04481)] THEN40285600 


SAVIT?3 


40285700 


FOR Csi STEP 1 UNTIL B DO 
BEGIN RADD&S=DDD(429"1[x30+C)3 
IF RADD GEQ DISKBOTTOM+S THEN 


40286000 
40287000 
40290000 


BEGIN 


IF CRADDS=RADD+CRLENSS00DE428"1%x30))) GTR TM THEN 
BEGIN RADDS#RADD MOD TM$X8250 END ELSE X430$ 
IF SUCX@#X+5x(DteRADD DIV MND JeFORTYMILLDISK THEN 


FORTYS#PCFORTYsDUPe +) 3 

X#eC(CRADDISRADD MOD MN)@1) DIV FORTY + X3 
IF CEUMt=SOCKID]) NE@ O THEN LOCKED ELSE BUILDAVAILS 40292050 
FORTY3=40000}3 


STREAMCAI®TsBIFDDDL479"2x] Je TSESUPERSFSPACE(10))3 


BEGIN DSsm2Lit™, "3 STsRLOC AB STteSl +13 OStelCHRs VStsLIT"/ 93 


St1sSi4is DSt=7CHRs DSte19LIT®™ DISK ADDRESS ERROR"S 
DSreeLI Tes 
ENDS 
SPOUTCSUPER)3 
ERRORt *SUPERS 03 
ENDS 
END3 
END} 
BLFDDDL479%2x] 13 
Sis (Ss=DTSKBOTTOM 
*SCRAMBLE(T*#B)), 
C36811)3 
Ciav(Se0)1 


40290100 
40290200 
40290300 
40290400 
40290500 
40290600 


40292060 
40292200 
®MC40292210 
40292212 
40292214 
40292216 
40292216 
40292220 
40292228 
40292230 
BMG40292240 
40292250 

MC 40292300 
40293010 
210440293020 
210040293030 
%10440293040 
40293050 


edie ah aar late bee tte erin ; | 


eae Ae Se eee ee eee 


VESeC+2)3eTsi VEISeC 43) 3583 


VESeC +4] 32H 


IF (V05e0)33C+3)"60 THEN 
BEGIN V(Se4),CFFIJ+BYPASSe« 


BYPASS*"23 


40293060 
40293070 
40293080 
40293090 
40293100 


TF J#152BYPASSe (CF ITHEN4SO293104 
DIRECTORYFULLCBYPASS)3 40293102 
DISKWAITCEV(S#2)1,0CF J 240293110 


60eVECSei))3 
CLEARS 
END3 
PBCOUNT?& CCCC™PBD " eOV T) = NOT QO) OR 


CC™PUD " E@V T) # NOT 0)) AND 


(BaLCFJ = 1)) + PBCOUNT? 
END3 END32 
SLEEPCOINT3]eNOT 0)3 
DDDtFDDD&PCDUPeAAAILCTC)3 
AAAt=®P INX O03 &SWAP DDD BUFFERS 
DISKWAITCAAA® 4800 )3 
IF I © 16 THENS 
BEGIN? 
J « O38 
END3& 
END3& 
FOR [3® 0 STEP 1 UNTIL DIRMOD"1 DO 
DISKWAITCOVE S213) INX Le 60% VEToe1I))3 
FOR I1*#0 STEP CHUNKZIZE DIV 64 UNTIL DIRMOD"1 DO 
BEGIN V(C1I»0}«03 
Te(VETeO]],0CFI3 
MOVE CCHUNKZIZE™4eTe T4193 
IF T<FENCE THEN FORGETSPACECT)3 
END: 
BisV,(CFI3 
IF NEXTSLOT#O THEN 
BEGIN 
DISKWAIT("Be300FU)5 
VREM2xF I] +29) 8 FH; 
DISKWAITCBe3Q0eFU)3 
END ELSE NEXTSLOT!##H3 
FORGETSPACECB)3 
DDODt=DDDRALCTCIs FORGETSPACECAA)S 
IF PBCOUNT®0 OR AUTOPRINT THEN ELSE 
BEGINS STREAMCPBCOUNT#X3s 2X3 8SPACEC10))3 


BEGIN DSe11 LIT" THERE ARES XeDI$ SI*LOC PRCOUNT; 
OS«+4 DECs DS*16 LIT" PB FILES ON DISKe"™3 


DleXs DSe3 FILLS 
ENDELSeXxs 
ENDS 


Z+USERDISKBOTTOMS 
Xse"53 DDDLLII=03 

$ SET OMIT * NOTCSHAREDISK) 
RisCNEUP,NEUF #1) DIV 2 + NEUP,NEUF + 23 
VRISCMESPACECR))J&R(84 381103 
MOVECR®VReLCFI™1eVR) 3 
VRCOJSRORRETONUMENT) $ 


$ POP OMIT 


$ SET OMIT # SHAREDISK 
R*wOs VRSSAVTABLES 


$ POP OMIT 
ReeRei 3 


RADD SER} 


40293120 
40293140 
40293150 
40309100 
40309150 
40309200 
40310000 
40311000 
40311100 
40311200 
40311300 
40312000 
40313000 
40314000 
40315000 
40317000 
40317200 
40317210 
40317220 
40317230 
40317240 
40317250 
40317260 
40317270 
40317300 
40317310 
40317320 
40317400 
40317500 
40317600 
40317610 
40317700 
403176800 
40320100 
40320200 
40320300 
40320400 
40320500 
40320600 
40320700 


%M640321000 


40321100 
40321104 
40321105 
40321110 
40321115 
40321125 
40321126 
40321129 
40321130 
40321131 
40321135 


NT3taNEUP NEUF #43 ® DONT USE NT3 BETWEEN HERE AND 40334065 
FOR NT29"0 STEP 1 UNTIL NT3 DO 
BEGIN TeRAe*1SRLEN|RL«OSRADDSRADD Ee CZ"™USERDISKBOTTOM)x303 
FORTYs#(SUCX8#X45)] FF ORTYMILLDISK41)xFORTYS 
WHILE C(Ce@SUEX*C1e"141)))¢DISKRUNNING AND I LEQ@ 4 DO 
IF NOT C,OCCUPIED THEN 
BEGIN 
IF C,elCFIJ=0 THEN 
BEGIN 
RAeRA41} 
C1303 
SesC]+1)xFORTYS 
JeIF X#180 THEN 
FORTY™(CDISKBOTTOM+5) ELSE FORTY? 
END 
ELSE 
BEGIN AD*MCMESUEX+1 JI) .0CFISRA*P1I END! 
DO 
BEGIN 
IF C#0 THEN BEGIN SeMCLADI,LDAJ] 3 UeME£14AD],00A) END} 
Si#S¢¢(X MOD 5SO)DIV 5SxMNS3 
IF J>RLEN THEN RLENS&a=J3 
IF X GE@ 50 THEN St=$4TM3 
IF J GTR O AND CNT1iteS"J) GEQ DISKBOTTOM+3 THEN 
IF CYI=DDDCABSCRIIJ)eDEND EQ@L NT1 THEN 
BEGIN DDUDEIR]sFS&C(LOssY, DSIZE+JI(TODSIZE);3 
IF LO GTR RLEN THEN RLENSSL0 END 
ELSE 
BEGIN 
IF ReAVi THEN 
BEGIN 
DISKWAITCA®AVi9Z)3ZeZ + AVBLOCKike "13 
END 
NOOECReR+ei)¢ S& JLTOOSIZE IVS RL*RL+13 
END3 
IF C#¥O THEN 
IF MEAD] ,(CCFI#SEVEN? THEN 
ADeMCADI,(CFI ELSE 
BEGIN 
Kerdy 
WHILE CBeCMOSUCX+] 2 ENXCK#K41)]))2#0 AND KS15 DO 
FORGETSPACE (BIS FORGETSPACECSUCX4]])3 
COs 
END; 
END UNTIL C#OB 
ENDS 
IF CDDOER],DEND MOD MNISCONTI&@S5xFORTYI"1) THEN DDOLR],DENDtaeNTI¢ 
NT2xMN3S & NT2 = X DIV S 
RL#RL+13 
VRENT241) ¢208(SUCX) FORTYMILLDISK#+1 LC TOSPEEDI&RLEITONUMENTIJ& 


40321140 
40321200 


£024"40323300 


40321310 
40321400 
40321500 
%MC 40321600 
%MC40321700 
3MC640321800 
®MC40321810 
40321910 
40322000 
2MG40322100 
40322150 
®MC 40322200 
%M640322210 
¥MC40322220 
MC 40322250 
%MC 40322300 
MC 40322400 
40322410 
40322420 
40322425 
40322430 
40322440 
40322442 
40322444 
MC 40322450 
24640322460 
3MO40322470 
3MC 40322480 
%ME40322600 
BMC 40322700 
40322800 
2MC0 40323000 
$MC40323100 
%MC 40323200 
%MG640323300 
%MG40323400 
%M640323500 
MC 40323600 
%MC 40323700 
2MC0 40323710 
%MG 40323800 
®M€ 40323900 
40324000 
40324102 
4324104 
40324120 
40324200 


RADDCTOSTARTWRDJ&RLENEC TOMAXSIZI&CNT22NEUP,C3815] AND NI2<10)CTOEUNP)3 40324240 


IF R*®AV1 THEN 
BEGIN 
DISKWAITCA®AVieZ)3 
ZeZeAVBLOCK 3 Reels 
END} 


DDDOLRE#R411£5400000 DIVC2"SUEXIGFORTYMILLDISK)#(X MOD 100)DIV SxMN413 


IF CLOt#RL DIV 4) LSS AVDIFFMIN THEN LO&RAVDIFFMIN ELSE 
IF LOPAVDIFFMAX THEN LO*AVDIFFMAX3 
IF CR#@eR+L0) GTR AV1 THEN 


40324300 
40324400 
40324500 
40325000 
40326000 
40327000 
40328000 
40329000 
40330000 


BEGIN 
DISKWAITCAsAV10Z)3ZeZ+AVBLOCK3 
RtsReavi 3 
ENDS 
FORTY£*®40000 3 
RADDIER41 3 
BND3 
DISKWAITCA*AV1«2Z)3 | 
NT2USNT3 + 33 & NT2@NEUP.NEUF 42 
FOR NT1t@NT3 STEP "1 UNTIL O DO 
TF CNT4SBCNOT SOCKENT$4+20]),0£28:20)) *# O THEN % LOCK OUT THIS EU 
BEGIN EUMASKSsTWOCNT!) OR EUMASK3 & TURN ON EU LOCK OUT MASK 
IF NT4 THEN VRENTL DIV 2 + NT2],.08s20) teNTS 
ELSE VRENTL DIV 2 + NT2JgL28820] 5=NT43 
END} 
VRLOJ$#PC DUP» LOD) REUMASKETOMAXSIZ]3 
$ SET OMIT @ NOTCSHAREDISK) 
DISKWAITC™As60eUSERDISKBOTTOM)3 
DISKWAITCEUIO,CCFISEUIO,LBt10]*FULOHOLDER) 3 
MOVECVREQ) AND NUMENTMeCVREOJ J eA) 3 
DISKWAITCA»60eUSERDISKBOTTOM)3 


40331000 
40332000 
40333000 
40334000 
40334054 
40334055 
40334056 
40334057 
40334060 
40334065 
40334070 
40334075 
40334077 
40334079 
40334061 
40334085 
40334308 
40334310 
40334315 
40334320 
40334330 


AVSSRCAVSESIFCAVSI SC Z°USFERDOISKBOTTOM)X30+¢R+AVDIFFMIN>AVSMAX THEN AVSMAX40334335 
ELSE IF AVS LSS AVSMIN THEN AVSMIN ELSE AVS)4+30"CTF CAVS#mAVS MOD 30)40334337 


#0 THEN AVS ELSE 30) 3 
FORGETSPACECVR)} 
DISKWAITCCHOLDERI] CCF IJe"*3eDIRECTORYSEG)3 


40334336 
40334500 


& CLOBBERS FJ40334600 


$ SET OMIT © NOT STATISTICS OR OMIT 40334690 
BYPASSBOTTOM!sBYPASS.(CFJ3 40334700 

$ POP OMIT OMIT 40334710 
FORGE TSPACECSU)3 40335000 

$ SET OMIT = SHAREDISK 40335990 
UNLOCKDIRECTORY3 40336000 

$ POP OMIT 40336010 
UNLOCKTOGCUSERDISKMASK)3 40336100 

IF L>1 THEN SPOUTCL)? % THERE ARE X PB FILES ON DISK 40338000 

MESSAGE TABLEBUILDERS 40339000 

FOR WeW STEP "2 WHILE ZSFCW)#@14 DO 40353100 

BEGIN 40353110 

IF W<O THEN 40353120 

BEGIN 40353130 

DISKWAITC™ZSF CCF] *®30e£SPADD)3 40353140 

FORGETESPDISKCESPADD)3 40353160 

ESPADD+ZSF(29)3 40353170 

We26} 40353180 

ENDS 40353190 
FORGETSPACECDIRECTORYSEARCHCZSFIW) »ZSFCW41)96))3 40353200 

ENOS 40353210 

%MG40353300 

FORGETSPACECZSF)3 FORGETSPACECSOCK)3 40356550 
SUSTATUSCA®DDD00)3 40356800 

ENDS 40400000 
PROCEDURE REALFILECLOSECALPHA)S VALUE ALPHA’ INTEGER ALPHA? %R9041000000 
BEGIN ARRAY FIBL®J]eF PBL *)] eHEADER(*)3% 41001000 
ZBE DONT ADD ANY DECLARATIONS BETWEEN "HEADER™ AND "KIND" 23% WOP 41001500 
INTEGER KINDeNBUFS*+UsBLENs CODE »UNLABELEDeCOBOLe leds FNUMS 41002000 

REAL MIDeFIDeResDeCeFORMSe¢STATES 41003000 

REAL ROWR+OeXTRAZH3) %R9041003100 
LABEL PXePBD} ZP 41004000 
LABEL CReLPeMTeCLOSED»DKeSPeCPeBKUPsPPePReDCrCDeCC3 41005000 
SWITCH SWeCReLPeMTe CLOSED eDK eo SPeCPeBKUPsPPePReDC»sCDsBKUPS %PB41006000 


- alata | 


LABEL EOF »ON*eDNE*sCLEANUPS& 


41007000 


LABEL EOD) 41007100 

LABEL OBJTYPE*» DUMMY? %R6241007150 

REAL TieT2eT3e1lO0Ds ARRAY SEGOL*]+SKELC#]3 LABEL LieL2eL33 41007200 

REAL TeACCESS33% 41017000 
BOOLFAN COMPGO3 41017200 

REAL TYPE3 41017300 
DEFINE REWSCODEL4781J]#e% 41018000 
KRUNCH®NOT CODE, (42t1)#e R17 41018100 

RELSCODE C4681] # 9% 41019000 

TIMERCODE [4531 J] #08 41020000 

LOCK*NOT CODE.C44t1) #3 41021000 

PURGESNOT CODEs(4331]#3% 41022000 

& 41023000 
LABEL CLOSEOUT3% 41035000 

LABEL EOFIT34 41036000 
CODE*(CNOT *PC,ALPHAD),£(18215]32% 41038000 
ALPHASP( ALPHARLOD) gf 33815]5% 41039000 
FIB*MCALPHA@3)3 FPBePRTICPIMIXe3)3% 41040000 

IF CSTATE*FIB(5]),(04281] THEN GO TO CLOSED#ES 41041000 
NBUFS@FIBC13).0189)3 FNUM*FIBLC4) .£1381195% 41042000 
UeFIB015),£2486]3 41043000 
UNLABELEDeFIBL4),£281)53% 41044000 
BLENeFIB[16).03¢15]3% 41045000 
STREAMCSe(FPBCFNUMJ) JeDe[MID))3% 41046000 

BEGIN SIt=S3 DSteQwDS: DSts30CT3 DSts50CT OSte0CT3 41047000 
FORMS*FPECFNUM43),(428115% 41048000 
1eF18613),(028310)3% 41049000 

IF 140 OR R¥0 THEN ReI3 41050000 
COBOL*C(CFIBEL13] AND 1)8CCFIBI,CO8:10JS22)0134781]3 & COBOL 60 & 68 41051000 

IF FIB,C781) THEN CHECKJOBORFILEMESSCPIMIXPALPHA™30U)3 41051620 

GO TO SWEKINDeFIBL4)],.C884))3% 41052000 

% 41053000 
CRICCICPILPESPEMTSPPEPRICD! %R9041054000 
OTHERCLOSE(0)3 %R9041055000 

GO TO CLEANUP3% 41142000 

% 41143000 
BKUPS§ TYPES#FPBCFNUM4+3),[43%5]% BACKCLOSE(O)3 41144000 
DCts 41186000 
CLOSEOUT#$ STATE,C3984Je13 TIME #133 41187000 
CLEANUP S38 . 41188000 
IF TIME THEN STOPTIMINGCFNUMs1023)3 %R6241188100 

IF NOT STATE.C4191] THENS 41189000 

__ IF KINDS2 OR KINDsit OR KIND26 AND KINDS9 41190000 

$ SET OMIT ® NOTCPACKETS) 61190099 
OR KINDS4 41190100 

$ POP OMIT 41190108 
THEN BEGIN 41190200 

$ SET OMIT & NOTCPACKETS) 41190249 
_ _IF KIND®4 THEN T1364 ELSE 41190250 

$ POP OMIT 41190251 
Te® (CLOSEMESS AND CCTSSJARCPIMIX20J))20 OR T<O AND COPNMESS)) 41190300 

OR CLOSEKs 41190500 

F TLEMESSAGE(C 41190600 

$ SET OMIT = NOTCPACKETS) 41190699 
IF PURGE THEN " PRG" ELSE IF LOCK THEN ™ LOK® ELSE 41190700 

$ POP OMIT 41190701 
“ REL"™IRTINULUIL6830818) +0OeMIDe FID? 41190800 

IF KIND®2 OR KIND®9 THEN R ELSE O- 41190900 

IF KIND®2 OR KIND&9 THEN D ELSE Or 41191000 


CaeT)3 41191100 

$ SET OMIT = NOTCPACKETS) 41193049 
IF KIND#4 THEN 411930590 

BEGIN 41193060 

$ POP OMIT 41193061 
T $@ SPACEC10I713 MOVEC100T» T4193 41193100 
MOVECETRLNG* CFPBCFNUM] Jo T41)3 41193200 
MAKELOGCTeFILESTATS)3 41193300 
FORGETSPACECT+1)3 41193400 

$ SET OMIT = NOTCPACKETS) 41193499 
END3 41193500 

$ POP OMIT 41193501 
ENDS 41193900 

IF CFIBCSJ*STATE) C4281) THEN FIBL4).£8:4)] +338 41194000 

IF CToFIBOC16),033315])#0 THENS 41195000 

BEGIN TeT*1"CIF STATE + C4431) AND CKIND®2) THEN BLEN ELSE 1)5% 41196000 

FOR 1«O0 STEP 1 UNTIL NBUFS"1 DOS 41197000 

BEGIN JeMCTJ).C16815)]°23% 41198000 
FORGETSPACE(T)3% 41199000 

Teus8 41200000 

MLALPHAF+L J ¢PCOUPsLODISOL2IZt1IRIL25847 314% 41201000 
RCALPHA41)033833815)5% 41202000 

ENDS% 41203000 

FIBL16]+033% 41204000 

END33% 41205000 

IF NOT UNUWABELED THEN’ 41206000 

IF KIND#O THEN’ 41207000 

IF CT#MCALPHA"2).033815])#0 THEN’ 41208000 
FORGETSPACE(T#2)33 41209000 
MCALPHA™2J@PCDUPsLODIRPCOeXCHICBEBI10)3% 41210000 
FIBL6)*FIBC7) «03% 41211000 

GO TO CLOSEDs2 41213000 

% 41214000 
OKts DISKCLOSECO)3 %R9041215000 
GO CLEANUPS% 41269000 
CLOSEDt? 41308000 
RCOWERXTRA3 %R9041309000 

END FILE CLOSES 2R9041310000 
PROCEDURE LINKUPCTYPE*KEY)# VALUE TYPE* KEYS REAL TYPEKEY; 41310100 
BEGIN 41310200 
KEY t® PCgKEYeLOD) INX O "13 41310300 
MEKEY#1)3% CHPCDUP))&TYPEL3S42:6)&(LOGENTRYS@LOGENTRY#] (25834814)3 41310400 
MUKEY#2) t& (*#PCDUP)) &@ CXCLOCK + PCRTR))(3124324]3 41310500 

IF CLOGHOLDER INX 0) = 0 THEN 41310600 
BEGIN LOGHOLDER,(CCF) ts KEYS 41310700 
FORKCPC »MAINTLOGGER) #000+12801)3 413108600 

_END ELSE MELOGHOLDER,CFFIIJe£CF] te KEY? 41310900 
MEKEY],CCFJ t8 03 LOGHOLDER,C(FF] 13 KEYS 41311000 

IF CNUMAINTMESS#®NUMAINTMESS#1) > 0 THEN SLEEPCENUMAINTMESSJ¢"0)3 41311100 
END LINKUP$ 41311200 
PROCEDURE CHECKJOBORFILEMESS(MIX»sFIBeU)3 41312000 
VALUE MIXeFIBeUS REAL MIXeFIB0US 41312100 
BEGIN 41312200 
REAL KEYsFNUM; 41312300 

IF NOT JARCMIX02},03t1] THEN 41312400 

BEGIN 41312500 
VARCMIXe 2] ,0C3t4] 8% 13 41312600 

KEY s*® GETSPACE(5¢7305)+423 41312700 

MEKEY 72 £8 0 & MIX£2084395]3 41312900 
MCKEY#1) 8% JARCMIX#51,(6918)3 41313000 


MUKEY4+2) 
MCKEY4+3] 
MUKEY4+4) 


ts JAR(MIXs5J3 
te JAREMIXe0]3 
ge JAREMIXe1J3 


LINKUPCL2°KEY)3 


END} 
1F FIB#O THEN IF NOT MEFIB)eC681) THEN 
BEGIN 

MEFIBIJ,COt1) te 43 


FNUM $* MEMECFIBJ INX 43,01381113 
KEY 8% GETSPACE(5s7305)+23 


MEKEY J 


MCKEY+1) 
MUCKEY+#+2) 
MUKEY4#3) 
MUKEY4+4) 


$x 0 & MIX£2084335] 

& CCFNUM BIV ETRUNG) 41)£933989]3 
9m JAROIMIX05),(6818613 
#= MCCFNUMS® PRTICMI]Xe3) JINX FNUM)+3)3 
i= MEFNUM]3 
te MEFNUM+1]3 


LINKUPCI30KEY)3 
ENDSEND CHECKJOBORFILEMESS3 
PROCEDURE LOGOUTMAINT(B)3 VALUE 63 REAL B3 
BEGIN 
REAL RCW & 403 
REAL FH ® #15 T1 & 422 T2 @ +39 T3 & +40 SAVENTRY & 453 
REAL MFID * #66 FID # +73 BOOLEAN FORKED = +63 
INTEGER LASTL = +99 SEGNO # +10 SEGSIZ = +1149 LDATE © 4123 
LABEL CS#SCANsNEWLOGe BUILDMESSeEXI To FINI SHUP? 
SUBROUTINE FIXCOLDHDR3 
BEGIN 
MEFH INX O}3s @00005000360006013 
MCFH INX 4]58 CXCLOCK+PCRTR)) & LOATEL6230318]3 
STREAMCDATE sXtRFH JINX 3)3 
BEGIN SI$#LOC DATFEF3 DSte8 OCT$ DILtFXs DSte2 LIT +43 
Sleexs Slt2zSi1453 O0Ste3 CHR} 
END3 
$ SET OMIT & NOTCSHAREDISK) 
STREAMCSYS33SYSNOeDS=CMEFH INX 4)))3 
BEGIN 
SKIP 9DOBs DSt=SET$ SKIP 2DB3 SYSCSKIP DB)} DS&BSET3 
END3 
MCFH INX 4),£4531]8=203 %& TURN OFF COLD*START BIT 
$ POP OMIT 
$ SET OMIT 3 SHAREDISK 
MCFH INX 4)t= 0 &@ 72(6984187])3 & SYSTEM DATA FILE 
$ POP OMIT 
 MEFH INX 7]88 CLOGSIZEx6)"1) 
END FIXCOLDHOR! 
PCOeDeOe0e Or 0e0r0r0r0r0e0)3 
IF FORKED#® B#0 THEN &% INDEPENDENT RUNNER 
BEGIN IF MROW > O THEN SLEEPCECMROW)]+°0)3 
MROW &@ ABS(MROW)3 
LASTL %:= LOGENTRY?3 
LOGENTRY stm O3 
END ELSE LASTL38ABS(B9"23 
 FIDt® "MNTLOG * 
$ SET OMIT = NOTCSHAREDISK) 
& CSYSN0417)£4234236) 
& POP OMIT 


; 
STREAMCDATEsCiRELDATE))3 BEGIN SIt*L0C DATES DSt=8 OCTS ENDS 
wT LERSPACEC335)5 
IF CFHESDIRECTORYSEARCHCMFIDI®™MAINT "eT32e"L0G ? 


41313100 
41313200 
41313300 
41313400 
41313500 
41313600 
41313700 
41313600 
41313900 
41314000 
41314200 
41314300 
41314400 
41314500 
41314600 
41314700 
41314800 
41314900 
41316000 
41316100 
41316200 
41316300 
44316400 
41316410 
41316500 
41316505 
41316510 
41316515 
41316520 
41316525 
41316530 
41316535 
41316540 
41316545 
41316550 
41316555 
41316560 
41316565 
41316567 
41316570 
41316575 
41316580 
41316585 
41316590 
41316595 
41317100 
41317200 
41317300 
41317400 
41317500 
41317600 
41317700 
41317710 
41317719 
41317720 
41317721 
41317730 
41317780 
41317790 
41317800 


$ SET OMIT = NOTCSHAREDISK) 
& CSYSNO417)624:4236) 
$ POP OMIT 
#5))80 THEN 
BEGIN 
FHS *SPACE(30)3 
MOVE C30eFH™19FH)3 
MECFHS 9]te 23 
MCFH*#LO0]6= GETUSERDISKC@CMCFH+8)32LOGSIZE8#1000))3 
CS FIXCOLDHDRS 
IF FHyfFFJ#0 THEN FNTERUSERFILEC*MFIDe T3e¢FH™ 1) 
ELSE DOJSKWAITCFH INX O+300FH,(CFFI)3 
FID%= 33 
MROWS@® MCFH INX 1073 
GO BUILDMESS; 
END? 
LOGSIZEt= MEFH INX 6]3 
IF MCFH INX 4),£4581] THEN FORKEDt®FORKED OR 23 & JUST COLD STARTED 
IF B20 THEN 
BEGIN 
$ SET OMIT & NOTCSHARFDISK) 
STREAMCSYSi#SYSNOsDISCMCFH JINX 4)])3 
BEGIN SKIP 9DBS DStseSETS SKIP 2083 SYSCSKIP DB)3 DStsSET3 
END3 
MEFH INX 4),04581)8203 % TURN OFF COLD*START BIT 
$ POP OMJT 
$ SET OMIT & SHAREDISK 
MEFH INX 4)3@ 0 & 72£9841387]3 % SYSTEM DATA FILE 
$ POP OMIT 
DISKWAITC™Ti»s5eMROWSSMCFH INX 10))3 
MLOG#!= SEGNOt® MET12.024215)3 
SCANs IF MLOG2LOGSIZE*1 THEN 
BEGIN 
IF ¢FORKED AND 2)#0 THEN GO CS3 
IF MLOG#SEGNO THEN DISKWAITC(*T1°5eMROW)3 
MCTil#= PCDUPeLOD) & 1f2t4711])3 
DISKWAITCT1Is5eMROW)3 
MLOG&=S IF SEGNO<LOGSIZE"1 THEN SEGNO ELSE LOGSIZE*23 
GO NEWLOG3 
END! 
DISKWATTC*™T1e30eMROW+(MLOGISMLOG+1))3 
IF MCT1]7# NOT O THEN GO SCAN} 
MLOGt=s MLOG"13 
LOGENTRY3* MCT1¢1),(CFI3 LASTL3S= MET141),0FF]3 
If (T3t*LOGHOLDER INX 0) # O THEN 
WHILE T3#0 DO 
BEGIN 
IF MECT3)<O THEN MET3),CFF I= LOGENTRYSSLOGENTRY+14 
ELSE MCT341),(625314]8& LOGENTRYS=LOGENTRY +13 
T3ta MCT3)] INX 03 
END3 
IF LASTL#0 THEN 
BEGIN 
DISKWAITC*™TLe30>MROW+(SEGNOSBLASTL DIV 30))3 
T3298 CMCTIFCSEGSIZSSLASTL MOD 302),0£39t9]41)x53 
IF T3>5 THEN IF LASTL#T3 > (T2teCMLOG41)x30) THEN 
BEGIN 
MCTLI+SEGSIZJ te PCDUPPLOD) & 1284784) & 
_ _ CCT2PLASTL) DIV 5 "19£3983919)3 
DISKWAITCT1+¢30»MROW4+SEGNO)3 


41317900 
41318000 
41318001 
41318100 
41318200 
41318210 
41318220 
41318230 
41318240 
41318250 
41318360 
41318370 
41318380 
41318400 
41318500 
41318600 
41318610 
41318620 
41318630 
41318640 
41318649 
41318650 
41318669 
41318670 
41318671 
41318672 
41318679 
41318680 
41318681 
41318740 
41318760 
41318780 
41318800 
41318810 
41318820 
41318840 
41318860 
41318880 
41318900 
41318920 
41318940 
41318960 
41318980 
41319000 
41319020 
41319040 
41319060 
41319080 
41319100 
41319120 
41319140 
41319160 
41319180 
41319200 
41319220 
41319240 
41319260 
41319280 
44319300 
41319320 


ENDSENDS 
END3 
MECT{ J ¢* 5 & 622334236] & 
(MLOG +(MDELTA#¥0))(24833815) & LASTLE9:333315)3 
MET1L¢1] +% LDATE & CXCLOCK+PC(RTRII03224224)3 
METi+2] &:® PATCHLEVELS 
MCTi43] 3: LOGVERSIONS 
MCT144] 35 DATE 
DISKWAITCT1+5eMROW)3 
IF B>0 THEN & CALLED FROM INITIALIZE 
BEGIN 
IF CFORKED AND 2)40 THEN FIXCOLDHDR3 
DISKWAITCFH INX Os 30eFH, CFFID3 
GO FINISHUP? 
END3 


NEWLOG! 


IF HOLDOFREE#0 THEN SLEEPCETOGLEJ*HOLDMASK)3; 
LOCKTOGCHOLDMASK )3 
DISKWAITC*™Tie"30eDIRECTORYTOP*SYSNO)3 
SEGNOS# (MCT14#22],(38810] +1) MOD 1000; 
MET14¢22)]3@ PCOUPsLOD) & SEGNOL38338210)3 
DISKWAITCT1*e*30eDIRECTORYTOP™SYSNO)3 
UNLOCKTOGCHOLDMASK)3 

STREAMCAL@(ACTDATE] »B&t=SEGNOsCte(MFIDI])3 
BEGIN 


SrtsAs StbeS]e2} Dread 41s DSItz4 CHRS SrteLOc Bs DSt=3 DEC} 


ENDS 
IF DIRECTORYSEARCHC@MFIOeFIDeS) # 0 THEN GO NEWLOGS 
MEFH JINX 3)88% PCDUP/LOD) & LDATELI2:308168)3 % ACCESSED 
MOVECLO®FH INX OrT1)3 
MEFH INX 1L]s® (XCLOCK#PCRTR)) & LDATEL6830318)3 
MEFH INX 3]3 = PCDUPeLOD) & LDATEC30330318)3 % CREATION 
MCTL4 4)" 0 & 1£984731]3 % TYPE DATA 
MCTIi+ 7ls" (CT2t% (MLOG+OMDELTA#0)4+2))x6 "13 
MET1* BJs T2103 ® TO SIMPLIFY DUMPING 
METi+ 9)a% 23 
MCT1#10]2% OF MOVEC2OSC METI +10} Je CMC T1411I)))3 
IF CMET14#10)1=& GETUSERDISK(=T2"10 OR M)) = O THEN 
BEGIN 
STREAMCASE{MFID] sCtal3s=SPACE(5))3 
BEGIN 
DSt#18 LIT**NO USER DISK FOR "$3 SI2EAS SLIsSled3 
DSt#7 CHRS DOSteLIT"/"3 SiseSt4ls DOSte7 CHR? DSSSLitte; 
END} 
SPOUTCT3)3 
MCTi4i0J28 GETUSERDISK(C"T2°10)3 
END} 
T3303 SEGNOSFM(T1410]3 
DO BEGIN 
 DISKWAITC#T1°312300eMROW4T3)3 
DISKWAITCT143123000eSEGNO+T3)3 
END UNTIL (T338T3410) GEQ T23 
ENTERUSERFILEC*MFIDeFIOeT191)3 
DISKWAITCFH JINX 0+300FH,CFFI)3 


BUILDMESS$ 


MLOG§= MDELTA%= 03 

MCT Jis 5 & 62(334236]3 

MET1i¢ £383 LOATE & CXCLOCK4+PCRTRII(3124324)3 
MUT1¢ 2288 PATCHLEVELS! 

MCT1¢ 3383 LOGVERSIONS 


41319340 
41319360 
41319600 
41319700 
41319900 
41320000 
41320100 
41320200 
41320220 
41320240 
41320250 
41320255 
41320260 
41320270 
41320280 
41320300 
41320310 
41320320 
41320330 
41320340 
41320345 
41320350 
41320355 
41320360 
41320370 
41320380 
41320390 
41320400 
41320410 
41320420 
41320430 
41320440 
41320450 
41320460 
41320470 
41320480 
41320490 
41320500 
41320550 
41320600 
41320700 
41320800 
41320900 
41321000 
41321100 
41321200 
41321300 
41321350 
41321400 
41321450 
41321500 
41321550 
41321600 
41321650 
41321700 
44321750 
41321800 
41321900 
41322000 
41322100 


MECTi+ 4)3= DATES 

MET14¢30]35 NOT OF 

MCT1431)83 NUMAINTMESS+41003 

DISKWAITCT1*32sMROW)3 

STREAMCALFCMFIDJ¢TOGI=MFIOR"MAINT “eMSEMROWOBtaT1 3 
BEGIN 
DSt#29 LIT"#NEW MAINTENANGE LOG FILE JS "3 SIteAs SIssSiets 
DSt®7 CHRs DSHFLIT"/"§S STteSy4is DSH27 CHR DSHeLIT%+"3 


TOGCDT8eD mis OSted LIT” AT ™$ STIBLOC MS DStwB DEC? OSseLl[T%e"3 


D@LssDI"93 OSta7? FILLI3 
END} 
EXITS 

SPOUTC(T1)3 

IF B>0 THEN 

BEGIN 
T1it® GETSPACEC159#9*5)+423 

FINISHUPS 

MOVE C13e9BeT1+2)3 
MCT1 dts 23 
MCTL41)] t= LDATES 
LINKUPC15eT1)3 

END ELSE 


IF (TIPSPCAMAINTLOGARRAY*LOD) INX 0)#0 THEN MOVEC3L*TI™2eT1"1)3 


T1 $8 FH INX O% 
SPOUTMCP("(T144))3 
STREAMCKTRtsT1449)3 
BEGIN SItsKTR3 
4AC52C1F SC#*e" THEN SI$#S]41 ELSE JUMP OUT 2 TO LL))3 
LL! KTRteSIs 
ENDS 
NTiss P JINX O3 
MCTIJ$= CNTA*T1) DIV 53 
MCTi¢t]ss LOATE3 
$ SET OMIT w NOTCSHAREDISK) 
DISKWAITC#CT2taSPACECAVS) ) *AVSeUSERDISKBOTTOM)S 
STREAMCAS3T2¢14 oNSSNEUP,NEUF eDieT1+3)3 
$ POP OMIT 
$ SET OMIT * SHAREDISK 
STREAMCASSCAVTABLELL J JeNteNEUP,NEUF eD8eT1+3)3 
$ POP OMIT 
BEGIN SIs#LOC Ns DSteWwDSs DI senl 6s Slseas SLteS] 443 
NCIF SB THEN DS8sSET ELSE DStsRESETS SI9#S14+8)3 
END} 
$ SET OMIT = NOTCSHAREDISK) 
FORGETSPACECT2)3 
$ POP OMIT 
MCT142] # MCPBASES 
LINKUP(160T1)3 


IF FORKED THEN BEGIN MROWSSNABSC(MROW)S KILLCEB) INX NOT 1)8% ENDS 


END LOGOUTMAINT3 
PROCEDURE MAINTLOGGER(B)3 VALUE BS REAL B3 

BEGIN 
REAL RCW & +403 
ARRAY MLA ® MAINTLOGARRAY([*J3 
REAL KLUDGE = 410 KEY = +20 TRANS = #30 RECS = #45 WT = +53 
REAL WMCP = +69 WLOG = +7 WD = +85 A = 499 LASTENTRY = +103 
REAL Ti = #110 T2 © 41420 U & 4133 
REAL LOCN® WLOGs NUM#® WD3 
PABEL LOGANOTHER®ARECYCLEsKILLL3 
P6000002020200 0000 0e0r00000)3 


41322200 
41322300 
41322400 
41322450 
41322500 
41322600 
41322700 
41322800 
41322820 
41322840 
41322900 
41323000 
41323100 
41323110 
41323120 
41323130 
41323140 
41323150 
41323160 
41323170 
41323180 
41323190 
41323300 
41323400 
41323500 
41323600 
41323700 
41323800 
41323900 
41324000 
41324100 
41324200 
41324300 
41324400 
41324500 
41324600 
41324601 
41324700 
41324800 
41324801 
41324900 
41325000 
41325100 
41325200 
41325300 
41325301 
41325400 
41325500 
41325600 
41325700 
41327000 
41327100 
41327200 
41327300 
41327400 
41327500 
41327600 
41327700 
41327800 
41328000 


IF MROW > O THEN SLEEPCEMROW]5°0)3 
MROW ¢2 ABSCMRQW)3 
IF CAT3PC,MLA®LOD) INX 0) 2 O THEN 
BEGIN 
MLA 4% CMC CASSGETSPACE(332905)43)))] & 3206138110)! 
MOVE C32 °A*%22A"1)93 
MLAC30) %# NOT O3 
IF MOELTA#0 THEN DISKWAITC*As30eMRUW4MLOG41 D3 
END3 
LOGANOTHER! 
IF MCLOCNI®LOGHOLDER INX OJ < O THEN 
BEGIN 
MOVE C4sLOCNe fC TRANSJ)$ KLUDGE t& TRANS JINX Q$ 
KEY ¢3 "0 & TRANS(£26220813] & CTRANSsL251344)(324216) & 
TRANS(914929] & TRANS(£182:18:2)] & TRANS(£2014:5)]3 
TRANS!#® TRANSACTIONDCULSTRANS, £C2t2) +1638 (XCLOCK4PCRTRII(3124824)3 
LOGHOLDER.CCF) s:= LOCN $2 [C[KLUDGE] INX O} 
IF KLUDGE#O0 THEN LOGHOLDER,CFFJ #8 LOCN3 
END$ 
NUM £8 (MELOCN#1],0393:9]+1) x 53 
IF CLASTENTRY##(MLOG+1)x304MDELTA) + NUM > C(CLOGSIZE*1)x30 THEN 
BEGIN 
IF MODELTA#0 THEN 
BEGIN MLAC3L1}]°SLOGENTRYS DISKWAITCA+32eMROW4MLOG41)3 ENDS 
LOGOUTMAINTC™CMELOCN41]7,0C255194)+1))3 
LOGENTRY t2 O$ T1 3 LOCN3 
WHILE Ti # O DO 
BEGIN 
IF MET17<O THEN METI) e CFF) 3&3 LOGENTRYIS SLOGENTRY 41 
ELSE MET141),025214] &$s LOGENTRYIFELOGENTRY413 
Ti te MET1] INX 03 
END3 
LASTENTRY i 303 
ENO} 
RECYCLES 
IF (Tit=30"MDELTA) > NUM THEN 
BEGIN 
MOVE CNUM*®LOCN+1e CMLALCMDELTAIJ))3 
MDELTA §* MDELTA + NUM3 
END ELSE 
BEGIN 


41328200 
41328300 
41328400 
41328500 
41328600 
41328700 
41328800 
41328900 
41329000 
41329100 
41329200 
41329300 
41329400 
41329500 
41329600 
41329700 
41329800 
41329900 
41330000 
41330100 
41330200 
41330300 
41330400 
41330500 
41330600 
41330700 
41330800 
41330900 
41331000 
41331100 
41331200 
41331300 
41331400 
41331500 
41331600 
41331700 
41331600 
41331900 
41332000 
41332100 
41332200 


MOVECTI®LOCN+#4 eC MLACMDELTAJJ)3 MLAL3L)3SLOGENTRY & LASTENTRYCCTFJ3 41332300 


DISKWAITCA® 32»MROW+(MLOGESMLOG41))3 41332400 
LOCN t# LOCN + T13 41332500 
NUM ts NUM = T13 41332600 
MDELTA 8% OF MOVEC310A "20 A *1)5 41332700 
IF NUM # 0 THEN GO RECYCLES 41332800 
ENDS 41332900 
NUMAINTMESSS@NUMAINTMESS © 13 41332950 
IF CTitaMET2¢eLOGHOLDER INX 1)) < 0 THEN B SPOUT MESSAGE FOR RE™41333000 


IF €T1,.£316) AND @76) = 4 THEN 


® COVERED DISK/DRUM ERR41333002 


BEGIN STREAMCASSTINUCUJ» RIBRECS CLG) XseKEY.C2085)5 SsmWT,£2%16)041333005 


BImCRECS)» DSKteTy, Cottle DisTLI=SPACE(10))3 

BEGIN SI#sLOC as SIswS1453 DStaLIT"™ "3 pSt#3 CHR3 

DNSt#3 DEC? AMSDIS DI tsDI73s DStw2 FILLE DI twas 

DStei4 LIT" RETRIESs MIXS"3 

DSt#2 DEC AteDIs DI seDl"23 DSteFILbs OAs 

S1t#Bs OSte5 LIT%s DAw™s CIYBCl+DSKS GO TO DRM 

SyteSpets OSte7 CHR OSSe7 LIT"s SEGSH™} 

STt#LOC Ss; DSts2 DEC; SITtSBs SIs#S14+163 GO TO Ls 


41333010 
41333015 
41333020 
41333025 
41333030 
41333033 
41333036 
41333037 


DRM: STsteSle3i3 5CDS8B3 RESETS 41333039 
3CIF SB THEN DSt#SET ELSE OSseRESETS SKIP SB))3 SIlaeSle23 41333042 
Ls DSieG LIT"s RM] 41333045 
16(DS3#3 RESET! 41333048 
3CIF SB THEN DStwSET ELSE DSt3RESET? SKIP SB))3 41333050 
STs8S]"53 pSs85 LIT» poss 41333055 
IF SB THEN DSte2 LIT*4e"%3 SKIP SB3 41333060 
IF SB THEN OSts2 LIT"3e"F SKIP SBE 41333065 
IF SB THEN OSt#2 LIT"2s"5 SKIP SB3 41333070 
IF SB THEN DSt#2 LIT*15%3 41333075 
DIssDI"1s DSseLITe*; 41333080 7 
END3 41333085 
SPOUTERCT1*PSEUDOMIXEKEY sf 2085) 3) +DISKMSG OR 34)3 41333090 
END} 41333095 
IF CTitaMCLOGHOLDER] INX 0) #® O THEN 41333100 
BEGIN 41333200 
IF MOELTA # 0 THEN 41333300 (00 
BEGIN 41333400 
MLAC31) t= LOGENTRY & LASTENTRYCCTFI3 41333500 
DISKWAITCAe 32eMROW+MLOG 4123 41333600 
END! 41333700 
RECS t# 5 & 62£3142:16) & MLOGE24133315] & LASTENTRYL9133:15)3 41333600 
WT. 7 0 & CXCLOCKS#PCRTRIIE3824124)3 41333900 
WMCP 2 PATCHLEVELS 41334000 
WLOG 2% LOGVERSION3 41334100 
WD = DATE 41334200 
DISKWAITCLRECS J] INX OrS*MROW)3 41334300 
T4 t= MCLOGHOLDER] INX O3 41334400 
END) 41334500 
IF MET2) LSS O THEN MCET2)],.0231] t= 4 ELSE FORGETSPACECT2)3 441334600 
IF T1 # 0 THEN BEGIN LOGHOLDER,(CCFJt*®T1: GO LOGANOTHER? END} 41334700 
KILLS 41334800 
LOGHOLDER,CCF) t= O03 MROW t= NABSC(MROW)3 44334900 
IF LOGHOLDER,(9!9J=0 THEN BEGIN FORGETSPACECA 71)3 MLAS#03 END 41335000 
KILLCCB) INX NOT 1)3 41335100 
END MAINTLOGGER3} 41335200 
PROCEDURE MESSAGETABLEBUILDER3 41430000 
BEGIN. 41430100 _ 
INTEGER Telietl2esTBLe TBLCNT) 41430300 
DEFINE MARKER & “eeeeeee#3 41430400 
LABEL Le START} 41430500 
GO TO START: PC,L)3 41430600 
Lees 41430700 
Z¥ee BEGINNING OF OPTION RESERVED WORD TABLE **#eeKe Rede Ke RR EE EHSL 30800 tera oe 
"DRAO"s "0000", B47% 41430900 
"DRBO"» "0000". %462% 41431000 
"BOO" >» "O000Ts R453 41431100 ennai naaut) Raccetta niceties 4 Meas od sed 2 tnd 
WEQUO">» "0000s 442 41431200 
"OPEN" >» "0000" 443% 41431300 
"TERM" » "NATE" 4428 41431400 : - eos 
"DATE. "0000". BA 41431500 
"TIME". "0000", %40% 41431600 
"NOT >» "USED"> 439% 41431700 
WAUTO™, "PRAT" >» 4362 41431800 
“NOT , "USED">» $37% 41431900 
"NOT , "USED"™.s 436% 41432100 
"CMPL®, "FILE. %35% 41432500 
"CLOS"s "EQOO",s %34% 41432600 
SERROMs "RMSG"s %33% 41432700 Sate a nce cee eRe a Mad ele ee 
"RETO™» "0000". 2322 41432800 ae ee a 


$ SET OMIT = NOTCOEBUGGING OR CHECKLINK) 
$ SET OMIT = DEBUGGING OR CHECKLINK 


"LIBM".e 
"SCHE:s 
"SECM, 
*"DSKT", 
"RELTe 
"PBDR">. 


"CHEC™s 
Or 


$ RESET OMIT 


Ruan 
Xue 


"DISK". 
"DISK". 
"LIBE™s 
"PBDO"»s 
WSAVE™s 
WRSMS", 
"AUTO", 
"RNAL™e 
“CODE. 
“NOT "a 
WDATA. 
"HALT". 
PREMOMs 
"CEME a 
"BATC%» 
"NOBA">» 
“STOP. 
"PNCH™ >. 
WCDONs 
WPKTON, 
"SEPA" >» 
MAUTO™, 
WARDV™. 
AUTOM. 
*OPTN >» 
*eO00%. 
MARKER» 


END OF OPTION RESERVED WORD TABLE 


"SGO0O">s 4314 
"DOMSG"s £202 
"SG00", 329% 
"OG00", %28% 
"OG00O", 3272 
WELOO™.s 4263 
"KOO00", 4258 

Qs 425% 
"MSGO"s 324% 
"LOGO".s 4232 
"RROO"s E225 
YNLYO"s 21% 
"PBTOs 3208 
*GQ00", €19% 
PUNLD™>s 162 
"L000", 4173 
MOLAY". 446% 
"USED">s 415% 
MOLAY.s 414% 
"0000", %13% 
"TEQO, 212% 
"SS00", 211% 
"HZIP™s 210% 
*TCHO> B 9% 
"TEST", % 6% 
LOCK,» % 7% 
WLYOO"s % 6% 
"NLYO"s % 52 
“RATE+ % 4s 
“CEOO*, 2 3% 
MARK "eo % 22 
“MESS, % 1% 
"0000". % OZ 
"O000">» STP 


41432900 
41433000 
41433100 
41433200 
41433300 
41433400 
41433500 
41433600 
41433800 
41433900 
41434000 
41434100 
41434200 
41434300 
41434400 
41434500 
41434600 
41434700 
41434600 
41434900 
41435000 
41435100 
41435200 
41435300 
41435400 
41435500 
41435600 
41435700 
41435600 
41435900 
41436000 
41436100 
41436200 
41436300 
41436400 
41436500 
41436600 
41436700 


BORO IO ORO ROR Ook 0441436800 


BEGINNING OF TERMINAL MESSAGE TABLE «44480 ee dee Re EE OER 1440000 


a 
"BSTACK "s 
"8OPRTR "e 
"BFLAG Bs 
"BINVALD"s 
"BEXPON "> 
"BINTGR "e 
"BDIV BY", 
"BEXCESS"» 
"BINVALD"s 
"BUNEXP , 
"BMISSIN'» 


"3 FILEO".s 


WBFILE UN". 
*1p00000", 
"BINVALI"e 
"BINVALI"? 
"BMEMORY"s 


~"1YQ0000"+ | 


"BOPRTR "» 


"GOVRELW"s 
"SDS"EDONs 
"21TOO00"s 
"6 INDEX"e 
"6OVRFLWs 
“6OVRFELW% 8 
"5 ZEROO"s 
"5 TIMEO™s 
"6 ADRSS"» 
"610 ERR", 
"8G DISK", 

Oe 
"BNOPENE', 


"30 EQJ0"s 
"50 PRLO". 
"B PARITe 


"BSES"ED, se 


% 0% 


41440100 
41440200 
41440300 
41440400 
41440500 
41440600 
41440700 
41440800 
41440900 
41441000 
41441100 
41441200 
41441300 
41441400 
41441500 
41441600 
41441700 
41441600 
41441900 
41442000 


Lawn 
Laer 


"BINVALD" >» 
"8 SIZE “er 
"BINVALD"™>» 
"6 DATUM". 
"BTYPE Me 
"6H READ» 
“BOUT OF", 
WBNON@CO"? 
"BL ARRA™>s 
"BNON@SQ"> 
WSATRIX."e 
"ONEARLY"» 
WBLAR MA» 
"BUSER D's 
WBINVALD es 
"BIC DIAM 
WBTANK O"%% 
0» 
PBPARITY™s 
"“BDIMENS"s 
"6ZE ERR» 
"BINVALD'» 
MA4NAME 4,2 
"BINVALD"s 
"5 EXIT, %s 
"BOUT OF"» 
"BEXCESS" >» 
M2MEeaen? 
“BINVALD"s 
“6D TAPE» 
WBTIMELI"» 
"8CEEDED":» 
Os 
MARKER«s 


"8B ARRAY» 
"S31ONae.”s 
"B INPUT» 


"BISMATC"™.s 
"USTMT 9 gle 
"5S DATA,"s 
"BNFORMA"™ >» 
M2YSeeaa™? 
"BUARE MMe 


"6 SINGUMs 
WATRIXe ee 
WAS™ED se 
"B DYNAM» 
“Lhesene”s 


"OVRFLOW» 


"6 ERROR", 
“BION SI.» 


"BS FILE "s 
"8 BLOCK"s 


"GU MEM," 
"BS 10 Ti". 


"B LINKE™. 


WBMIT EX» 


"4 peenene 


BSTP 


41442100 
41442200 
41442300 
41442400 
41442500 
41442600 
41442700 
41442800 
41442900 
41443000 
41443100 
41443200 
41443300 
41443400 
41443500 
41443600 
41443700 
41443800 
41443900 
41444000 
41444100 
41444200 
41444300 
41444400 
41444500 
41444600 
41444700 
41444800 
41444900 
41445000 
41445100 
41445200 
41449700 
41449800 


END OF TERMINAL MESSAGE TABLE #8 #8 eR ROR Re coed ee 41449900 
BEGINNING OF KEYIN MESSAGE TABLE #88 eee eRe RE RO eR KES 1 A5 0000 


COMMENT 


KEYIN MESSAGE TABLE ENTRIES * 


EACH TABLE WORD 
{ 616 ] = = MIX OR INFO COPE = 


(12812) = 
(2416 ] # 


on 
w 
& 
= 
ray 
Hw 


(364832) = 


W2AX0101%e 
"21L0102%e 
"2ULOL103%s 
"10710204" 


IS CONFIGURED AS FOLLOWS? 


0 * [NFO MESSAGE ONLY 
1 * MIX OR INFO MESSAGE 


2 * MIX MESSAGE ONLY 


TWO LETTER KEYBOARD MESSAGE 
- KEYIN PROCEDURE TO BE CALLED = 


Ne be NY OC 


= PROCEDURE KEYINO (€ DIRECT CALL ) 

= PROCEDURE KEYINi ¢€ DIRECT CALL ) 

= PROCEDURE KEYIN2 € INDEPENDENT RUNNER ) 

FOR ALLOWABLE STANDARD RJE REQUESTS 

MIXCODE (€ FOR MIX MESSAGES ) * 

* JOB SHOULD BE WAITING FOR THIS INPUT 

s JOB SHOULD BE RUNNINGe BUT NOT NECESSARILY 
WAITING 


3 = JOB NEED NOT BE RUNNING 
LABEL NUMBER € SWITCH LOCATION IN PROCEDURE ) 
END OF COMMENT? 


BAXS 
BILLS 
RULS 
RQTS 


SPO INPUT TO JOB 
INPUT LABEL 
UNKNOWN LABEL 
QUIT PROCESSING 


41450100 
41450200 
41450300 
41450400 
41450500 
41450600 
41450700 
41450800 
41450900 
41451000 
41451100 
41451200 
41451300 
41451400 
41451500 
41451600 
41451700 
41451800 
41451900 
41452000 
41452100 
41452200 
41452300 
41452400 


"20U0105"s 
"TWYO1L06">2 
"ORYOOO7", 
"2D80208", 
"25p0209", 
*"0ORS0010", 
"0$80011"%> 


"1IpPO212%> 
"1IDP7212"%» 


SET OMIT = NOT DEBUGGING 


"0DD0013"s 
"ODBO014"» 


SET OMIT & DEBUGGING 


"ODD7013"%>» 
"ODB7014"» 


RESET OMIT 


"2ST0215"%» 
"OCMO016"» 
"OMFOOL7T™s 
"OSVOO1LB"s 
"OCLOOL9"» 
"1BK0320">» 
"2OKO121%>s 
"2FM0122" 5 
"2FROL23%0 
"20FQ124"%. 
"2IFOS25%» 
WLea7 Pua, 
"0DT1001"%>» 
"OWD1002"6 
"OTRIOO3%s 
POWT10O04%>» 
"OTF1005">» 
"OSE1006">» 
"OWM1LO07"s 
"0CX1008"%» 
"OCE1009". 
"OCC1010">» 
WPOOLIO11%» 
"OPBLOL2%» 
"OBS1013"%>» 
"OUS1OL 4s 
"OSC1O15"» 
"ORNLO16"%> 
"OLDIOIL7%. 
"ORD1I018"%» 


SET OMIT * NOT PACKETS 


"ORPIO1B"» 


SET OMIT = PACKETS 


"ORPTO1B">» 


RESET OMIT 


MOEDLO19" 


SET OMIT = NOT STATISTICS 


"OST1020%. 


“SET OMIT & STATISTICS 


"OS17020"%, 


SET OMIT = NOT AUXMEM 
"OLALO21™>, 


BOUS 
BWYS 
BRY2 
BDS% 
ESDZ 
BRSE 
BSS% 


SDP 


SET OMIT & DUMP OR DEBUGGING 


BDPS 


2002 
SDBS 


BDD% 
BOBS 


aSTS 
SCM 
SMFS 
SSV2 
BCLS 
SBKS 
BOKE 
BFMS 
SFR 
ZOFS 
SIFFS 
Ruud 
£072 
BWDS 
TRE 
BWTd 
STFS 
ESFR 
BWMS 
ECX%S 
ZCES 
BCC% 
Z0L% 
SPB 
2BS% 
BUSS 
%8C% 
ZRNZ 
40% 
SRDZ 


BRPS 
ERPS 
BEDS 
S13 


251% 


OUTPUT UNIT 

LIST REASON FOR WAJT 

READY UNIT OR LINE 

TERMINATE JOB 

TERMINATE WITHOUT REMOVING DECK 
SEND SPO MSG TO ASSIGNED STATIONS 
STATION TO STATION MESSAGE 


SET OMIT = NOTCDUMP OR DEBUGGING) 


MEMORY DUMP 
MEMORY DUMP 


DISK DUMP 
DISKBUG 


DISK DUMP 
DISKBUG 


STOP EXECUTION 

CHANGE MCP 

SET UP TO MOVE FENCE AT NEXT H/L 
SAVE UNIT OR SCHEDULE LINE 

CLEAR UNIT OR LINE 

BREAK FOR SPO 

PERMIT PROCESSING TO CONTINUE 
FORMS OK 

FINAL REEL CCOBOL) 


OPTIONAL FILE*COBOLs OK FILE*LIBMAIN 


IGNORE IN@USE FILE 

END OF FIRST KEYIN PROCEDURE CALLS 
ENTER CURRENT DATE 
PRINT CURRENT DATE 
TIME RESET 

PRINT CURRENT TIME 
PRINT CORE FACTOR 

SET CORE FACTOR 
PRINT CURRENT MCP NAME 
SPQ INPUT TO CANDE 
STARTS CANDE 


41452500 
41452600 
414452700 
41452600 
41452900 
41453000 
41453100 
41453200 
41453300 
81453400 
41453500 
41453600 
41453700 
41453800 
41453900 
41454000 
41454100 
41454200 
41454300 
41454400 
41454500 
41454600 
41454700 
41454800 
41454900 
41455000 
41455100 
41455200 
41455300 
41459900 
41460000 
41460100 
41460200 
41460300 
41460400 
41460500 
41460600 
41460700 
41460800 


CONTROL CARD (SEE 16037780 FOR Q@MARK) 41460900 


PRINT OUTPUT LABEL OF UNIT 
START PRINTER BACK UP 

SET BACK UP SPO 

RESET BACK UP SPO 

TYPE SPO CONSOLES 

SET PSEUDO READERS 

START LOAD CONTROL 

REMOVE PSEUDO DECK 


REMOVE PACKET 

REMOVE PACKET 

ELIMINATE PSEUDO DECK 

SET STATISTICS INTERVAL TIMER 
SET STATISTICS INTERVAL TIMER 


SLAB LIST AUXMEM FILES 


41461000 
41461100 
41461200 
41461300 
41461400 
41461500 
41461600 
41461700 
41461600 
41461900 
41462000 
41462100 
41462200 
41462300 
41462400 
41462500 
41462600 
41462700 
41462600 
41462900 


CHANGE AUXMEM FILES 


BLAS LIST AUXMEM FILES 


CHANGE AUXMEM FILES 
DISK SQUASH 


CREATE SEPTIC TANK 
HALT SEPTIC TANK 


CREATE SEPTIC TANK 
HALT SEPTIC TANK 


END OF SECOND KEYIN PROCEDURES 
LIST JOBS CURRENTLY RUNNING 
RESET OPTION BIT 

SET OPTION BIT 

TYPE OUT SCHEDULE CNAMES IN SHEET] 
CHANGE PRIORITY IN SCHEDULE 
ELIMINATE JOB FROM SCHEDULE 
EXECUTE JOB FROM SCHEDULE 
PRINT TIME USED BY JOB 

CHANGE PRIORITY OF JOB 

LIST FILES FOR USER 

LIST FILES FOR CREATOR 

LIST FILES SECURITY 

LIST FILES EXPIRED 

DIRECTORY SEARCH FOR FILES 
PRINT VALUE OF PRT CELL 

ENTER VALUE IN PRT CELL 

KEYBRD INTERRUPT FOR ONLINE MAINT, 
TYPE OPTION 

PRINT SPECIFIC OPTION 

PURGE A TAPE 


PRINT AUXMEM IN USE 
SET OR RESET SYSTEM MONITOR 
PRINT AUXMEM IN USE 
SET OR RESET SYSTEM MONITOR 


INITIATE LOGGING ROUTINE 
PRINT PSEUDO DECKS ON DISK 


PRINT PACKETS ON DISK 
PRINT PACKETS ON DISK 


ENTER COMMENTS INTO MAINT,LOG 
PRINT SYSTEM CORE USAGE 


CREATE NEW STATISTICS FILE 
CREATE NEW STATISTICS FILE 


ENTER OPERATOR COMMENT IN LOG 
REWIND TAPE 


"0OCA1022">» CAS 
SET OMIT =& AUXMEM 
WOLA7O21% 5 
“OCATO22"» SCAS 
RESET OMIT 
"0501023", %SQ% 
SET OMIT = NOT SEPTICTANK 
"O0CS1024"> Z2CS% 
"0HS1025", BHS3 
SET OMIT #® SEPTICTANK 
"OCS7024"%>» BCSS 
"OHSTO25">» BHSS 
RESET OM]T 
"Lak7 7 aut, Sunk 
WOMX2001"> EMXZ 
"0RO2002", EROS 
"0802003", %SO0% 
"1TS2304", 4TS% 
"2P$2305"s SPSS 
"1ES2306">+ BESS 
"IXS2307">» BXSS 
"2T]2208"%> Se 
"2PR2209%. BPRE 
“WOLF2Z010"%>» SLES 
"OLC2011">» SLCZ 
“OLS2012%- SLS& 
"OEX2013%. BEX 
"OPD2014", SPOS 
"20T2215"% BOTS 
"2IN2Z216%.e BING 
“21T2217">» BITS 
"OTO2Z018"» ETO 
"OPO2019">s EPOS 
"OPG2020"» BPGZ 
SET OMIT » NOT AUXMEM 
"LAUC621%>» BAUS 
SET OMIT = NOTCAUXMEM OR MONITOR) 
“OMS2022" 5 BMS% 
SET OMIT = AUXMEM 
"LAU7T321% 5 BAUS 
SET OMIT =& AUXMEM OR MONITOR 
“OMS7?022%e EMSZ 
RESET OMIT 
WOLNZ023"¢ SLNZ 
"O0CD2024"— %CO% 
SET OMIT & NOT PACKETS 
"OPP2024">, ZPPZ 
SET OMIT @ PACKETS 
“OPP7024%, ZPP% 
RESET OMIT 
"OFE2025",5 FER 
"1CU2226"%.5 ZCUS 
SET OMIT # NOT STATISTICS 
"OSY2027">» ZSYS 
SET OMJT # STATISTICS 
—MOSY7T027"%,5 ESYS 
RESET OMIT 
"1002228", Z0CZ 
PORW2029", BRWS 
"0C12030"%s BCS 


CHANGE INTRINSICS 


41463000 
41463100 
41463200 
41463300 
41463400 
41463500 
41463600 
41463700 
41463800 
41463900 
41464000 
41464100 
41464200 
41469900 
41470000 
41470100 
41470200 
41470300 
441470400 
41470500 
41470600 
41470700 
41470800 
41470900 
41471000 
41471100 
41471200 
41471300 
41471400 
41471500 
41471600 
41471700 
41471800 
41471900 
41472000 
41472100 
41472110 
41472200 
41472300 
41472400 
41472410 
41472500 
41472600 
41472700 
41472800 
44472900 
41473000 
41473100 
41473200 
41473300 
41473400 
41473500 
41473600 
41473700 
41473800 
41473900 
41474000 
41474100 
41474200 
41474300 


$ SET OMIT = NOT PACKETS 


$ SET OMIT = PACKETS 


£ R 


Sune 
awe 


$ P 


"1SM2231%>5 
"2CT2232"5 
W2XT2233"%>5 
M2TL2234%. 
WIWUZ235" 
"0XD2036">» 
“OMR2037% 
"QW12038">» 
*OMC2039"> 


"OPC2040", 


WOPC7TO40O%>s 
ESET OMIT 
"OHD2041">» 
"W2SA2242", 
"1¢¢0000"s 
MARKER» 


4SM% 
aCTS 
EXTR 
BTLZ 
BWUE 
BXDS 
BMRS 
BWIS 
BMC% 


BPCE 
BPC 
BHDS 


SAB 
heed 


START MIX MESSAGES 

CHANGE TIME LIMITS FOR JOB 

EXTEND TIME LIMITS FOR J0B 

PRINT 10 AND PROCESSOR TIME LIMITS 
TYPE USERS [D*S OF LINES IN MIX 
CREATE BADISK AREA 

RESERVE DISK FOR NO USER DISK 
PRINT CURRENT INTRINSIC NAME 

MAKE COMPILER FILE , 


PACKET COUNT 
PACKET COUNT 
HOW MUCH CAVAILABLE) DISK 


SEG & REL ADDR OF RUNNING PROG 
END OF TABLE 


41474400 
41474500 
41474600 
41474700 
41474800 
41474900 
41475000 
41475100 
41475200 
41475300 
41475400 
41475500 
41475600 
41475700 
41475800 
41475900 
41479700 
41479800 


END OF KEYIN MESSAGE TABLE *% 483300: o RR ROG ee 41479900 
BEGINNING OF CC RESERVED WORD TABLE ¥44 kee eRe ERR e414 80000 


PUNLOGCK - 22 2 
"USE "» 23 » 
"LOCK ", 24» 
"FREE ", 25 » 
"PUBLIC "» 26 8 
“PACKET "» 27 8 
"USER ", 28 1 
"RUN "> 29 8 
"R Mar) 29 8 
"COMPILE" 30 » 
"¢ " 30 1 
WEXECUTE™%s 31 8 
"EX ", 31 a 
“DUMP ", 32 «6 
"UNLOAD "oe 33 » 
"ADD ", 34 »* 
"LOAD "> 35 
"REMOVE ">e 36 » 
“CHANGE “e 37 4 
"UNIT "» 38 a 
“PACKEND >» 39 1 
WEND ", 39 » 
$ SET OMIT = NOT PACKETS 
"WAIT wt, 40 » 
OP OMIT 
"DATA ", 41» 
"LABEL "es 42 » 
"SET ", 43. 
"RESET "se 4a » 
"FILE “a 47 » 
WEXPIRED"s 4B a 
WACCESSD"» 49 1 
"PROCESS"» 50 » 
"10 ", 51» 
"PRIORIT">» 52 o 
“COMMON "ep 53 a 
"CORE Wy 54s 
"STACK "es 55 » 
"SAVE "s 56s 
"WALGOL "te 60 » 


& SWITCH TYPECCONTROLCARD)& 


b 4 "RUN" ” *LABEL" 


% A STORE NEAR THE END OF PCC 
% MAKES USE OF THE ORDER AND VALUES 


% OF 


"PROCESS" THRU "SAVE", 


41480100 
41480200 
41480300 
41480400 
41480500 
41480700 
41480900 
41481000 
41481100 
41481200 
41481300 
41481400 
41481500 
41481600 
41481700 
41481800 
41481900 
41482000 
41482100 
41482200 
41482400 
41482600 
41482700 
41482800 
41482900 
41483000 
41483100 
41483200 
41483300 
41483400 
41483500 
41483600 
41483700 
41483800 
41483900 
41484000 
41484100 
41484200 
41484300 
41484400 


"XALGOL "> 61 6 41484500 
"FORTRAN" >» 62 1 41484600 
“TSPOL “> 63 » 41484700 
“BASIC es 64 1 41484800 
"COBOL6B"r 65 + 41484900 
"WITH t, 66 » 41485000 
"COBOL “ys 67 » 41485100 
"LIBRARY? 6B 1 41485200 
"SYNTAX "a 69 41485300 
"FROM ", 70 2 41485400 
"TO "» 774i 1 41485500 
*FORM W 78 1 %® SWITCH OCPCC) 41485600 
"NO tt, 79 9 2 "FORM**"SPECTAL” 41485700 
"DISK ", 80 » 41485800 
TAPE ", B1 » 41485900 
"PUNCH ‘pe 82 e 41486000 
“PRINT oe 83 41486100 
"BACK " 85 6 41486200 
"SPECIAL™» 89 » 441486300 
41486400 

“SERIAL "oe B86 » 41486500 
"UPDATE >» 87 » 41486600 
"SPO ", 8B » 41486700 
“PAPER >» B84 41486600 
"EU ", 94 41486900 
"SLOW ", 92 » 41487000 
"B6500 %, 93 6 41487100 
"FAST , 94 - 41487200 
"COPY ", 95 + 41487300 
"MAXIMUM" » 96 » 41487400 
“FREEF “oe 97 » 41487500 
"FIXED "oe 9B a 41487600 
“SENSITIN® 100 41487650 
“PROTECT >» 99 » 41487700 
"LATEST "e 101 » 41487900 
"CC "> 14 2» % CC MUST EQUAL QUEST & 41488900 
Os 0 » 41489000 

MARKER. 41489100 


Sees END OF CC RESERVED WORD TABLE ## oe Ree EO OR REE eK ABI 200 


Zeux BEGINNING OF LBMESS MESSAGE TABLE *#*# ee eee EEE EE EE EEK EE 41490000 
We ", £0 41490100 me 4 
“LOADED “ote ", % 4 41490200 
"DUMPED "e%« ", & 3 41490300 
"CHANGED" ee” «© "., £5 41490400 _ re ; 7 
"REMOVED™e” « ", & 7 41490500 
WMCPED #%) % 9 41490600 
"FIXED #", % 10 41490700 7 _ 2 ? 
“RESET #"s & 11 41490800 
"SET «©  &% 12 41490900 
MACCESSE*s "De , 2 13 41491000 
WNOT ON "e"DISKe , & 15 41494100 
"NOT ON "e"TAPE® %, & 17 41491200 
NOT EXE*e*CUTABLE%»®” CODE* "2 % 49 41491300 
"NOT A C™e"OMPILER", te ", % 22 41491400 
“SYSTEM "o"MFILE® %. & 25 41491500 
"TAPE PA*e"RITY*# "pp % 27 41491600 
"DUP FIL "Ee ", & 29 41491700 
WNO USER” DISKe ". 8 34 41494800 
WUNEXPED"e” EQFe i". & 33 441491900 inate eee ra Gen 
"DISK PA™e"RITY*® ", % 35 41492000 


"BAD NAM. "E«@ ", 2 37 
"INV REC™2” SIZE* “se & 39 
"INVALID'e”™ USERe es 3 41 
"BAD HEA" a "DERe ", ¥ 43 


WIN USEe™s & 45 
"INEXECU"*S "TABLE Ie "PC CODE™%e” FILE® "e & 46 
PAUTO@ZI"s"PPEDe "s % 50 
"CHANGED"e” TO + ", & 52 
MMCPED Te" © ", % 54 
"EXTRA R™e"ECORDS#"%s & 56 
eee en ". % 58 TAKE UP SOME SPACE 
"SENSITI] "eo "VEe ", % 60 
"BEING B™e"LANKEDe"s & 62 
"NOT LAT@e"EST VER» *STON© %, & 64 
MARKER! 

eee END OF LBMESS MESSAGE TABLE 6 cai ti a iki IO ROR OO 


41492100 
41492200 
41492300 
41492400 
41492500 
41492600 
41492700 
41493010 
41493020 
41493030 
41493040 
41493050 
41493060 
41493078 
41493100 
41493200 


Sees END OF RESERVED WORD AND MESSAGE TABLES ¥¥ eee eee e kee eR REE KE KER 41500000 


START? 
TBLES12seM(PC, MESSAGETABLEBUILNER) J,CCFI+23 


WHILE MCTBL&=TBLeL)#MARKER DOs % SEARCH FOR END OF OPTION TBLE 


TissTRL3 TRLIRTBLei) 
FOR 11"2 STEP 1 UNTIL MESSAGETABLESIZE DO 
WHILE MCTBLY*TBL41)] # MARKER 00} 
Teeyisvt23 LLseCTBbe2d°1 43 
STREAMCA23] DIV 60-Bt=C132(] MOD 60))»Ct211 DIV 60° 
OrFCTL¢V=CL4 MOD 60) )eEs=12)3 
BEGIN 
STewEs DISsEs 
AC60(S]teSl443 DSte4 CHR) 
BCSTteSi4+43 OSted4 CHR) 
c(pSt#60 WOS)$3 
OCDSt#WDS)3 
END} 
TBLEBt2s 
FOR TBLCNT##0 STEP 1 UNTIL CMESSAGETABLESIZE71) DO 
BEGIN 
WHILE MCTBLS®TBL4+1)#MARKER DOF IssTBL123 


MESSAGETABLECTBLCNTIISGETUSERDISK( C1429) DIV 30)83(6838110)5 


DISKWAITC12e I eMESSAGETABLELTBLCNT],£22826])3 
1283TBLIsTBLe13 
ENDS 
END BUILDING TABLES} 
ene ENTERSYSFILECN)S VALUE N3 REAL NG 


BEGIN 
REAL AeJeWCeMFIDeDISKS 
ARRAY DDDE*#]3 
LABEL RETURN@EXIT3 


IF N®i THEN 
BEGIN 
MFID ¢8 "LIBMAIN'3S J t= 13 
END ELSE 
IF N®2 THEN 
BEGIN 
MFID += “"LOCNTRL"3 
END ELSE 
IF Nw®3 THEN 
BEGIN | 
MFID $3 "PRNPBT "3 


41500100 
41500200 
41500300 
41500400 
41500500 
41500600 
41500700 
41500800 
41500900 
41501000 
41501100 
41501200 
41501300 
41501400 
415301500 
44501600 
41501700 
41501600 
41501900 
41502000 
41502100 
41502300 
41502400 
41502500 
41502600 
41600000 
41600100 
41600200 
41600300 
41600400 
41600500 
41600600 
41600700 
41600800 
41600900 
41601000 
41601100 
41601200 
41601300 
41601400 
41601500 
41601600 
41601700 


END ELSE 
GO EXITS 


DISK 33 "DISK "3 
IF CA8SDITRECTORYSEARCHCMFIDeDISK25)) # O THEN 
BEGIN 
MCA INX 2] 82 MCPS 
MCA INX 5] $® MEA INX 6) t= 014; 
DISKWAITCA,(I CFI e300A,0FF))3 
GO RETURN: 
END3 
DOD && (MCA 8 SPACECWC 22 181+30KJ)))8WC083 382 10)3 
MOVECWNCOA™L AP ADE 
STREAMCDATE*DSSAt3)3 
BEGIN 
St:#LOcC DATES DSt#8 OCT3 
DL#30s DSt=2 LIT +83 
SlteDs SissSte45s OSt23 CHR3 
ENDS 
DDDC O23 t= @36000360001013 
DDODE 1) t® CXCLOCKs+PCRTR) &p0Nl3I16%30318)3 
DODC 2] 38 MCP; 
DDDE 4],£9:2] ts 3; 
DODE $) 3:* DDOL6I = e143 
DDOEC 7] 88 AeJ3 
DOOC 9) 3% 43 
DODC10) t& PETUSERDISKCCDDDC8) 2% S+J)81(204781)0193 
DDOC31] $= 3% U3 
DDOL32] &*® DDDL38) 32 23 
DOD(33) t# 4eJ3 
DDDL34)] 8= 223 
PODC35] t= 2eJed3 
DDD[36] ts 63 
DOOL37)] &% JF J THEN @f ELSE 13 
DDDC47] 8% NDDL48) &= 3777777777773 
DODLC49] ¢% IF J THEN CSHEETMAX) DIV 2 ELSE 03 
DD0(51) t= IF J THEN 64 ELSE 43 
DOO(S2) +2 IF J THEN 200 ELSE 1503 
DOOL61) te #@0000012600001011 
&CIF J THEN 35 ELSE IF Ne2 THEN 23 ELSE 19)9£24:338110)3 
O000(62) te #©0024101100000000) 
DODC122"30xJ)] 35 ©00002200002000013 
DODL169"30xJ)] :® FLAG(@2740010000100000)3 
IF NOT J THEN 
STREAMCCEPNe2e DFC DNDE91II93 
BEGIN 
CrewCleCs GO 43 
0S:240 LIT 
"OL2CONTROLDECK 
GO 23 
Lit 089840 LIT 
"OL2ZPRINTERBACK®UPLAO2ZZ0000000PRINTER1IB00"3 


TIME LMT 
PRIORITY 
CORE EST 
STACKSIZ 


Be DE BE Be 


LAO2Z2BACK"UPOF DECK1B00"3 


L2s 
END} 
ENTERUSERFILECMFID®DISKeA@1)3 
DISKWAITCAS31¢WC"31eNDDL10))3 

RETURNS 
FORGETSPACECA)3 

EXITt 

END ENTERSYSFILES 


41601800 
41601900 
41602000 
41602100 
41602200 
41602300 
41602400 
41602500 
41602600 
41602700 
41602800 
41602900 
41603000 
41603100 
41603200 
41603300 
41603400 
41603500 
41603600 
41603700 
41603600 
41603900 
41604000 
41604100 
41604200 
41604300 
41604400 
41604500 
41604600 
41604700 
41604800 
41604900 
41605000 
41605100 
41605200 
41605300 
41605400 
41605500 
41605600 
41605700 
41605600 
41605900 
41606000 
41606100 
41606200 
41606300 
41606400 
41606500 
41606600 
41606700 
41606600 
41606900 
41607000 
41607100 
41607200 
41607300 
41607400 
441607500 
41607600 
41607700 


COMMENT ARTN RETURNS ALL STORAGE FOR AN N®DIMENSITONAL ARRAY AL% 


PROCEDURE ARTNCAaN)3 VALUE AeNS ARRAY AL*]3 


BEGIN INTEGER 13% 


ARRAY LO¢ Be ¢2[%]} 
INTEGER INDEX = NT1e 
WORD #& NT2» 
COUNT © NT3e 
DRUM # NTs 
Xx ze NT53 
LABEL LB 
WAITSTORECPIMIX)3 


INTEGER N38 


IF AsC18$15]#0 THEN AeMCA,(18815)]3 
IF N>4 THEN DO ARTNCACEJ*N@1) UNTIL Cle] 41)2A,S5I)2ZE3 
X t= N#C"1)3 ON 
IF A,»PBIT THEN 
BEGIN Ie#MUCN@1L),CFFI3 
IF X THEN FORGETSPACE(N)} 
END ELSE [eN? 
GTR 511 THEN 
BEGIN COMMENT “DIJSKRTN®™ ROUTINE CALLED HERE ¢og3 


IF I 
$ SET OMIT = NOTCAUXMEM 


) 


IF £43383) © 7 THEN 
BEGIN COMMENT AUXILIARY MEMORY RETURN AND COUNTER DECREMENTS3 


te A [NX 03 


ts ePCDUPI"A.[836I)°13 


FORGETAUXTLIARYSPACECA,SIZE®1)3 PCXIT)S 


AUXDATACPIMIX]) 
END} 
$ POP OMIT 
Les 
END END 


REAL MOTHERS ARRAY DESCEL*I34% 


PCDALOCEPIM]Xe*))3 


COUNT 


X 


t= CINDEX 


LOCto) 


t@ O8104183326) 2913 
IF CWORD %# LOCLINDEX)] .£16830)"COUNT)=0 THEN 
BEGIN LOCCINDEX) 
IF PCLOCCOJ¢CFFJeDUP)#0 THEN 
IF LOCCPOLISH™1]<0 THEN PCXIT)3 
t= C*¥PCDUP)I&INDEXCCTF]5 
END ELSE BEGIN 
LOECINDEX) #® C#PCDUP) )&WORDL18218830); 
IF CWORD DIV COUNT) .£4286]#0 THEN 
IF LOCEXJ<O THEN GO TO U3 
END ARTNE 
COMMENT ASR IS THE ALGOL STORAGE RETURN COMMUNICATES 
PROCEDURE ASRS BEGIN INTEGER ITeBCNTR3 ARRAY AITEC*I$ REAL TEMP3% 
LABEL L3% 


t= 0) 


® TWOC24"6xC1.03999) DIV 100))3 


WHILE CAIT#PRICPIMIX#ATTNDOXJ),PBIT#O DO’ 
MAKEPRESENTCCPRICPIMIX*ALTNDXI] INX O)5% 
MEMORYCAIT INX NOT 1],C281)6133 
L#SATTCOJ+13 
IF CBCNTRSSPRICPIMIX*+CURBLKCNTRJ) LE@® O THEN 
BEGIN TERMINATECPIMIX)3 
TERMINALMESSAGE(76)3 


ENDS 


WHILE CTEMP#AITCI*1°12) eBLACNTRABCNTRS 
DO BEGIN DESC*MEMORYCMOTHER*TEMP e¢MOM)3% 
IF TEMP,Ci82)#1 THEN % CHECK FOR FAULT ENTRY 


IF TEMP,FILEBIT THENS 


IF TEMP,£33815)82 THEN BEGINS 
FILECLOSECCMOTHER*+3&8(COESCE4I4L 


(16:33315 


2 
] 


342)*2)O12) 
} 


42473000 
42474000 
42475000 
42475100 
42475200 
42475300 
42475400 
42475500 
42475600 
42475700 
42476000 
42476100 
42477000 
42478000 
42478200 
424768400 
42478600 
42478800 
42479000 
42479100 
42479109 
42479110 
42479120 
42479130 
42479140 
42479150 
42479151 
42479200 
42479300 
42479400 
42479500 
42479600 
42480300 
42480400 
42480500 
42480600 
42480700 
42480800 
42480850 
42480900 
42481000 
42482000 
42483000 
42484000 
42465000 
42486000 
42487000 
42488000 
42486100 
42488200 
42488300 
42486400 
42489000 
42490000 
42490100 
42491000 
42492000 
42493000 
42494000 
42495000 


GO TO L END ELSES 
BEGIN FILECLOSECCDESC INX 5)8 
CCMEDESCL2) INX 4),(2582)2%2)x@12) 
£16%33:815])3 
FORGETSPACECDESC INX 09732 
END ELSE ARTNCDESC®TEMPeDIMENSIONS) 32 
MEMORYE MOTHER] «03% 
Lt 
END 33 
AIT(O]¢133% 
PRTCPIMIX*CURBLKCNTRI*BCNTR? 13% 
IF 1>0 THEN DOSSWIPE OUT BAD LABELS IN FAULT CELLS 
IF AITCLI.€C132)21 THEN 
IF MCAITEIVMOMJ eBLACNTR2BCNTR THEN 
MCAITCI]MOMIJ*+O UNTIL Cle]"1)503 
MEMORYCAIT INX NOT 1),0291)+032 
END ASR#& 
SAVE REAL PROCEDURE COREND3 FORWARD? 
PROCEDURE INTERRUPTCTYPE)3 VALUE TYPES REAL TYPE3 
BEGIN LABEL FLAGBI Ts INVALIDINDEX»EXPUNDERFLOWsDIVIDEBYZEROS 
LABEL XYT3 
SWITCH SWeFLAGBIT»INVALIDINDEX se EXPUNDERFLOW*sDIVIDEBYZEROS 
ARRAY TOPm#5(*)} 
REAL FLAGTESTER®*33 
REAL MOMsSIZEeALOce 13 
REAL RCWE+1eRCWLE+2s,SAVITH4+4; NAME Az4e33 
REAL R¥4)eSRe2nVue33 
r 4 
BOOLEAN SUBROUTINE DOUBLEPRECISIONS 
BEGIN ReMCESePRTIEPIMIXe8}] INX OJ BIRCW 
STREAMCRe(R INX O)SREIOMLOS2) oVeLVI)3 BGET OP CODE 
BEGIN SIR} SJ#Sl"23 DO] *+DJ+63 OS*2 CHR ENDS 
DOUBLEPRECISION®Y,(C45831]253 
END} 
CHECKSTACKSPACES® ZWF 
GO TO SWETYPE)3 


% 

FLAGBIT? 
SAVIT#*TOP; 
NTI*ANALYSIS3 
IF SYLLABLE ,£4137)]#4@35 THEN 
IF SYLLABLE sf45!3)#0 THEN 
BEGIN ERRORFIXERC16)3 TERMINATECPIMIX)$ TERMINALMESSAGE(5) ENDS 
A*PRTICPIMIX*4)]3 
RCW « MCRCWL © PRICPIMIX*®8] [NX NOT CCSYLLABLE=@235)42))3% 
IF RCOW,£3341) THEN ® TYPE 13 INTRNSC 
BEGIN 
1303 
YeCl),(CFI3 
I *FLAGCC@2520000000000000) AC RCEW.L34814))CCTC))3 
MAKEPRESENTCY)3 
MERCWLI*FLAGCRCOWRCMERCWeCFFIJINX CNFLAGC I 2),CCFIDECTCI) 
GO TO INITIATES 
END ELSE 
IF NOT PRICPUMIXeALCRCW),(82103),0281) THEN? 
MAKEPRESENTCPRTROWECPIMIX) INX ALRCWJ,68310))3% 
MCORCWLI*FLAGCRCOWECMERCW,C189157) INX ACRCOW),016915)9£33833815))3 
GO TO INITIATES 


& 
INVALIDINDEXS 


42496000 
42497000 
42498000 
42499000 
42500000 
42501000 
42502000 
42503000 
42504000 
42505000 
42506000 
42506100 
42506200 
42506300 
42506400 
42507000 
42508000 
42509000 
42510000 
42511000 
42511500 
42512000 
42513000 
42513500 
42514000 
42515000 
42516000 
42517000 
42517010 
42517020 
42517030 
42517040 
42517050 
42517060 
42517100 
42518000 
42519000 
42520000 
42521000 
42522000 
42523000 
42524000 
42524100 
42524200 
42525000 
42525100 
42525110 
42525115 
42525120 
42525130 
42525140 
42525150 
42525160 
42525170 
42525500 
42526000 
42527000 
42528000 
42529000 
42530000 


FOR [¢6 STEP 5 UNTIL 121 DO 
It TOP, CLISBSISI=ECMOMeCPRICPIMIX21I1e033815]) THEN 
IF CSIZE*MCMOM),(£08210])<1023 THEN 
BEGIN IF M(€MOM),C281)#0 THEN MAKEPRESENT(MOM)3 
MECALOCeMEMOM),(33815)])"2),(2tilet3 
IF MCALOC@19,0FF]4#0 THEN ARTNCMEMOMJe =1)3 
MCMOMJeFLAGCO&MOM(L18233215) 
&CIF SYIZE<512 THEN 2xSIZE ELSE 1023)(8838310))3 
IF TYPE «© PCFLAGTESTERe TOP*eXCHeDEL) THEN MAKEPRESENT(C MOM) 
ELSE 
MAKEPRESENTCANALYSIS)3 
MOVECSIZE®ALOC»M[E MOM) )}3 
FORGETSPACECALOC)3 
IF TYPE THEN GO XYT3 
GO TO INITIATES 
END3 
: -ERRORFIXERC4)3 TERMINATECPIMIX)3 TERMINALMESSAGE(C7)3 
EXPUNDERFLOWS 
IF DOUBLEPRECISION THEN M(S™3]+03 
MCS"2)«03 
IF JARCPIM[Xe2],0321]) ANDCPRTICPIMIXs@51) AND @20)#0 THEN 
PRTICPIMIXe@51J+PC(DUP*®LOD) OR 63 
. GO TO INITIATE3 
DIVIDEBYZERO?: 
IF CPCJARCPUMI X22] 2DUF)20 AND NOTCPCXCH).£3981] AND 
PRTICPIMIXs@51),04431])) THEN 
BEGIN ERRORFIXERC8)3 TERMINATECPIMIX)$ TERMINALMESSAGE(13) END 
ELSE IF JARECPIMIXe2] < O THEN IF PRICPIMIXe11),0FF] = O THEN 
PRTICPIMIXs1iJ¢1 ELSE PRICPIMIX»sPRICPIMIXe1l1)-C¢F FJ J «1 
ELSE 
BEGIN PRTCPIMIX*e@51]¢PC(DUP*LOD) OR 13 
IF DOUBLEPRECISION THEN ME£S"3)«03 
MES"2]603 
END3 
GO TO INITIATES 
XYTt 
BND INTERRUPTS 
$ SET OMIT © NOTCSTATISTICS) 
PROCEDURE FILUSYSTAT3 
BEGIN 
REAL RCWS40 9 X19X20X39X43 
X21SDTRECTORYSEARCH( "SYSTEM " 
$ SET OMIT = NOTCSHAREDISK) OR OMIT 
&CSYSN0417)064234216) 
$ POP OMIT 
e "STATS p43 
IF COUNTARRAY(28) NEQ DATE THEN 
BEGIN 
NISKWAITC™CXLteSPACEC30) )o*30,0)3 
COUNTARRAY( 28] 4DATES 
MCX1454¢SYSNO] 8203 ; 
DISKWAITCX10"3020)3 
FORGETSPACE(X1)3 
END ELSE 
BEGIN 
DISKWAITC*COUNTARRAY se (CFI e60eSYSTATBASE)3 
COUNTARRAY(L29]8eXCLOCKS 
X4seCMEX2 INX 1LOJ4CMOEX2 INX 7]x2))3 


42531000 
42532000 
42533000 
42534000 
42535000 
42535500 
42536000 
42537000 
42537050 
42537060 
42538000 
42539000 
42539050 
42539060 
42539100 
42539200 
42540000 
42541000 
42542000 
42546000 
42547000 
42547100 
42547200 
42548000 
42549000 
42550000 
42550500 
42550600 
42551000 
42551090 
42551100 
42551110 
42551200 
42551300 
42551400 
42551500 
42552000 
42553000 
42554000 
42599999 
42600000 
42600100 
42600200 
42600300 
42600309 
42600310 
42600311 
42600320 
42600700 
42600800 
42600850 
42600900 
42600910 
42600920 
42600930 
42601000 
42601100 
42601140 
42601200 
42601300 


DISKWAITCCOUNTARRAY, (CCF J)0619X4)3 
MEX2 INX 7]te*P COUP) +13 
COUNTARRAY( 29) 8@XCLOCK+INTERVAL3 
END} 
DISKWAITCX2,£CFJ0300X2.0FF))3 
IF MEX2 {NX 7)399 THEN SAVESTATISTICS3 
FOR X3%=0 STEP 1 UNTIL 27 DO COUNTARRAY[X3] 8203 
FOR X3ts30 STEP 1 UNTIL 59 DO COUNTARRAY[X31]4%203 
COUNTARRAYL47) 3 8XCLOCK3 
FORGETSPACE(X2)3 
FORGE TSPACECDIRECTORYSEARCH("SYSTEM * 
$ SET OMIT # NOTCSHAREDISK) OR OMIT 
RCSYSN0417)( 4284236) 
$ POP OMIT 
e"STATS “e14))3 
KILLCERCW] INX NOT 293 
END OF FILLSYSTAT3 
PROCEDURE SAVESTATISTICS3 
BEGIN 
REAL ROCW24+0eXeX1eX2eX33 
REAL NAMEIT3 
LABEL XOUT*GOTNAMEs 
XPeDIRECTORYSEARCH("SYSTEM ® 
$ SET OMIT = NOTCSHAREDISK) OR OMIT 
&(CSYSNO417)(42842136) 
$ POP OMIT 
e"STATS "09493 
MOVEC30eX, {CEJ eX3teSPACE(30))3 
DISKWAITC™CX28@SPACE(C30))9*3000)3 
IF COUNTARRAYE 28] #DATE THEN MU(X2454SYSNO] (CCF I]&2=X1420 ELSE 
X193M(X245+SYSNO],(CFI3 
WHILE (X1%=X141) < 100 DO 
BEGIN 
STREAMCASSCNAMEI TJ) sBseLDATE Je CheX1)3 
BEGIN 
St!|sbLOC C3 DItZAS DI ted] +13 DSt*=2 DEC} 
DSte2LIT"ON"$ StseBs STtzS]+53 OS8e3 CHR} 
ENDS 
IF DIRECTORYSEARCHC*NAMEITo"SYSTEM * 
$ SET OMIT * NOTCSHAREDISK) OR OMIT 


&CSYSNO4+17)04284216) 
$ POP OMIT 
»5)*0 THEN GO GOTNAMES 
END} 
STREAMCXLImX19@SPACEC10))3 
BEGIN 


OSte37LIT"# STATISTICS SYSTEM FILE NOT CREATED "3 
DSts24urT*" MAX FILE NO, EXCEEDEDe"$ 
END3 
MUX24¢5+SYSNOJ,CCFI8#O% DISKWAITC(X2073000)3 
SPOUTCX1)3 GO XOUT3 
GOTNAMES 
IF CMEX3+10] §8GETUSERDISKC"™200 OR M))"0O THEN 
BEGIN 
STREAMCAS#EINAMEITTI»Bia(SYSNO417)9C 83X13 8SPACE(5))3 
BEGIN 
SIt@As OSte17LIT*"NO USER DISK FOR "3 
STUsSl+13 OS887 BHR} DSte? LIT"/SYSTEM"? 
_._$ SET OMIT * NOTCSHAREDISK) OR OMIT 
SIs#*LOC Bs SIs#S14+73 DSts CHR} 


42601600 
42601700 
42601750 
42601800 
42601610 
42601860 
42601900 
42602000 
42602050 
42602100 
42602110 
42602119 
42602120 
42602121 
42602130 
42602200 
42602300 
42700000 
42701000 
42702000 
42703000 
42704000 
42710000 
42710099 
42710100 
42710101 
42710200 
42710300 
42711000 
42711500 
42712000 
42712500 
42713000 
42713100 
42713200 
42713300 
42713400 
42713450 
42713500 
42713549 
42713550 
42713551 
42713600 
42713650 
42713700 
42713758 
427136800 
42713650 
42713900 
42713950 
42714000 
42714050 
42714100 
42716000 
42717000 
42718000 
42719000 
42720000 
42720099 
42720100 


$ 


$ 


§ 


POP OMIT 
DSteLIT%e" 
END! 
SPOUTCX1)3 
GO TO XOUT3 
END3 
SYSTATBASESSM(X3410)3 
MEX245¢+¢SYSNO),CCFISX13 
STREAMCAESELDATEJ + Bs=X INX 3eC0850)3 
BEGIN 
SIsFA2 DI sFLOc cs DStkB OCTESI]¢sLOc cS] ssS[4+5}3 
NI25B3 DLtep14+53 DOSt=3 CHR} 
END} 
COUNTARRAY[ 29] §®XCLOCKS 
DISKWAITCCOUNTARRAY CCF] e64e(MLX INX 10}40M0X INX 7)x2))93 
FOR X4920 STEP 1 UNTIL 59 DO COUNTARRAYEX1)3803 
COUNTARRAY( 28) 82=DATES COUNTARRAY( 29] 82XCLOCKF+INTERVAL3 
COUNTARRAY(C47]3=XCLOCKS 
MEX INX 10] ¢8ePCDUP) +423 
MCX INX SB) i seP(DUP)923 
MUX3¢7)9713 
DISKWAITCX20730°0)3 
DISKWAITCX3e# 30eXe( FFI] )3 
ENTERUSERFILEC*NAMEI Te "SYSTEM " 
SET OMIT = NOTCSHAREDISK) OR OM]{T 
RCSYSN0417)(42842:6] 
POP OMIT 
aX JNX OF1)3 
STREAMCAIRELNAMEIL TI +B reCSYSNOF17 2 eCREXLIFSPACE(6) 23 
BEGIN 
DSts21LIT*NEW STATISTICS FILES 3 
SIStAs STteSteis DSts7 CHRS DSIS7 LIT"/SYSTEM"S 
SET OMIT = NOTCSHAREDISK) OR OMIT 
STs+#LOC B32 ST#t=S1+73 DOSt= CHR} 
POP OMIT 
0815 9 LIT ™ CREATEDe"S 
END3 
SPOUTCX1)3 
FORGETSPACECDIRECTORYSEARCHCNAMEIT»s"SYSTEM * 
SET OMIT & NOTCSHAREDISK) OR OMIT 
&RCSYSNO417)14284216) 
POP OMIT 
014))3 


XOUTt 


$ 


$ 


$ 
% 
% 
% 
% 
% 
& 


FORGETSPACE(X)3 
FORGETSPACE(X2)3 
FORGETSPACE(X3)3 
FORGETSPACECDIRECTORYSEARCHC(™SYSTEM "™ 
SET OM]T = NOTCSHAREDISK) OR OMT 
&CSYSNO4+17)(4234236) 
POP OMIT 
e"STATS "e14))3 
END} 
POP OMIT 
THE FORMAT OF DIRECTORY TOPS 
DEOIJFOPTION WORD 
DELI=DATES 
DE2Z]"NUMBER OF ELECTRONIC UNITS% 
DEZJ#HIGHEST ADDRESS OF BACKUP STORAGES 
DESIFHIGHEST ADDRESS OF DIRECTORY 


42720101 
42720200 
42721000 
42721500 
42722000 
42723000 
42723100 
42723500 
42724000 
42725000 
42726000 
42727000 
42728000 
42728050 
42728100 
42728200 
42728300 
42728400 
42728600 
42728700 
42730000 
42731000 
42731100 
42732000 
42732099 
42732100 
42732101 
42732200 
42733100 
42733150 
42733200 
42733300 
42733349 
42733350 
42733351 
42733360 
42733400 
42733500 
42733510 
42733519 
42733520 
42733521 
42733530 
42733550 
42733600 
42736000 
42737000 
42739000 
42739099 
42739100 
42739101 
42739200 
42740000 
42740001 
44000000 
44001000 
44002000 
44003000 
44004000 
44005000 


Be BR BE DE VE DE BE BE DE BT BE BE BE BE BA Ve BL ae 


£ SET OM 
PROCEDUR 
$ POP OM 
SAVE PRO 
BEGIN RE 


REAL 


INTEG 
ARRAY 


DEFIN 
$ SET OM 
REAL 


$ POP OM 
$ SET OM 


LABEL 
$ POP OM 


LABEL 


SUBROUTINE XXXXXX3 BEGIN A#X*XeX*XeXwXeXeKXeXeXOXXeKOX, ENDS 


DESJSLAST NUMBER USED FOR CONTROL DECKS 


DCSJSFIRST CONTROL DECK QUEVED (LOCATION IN DIRECTORY )% 
DE7ISLAST CONTROL DECK QUEVED CLOCATION IN DIRECTORY)% 


D¢S)=NEXT NUMBER AVAILABLE FOR PRINTER BACKUP DISK 
DE9ISCOREs CONTAINS MULTIPROCESSING FACTOR 


DELO] THRU DE15) SPECIFY WHICH DC“STATIONS ARE SPOPLIKE, 


DE16J=QUEUE VALUFS FOR SPO STATIONSC(BATCH MCP) 
DC17] SPECIFIES SPO UNITS FOR BATCH MCP 
DCisJ=TIME OF DAY 

DELPIFLOCATION OF FENCE 

D£20].C8810]"NUMBER OF LAST LOG FILE 


eCi8r30)=NUMBER OF ENTRIES IN LOG CUPDATED BY NSECOND) 


D£213SCHEDWRD 
DE22).038:10]=NUMBER OF CURRENT MAINTENANCE LOG, 


ef28810JSNUMBER OF CURRENT REMOTE LOG CDC MCP), 
0£23] THRU DCL26) SPECIFY WHICH SU*S WERE READY AT THE LAST H/L, 


D£27) 1S RESERVED FOR USE BY THE LOCAL SITE. 

DEC28]=DISK ADDRESS OF DIRECTORYTOP 

IT = NOT STATISTICS 

E INTFINISH3 FORWARD} 

IT 

CEDURE INITIALIZES% 

AL +1 

T+1s 

A+ie 

Tele 

Bile 

C+ie 

we Jed 
LASTL & Wie 
LOATE = LASTL41» 
MEND = LDATE+1» 
INTS ® MEND+1>s 
INTSS & INTS4#i0 
MEMASK # INTSS#13 
T1 = LASTL» 
SHLM & MEND» 
MSTART = INTSe 
Y = Ce 
Zaqti3 

ER XCLICK * XCLOCK3 
DDD * MEMASK+1iC#]> 
X = WE*]J3 


=ZzCOW as pe 


E NUMSTACK = 2#}3 

IT & NOT SHAREDISK 
HOLDER & [pe 
BYPASS @ J3 

IT 

IT = NOTCAUXMEM) 
AUXAGN*sAUXMESSS$ 

IT 


TRYNEXTMOD*RESTARTCYCLE®*NULLINTS 


DEFINE SETUPINITIALBUFFERS & 
J#2220 + 2OXCBIGUNMIN + LMAX DIV 2)3 
Lt=CTISGETSPACE (3420520941243 AND NOT 33 
MOVECJ+2eToT#1)3 Tealeunds 
FOR I*] STEP 20 UNTIL T DO FORGETAREAC291)3 
AREARDY © TRUE#F} 


44006000 
44007000 
44008000 
44008100 
440086200 
44008300 
44008310 
44008320 
44006330 
44006340 
44008350 
44008360 
44008370 
44008380 
44008390 
44006400 
44008410 
44008499 
44008997 
44008998 
44008999 
44009000 
44010000 
44010010 
44010020 
44010030 
44010040 
44010050 
44010060 
44010070 
44010080 
44010090 
44010100 
44010110 
44010120 
44010200 
44010210 
44010220 
44010230 
44010240 
44010400 
44010500 
44010510 
44011000 
44024990 
44025000 
44025100 
44025110 
44025499 
44025500 
44025501 
44026000 
44027000 
44037000 
44040000 
44040500 


%RO744041000 
®RO744042000 


44043000 
44044000 


SUBROUTINE FIXEX3 


BEGIN DISKWAITC*(CREC@CUSeMC1d,08510)))2 Je MELIGEFFI*MCPBASE)3 


MCT J ¢eCeP (DUP) &CECTCI3 
END} 
SUBROUTINE FIX 
BEGIN MCTIJ©+€CMCJ1]8108236210)3 
Je JaTs% 
END} | 
SUBROUTINE FIXFENCES 
BEGIN J]3sT DIV 40963 
WHILE CTWOC7"I) AND MEMASKI#0 AND [ LSS 8 DQ 
TRYNEXTMOD? Tis(Cpsspe1) 40963 
IF T*4096x] # 0 THEN 
IF €TWOC8=1) AND MEMASK)=0 THEN ELSE GO TRYNEXTMODS 


% THIS INSURES THERE IS ROOM FOR TABLES IMMEDIATELY BELOW 
% THE FENCE, CKILL ASSUMES IT HAS A STACK@ STACK IF S>PRT,) 


END} 
MCPBASEt5M(0),(18%30)3 
DIRECTORYTOPseMC1]3 
$ SET OMIT & NOTCSHAREDISK) 
SYSMAX##M(0],01432]3 
SYSNOt#M(0),[16:2]3 
$ POP OMIT 
$ SET OMIT = NOTCDEBUGGING) 
PAUSEVALUEs=03 
$ POP OMIT 
PEULOLSEUTOSS(M(@1339I]82066138210) 3 
LOQUESLOTS32323 
LOQUEAVAIL?=313 
RESTARTCYCLE8! COMMENT RETURN TO HERE TO CHANGE FENCE POSITIONS 
PCOPOPDe De De Oe Oe Oe Oe Oe 0ae0e0)3 
RRRMECH © @1400000003% 
LMAXSSSTAMAXSSMAXLMAX3 
WITCHINGHOUR!&51840003 
WORDOFEASE $2=@25252525252525253 
NOPROCESSTOG ¢ "138 
$ SET OMIT = NOT STATISTICS 
LEFTHALF 1382167772163 
$ POP OMIT 
STREAMCS#182De100)3% 
BEGIN 
SI *« S3 DS «© 411 WOSs D © DI3 
O01 ¢« S3 114008 © 8 LIT "102¢0000" )3 
$9(S] © Sy*#8)3 S © SI3 
DI*Ds DS#2 WOS32 
Die*Ss DS*#16 LIT"042(0000"%2 
END}% 
MSTARTI®PC,, INITIALIZE *LOD) (CF I3 


HOLDERS SDIRECTORYTOP@7°(HOLDMAX4+29) DIV 308 %&% SEE ALSO 40700100 


USERDISKBOTTOMS®HOLDER@DISKAVAILTABLEMAX3 
IF CL#SCUSERDISKBOTTOM"50) DIV SYSMAX) > 247 THEN [t#2475 
ESPDISKBOTTOMI®504(SYSNOx])3 
ESPDISKTOPEwESPDISKBOTTOM+I°73 

FOR I1t30 STEP 1 UNTIL 7 DO 

BEGIN MC4O96xI1Jt@1s OO UNTIL CT#sCOREND) #163 

MEMASK S$ S2xMEMASK4TS 

ENDS 

IF FENCEs(CFI#FENCE OR FENCE LSS 8192 THEN FENCE1#163843 
_TIUBFENCES 

FIXFENCES 


44075000 
44076000 
44077000 
44076000 
44079000 
44080000 
44081000 
44082000 
44082100 


% POINT IT TO AN ON*@LINE M0D44082200 


44082300 
44082400 
44082500 
44082600 
44082700 
44082800 
44082900 
44083000 
44083100 
44083200 
44083300 
44083400 
44083401 
44083500 
44083600 
44083601 
44085100 
44085500 
44085600 
440687000 
44087010 
44088000 
44090000 
44090500 
44091000 
44092000 
44092490 
44092500 
44092510 
44093000 
44094000 
44095000 
44096000 
44097000 
44098000 
44099000 
44100000 
44101000 
44101100 
44101200 
44101300 
44101400 
44101500 
44102000 
44102500 
44103000 
44103500 
44104000 
444105000 
44105500 


FENCE$3T3 44106000 
CHUNKMAXIz(@1O00000"FENCE) DIV CHUNKZIZE3 44107000 
JER CALMFENCE 2 ®@100000"CHUNKMAXXCHUNKZIZE) DIV 4096 "43 44108000 
MEMROWCOJ©(M(0)184(08238210)3 44109000 
MOVE CMIXMAXeMEMROWe [MEMROWL1II)3 44109500 
WHILE CTWOC7T*J) AND MEMASK)40 DO 44110000 
BEGIN JeJm13 AeA"4096 ENDS 44110100 
MEMCAVAILJ©CMEND*A"3)04¢1)¢MEND INX @77777000013 44410200 
MCMEND+2]¢MEND#15 44111000 
MEMEND) © 081(284731) 44112000 
&MSTARTEICTF 5% 44113000 
MCOJeMSTART&MEND(ICTFIJ&8@100001(2332216)3 44114000 
MEMSTARTI]*LASTLeMENDI2 44115000 
M[TLEFTUITI] +03 44116000 
JeoJet3 44117000 
FOR tet STEP 41 UNTIL J DO 44118000 

IF (TWOCT*IIAND MEMASK)¥0 THEN 44119000 
BEGIN C#4096x1J3 44120000 
MEMSTART) CCF IJ¢Bece13 44121000 

DO BEGIN [e]J+#13 C#C+4096 END 44122000 

UNTIL CTWOC7*IL) AND MEMASK)303 44123000 
MEBI©CAMSTARTICTFIRIL 21473173 44124000 
MCCJ*MEND&BICTFI3 44125000 

MCMEND IQ CFFJ¢C3 44125500 
FORGETSPACECMSTART#2)3 44126000 
MSTART#C3 44127000 

ENDs3 44128000 
FORGETSPACECMSTART+2)3 44141000 
44142009 

$ SET OMIT #® NOTCOFX) 44142999 
DISKOUNT*PCRRR) C2981 I]4+PCRRR)eL2881)3 ZDFX44143000 
EUWe@7777777777}3 BDFX44443100 
$ POP OMIT 44143101 
STREAM(S#1006D+18)3% 44144000 

BEGINS 44145000 

St « St DS « 11 WDS3 44146000 

19CDI «© DI+8)3 DS © 2 WDS3 44447000 

END33% 44148000 
ME16)8#@00104131000000003 %D90 UNTIL FALSE 44148100 
TARISEMCMEND?130))8268:38910)3 44148200 
SPACESTACK#MEND™1283 44148500 
INTSSSGETSPACECPC se eCOREND® LOD d—fCF) = 44149000 
PCeeINITIALIZES LOD) LCF J o101)423 44149100 

INTSSSBGETSPACE C2001 201) 423 44149200 

WHILE FALSE DOS% FIX C RELATIVE CONSTANT ERRORS 44150000 

$ SET OMIT * NOTCAUXMEM) 44150009 
A t@ PCRRR),CL31ti)! B be PCRRRI,ZL3081)3 441500140 

$ POP OMIT 441500123 
I © (MIXMAX#1)x6 & PRT» JAR® DATs UVe REPLYe 44150500 

+ CHUNKMAX % CT 44150600 

+ UVSIZE ® UVROW[O) 44150700 

+ PUNTSIZE 44150750 

+ SHEETMAX41 44150600 

+ MESSAGETABLESIZE 44150900 

+ SPACESTACKSIZE 44151000 

+ NUMSTACKXSTANDARDSTACK 44151100 

+ CWEECESPDISKTOP@*ESPDISKBOTTOM447) DIV 48) 44151200 

+ 560 % 3 SPACER 44151300 

% 4 CIDROW 44151310 

% 5 CHANNEL»® CHANIJO 44151320 


Pom ad 


wn" 


SET 


POP 
SET 


POP 


SET. 


PoP 
SET 


POP 
SET 


POP 
SET 


POP 


SET 


POP 
SET 


POP 


SET 


POP 


OMIT 


OMIT 
OMIT 


OMIT 
OMIT 
OMIT 
OMIT 
OMIT 
OMIT 


OMIT 
OMT 


OMIT 


OMIT 


OMIT 
OMIT 


OMIT 


OMIT 


OMIT 


’ 13 UNITCODE 
B 16 PRNTABLE 
% 20 MAINTBUFFER 
B 32 SQ» IOQUE» LOCATQUE» 
a FINALQUEs WAJTQUE?s 
% TRANSACTION 
& 36 LABELTABLE*s® MULTITABLE> 
a ROCTABLE 
% 38 LOGARRAY 
R 648 ISTACK 
% 126 WORKERSTACK 

NOT AUXMEM 

+ 10 + 74x( A+B) & CTABLE 


+ PC(MIXMAX41eDUP s+) B AUXDATA® AUXCODE 


NOT PACKETS 
+ 4 % PSEUDO 


+ PCMIXMAX41 eDUP s+) % PSEUDOMIXs NYLONZIPPER 
NOT SHAREDISK 
* LQ@MAX 
NOT STATISTICS 
+ 94 Z COUNTARRAYs DISK WAIT TIME 
+ MIXMAX44 % SWAP DELAY 
NOT CSAVERESULTS OR DEBUGGING) 
+ RESLTMAX % RESULTHOLDER 
NOT DEBUGGING 
+ 122 &’ DBARRAYs WBe RBe TBLe STOPS 
+ (T « ® FIXEX PROCEDURES 


PC,OLAY*LOD).(8#10) 
PCy eSHORTCOMMUNICATES#L0D) £8810) 
PC eDCIOFINISH*®LOD),£8310) 
PC eNEXTOCIO*LOD),. £8210) 
PC DCWRITE® LOD) .68810) 
+ PC,ENTERLINEQ*L0D).£6210) 
NOT AUXMEM 
+ PC,AUXILIARYSPACE*®LOD),(68#10) 
+ PC, FORGETAUXILIARYSPACE*®LOD),(8:10) 
+ PC,FILLORKILL»+LOD).£8410) 


++ + + 


NOT DEBUGGING 
+ PC,DT+LOD).(6310) 
+ PC,EXPeLOD), £8810) 


)3 
MUECReIteGETSPACE (C100s0)4+T+2)1803 
MOVECT@T@LedeJel 3 
I © MIXMAXe]292 
T @ PCePRT)DS FIXES 
NOTCAUXMEM) 
T © PC,gAUXDATA)DS FIXS 
T © PCsAUXCODE)3 FIX 


¢ PCeJARIS FIXGS 
PCeDAT)S FIXS 
PC,UV)3 FIX3 


4-14 
* 


? 


44151340 
44151350 
44151360 
44151370 
44151380 
44151390 
44151400 
44151410 
44151420 
44151430 
44151440 
44151495 
44151500 
44151520 
44151585 
44151595 
44151600 
44151620 
44151685 
44151695 
44151700 
44151785 
44151795 
44151600 
44151620 
44151885 
44151895 
44151900 
44151985 
44151995 
44152000 
44152085 
44152500 
44152520 
44152540 
44152560 
44152580 
44152600 
44152620 
44152790 
44152800 
44152620 
44152840 
44152850 
44152890 
44152900 
44152920 
44152930 
44153000 
44153500 
44154000 
44155000 
44156000 
44156199 
44156200 
44156300 
44156301 
44157000 
44157100 
44160000 


SET 


POP 


SET 


POP 


SET 
POP 


SET 
SET 


OMIT 


OMIT 
OMIT 
OMIT 


OMIT 
OMIT 


OMIT 
OMIT 


RESET OMIT 


SET OMIT = 


POP 


SET 


POP 


SET 
POP 


SET 


POP 


SET 


POP 


OMIT 
OMIT 


OMIT 
OMIT 


OMIT 


OMIT 


THePC,TAR)S FIX 
NOTCPACKETS) 
TE@sPCsPSEUDOMIX)S FIX3 
TeePCNYLONZIPPER)S FIX3 


T # PC,REPLY)S FIXsS 
NOTCSTATISTICS) 
TysPC ,SWAPDELAY)? FIX} 


I * CHUNKMAX$ 

T © PCCT)S FIXS 
NOTCPACKETS) 
LteQsTssP¢,PSEUDO)S FIX 


I « 53 T «© POC,CHANNELDS FIX} 
TtaPC,CHANIO)3 FIX3 
NOTCAUXMEM OR MON] TOR) 

1##103 TtePC,CTABLE)3 FIX3 
NOTCAUXMEM) 

IF A THEN BEGIN CTABLEEO), LFF) 
IF B THEN BEGIN CTABLEC1],0¢0FF) 


1 * 4} T © PC.CIOROW)S FIXS 
NOTCSAVERESULTS OR DEBUGGING) 
| * RESLTMAXS 

T #® PC,RESULTHOLDER)$ FIX 


] * 33 TePC,SPACER)3 FIXS 
NOTCDEBUGGING) 
T ¢ 313 T + PC,DBARRAY)$ FIX} 


I * 103 T «© PC,WB)F FIXS 

I # 113 T © POgRBX)3 FIXS 

I ¢ 203 T + PC,STOPS)$ FIX} 
I « 503 T «+ P(,TBLIF FIX3 


+ SHEETMAX¢13 TePC,SHEETIS FIKS 
¢ MESSAGETABLESIZES T « P(,MESSAGETABLE)S FIX3 
¢ J4ls 1 © 375 T © PCgLOGARRAY)S FIX3 
OTCSTATISTICS) 

teJe1s 195613 TtePC ,COUNTARRAY)S FIX3 


163 T « PC,PRNTABLEDS FIX3 
323% 

PC,SQ)s FIXS 

PCeFINALQUE)S FIX5% 
PCeLOCATQUE)S FIX3% 

T @ PC,10QUE)3 FIXES 


— ee 
>; 2; @ @ 


@ NOTCSTATISTICS) 


THEMPC DISKWAITIME)S FIX3 


T © PC,TRANSACTION)$ FIX3% 

JT © PCSWAITQUE)3 FIX3% 
SPACESTACK3 Js JteJ+SPACESTACKSIZES 
NOTCSHAREDISK) 

12sLQMAXx3 

Te® PCyLQUEDS FIXS 


ESPTABeJ? JeJews 
ESPCOUNTIRESPDISKTOP#"ESPDISKBOTTOMS 
I «+ 363 


«Js J © J#74 ENDS 
¢ Ur J ¢ J#74 END 


44160050 
44160399 
44160400 
44160500 
44160501 
44162000 
44162899 
44162900 
44162901 
44163100 
44163200 
44163299 
44163300 
44163301 
48164000 


%R5944164040 


44164059 
44164060 
44164065 
44164070 
44164080 
44164081 
44164100 
44164118 
44164119 
44164120 
44164121 
44164200 
44164999 
44165000 
44165100 
44165200 
44165300 
44165400 
44165401 
44165500 
44165700 
44166000 
44166099 
44166100 
44166101 
44167000 
44168000 
44168100 
44169000 
44170000 
44171000 
44171899 
44171900 
44371901 
44172000 
44173000 
44173100 
44173139 
44173140 
44173150 
44173151 
44173200 
44173300 
44174000 


$ SET OMIT = 


$ POP OMIT 


$ SET OMIT # 
$ SET OMIT s 


PC, LABELTABLE)3 FIX3% 

PC sMULTITABLE)? FIX3% 

PC »RDOCTABLE)S FIX3% 

UVSIZES TeUV.ECF)S FIX: 

Tee 3s TtaPC ,UNITCODESFIX: 

1#=463 TtsPc,ISTACK)S FIXs 

132203 TtePC,MAINTBUFFERJ$ FIX 
WORKERSTACK #543 JteJ+1283 

leJ3 

FOR Ts#2 STEP 1 UNTIL NUMSTACK D0 
BEGIN MEJ*J+STANDARDSTACKI]©13 Ted END} 
JeCSTACKQeJ)+STANDARDSTACKS 
ItsPUNTSIZES TisPC,PUNTER)? FIX3 
STACKUSE «+ TRUES% 

NOTCDEBUGGING) 

NSYMBS « 343 

TBLEC32) + "SPO" TBLE33) © CTYPETOGI.(33315)3 
TYPETOG « "03 

TBLO34] « "FM; 


a i 
°-¢ ¢ 


? 


STREAMCPUNTER)3 

BEGIN DIlteDI4+243 DStseB LIT "DATACOM "3 
OS:216 LIT "INVALID LINKe"3 
DS:=16 LIT "INVALID ADDRESS«*3 

NOTCSHAREDISK) 
DSt=16 LIT*LOCK QUE OVFLOWe"; 

NOT AUTODUMP 
DSIE32 LIT*LIOLO0O)4AUNKTVO2Z900STO000x+Al aaa" 
DSt=B32 LIT*IDMIOB/TIKOO7TYOC 1 KOOPX1<0SK)0QKI 
ODS1225 LITMOWK)OHKJOsK)IOBKIOIJKIICeERI"S DSsaLITirs 
DSt#30 LIT"K100002900S810)000000512900SI00"3 
DSt®=28 LIT*806F#BAFO4AL ,ID4AK3Z1L#4ADDOY/I"S 


$ POP OMIT OMIT 


ENDS 
HALTSET3 #43 
FOR 1t*0 STEP 1 UNTIL 35 DO 
BEGIN LABELTABLECI] J]¢=@114;3 
IF 1<32 THEN 
BEGIN [TOQUEC] Jis[=43 
TINUCI), £18812) 3803 
IF 1 LE@® 12 THEN UNITCODECI J] t#903 
END END$ 
UNITCODEC7 IJ #203 
LABELTABLE (25) %=03 


FORKQUE # M OR PC, FORKQUE)&PC,FORKQUEDCCTFI&@777(983919)3 


BED! * FLAGCBED*C BED) INX @1007777777700000);3 
CLICK © @7777777777773 

PRIORTY*PRYOR[COJe@13 

NUMESS ¢*® NUMAINTMESS 2 71003 
CLOCKt=SPOWORD:203 


44175000 
44176000 
44177000 
44178000 
44178100 
44179000 
44179050 
44179100 
44179200 
44179300 
44179400 
44179500 
44179900 
44180000 
44180099 
44180100 
44180120 
44180140 
44180200 
44180201 
44180300 
44180400 
4160500 
44180600 
44180699 
444180700 
44180750 
44180800 
44180900 
44181000 
44181100 
44181200 
44181250 
44181300 
44181400 
44181500 
44181750 
44182000 
44182500 
44183000 
44183500 
44184000 
44184500 
44185000 
44186500 
44187000 
44187100 
44187200 
44188000 
441688100 


LOGHOLDERS*LOGENTRYS=MDELTAtPMLOGI®MAINTLOGARRAY $*NXDISK$=03 44188200 
MROW &@ 1003 


$ SET OMIT = 


$ POP OMIT 


KEYBOARDCOUNTER? #13 
NOTCDEBUGGING) 
PC ,DTeLODs0eDIB SoTRB LoeDT oe) 3% 


® KEEPS KEYIN FROM RUNNING, 


MCWORKERSTACK) t#WORDOFEASES 


44188300 
44188500 
44188999 
44189000 
44189001 


BINITIALIZE MCP STACKS44189500 


MOVEC 12607 $aWORKERSTACK,LCCR Je t#1)3 370 SPOT POSSIBLE OVER 44189600 


MOVEC4Be Te ISTACK)3 SFLOWS 
MOVECSPACESTACKSIZEs IT sSPACESTACK)$ 


44189700 
44189750 


$ SET OMIT & 


$ POP OMIT 


mm 


SET 


POP 
SET 


POP 


SET 


POP 
SET 


POP 


OMIT 


OMIT = 


OMT 
OMIT = 


OMIT 


MOVE C@60s 7 2@100)3 

NT18303 MOVE (142@160,0161)3 
NOT SHAREDISK 
MOVECLOMAX™1e 1 eLQUE,(CFI])3 


% NT1 * @160 


FOR 1320 STEP 1 UNTIL 2 DO 
SPACERCITJ+3P (DUP) CCF I&PCDUPIC(CTFIs 

SETUPINITIALBUFFERS3 

EVENTCOJ CFF IS2CEVENT(OJI3 

LOGARRAY{L 31] ¢1OMASKe@20000000003 

DISKWAITC*CATESPACE(C 30)) 9 "30sDIRECTORYTOP™SYSNO)3 

TISMEA+19),€CF I; 

FIXFENCES 

IF T#FENCE AND 1#0 THEN 

BEGIN IF CT t# @100000"C CCPC DUP) "*TIDIV CHUNKZIZE) 

XCHUNKZIZE)) 

2020000 AND TS@70000 THEN FENCE te T3 
MCA+IOJESFENCES 
DISKWAITCAe*30*eDIRECTORYTOP*SYSNO)3 
TOGLE:303 
PCOs O» RDFe® FCXe STS)3 GO TO RESTARTCYCLE3 

END FENCE MOVING JAZZ} 

FORGETSPACECA)3 

PROCTIMELOJ+JOTIMEL0)+@20037777777777773 

Ts=PC,OLAY)3 FIXEX; 

NOTCDEBUGGING) 

TPC eDTISFIXEXST@PCCEXPIIFIXEX3 


NOTCAUXMEM) 

TeePC,AUXILIARYSPACE)3 FIXEX3 

TPC ,FORGETAUXILIARYSPACE)$ FIXEXS 
TtePC »FILLORKILLIS FIXEXS 


TPC. sSHORTCOMMUNICATES®NTI®DELIIFIXEXS 
1sePC,DCIOFINISH)$ FIXEXS 
TePCNEXTDCIO)SFIXEXS 

INTERROGATEMASK §$3804000040000000003 
TePC,DCWRITESFIXEX3 

LePC,ENTERLINEQ)S FIXEXS 


LINE TABLE teGETSPACE(C#SOXLMAX4+62020)423 8 RIGHT IN FRONT 
% OF FIXEX PRCDRS, 


MOVECCeLINETABLE "1 sLINETABLE) 3 
NOT SHAREDISK 
UNLOCKCDIRECTORYTOP=SYSNO)3 


NOT CDEBUGGING) 
FOR | * O STEP 2 UNTIL 30 DO BEGIN? 
TBLCI) © TINUCT DIV 2) ,f30816)3% 


TBLET41) © CLABELTABLECI DIV 2]3,£33815] END32 


® FIND INITIAL VALUE FOR CORE 


COREt@P(,,COREND*LOD) CCF I"PCeeINITIALIZE*®LOD),CCFI3 


TeMECMEMCAVAILI))3 
WHILE I,FFJ] # @77777 DO 

BEGIN CORE «+ CORE + IeCFFIJ$ | * MEI) ENDS 
CORE « CORE DIV 643 
INDIAN CFF JeCINDIAN)3 
DDDtwCMCASBSPACE (483) )18483(8336210)3 
DISKWAITC™As"™3000)3 
DISKWAITC 31" Ar™30eMCPNAMESEG) 3 
MOVE C2] eA41045xXSYSNO#A45142xXSYSNO)3 


44189800 
44189900 
44189995 
44190000 
44190005 
44190100 
44190200 
44190300 
44190400 
44191000 
44191005 
44191010 
44191015 
44191020 
44191025 
44191030 
44191040 
44191050 
44191055 
44191060 
44191090 
44191100 
44191110 
44192000 
44192005 
44192009 
44192010 
44392011 
44192059 
44192060 
44192062 
44192064 
44192065 
44193028 
44193030 
44193032 
44193033 
44193034 
44193035 
44193500 
44193600 
44193890 
44193900 
44193910 
44196999 
84197000 
44198000 
44199000 
44199001 
44201200 
44201300 
44201400 
44201500 
44201600 
44202000 
44202095 
44202500 
44202600 
44202700 
44202800 


§ 


$ 


SET OMIT # 


POP OMIT 


SET OMIT = 


POP OMIT 


DISKWAITCA¢31*"%30*eMCPNAMESEG)} 

STREAMCMLS =MARKLEVELePLO=MC 3) 2=PATCHLEVELeL Li sLOCALEVEL 
»FENCE eMEMASK oNteA41045xSYSNO 

NOTCSHAREDISK) 
9SYS@#SYSNO417 


eTSSBseSPACEC15))3 
BEGIN DS*5 LIT "*H/L "3 
NOTCSHAREDISK) 
SleLOcC SYSsS1eS]+7305e7 LIT"SYSTEM "SDS*CHR3 


DS*6 LIT" WITH “"SSIeNSSIe¢SI]415DS*7 CHR} 
DSseLIT™/@3STteSTe1sOSse7 CHRIDS#26 LIT" MARK "3 
STt#LOC ML3 IF SC GEQ * * THEN 
BCIF TOGGLE THEN IF SC="0O" THEN S]2a3SI141 ELSE DSI*#CHR 
ELSE DStsCHR)$ DStaLIT", "3 

StisLOc PLS IF SC GEQ * ™ THENS 

6C1F TOGGLE THEN IF SC3"0" THEN S]Js8#S14+1 ELSE DSteCHR 
ELSE DSt#®CHR)3 DS#F2CHR3 

SJ#sL0C LLs IF SC GEQ ™ ™ THENS 

8CIF TOGGLE THEN IF SC2"0" THEN SIs#S141 ELSE DStRCHR 
ELSE DSt*®CHR)3 

DS* 39 LIT "sFe"3 Ste LOC FENCES ODS* 5 DEC} 

DS* 7 LIT " [(MODSs"3 

SI*LOG MEMASKS SKIP 40 SB} 

8CIF SB THEN DSeLIT"@" ELSE DS*LIT*R™3 SKIP SB)3 

OS* 4 LIT ") we} 

END3 

SHLMSBGETSPACE(159905)423 

MOVEC15*BeSHLM)3 


$ SET OMIT = NOT (DUMP OR DEBUGGING) 
MEMOD*MEMASK3 


$ 


POP OMIT 


$ SET OMIT = NOTCSHAREDISK) 


$ POP OMIT 


$ SET OMIT & 
& POP OMIT 


FOR 18213 STEP 5 UNTIL 28 DO 


LDATE:SLDATE OR CODDELI#0 AND CCI"13) DIV 5)#SYSNO)3 


UNLOCK(O)3 

IF NOT LDATE THEN 

FOR [#0 STEP 1 UNTIL 3 DO 

BEGIN 
J$80406081[30846:2]3 & CLEAR CONTENTION BITS 
PCWAITIOCEJ] INX @10000000000+18)eDEL)S 
Jel3781)9%13 % UNLOCK ADDRESSES 
PCWAITIOC£LI] INX @10000000000918)2DEL);3 

ENDS 


FOR [820 STEP 1 UNTIL 15 DO 
J © WAITIOC@&200000000@3775] 1% 
DISKWAITC@Ar30eDIRECTURYTOP™SYSNO)3 
CORE S(4214]3"I1F DDDLI9)J#0 THEN 100 ELSE DDDI9) C4tilals 
OPTION + DDDLOI)3% 
IF (SCHEDWROS*NABS(DDD(21)))80 THEN 
SCHEOWRD (1) 810CTF]3 
REMOTE*0O3 
LOGARRAY(33):*000(20),(30816);3 
LOGARRAYL32)+"03 
NOT SHAREDISK 
DISKWAITCAs*302eDIRECTORYTOP)3 


XCLICK§#(@7777777777700 AND DDDE18}) MOD 51840003 


44202900 
44203000 
44203150 
44203179 
44203180 
44203181 
44203200 
44204000 
44204099 
44204100 
44204101 
44204200 
44204500 
44204600 
44204650 
44204700 
44204750 
44204800 
442048650 
44205000 
44205050 
44205100 
44205140 
44205160 
44206000 
44206100 
44206200 
44206300 
44206400 
44206500 
44206899 


BA144206900 


44206901 
44207899 
44207900 
44207910 
44207920 
44207930 
44207940 
44207950 
44207960 
44207970 
44207980 
44207990 
44208000 
44208001 
44208900 
44209000 
44213000 
44213500 
44214000 
44214300 
44214310 
44215000 
44216100 
44216110 
44216690 
44216700 
44216710 
44216900 


NEUP$3DDD(2) MOD 100 3 


NEUPtSNEUP&CNEUP+DDDL2] DIV LOOICCTFIENEUPE3233315]3 


DATES=DDDC1)3 
SPOUTITCBsHALTK)3 


$ SET OMIT = NOTCSHAREDISK) 


UNLOCKCDIRECTORYTOP)3 


$ POP OMIT 


STREAMCBIS0fAsSBBYPASSI=DDDL 4) +Ds=PC »DIRDSK))3 


BEGIN SIisLOc As DS##8 DEC? OLtBLOC B3 
StTs2L0Oc O03 S1It#S1]+483 OSsewoS; 


ENDS 185P INX OF & GET LOCATION IN INITIALIZE 


DISKBOTTOM!=BYPASS=2} 

MCINTS#2) 8=(JteeP(DUP)I&ICCTCI3 
MCJIJ CFF IRT3 
MCTIISJRCINTS*2)CCTFI3 


FORGETSPACECINTS)$ & RETURN PART OF INITIALIZE 


INTSI#8] + 23 
IF CT*NEUP,CFFITNEUP,CCFIJ)>0 THEN 


NEUP*NEUPBLOLCTCI&CLO+TICCTFISZSAVE # OF EUS ON DKA, 


TtBNEUP,NEUF 3 
ZeeCVtE] + EUIOFFSET) + I 


$ SET OMIT = SHAREDISK 


+ CBseCr+1) DIV 2+ 1 + 2) 


$ POP OMIT 


BIPBGETSPACE(Z*001) + 23 

MOVE CZeJt1eJ)3 

EUVIOS=CU JINX M)&Y(8338210)3 
PEUTOMRRC(CJ8ed+¥) INX M816 8838810)3 


$ SET OMIT = SHAREDISK 


AVTABLESs¢CJ+1) INX M)&BL8#38410)3 


£ POP OMIT 


TIPFGETSPACE(C2Z00%0%1)423 
CHUNKMAX*#CHUNKMAX# 13 
FOR [+0 STEP 1 UNTIL CHUNKMAX DO 


IF CTWOC7*CCHUNKZIZExI+FENCE) DIV 4096) AND MEMASK)#0 THEN 
CTLTIFSCNOT 0),£36812)3 & ACTIVELLIS#TOTALLIJ3#633 


ACTDATEISwEEKDAY3 #03 
MCPES"SITE bale 


$ SET OMIT = NOTCSHAREDISK) 


SCRATCHVEC SREMEGETSPACE(C10eSCRATCHTYPE »SCRATCHSAVE +2) I]&810LTOSIZEJS 


TOGLE 
IF LD 
BEGIN 


tz=TOGLE OR SCRATCHUIRECTORYMASK OR USERDISKMASK$ 
ATE THEN 


MOVE C4*+(CONDC23))] +(MULTITABLEL161))3 
DISKWAITC"EUIO, [CFI CEUIOsCOt1LOJ#EUIOHOLDER) 3 


AVSeP(DDOCNEUP NEUF] ®DUP) FNUMENT#PCXCH) »STARTWRDSAVDIFFMINS 
AVSeCAVSeIF AVS >AVSMAX THEN AVSMAX ELSE IF AVS LSS AVSMIN 
THEN AVSMIN ELSE AVS)+30°CIF CAVS*AVS MOD 30)40 THEN AVS ELSE 


3093 
CLEANOUTCSYSNO)3 
DISKWAITC*CSCRATCHVEC INX 0)9*4*+DIRECTORYTOP41)3 


% SPACE FOR INTRNSC 


END ELSE 


SCRATCHVECLOJ##SCRATCHVECE 1 J #*SCRATCHVECL 2]! ®SCRATCHVECL3] #803 


SCRATCHVECESYSNOJ teOR CIT SSGETESPDISKILCTOSLINK]3 
DISKWAITCSCRATCHVEC INX Os *4sDIRECTORYTUP41)3 
SCRATCHVECLOJ F#0810TOSNUMJS 
SCRATCHVECECLI]SS1&1LTOSLENGTHI? 
DISKWAITCSCRATCHVEC INX O+201)3 


 SCRATCHVECLO) SsORCOIRECTORYTOPsI DC TOSLINKJRICTOSSIZEJ3 


SCRATCHVECE1I¢ #2810 TOSNUMIAICTOSLINKI3 


44216910 
44216940 
44216950 
44216955 
44216959 
44216960 
44216961 
44240500 
44240520 
44240540 
44240560 
44240580 
44240600 
44240620 
44240640 
44240660 
44240680 
44240690 
44240695 
44240700 
44240800 
44240819 
44240820 
44240824 
44240840 
44240860 
44240880 
44240900 
44240919 
44240920 
44240921 
44241000 
44241100 
44241110 
44241120 
44241130 
44241150 
44241160 
44241179 
44261180 
44241490 
44241200 
44241250 
44241260 
44241275 
44241330 
44241335 
44241336 
44241337 
44241350 
44241375 
44241400 
44241500 
44241550 
44241600 
44241650 
44241700 
44241750 
44241800 
44241850 


IF LOATE THEN MESSAGETABLEBUILDER ELSE 


BEGIN 
$ POP OMIT 


$ SET OMIT & 
ENN $ 
$ POP OMIT 


$ SET OMIT & 


$ POP OMIT 


$ SET OMIT # 


IF CPCRRR)ef3081)] AND USEDRB) OR CPCRRRI.C 3181] AND USEDRA) THEN 


AUXAGNS DISKWAJTC*Ts 30» AUXMEMDSK)3 
BIeBMCTeCSYSNOx4))s CRBMLT+CSYSNOx4)41)3 
IF NOT CMETE¢SYSNOF1 6] 8"AUXMEM * AND B GEQ 0) THEN 
BEGIN 

AUXMESS} STREAMCI&e13sSPACEC2))3 


DIRECTORYBUILDERCA*DDD) 5 
FORGETSPACECP( sDIRECTORYBUILDER®LOD) ¢(CFI)3 
NOTCSHAREDISK ) 


CREATELOGCDDD)3 
FORGETSPACECPC »CREATELOG*L00).0CF))3 
CANDYINXSSCCTBLWORDS 03 
TIMEQUTCSPACE(10))3 DATEQUTCSPACEC10))3 
LASTSEG t= FIRSTSEG te PCCCSPACE(32)42)0R M) 
& 32(8338:10)-SFB)3 
MOVE CI2eLASTSEGe CCF IM3eLASTSEGe LCF I"2)3 
MCIOADR] «© JOMASK3 
PROGTANKS®TANKADDRESS 8 ®SBASEDISKADR!? #03 
TOGLE!S*®TOGLE OR HOLDMASK3 
FIRSTOFFSET «© LASTOFFSET © 13 
IF CLOCK#®0 THEN ® CC103F IS INHIBITED 
BEGIN STREAMCT&8=T3sSPACcE(10))3 
BEGIN DS##19 LIT"#TIMER NOT RUNNING? "3 
OSi222 LIT" RESET CC103F INHIBI T«"3 
END3 
SPOUTCT)3 
END$ 
IF GIVEDATE THENS 
BEGINSSTREAMCBSEIL 3 SSPACE(2))3 
DS + 11 LIT "#DT PLEASEo™32 
SPOUTCI) 3% 
DATE * "13% 
ENDS 
IF GIVETIME THENS 
BEGINISTREAMCBIsltsSPACE(2))3 
OS « 41 LIT "#TR PLEASEe"34 
SPOUTCI)3% 
XCLOCK «+ *51840003% 
END3% 
SHAREDISK 
DISKWAITC*KLUMPs 3eDIRECTORYTOP43)3 


STASUSCOI]*©READYSTATE? 
CHANGEDATE(0)3 
KEYBOARDCOUNTER! #03 


TOGLEI#TOGLE OR HOLDMASK QR CDMASK OR KEYBOARDMASK} 


NOTCAUXMEM) 


BEGIN 
AUXILIARYTABLEINITIALIZES 
TisSPACE(30)3 


DSt=s 15 LIT "#CA MCP PLEASE") 
SPOUTCI)3 CTABLEC4S),C2t1)tet3 
SLEEPCECTABLELAIIJ»NOT CTABLEL4))3 
CTABLEC4SI C4811 t8O3 

GO AUXAGN3 


44241900 
44241950 
44241951 
44242000 
44242050 
44242090 
44242100 
44242101 
44242200 
44242700 
44242900 
44243000 
44395100 
44395200 
44395220 
44395230 
44395300 
44395320 
44395350 
44395500 
44395550 
44395600 
44395650 
44395700 
443957590 
44395800 
44396000 
44397000 
44398000 
44399000 
44400000 
44401000 
44402000 
44403000 
44404000 
44405000 
44406000 
44407000 
44407999 
44408000 
44408001 
44408100 
44408200 
44408400 
44408500 
44408509 
44408510 
44408520 
444086530 
44408540 
444086550 
444086560 
44408570 
44408580 
44408590 
44408600 
44408610 
44408620 
44408630 
44408640 


$ POP OMIT 


NULLINTS 


SET OMIT @ 


POP OMIT 


SET OMIT 


POP OMIT 


SET OMIT = 


POP OMIT 


END$3 

IF B#0 THEN 

IF CI&*eDIRECTORYSEARCH(BsCe#4))80 THEN 
BEGIN 
LBMESSCBeC#159e0s09001)3 
GO TO AUXMESS; 


JVESEMC CPC ESPBIT))+1I1.00F J3 
TRANSFERMCPTOAUXMEM( 1eJ)3 
HEADERUNLOCK(BeCel )3 
END} 

FORGETSPACECT); 

END3 


SLEEPCECLOCK]*NOT O)3 

SLEEPCEDATEJeNOTC@1))5 

WHILE XCLOCK<0 00 SLEEPCEXCLOCKI] +NOTCXCLOCK) )3 
DISKWAITC™A8™3090)3 


IF CTteDIRECTORYSEARCHCDDDDL1%8134+5xSYSNO)]*DDDE J +1)017))20 


THEN BEGIN 
STREAMCT1)3 
DSts27 LIT"## LOAD INTRINSICS NOWg ee ee} 
SPOUTC(T1)3 

END ELSE 

IF CNTLS@MC7T44),03686))#0 AND NTL#¥TSSINTYPE THEN 

BEGIN FORGETSPACECT)3 
PCDIRECTORYSEARCHCNABSCDDDLI J) *DDDC14+1)016)2DEL)3 
DDDCIJI#DD0LC I 41)5803 % REMOVE JNTRINSICS 
DISKWALTCA2%3020)3 
GO TO NULLINTS 

END ELSE 

BEGIN INTRINSICTABLEBUILDERCT&TICCTFI)3 
FORGETSPACE(CT)3 

ENDS 

NOT SHAREDISK 

UNLOCK(0O)3 


INTFREEVEY3 
IF CT&ISDIRECTORYSEARCHCODOCI*3)-DDD01*%2)]917))#0 THEN 
BEGIN 
NOT STATISTICS 
MCPTOP $e MCPBASE4+MET JINX 7]3 


FORGETSPACECT)3 
END ELSE 
LBMESSCDODOLI*3] -DODEY*2)0"152000900193 
SHAREDISK 
MCPFREES #13 


FORGETSPACECA)3 

LOGOUTMAINTCSHLM)3 

MROWS ®NABSC(MROW)3 

FORGETSPACECSHLM)3 

TOGLEt*®TOGLE OR SHEETMASK OR STATUSMASK3S 
READY 2#@343600000)% 

SPREADTHEWORD3 

FOR [#20 STEP 1 UNTIL 21 DO 
PCWAITI0(C@40001000000877721)»DEL)3 


44408644 
44408648 
44408652 
44408656 
44408660 
44408664 
44408668 
44408672 
44408676 
44408680 
44408690 
44408700 
44408710 
44408715 
44408720 
44408721 
44408900 
44409000 
44409100 
44410000 
44410100 
44410200 
44410300 
44410400 
44410500 
44410600 
44410700 
44410800 
44411090 
44411200 
44411400 
44411600 
44411800 
44411900 
44412000 
44412100 
44412199 
44412200 
44412201 
44412300 
44412400 
44412500 
44412599 
44412600 
44412601 
44412700 
44412800 
44412900 
44412999 
44413000 
44413001 
44413500 
44414000 
44414100 
44414200 
44415000 
44417000 
44417100 
44417110 
44417120 


TOGLE &* TOGLE OR NSECONDMASK?} 


LASTSCHEDSELECT&@aCXCLOCK DIV 54000)x540003 
SCHEDLOOK(O+"1)3 BREORDER SCHEDULE TASK QUEUE 


RRRMECH © RRRMECH AND @763777777733% 
READY * REANY AND @76377777773% 


$ SET OMIT = NOT STATISTICS 


INTFINISHS 


$ POP OMIT 


SWAPEND3 #313 
IF AUTOCE THEN 
BEGIN STREAMCTS2=T82SPACE(8)+2)3 
BEGIN DSt#21 LIT"CC RUN CANDE/TSHARER; "3 
DSt®24 LIT*STACKS2003 COREFAOOOSENDeS 
END} 
CCARDCT&25£384335))3 
END3 
FORGETSPACECINTS)$ FORGETSPACECINTSS)3 
GO TO NOTHINGTONO!% 
END3% 


SAVE REAL PROCEDURE COREND3% 
BEGIN REAL T3 PCINIDS END? 
$ SET OMIT & NOT STATISTICS 
PROCEDURE INTFINISH3 


SS3 


BEGIN REAL BeT3 


LABEL SS*SSt;3 
Bi#03 
IF CTSeDITRECTORYSEARCHC(C"SYSTEM * 


$ SET OMIT ® NOTCSHAREDISK) OR OMIT 


&CSYSNO$17)( 4284236) 
$ POP OMIT 
e"STATS 55))20 THEN 
BEGIN 
TesSPACEC30)3 
MOVE C30eT*1 eT )3 
SS11 


MET INX 0)120000746000740001023 
STREAMCDATE*#X8eT INX 3)3 
BEGIN 
S1t*®LOC DATES DS8BB OCT OL 2X3 
DSte2LITM+e™sST sexs Sl2eS1+530S823 CHR 
END$3 
MET INX 7] 3213 
MCT INX 4)850810984721)3 BRESET COLD START BIT 
IF NOT B THEN 
BEGIN 
MET INX 9) 28173 
MCT INX 10]38 
GETUSERDISKC*(MET INX 8]3=200))3 
ENTERUSERFILEC**SYSTEM * 


$ SET OMIT = NOTCSHAREDISK) OR OMIT 


RCSYSNO417)(4224236) 


$ POP OMIT 


O"STATS "oTm1)3 
END ELSE DISKWAITCT CCF Je300T CFFJ) 
END 
ELSE ® FILE PRESENT 
IF BImCCMET INX 8)8200) AND CMET JINX 9Je1)) THEN 
IF MCT INX 43,04581)] THEN & JUST COLD*STARTED 
GO TO SSi % TO FIX"UP THE HDR 


44417150 
44417200 
44418000 
44420000 
44421000 
44422000 
44422990 
44423000 
44423010 
44424000 
44425000 
44425100 
44425200 
44425300 
44425400 
44425500 
44425600 
44437000 
44439000 
44440000 
44441000 
44442000 
44999990 
45000000 
45001000 
45003200 
45200100 
45201000 
45202000 
45203000 
45203001 
45204000 
45205000 
45206000 
45207000 
45207100 
45208000 
45209000 
45210000 
45211000 
45212000 
45213000 
45214000 
45215000 
45215100 
45215200 
45216000 
45217000 
45218000 
45219000 
45220000 
45221000 
45221001 
45222000 
45222100 
45222150 
45222200 
45222250 
45222275 
45222300 


ELSE % HDR OK 


ELSE 


BEGIN 


DISKWAITC™COUNTARRAY «(CF Js60eMLT INX 10])3 
IF COUNTARRAY£L28) # DATE THEN COUNTARRAY(29) i803 


END 


BEGIN & START A NEW FILE 


FORGETSPACECT)S$ 


PCDIRECTORYSEARCH(*"SYSTEM ™ 
$ SET OMIT = NOTCSHAREDISK) OR OMIT 


&CSYSNO+17)£4234236] 
$ POP OMIT 
o"STATS "s6)DEL)3 
GO TO 833 
ENDS 
SYSTATBASES SMELT JINX 10)3 
INTERVALS #1080003 


FORGETSPACE(CT)3 
COUNTARRAYEL60)85637777777777777773 


END OF INTFINISH3 


$ POP OMIT 


ARRAY LINKR#NT2[#] »BAKR+2[ 4) 5 
REAL LOGLYNER+5} 
REAL CLICKS=443 


REAL LINQ = +1 


MIX B #38 MASK & "4% 


TESTER = "23 


COMMENT THE ABOVE DEFINE ENTITIES USED BY BEDSEARCHs 


I 
REAL 


FORKER = FORK3 


WHICH CEXCEPT 


COMMENT FORKER 1S USED BY SLATE INITIATE CODE TO FOOL FORK, 
A MARK STACK CONTROL WORD IS PASSED AS THE LAST 


ARRAY 


PARAMETER» BUT ONLY THE CORE FIELD IS USED, 
THE HARDWARE WORKS» SO WILL THIS CODES 
BLOB = NT3(#)3 


COMMENT YOU MUST PROTECT "BLOB" THE SAME AS OTHER NT*TYPE 


$ SET OMIT # 


YOU MAY NOT CALL ANY 


AS LONG AS 


PROCEDURE AND EXPECT IT TO RETURN WITH THE SAME VALUES 
Pe, eCORENDeLODe 4p INXeSTSIS INITIALIZE? % 20"4ST CODE 46000000 
21 ° RES FOR NO MEM MSG46000500 


$ SET OMIT = NOT SHAREDISK 


$ POP OMIT OMIT 


% 


Be BE BE BE DE BE BE FE DE AC BE BO 


Be De 


VARIABLES,  %N OTHER WORDS? 
$163 

473 

$146% GO TO TIMERS 

#498 GO TO yOBUSY3 

920% GO TO KEYBOARDREQUEST! 
321% PRINTERFINISH(20)3 
$22) PRINTERFINISH(C2])3 
$238 LOFINISHCRESULT1.123 
$248 JOFINISHCRESULT202)5 
$258 ILOFINISHCRESULT3s3)3 
t26t JOFINISHCRESULT424)3 
227% GO TO P2BpuUSY} 

#28: GO TO INQUEST} 

1293 DO UNTIL FALSE! 
SHAREDISK 

130% DO UNTIL FALSES 

#318 OO UNTIL FALSE} 

$301 GO FINDITS3 

$341: GO FINDIT3 

#323 PCOD3 GO TO P2PROCESS} 38 
433! PC4s17)3 GO TO P2PROCESS$; & 


23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 


36 
37 


435222310 
43222315 
45222320 
45222325 
45222330 
45222350 
45222400 
45222450 
45222500 
45222550 
45222600 
45222601 
45222650 
45222700 
45223000 
45224000 
45226000 
45227000 
45228000 
45249000 
45249010 
45990000 
45990400 
45990500 
45991000 
45991500 


FOR SLINKR™) EXIST IN THE STACK OF EACH CANDIDATE FOR AWAKENING4S5992000 


43992500 
45993000 
45993500 
45994000 
45994500 
45995000 
45995500 
45996000 
45996500 
45997000 


22 © TIME INTERVALS 46001000 
170 BUSY 46002000 
KEYBOARD REQUEST% 46003000 
PRINTER 1 FINISHS 46004000 
PRINTER 2 FINISH 46005000 
CHANNEL 4 COMPLETE 46006000 
CHANNEL 2 COMPLETE 46007000 
CHANNEL 3 COMPLETE 46008000 
CHANNEL 4 COMPLETE 46009000 
P2 BUSY 46010000 
DATACOM INQUIRY 46011000 
SPECIAL INTERRUPT 46011500 

46011990 
DKA READ CHECK 46012000 
DKB READ CHECK 46012500 
46012750 
FREE ADDRESS 46013000 


36 


37 


40 
41 


ALTERNATE FREE ADR46013500 


46013510 


P2 MEMORY PARITY% 46014000 
P2 INVALID ADDRESS46015000 


STACKOVERFLOW 


START Ee} 
TIMERS? 


$ SET OMIT = 


$ POP OMIT 


$ SET OMIT = NOTCSTATISTICS) 


$ POP OMIT 


$342 PCAr1)3 GO TO P2PROCESS: & 42 = P2 STACK OVERFLOW 46016000 
$363 PCO); GO TO P2PROCESSs & 44 ~ P2 COMMUNICATES 46017000 
{378 PCB)3 GO TO P2PROCESSs %& 45 = P2 PROGRAM RELEASE 46018000 
938s PC10)3 GO TO P2PROCESS$ ® 46 = P2 CONTINUITY BIT 46019000 
$393 PC1B)s GO TO P2PROCESSs & 47 = P2 PRESENCE BIT 46020000 
$408 PC1200)3 GO TO P2PROCESS: ® 50 * P2 FLAG BIT 46021000 
1418 PC1201)3 GO TO P2PROCESS$ % 51 * PZ INVALID INDEX 46022000 
1425 PC1202)3 GO TO P2PROCESS; & 52 = P2 EXP UNDERFLOW 46023000 
t438 PC4eG)s GO TO P2PROCESSs % 53 * P2 EXP OVERFLQWR 46024000 
t44s PCMo11)) GO TO P2PROCESSs & 54 = P2 KINT OVERFLOWS 46025000 
t454¢ PCl203)3 GO TO P2PROCESS; & 55 * P2 DIVIDE BY ZERO 46026000 
t463 PCO); GO TO PiPROCESSs % 60 = P1 MEMORY PARITY% 46027000 
1493 PC4017)3 G@ TO PIPROCESSs & 61 = Pl INVALID ADDRESS46028000 
$508 PC491))3 GO TO PAIPROCESS; & 62 " P1 STACK OVERFLOW 46029000 
$528 PC6)3 GO TO PIPROCESS3 % 64 = P41 COMMUNICATES 46030000 
153% PCB)3 GO TO PIPROCESS; % 65 = Pl PROGRAM RELEASE 46031000 
354% PC10)3 GO TO PAPROCESS! % 66 " P1 CONTINUITY BIT 46032000 
$558 PC18)3 GO TO PIPROCESS$ % 67 ™ Pi PRESENCE BIT 46033000 
$568 PC1200)3 GO TO PIPROCESSs % 70 = Pi FLAG BIT 46034000 
$570 PC1201)93 G@ TO PIPROCESSs &@ 71 * Pl INVALID INDEX 46035000 
1588 PC1i2s2)3 GO TO PIPROCESS: & 72 = Pl EXP UNDERFLOW 46036000 
1593 PC409)3 GO TO PIPROCESSs & 73 ™ Pl EXP OVERFLOWS 46037000 
1603 PC4e11)3 GO TO PIPROCESSs % 74 = Pil INT OVERFLOWS 46038000 
t61%: PCL203)3 GO TO PIPROCESS$ % 75 = P1 DIVIDE BY ZERO 46039000 
46040000 

CLOCK * CLOCK+643 XCLOCK « XCLOCK+643 48000000 
NOTCNEWLOGGING) 48000099 
STOPLOGCPIMIX90)3 48000100 
48000101 

IF CLOCK,(£3785] = 0 OR 48000200 
CSECONDCTR © (P2MIXSO)4+SECONDCTR)2 4 OR® 48001000 
XCLOCK GEQ@ WITCHINGHOUR THEN 48002000 

BEGIN IF PC(TIO) # 0 THENS 48003000 

IF FIRSTWAIT # NEXTWAIT THENS 48004000 

NEWIO3% 48005000 

SECONDCTR « 33% 48006000 

IF NSECONDREADY THEN 48007000 

BEGIN TOGLE*TOGLE AND NOT NSECONDMASK; 48008000 

FORKCPC .NSECOND) 20071012601 )3 48009000 

END END3& 48010000 
48010999 

COUNTUPBY(301)5 48011000 
COUNTUPBY(C14»SECONDCTR LEQ 1)3 48011100 
COUNTUPBY( 38s (PIMIX®CANDYINX) AND C(CANDYINX NEQ 0))3 48011200 
COUNTUPBYC7oNTLSRUNIT(18]),(1335) NEQ O)3 48011300 
COUNTUPBYCBeNT2S8UNITOC19) 501395) NEQ 0)3 48011350 
COUNTUPBYCI7o(NTLIFNT2) 82) 3 48011400 
COUNTUPBYC43e(PIMIX#0) AND CNTISRCNTL OR NT2)))3 48011450 
COUNTUPBYC39s(NT28=(PIMIX NEQ@ 0) AND NT1)3 48011470 
IF CP2MIX GTR O AND NT1) THEN COUNTUPBY( 399LEFTHALF1)3 48011480 
COUNTUPBY( 6ePBUSY)3 48011500 
IF NT2 THEN COUNTUPBY(C6OoLEFTHALFI)3 48011600 
COUNTUPBYC31eNTItS@P2M]X GTR O)3 48011700 
TF (NT2 AND NT1) THEN COUNTUPBYC31>eLEFTHALF1)3 48011800 
46011601 

IF CPCRRR) OR RRRMECH)#READY THEN 48012000 
IF STATUSBIT THEN 48012500 
BEGIN TOGLE*TOGLE AND NOT STATUSMASK3 48013000 
FORKCPC ¢STATUS ) 2 00"1912601)3 48014000 

ENDS 48015000 


IF P2MIX>0 THEN 
GO TO P2FAKE 
EXTERNALSIS 
IF PIMIX = O THEN GO TO NOTHINGTODOSS 
INITIATES 32 
PONTL*PRICPIMIX*#8)]eSTSeOrSTF)3 
IF P2MIX=0 THEN GO TO COMINITS 
IF CFORKQUE INX 0)#PC,FORKQUE) THEN 
IF BED,» CCFIJ®PC.BED) THEN 
COMINITES 
IF NOPROCESSTOG < 0 THENS 
GOGOGOs BEGIN IF PRTCPIMIX00) # WORDOFEASE THEN 
BEGIN P(64eSTS)3 
$ SET OMIT = NOTCNEWLOGGING) 


STARTLOGCPIMIX20)3 
$ POP OMIT 
GO TO STACKOVERFLOW} 
END$ 
PCINI)3% 


IF PRTROWCPIMIX),CPSFIJ#0 THEN 
BEGIN IF (NT3¢PRTROWECPIMIX]),{CPSF))1 THEN 


TERMINALMESSAGECPRTROWEPIMIX] CFF IDS 
IF NT382 THEN STOPM ELSE SWAPCFORCESWAP?#1)3 


GO TO RETURNS 
END3 


IF OLAYCTREPIMIX] GEQ@ O THEN 
IF ELAPSEDLIMITEPIMIX] GTR JOTIMELPIMIX] THEN 
IF TOTIMELPIMIX)>O0 THEN 
BEGIN 
TERMINATECPIMIX&63{CTFIJ)$ GO GOGOGO 
END ELSE 
BEGIN 
NT3*PROCTIMECPIMIX]3 
$ SET OMIT = NOTCNEWLOGGING) 
IF NOT LOGSTOPPEDEPIMIX] THEN 
$ POP OMIT 
NT3Z¢NT34+CLOCK4+PCRTR)3 
IF NT3<PROCLIMITCPIMIX] THEN 
IF NT3>0 THEN 
BEGIN TERMINATECPIMIX815(CTFI)3 
GO GOG0GO3 
END ELSE 
BEGIN SECONDCTReO}3 
$ SET OMIT & NOTCNEWLOGGING) 
STARTLOGCPIMIX00)) 
$ POP OMIT 
1F P2MIX#0 THEN 
PCNTL>IPids 
PCNTL + 1P2)3 
P2MIX # PIMIX32% 
LOGLINE2 « LOGLINES 
GO TO NOTHINGTODO} 
END3 
END3 
IF PCO*#RDS) GTR FENCE THEN 


FOR NT2*SCCPIMIX] STEP 1 UNTIL LCEP&MIX) DO 


IF ACTIVECNT2) GTR 1 OR OLAYCTRIPIMIX) 
LSS 0 THEN 
BEGIN SWAPCTIMENDe1)s GO TO RETURN’ END3 


48015100 
48015500 
48016000 
48017000 
48018000 
48019000 
46019500 
48020000 
48021000 
48022000 
48023000 
48024000 
48025000 
48025099 
48025100 
48025101 
48025200 
48025300 
48026000 
48027000 
48028000 
48029000 
48030000 
48031000 
48031100 
48031200 


%R3848031290 
%R5946031300 


48031310 
48031320 
48031330 
48031340 
48031350 
48031360 
48031369 
48031370 
48031371 
48031380 
48031400 
48031600 
48031700 
48031800 
48031900 
48032000 
48032979 
48032980 
48032981 
48033000 
48034000 
48035000 
48037000 
48037100 
48038000 
48038100 
48038110 


%R3848036150 


48038200 


%R3648038300 
%R3848038310 


460368400 


PROCLIMITCPIMI XJ] ts*#P( DUP) +2083 
ELAPSEDLIMITEPIMIX] &=*P( DUP) +4163 DS 


%0S848036500 
%R5948038600 


OLAYCTREIPIMIXI]¢@ABSC#P(DUP)I&828CCTFIS & APPROX 90000048038610 


SLNEPIMIXISSSLNCPIMIXJ*¢CSUNCPIMIX] NEQ 7)3 
NLSCPIMIXI]S=SLNEPIMIXI] 423 
IF LOGLINEs (33879740 THEN 
PCESTATABLELLOGLINE sL40%81))210R)3 
GO GOGOGO:; 
END3% 


PCINI)3% 


SLEEPCENOPROCESSTOG)2"0)3% 
NTL © PRICPIMIX*8)5% 
GO GOGQG0}% 
NOTHINGTODOSSPIMIX © 03% 
$ SET OMIT #& NOTCSTATISTICS) 


$ POP OMIT 


SLATESTARTERS 


PBUSYts13 


PCINI D332 
P(64- STS)3 
IF AREASNEEDED THEN 
BEGIN AREASNEEDEDS*FALSE3 
FORKCPC MOREAREAS) 000740 9601)3 
ENDS 
IF CFORKQUE INX 0)#PC,FORKQUE) THEN 
BEGIN IF (NTI © FORKQUEC4SJ)#0 THEN 
BEGIN PCNT1*STS#0)3 
PCSECONBCTR*Oe STF)3 NT6 © FORKQUES(CFI3 
PCFORKQUELL J »FORKQUEL2))3 
PRIORTY © FORKQUE(O),(919)"643 
MENT2 © FORKQUELOJ,CCFI) CFF I + PC sFORKQUE)S 
FORKQUE,CCF) « NT23 
FORGETAREACO*+NT6O)$S NT& © PC YBLOBo@)3 
IF (NTL + P)#0 THEN 
BEGIN PCNT4*+BLOB*NTIsGETSPACECNT191223))3 
TOGLE « TOGLE OR STACKMASK: 
IF (NT1 © P4+1)%1 THEN 
BEGIN PCPRIORTY* XCHe MKSe FORKER)3 
GO TO NOTHINGTODOS 
END} 
PCDELs sBLOBeeegNTOeeeNTIeSTS)5 
END 
LOGLINESSNTA CFF IGNTS( 13181 )3 
PCCLOCKANT4( 8838310) eMKSeNT4eD1B OoLOD*BLOB*s COC) 
GO TO NOTHINGTODO; 
END3 
IF STACKUSE THEN 
BEGIN TOGLE * TOGLE AND NOT STACKMASK3 
PCISTACKe STSe FORKQUEL3I))3 
GO TO SLATESTARTER:3 
END3 
END3 
P¢€ 649STS)33 
IF TOGLE THEN GO TO PROCSWITS COMMENT TEST HP2TOG3 
LINKR © FLAGCBED)3 
WHILE LINKRg(CFI#PC,BED) DO 
BEGIN PCINIeCLINKROFREGJJ*STS#DUP®STF)s 


$ SET OMIT & NOTCNEWLOGGING) 


$ POP OMIT 


PCOmRDSeleteSTS)3 & FOR LOGTURNEDOFF 


20848038640 
40848036680 


48036700 
48038800 
48038900 
48039000 
48040000 
48041000 
48042000 
48043000 
48044000 
48045000 
46045899 
48045900 
46045901 
48046000 
48046500 
48046600 
46046700 
48046800 
48046900 
48047000 
48047500 
48048000 
48048500 
48049000 
48049500 
48050000 
48050500 
48051000 
46051500 
48052000 
48052500 
48053000 
48053500 
48054000 
48054500 
48055000 
48055500 
48055600 
46056000 
46056500 
48057000 
48057100 
48057200 
48057300 
48057400 
48057500 
48057600 
48056000 
46059000 
48060000 
48061000 
48062000 
48062099 
48062100 
48062101 


eel 


$ SET OMIT & 
$ POP OMIT 


$ SET OMIT & 
£ POP OMIT 


P2FAKES 
$ SET OMIT & 


$ POP OMIT 
$ SET OMIT ® 
$ POP OMIT 


PROCSWITS3 
P2PROCESS#1% 


PIMIX @ MIX} &B MIX & F443» 


IF CNOTCMASK AND TESTER))#NOT O OR 


BEGIN 


MASKE*1 0 


CLOCK#PCRTRI>CLICKS THEN 


TESTERS@2 


PCBAKLOJePCDUP*LOD)&LINGL CTC} ele COCeBAKeXCHee)3 


SECONDCTR « 03 
LOGLINE * LOGLYNES 


PRIORTY * LINQsCFFI"64; 
NOTCNEWLOGGING) 


IF LOGTURNEDOFF THEN 


STARTLOGCPIMIX#0)3 
PCXIT)3 


END3 
PIMIX « 03 
LINKR «© FLAGCLING)3 


END BED SEARCH3 
NOTCSTATISTICS) 


PBUSY«03 


DO DO BEGIN PCINI)3 


END UNTIL CPCRRR) OR RRRMECH)#READY 


UNTIL STATUSBITS 
TOGLES®TOGLE AND NOT STATUSMASK; 
FORKCPC STATUS) 9 00%1012801)3 
GO TO NOTHINGTODOS 
TOGLE'*TOGLE OR HP2MASK} 
NOTCNEWLOGGING) 
STOPLOGCP2MIXs0)3 


PCHP2rINI)3 
NOTCNEWLOGGING) 
STARTLOGCPIMIX+0)3 


PC16)3 


IF PCPIMIX»P2MI Xe ePIiM[XeeepP2MIXeSTN) # O THENS 


BEGIN 
END: 


PCPRICP2MIXe8]s1P2)5 


PRIORTYePRYOR(CPIMIXI} 
PCLOGLINE *LOGLINE2+,LOGLINE ees «LOGLINE2s*)3 
TOGLE*TOGLE AND NOT HP2MASK$ 


PIPROCESS#33 


PCPRTICPIM[XeB)oSTSeOeSTF) 3% 
GO TO PCONEOHONE )3% 


GO TO MEMORYPARITYS & 02 
PCNOPeNOP)3 B 268 
GO TO NORMALERROR} a 4% 
SHORTCOMMUNICATES3 & 6% 
PROGRAMRELEASE } zB 6B 
CONTINUITYBITS z 10 


INTERRUPTCONEOHTWO)3 PCNOP)3 & 12 


GO TO INITIATES 


% 16 


MAKEPRESENTCANALYSIS)3 % 18 
PONTY*PRICPIMIXeB) +STSeOeSTF 3 
GO TO COMINITS 


RETURNS $ 
TOBUSYS% 


$ SET OMIT & NOTCNEWLOGGING) 
STOPLOGCPIMIXe0)3 


ZWF 
ZWE 


48063000 
46064000 
48064100 
48065000 
48067000 
48069000 
48069100 
48069200 
48069299 
48069300 
48069301 
48069400 
48070000 
48071000 
48072000 
48073000 
48074000 
48079999 
48081000 
48081001 
48082000 
48087000 
48088000 
48089000 
48090000 
48091000 
48092000 
48092099 
48092100 
48092101 
48093000 
48093099 
48093100 
48093104 
48094000 
48095000 
48096008 
48097000 
48097010 
48097020 
46097100 
48097200 
48098000 
48099000 
48100000 
48101000 
48102000 
48102100 
48103000 
48104000 
48105000 
48106000 
48107000 
48108000 
48109000 
48110000 
48111000 
48117000 
48117099 
48117100 


$ POP OMIT 
NTt ¢ UNITENT2+CHANNEL([0J]] 
UNITENT2] © NTLQOL1385e5)3 
STARTIOCNT2)33% 
GO TO EXTERNAL32 

P2BUSY#$ 

$ SET OMIT = NOTCNEWLOGGING) 
STOPLOGCPIMIX20)3 

$ POP OMIT 
SAVEMIXCPIMIXeLOGLINE)3 
PRIORTY*PRYOR[EPIMIX*#P2M[X J} 
POMIX # =15% 
GO TO EXTERNAL?2 

$ SET OMIT = NOTCSHAREDISK) 

FINDITS$ 


H 
& 


$ SET OMIT * NOTCNEWLOGGING) OR OMIT 


STOPLOGCPIMIX*0)3 
S$ POP OMIT 
IF NOT FINDINGADDRESS THEN 
BEGIN 
FINDINGADDRESS#213 


FORKCPC, eFINDFREEADDRESS Jo le™2012601)3 


END} 
GO TO EXTERNAL} 

$ POP OMIT 

INQUEST3 3 

$ SET OMIT = NOTCNEWLOGGING) 
STOPLOGCPIMIX#0)3 

$ POP OMIT 


$ SET OMIT = NOTCSAVERESULTS OR DEBUGGING) 


STORAWAYTSUNIT(3033 
$ POP OMIT 
$ SET OMIT = NOT SEPTICTANK 
DISPOSAL(P»P+0)5 
$ POP OMIT 


INTRGATCTR&SSINTRGATCTR + 13 
IF CNOT UNITC30))+CFFJ20 AND REMOTE THEN NEXTOCIO$ 


GO TO EXTERNAL3& 
KEYBOARDREQUEST3 4% 
$ SET OMIT * NOTCNEWLOGGING) 
STOPLOGCPIMIX20)5 
$ POP OMIT 
$ SET OMIT = NOT DEBUGGING 
NOBACKTALK « TRUESZ 


IF NOT KEYBOARDREADY THEN GO TO EXTERNALSS 


$ POP OMIT 


IF CKEYBOARDCOUNTERSSPC1 INX KEYBOARDCOUNTER)) # 1 THEN 


FORKCPC, KEVIN) #1 20019200)3 
GO TO EXTERNALS3 
MEMORYPARITY33% 
TERMINATECPIMIX)3% 
TERMINALMESSAGE(32)3% 
NORMALERROR# 8% 
IF PiMIX = 0 THENS 


BEGIN P(@1000STS)3% 


PUNTC6)3 
END3% 
IF ONEOHTWO®! THEN 


BEGIN PCSINFOCPIM]X]eSTS)3 
INTABLEROWLPIMIX] «03 


% INVALID ADDRESS 


48117101 
48117200 
48118000 
48119000 
48420000 
48121000 
48121099 
48121100 
48121101 
48121200 
48122000 
48123000 
48125000 
48125099 
48125100 
48125109 
48125110 
48125111 
48125150 
48125200 
48125250 
48125300 
48125350 
48125400 
46125401 
48125500 
48125509 
48125510 
48125511 
48126000 
48126003 
48126002 
48126009 
48126010 
48126011 
48126100 
48126200 
48127000 
48128000 
48128099 
48128400 
48128101 
48128500 
48429000 
48130000 
48130500 
48131000 
48132000 
48133000 
48134000 
48135000 
48136000 
48137000 
48138000 
48139000 
48140000 
48141000 
48141100 
48141200 
48141210 


edhe 2 


PRTCPIMIXsiISIJeMCPRICPIMI[X28I]]3 
PRTICPIMIXeBleeC(CPRICPIM[Xe15)]3 
PRTCPIMIXe 3] +FPBDCPIMIX)3 
PRTILPIMIXe4]+SEGDCPIMIXI; 
ENDS 
PCONEOHTWO)3 
IF PCDUP»DUP)=s9 OR PCACH)*11 THEN 
ERRORFIXERCCONEOHTWO89)41)3 
TERMINATECPIMIX)S 
NT1 © P3 
TERMINALMESSAGECNT1I)3 
DIFFCOMEENT4eP3 
PCO*STFePRICPIMIXs 8] eSTSeMKSoNT4*¢ DIB Os LODe XCHO COC)? 
GO TO INITIATE3 
END ,.% 


48141300 
48141400 
48141500 
48141600 
48141700 
48142000 
48142100 
48142200 
48142500 
48143000 
481443500 
48144000 
48145000 
48146000 
48161000 


LABEL OOO0000000PRINTERO0175122CC EX OBJECT/READSFILE SOURCEFILESSYMBOL/TSSMCPIJENDe« OBJECT /READ 


